Using LWP to automate file upload

[cdlvj]

have a https site to upload files, and I want to automate the process.

my $url = "https:\/\/acct:pass\@ftp.mydomain.com/cgi-bin/upload.pl";
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
my $file="c:\\filetoupload.txt"; 
$res = $ua->post($url,
         [ "ac" => 'upload',
           "file" => "$file"
         ]
     ); 
print $res->content, "\n";

IIS script upload.pl snippet

  ## open of the file on server
  open(FILE,">$upload_dir/$file_name") || &Error("Error opening file $file_name for writing, error $!", 1);
    binmode FILE;
    
    $time=time();
    while (1)
    {
    ### fails here return code is space.
    [B]$bytes_count = read($file_query,$buff,2096);[/B]
	if ($bytes_count == 0)
	{
		 last;
	 }

 

[travs69]

Congratulations

 

[cdlvj]

Question is how can the server read without a file handle?

What am I missing on the client size. I suspect that the browser is passing the stream to the server somehow.

 

[travs69]

Have you looked at cgi.pm or cgi-lib.pl on how to upload files?

 

[cdlvj]

This does it. by putting the filename into an array.

my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
$res = $ua->post($url,
                 Content_Type => 'form-data',
                 Content      => [ "ac" => 'upload',
                                   "file" => [ "$FILE" ],
                                 ]
     ); 
print $res->content, "\n";