I wrote an embperl script that uploads a file to a web
server. It works fine on Linux and Macs but not on
Windows. When I upload a file from a browser using
Windows 95/98, the file is uploaded to the web server
but it has 0 bytes in it.
Here is part of the script that checks a file from
Windows.
Say,the file is: C:\Document\testing\helloworld.txt
...
[-
#check for "/" path (works just fine).
#check for "\" path (get 0 bytes instead of actual
bytes)
if($fdat{upfile} =~ m/\\/) {
$filename = (split(/\\/,$fdat{upfile}))[-1];
}
if(defined $filename) {
open FILE, "> /tmp/$filename";
while( read($filename,$buffer,32768)) {
print FILE $buffer;
}
close FILE;
}
-]
...
Any idea?
Thanks,
Jeremy
__________________________________________________
Do You Yahoo!?
Get email at your own domain with Yahoo! Mail.
http://personal.mail.yahoo.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
