ok, i have tried a different approach using the PASV approach, but i still get "425 can't build data connection" in the following example... obviously i'm lost...lol...
print FTP "PASV\r\n";
sysread (FTP, $FormData, 1024);
print STDOUT "$FormData\n";
print FTP "LIST\r\n";
sysread (FTP, $FormData, 1024);
print STDOUT "$FormData\n";
socket (DATA, AF_INET, SOCK_STREAM, getprotobyname('tcp'));
bind (DATA, pack('S n a4 x8', AF_INET, 20, (gethostbyname($FTPdServer)
+) [4]));
listen (DATA, 1);
while (<DATA>) {
$FormData = $_;
print STDOUT $FormData;
}
close (DATA);
print FTP "QUIT\r\n";
sysread (FTP, $FormData, 1024);
print STDOUT "$FormData\n";
close (FTP);
|