Thus it was written in the epistle of Kevin Smeltzer,
> 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.)
Kevin,
Frankly, it looks to me like the fault lies in the server on the other end.
Two questions. First, if you send the file (using Perl) to a UN*X box instead,
does it go? Second, if you send the file by hand from the UN*X box to the
remote box does it use the STOR command and does it transfer correctly?
FWIW, here's an example which works from our 3000 to a linux box:
my $ftp = Net::FTP->new(
'somehost.southern.edu',
Debug=>1,
Passive=>1,
);
$ftp->login('theuser','thepass');
$ftp->binary;
$ftp->put('thatfile');
$ftp->quit;
Net::FTP=GLOB(0x41babee4)<<< 220 somehost FTP server (Version wu-2.4.2-VR17(1) Mon Apr 19 09:21:53 EDT 1999) ready.
Net::FTP=GLOB(0x41babee4)>>> user theuser
Net::FTP=GLOB(0x41babee4)<<< 331 Password required for theuser.
Net::FTP=GLOB(0x41babee4)>>> PASS ....
Net::FTP=GLOB(0x41babee4)<<< 230 User theuser logged in.
Net::FTP=GLOB(0x41babee4)>>> TYPE I
Net::FTP=GLOB(0x41babee4)<<< 200 Type set to I.
Net::FTP=GLOB(0x41babee4)>>> PASV
Net::FTP=GLOB(0x41babee4)<<< 227 Entering Passive Mode (216,229,226,5,86,221)
Net::FTP=GLOB(0x41babee4)>>> STOR thatfile
Net::FTP=GLOB(0x41af9a2c)<<< 150 Opening BINARY mode data connection for thatfile.
Net::FTP=GLOB(0x41af9a2c)<<< 226 Transfer complete.
Net::FTP=GLOB(0x41af9a2c)>>> QUIT
Net::FTP=GLOB(0x41af9a2c)<<< 221-You have transferred 7048 bytes in 1 files.
Net::FTP=GLOB(0x41af9a2c)<<< 221-Total traffic for this session was 7454 bytes in 1 transfers.
Net::FTP=GLOB(0x41af9a2c)<<< 221-Thank you for using the FTP service on somehost.
Net::FTP=GLOB(0x41af9a2c)<<< 221 Goodbye.
Feel free to contact me offlist with further questions.
HTH,
Ted
--
Ted Ashton ([log in to unmask]), Info Sys, Southern Adventist University
==========================================================
He who has heard the same thing told by 12,000 eye-witnesses has only 12,000
probabilities, which are equal to one strong probability, which is far from
certain.
-- Voltaire (1694-1778)
==========================================================
Deep thoughts to be found at http://www.southern.edu/~ashted
|
