Форум программистов [Powered by Invision Power Board]

Код


<form name=frm action="." target=_parent method=post enctype="multipart/form-data" onSubmit="frm.upbtn.disabled=true; return true;">
<input name=fileupload1 size=70 type=file><br />
<input name=fileupload2 size=70 type=file><br />
<input name=fileupload3 size=70 type=file><br />
<input name=fileupload4 size=70 type=file><br />
<input name=fileupload5 size=70 type=file><br />
<input name=upbtn type=submit value="Upload files">
</form>

Код


#!/usr/bin/perl
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use HTTP::Cookies;

my $login='abc';
my $pass = '123'; 

my $file = 'sunset.jpg';

my $ua = LWP::UserAgent->new();
   $ua ->env_proxy();
   $ua ->cookie_jar(HTTP::Cookies->new(file => "cookies.txt",autosave=>1));

   
my  $req1 = HTTP::Request->new(GET => 'http://site.ua:58088/_i/cs/~upload');
    $req1->authorization_basic($login, $pass);

my $res = $ua->request($req1);
    if ($res->is_success) {
            my $headers = new HTTP::Headers(Referer => 'http://site.ua:58088/_i/cs/~upload');
            my $req2 = HTTP::Request->new(POST =>'http://site.ua:58088/_i/cs/~upload', $headers);
               $req2-> content_type ('multipart/form-data');
               $req2 -> content([fileupload1 => [$file]]);
                                                
                     $res = $ua->request($req2);
                      if ($res->is_success) {
                                                  print $res->as_string();
                                                   } else {
                                                           print "Error: " . $res->status_line . "\n";
                                                           }
                                                                        
                                 } else {
                                            print "Error: " . $res->status_line . "\n";
                                        }