I am trying to upload files to my virtual server hosted with ipowerweb. I tried calling on two different scripts (not at the same time). One I copied online and the other from a book. They both work ok, as in the file appears as it was named, except that the file is blank, zero bytes, no content! What can I do to see it write the file properly?
#MAIN HTML start#
<FORM ENCTYPE="multipart/form-data" ACTION="upload.pl" METHOD="get">
<p>Please select a file to upload: <br />
<INPUT TYPE="FILE" NAME="file">
<p><INPUT TYPE="submit"></FORM>';
#MAIN HTML end#
here's my action file...
######FIRST ATTEMPT##########################
##HEADER##
$dir = "tempfolder";
$file = param('file');
$file=~m/^.*(\\|\/)(.*)/;
$name = $2;
open(LOCAL, ">$dir/$name") or die $!;
while(<$name>) {
print LOCAL $_; }
print 'Succeeded in your upload';
######END###########################
######SECOND PROG.###########################
##HEADER##
$dir = "tempfolder";
$file = param('file');
if ($file =~ /.*[\/\\](.*)/) {
$out_file = $1; }
else { $out_file = $file; }
$counter = 0;
while (-e "$dir/$out_file") {
$counter++;
$out_file =~ s/^(.+)\.(.+)$/$1$counter\.$2/; }
print "$file<br />\n";
open (OFILE, "> $dir/$out_file");
while ($bytesread = read ($file, $buffer, 1024)) {
print OFILE $buffer; }
close $file;
close OFILE;
print 'Succeeded in your upload';
######END###########################
Thanks for your help