Uploading large files thru HTTP

[Nilay Puri, Noida]

Hi all,

I am uplaoding files from one server to another server using Perl HTTP post.

But when the file size increases to 2 MB , i get error.

Is there any way I can specify the max file size ?
My code is :
#!usr/local/bin/perl -w 
use LWP::Simple;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request::Common qw/POST/;
LWP::Debug::level('+') ;

my $ua= LWP::UserAgent->new(env_proxy => 1, keep_alive => 1, timeout =>
7800,);
my $file="/home/hewebadm/nilay/test1.txt" ;
my $filename="323272-1980-test1.txt" ;

$linktext = "test1.txt" ;
my $url="http://downloaddev.pearsoncmg.com/extmanage/extpost.php"; ;
$request = POST $url,
      Content_Type =>  'multipart/form-data',
       Content      => [ 
                         file  => ["$file"], 
                         filename => "$filename",
                         action => "insert",
                         parentisbn   => "0131406701",
                         linktext => "test1.txt",
                         type   => "Presentations",
                         imprint =>"ph" ,
#                        secret =>
"08ER0L%29N04P73N9%3ACW%2ANC%5F%250%20%0A" ,
                       ];
my $results=$ua->request($request ) ;
 ;   die "$url error :::::::::", $results->status_line unless
$results->is_success ;

#sleep 100;
#To dump the whole data use this otherwise comment it
#print Dumper($results);
print "\n\n\n" ;
if($results->is_success){
        print "The request method was :".$request->method() ;
        print "\n" ;
        print "The requested url was :".$request->url() ;
        print "\n" ;
#       print "The request you sent was :".$request->content() ;
        print "\n\n\n" ;
        print "The response you got :".$results->content() ;
        print "\n" ;
} 
else {
   print "It didnt work";
   print $results->status_line();
}

Regards,

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>