in reply to Re: CGI.pm file upload freaking me out
in thread CGI.pm file upload freaking me out

#1: No, $file_name isn't getting changed, so that (literally): 
my $file_name = param('photo');
my $format = uploadInfo($file_name)->{'Content-Type'};

[download]
yields "Can't use an undefined value as a HASH reference at testscript.pl line 274." Comment out the $format line and the rest of the script works perfectly with no other modification.

#2: Moved the CGI::POST_MAX to the top of my script and it's now limiting upload size like it's supposed to. Yeah! Thanks bunches! Now if I could just get uploadInfo() to work I'd be all set. (Although the upload() function would be nice, I can live without it in a no strict block.)

Gary Blackburn
Trained Killer

Replies are listed 'Best First'.
Re: Re: Re: CGI.pm file upload freaking me out
by chipmunk (Parson) on Jan 06, 2001 at 21:58 UTC
    You might try poking around in the CGI object... 
    my $file_name = param('photo');

use Data::Dumper;

print Dumper($CGI::Q->{'.tmpfiles'});

    [download]
    Even better could be to save the state of the form, submitted from the browser... 
    use CGI qw(:standard);

open(SAVE, ">test.out") or die "Can't open test.out: $!\n";
save_parameters(SAVE);

    [download]
    ...and then use that saved state to run the program in the debugger: 
    use CGI qw(:standard);

open(SAVE, "test.out") or die "Can't open test.out: $!\n";
restore_parameters(SAVE);

$photo_save_name ="something";
    
my $file_name = param('photo');

# ...

    [download]
    Then you can use all the wonderful features of the debugger to figure out why uploadInfo() isn't working as expected. ;)
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom