in reply to Uploading a file
If the problem is the perl to receive the upload, try this:
I didn't pre-declare my variables, and I used $Bytes just to demonstrate something to do with read()'s return value. You get the idea from this, I hope.sub doUpload{ my $FileHandle = CGI::param('UploadName'); open OUTFILE, '>TheFileName' or die "Couldn't open output file: $!\n +"; while ($Bytes = read($FileHandle,$Buffer,1024)) { $BytesRead += $Bytes; print OUTFILE $Buffer; } warn "Received $BytesRead bytes"; close OUTFILE; }
If this doesn't answer your specific question, post an update and I'll see if I can help more...
Russ
|
|---|