After searching for an option to FTP from a HP e3000 across several
switches, a firewall, and a proxy server, to the internet, across a
firewall at the vendor, I called HP. HP informed me that passive FTP is
part of patch FTPFDY9. When I called my Response Center Engineer, I was
learned patch FTPFDY9 is still in the coding phase.
I have heard PERL will work for this and tried, but now need help:
Perl script created for this task:
/l all
1 #!/PERL/PUB/perl
2 # test Perl Net::FTP to [log in to unmask]
3 use Net::FTP;
4 $host = "xxxxxxx";
5 $user = "xxxxxx\@xxx.xxxx-xxx.com";
6 $pw = "password";
7 $ftp = Net::FTP->new("$host", Debug=>1);
8 if($ftp){
9 $ftp->login($user, $pw);
10 $ftp->pasv;
11 $ftp->put("/account/group/ABCDTEST");
12 $ftp->close;
13 }
Run of Perl Script:
/:perl ./FTPTEST
Net::FTP: Net::FTP(2.56)
Net::FTP: Exporter(5.562)
Net::FTP: Net::Cmd(2.18)
Net::FTP: IO::Socket::INET(1.25)
Net::FTP: IO::Socket(1.26)
Net::FTP: IO::Handle(1.21)
Net::FTP=GLOB(0x419c89c0)<<< 220 WinGate Engine FTP Gateway ready
Net::FTP=GLOB(0x419c89c0)>>> user [log in to unmask]
Net::FTP=GLOB(0x419c89c0)<<< 331 Password required for xxxxxx.
Net::FTP=GLOB(0x419c89c0)>>> PASS ....
Net::FTP=GLOB(0x419c89c0)<<< 230 User xxxxxx logged in, access restrictions
apply.
Net::FTP=GLOB(0x419c89c0)>>> PASV
Net::FTP=GLOB(0x419c89c0)<<< 227 Entering passive mode
(192,168,11,11,10,235)
Net::FTP=GLOB(0x419c89c0)>>> PORT 192,46,165,2,226,34
Net::FTP=GLOB(0x419c89c0)<<< 200 PORT command successful.
Net::FTP=GLOB(0x419c89c0)>>> STOR ABCDTEST
Net::FTP=GLOB(0x419c89c0)<<< 500 '': command not understood.
/
I seem to have connected, logged in, entered passive mode, and FAILED to
PUT the test file. Any suggestions?
(Several HP9000 in house will send files through this path to this vendor,
but I prefer not to use a 9000 to help out our e3000.)
|