Hi, Im trying to script that will accept a file from the post of an multipart/form-data HTML form. This script just gives me a generic "Error 500", is there any thing wrong with my code that I've missed?
#!/usr/bin/perl
use CGI;
$query = new CGI;
$filename = $query->param('photo');
#remove slashes
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $query->upload('photo');
open UPLOADFILE, ">>/path/to/$filename" ;
binmode UPLOADFILE;
while ( <$upload_filehandle> )
{
print UPLOADFILE;
}
close UPLOADFILE;
print $query->header( );
print <<EOM;
<HTML>
<HEAD>
<TITLE>Thanks!</TITLE>
</HEAD>
<BODY>
<P>Thanks for uploading your file!</P>
<P>Your photo:</P>
<img src="/$uploaddir/$filename" border="0">
</BODY>
</HTML>
EOM
it recives the post from a HTML form similar to this:
<FORM ACTION="/cgi-bin/test.pl" METHOD="post"
ENCTYPE="multipart/form-data">
Photo to Upload: <INPUT TYPE="file" NAME="photo">
<INPUT TYPE="submit" NAME="Submit" VALUE="Submit Form">
</FORM>