2
Expand|Select|Wrap|Line Numbers
- #!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>";
Expand|Select|Wrap|Line Numbers
-
[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:
-
[Tue Aug 05 10:47:08 2008] [error] [client 172.16.71.53] at C:/CGI-bin/Encore.pl line 13, referer:
Where are the double backslashes coming from? This is killing me!!!!
