|
Hi,
i'm stuck with a very peculiar
problem.
i'm trying to upload a file using mod_perl but
whenevr I attempt to do that the server hangs.
The file is opened in the specified directory but
the "read" attempt fails.
The server is not able to read the file from the
local machine.
Here is the code snippet:
if(open(OUTFILE, ">.$Data."/".$filename")
{
*while(my $bytesread = read($file, my $buffer,
1024) {
print OUTFILE $buffer;
}
close(OUTFILE);
}
$filename is the name of the file and $data is the
path.
$file is the path of the file on the local
machine.
*The flow stops at this line and the server hangs
here.
I'll be thankful if I can get some useful tips on
this issue.
Thanks,
Ratan
|
