bradleyb
Deleted
Feb 26, 2000, 8:21 PM
Post #1 of 2
(3550 views)
|
|
Accessing an FTP Service via PERL
|
Can't Post
|
|
I need to access an FTP server within a PERL program and have written the following which does open up a connection to the FTP service but doesn't sent the SITE EXEC command like I would hope it would but instead just drops connections because the program ends.
use CGI;
use Win32::Internet;
$INET = new Win32::Internet();
$INET->FTP($FTP, "aaa.bbb.ccc.ddd", "user-id", "password");
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>CRIS - Telephone Control Service v0.001a 991022</TITLE>\n";
print "</HEAD>\n";
print $FTP "quote site exec test dial 213-5295.bat\n";
|
MAIN
SEARCH
WHO'S 
LOG 