Hi,
I am a bit lost with file upload in cgi. Please have a look at the
following code and explain me why its only my output file only has the last
portion (or missing data) of the file being uploaded. Also, I fail to
upload doc or pdf files.
######### CODE ######################
$upfile = $_ = $filename = $query->param("file");
$outfile =~ s/.*[\/\\](.*)/$1/;
s/\w://;
s/([^\/\\]+)$//;
$_ = $1;
s/\.\.+//g;
s/\s+//g;
$outfile = $_;
open(OUTFILE, ">"."$upload_dir/$outfile")|| die ("Can not open output file
\n");
binmode OUTFILE;
while($bytes=read($upfile,$buff,1024)){
print OUTFILE $buff;
}
close (OUTFILE);
Please help!
shilpi
-----------------------------------------------------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
