Perl upload

Junior WebHelper Joined: 24 Oct 2002 Posts: 2

i'm trying to get the following sub-routine running on a NT server.
when exactly the same script is run on a Linux server it works fine, but when it is run on NT no file ($file) is uploaded.
any ideas?

sub UploadFile {
binmode $file;

if (open (UPLOADFILE, ">/storyImages/$filename")) {
binmode UPLOADFILE;
print UPLOADFILE $file;
close UPLOADFILE;
}
else{
return $!;
}
}

Posted: Fri Oct 25, 2002 1:12 pm (22 years, 6 months ago)

wavevader wrote:

if (open (UPLOADFILE, ">/storyImages/$filename")) {

On a Unix Server is always used thisslasch ( / )
So try to use ( \ ) in the line and use a full path like C:\...

if (open (UPLOADFILE, ">C:\...\storyImages\$filename")){

I hope this is helping you.
Jos

Junior WebHelper Joined: 24 Oct 2002 Posts: 2

thanks, that's exactly what it was!

double slash though, 'c:\\..\\..'