- #!C:\Perl\bin\perl.exe -w
-
use CGI;
-
use Net::FTP;
-
my $q = new CGI;
-
#my $thefile = $q->param('filename');
-
$thefile = "name.ts";
-
my $dl = chr(92);
-
$localdir = join ($dl, "S:", "Free");
-
$filename = join ($dl, $localdir, $thefile);
-
$ftpobj = Net::FTP -> new ("192.168.0.2");
-
$ftpobj -> login("cms","cm5u53r");
-
$ftpobj -> binary;
-
$ftpobj -> put ($filename);
-
$ftpobj -> quit;
-
#unlink $filename;
-
print "Content-type: text/html\n\n";
-
print "\n<html><head>";
-
print "<title>Uploading Complete</title>";
-
print "</head>";
-
print "<body><h2>Uploading Complete</h2><br><br>filename: [$filename] thefile: [$thefile]<br><br>";
-
print "</body></html>";
the error:
-
[Tue Aug 05 10:47:08 2008] [error] [client 172.16.71.53] Cannot open Local file S:\\Free\\name.ts: No such file or directory, referer: http://172.16.71.53/Encore.html
-
[Tue Aug 05 10:47:08 2008] [error] [client 172.16.71.53] at C:/CGI-bin/Encore.pl line 13, referer: http://172.16.71.53/Encore.html
Where are the double backslashes coming from? This is killing me!!!!
