Why doesn't this work?

[jend]

See scripts below: I get zero sized files. and an error message in the logs
like this: readline() on unopened filehandle at upload.cgi

It seems that the follwing line is failing in my code

+++ my $upload_filehandle = $query->upload("myfilename");

but this is almost exactly the same as the perldoc CGI docs sample.

anyone?


This is the upload script
#!/usr/local/bin/perl

use strict;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser);

$CGI:ISABLE_UPLOADS = 0;

my $upload_dir = '/tmp/upload.txt;

my $query = new CGI;
my $filename = $query->param('myfilename');

print $filename;

$filename =~ s/.*\/\\(.*)/$1/;

print $filename;

my $upload_filehandle = $query->upload("myfilename");

open(UPLOADFILE, ">$upload_dir/$filename") or die $!;

binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
print UPLOADFILE;
}
close UPLOADFILE;
print $query->header ( );

 

[Bob Walton]

See scripts below: I get zero sized files. and an error message in the logs
like this: readline() on unopened filehandle at upload.cgi

It seems that the follwing line is failing in my code

+++ my $upload_filehandle = $query->upload("myfilename");

but this is almost exactly the same as the perldoc CGI docs sample.

....


Quick dumb guess:

my $upload_filehandle = $query->upload("myfilename");

$filename--------------------------------^^^^^^^^^^^^

Your code is trying to upload the literal filename "myfilename". That's
probably not the name of the file you actually want to upload.
....