Re: Re: (Kozz) Re: "canned" FTP

[PriNet]

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);