perl uploader

slackware | Δευ, 07/06/2015 - 22:36 | 2' | 1

Καλησπέρα,

 

Θέλω να φτιάξω ένα script με το οποίο να μπορώ να αλλάζω την φώτο απο το profile μου απο την γραμμή εντολών.

Έχω φτιάξει το παρακάτω αλλα δεν ξερω πως να κάνω τον uploader

 

#!/usr/bin/perl
use LWP; # we are using libwwwperl
use HTTP::Request::Common;
use HTTP::Cookies;

$files = "files[picture_upload]";
$ua = $ua = LWP::UserAgent->new; # UserAgent is an HTTP client

my $https_login = 'http://www.linuxinsider.gr';

my $https_user = 'slackware';
my $https_pass = 'olympos';

#my $ua = LWP::UserAgent->new();

$ua->protocols_allowed( [ 'http','https'] );

$ua->cookie_jar(HTTP::Cookies->new(file => ".lwp_cookies.txt",autosave => 1));

# login to https site
my $response = $ua->post($https_login, [ 'user' =>
"$https_user",'password' => "$https_pass" ] );

if ($response->is_error())  {
  printf " %s\n", $response->status_line;
  print "https request error!\n";
} else {
   printf " %s\n", $response->status_line;
   print Dumper ($response->as_string);

}

 

 

Tags
Δώσε αστέρια!
Σχόλια