$ftp not connecting to server

IronCore has asked for the wisdom of the Perl Monks concerning the following question:

<body> Hi monks,
I have some perl code that I use to ftp files from our mainfarme but
when I try to use the same code to connect to a windows ftp server it won't
connect. The server address is good I've connected to it using my
mainframe ftp program.
Any ideas?

Perl code

open(FTP_WORK, ">@FTP_cmnd_file");
    $oldHandle = select(FTP_WORK);
    print("open windows.ftp.server  \n");
    print("my\\userid \n");
    print("password  \n");
    print("cd '/download'  \n");
    print("get '$downfile' $ftpFile   \n");
    print("bye  \n");

close(FTP_WORK);

$_ = `ftp -s:@FTP_cmnd_file > @FTP_log_file`;
[download]

I also tried this code I got from your site, It didn't work ether.

$ftp = Net::FTP->new( $server, Passive => 1, Debug => 0 ) or die $@;
messages retruned.

ftp> ftp> open window.ftp.server
Invalid command.
[download]

thanks. </body>

Comment on $ftp not connecting to server Select or Download Code

Replies are listed 'Best First'.
Re: $ftp not connecting to server by derby (Abbot) on Oct 09, 2009 at 19:17 UTC
Hmmm ... creating a tmp file and exec'ing it isn't very perlish. Using what you have, your Net::FTP should look like this: `#!/usr/bin/perl use strict; use warnings; use Net::FTP; my $ftp = Net::FTP->new( "windows.ftp.server", Debug => 0 ) or die "Cannot connect to windows.ftp.server: $@"; $ftp->login( "userid","password" ) or die "Cannot login ", $ftp->message; $ftp->cwd( "/download" ) or die "Cannot change working directory ", $ftp->message; $ftp->get( $downFile, $ftpFile ) or die "get failed ", $ftp->message; $ftp->quit;` [download] (and that's pretty much straight out of the docs). -derby	[reply] [d/l]
Re^2: $ftp not connecting to server by IronCore (Initiate) on Oct 09, 2009 at 21:56 UTC
derby, I tried your code and it failed to connect. Do I have to define the server to windows somewhere? Like with ODBC for databases. I put my mainframe server name (which is an alias) in your code and it does connect. I'm a mainframer who has been forced at gun point to dance on the small platform side :-) so i'm not familiar with all of the ins and outs of window. thanks.	[reply]
Re^3: $ftp not connecting to server by derby (Abbot) on Oct 10, 2009 at 02:00 UTC
IronCore the windows server name needs to resolve and there needs to be an ftp server running there. Have you tried connecting to the machine with a normal ftp client? -derby	[reply]
Re^4: $ftp not connecting to server by IronCore (Initiate) on Oct 12, 2009 at 18:12 UTC
Re^4: $ftp not connecting to server by IronCore (Initiate) on Oct 12, 2009 at 16:41 UTC
Re^5: $ftp not connecting to server by derby (Abbot) on Oct 12, 2009 at 16:54 UTC
Re^2: $ftp not connecting to server by IronCore (Initiate) on Oct 09, 2009 at 22:14 UTC
derby, I forgot to respond to your tmp file comment. The program that sample came from is used to ftp many different files depending on passed parms. If there's a cleaner way to do it I'm certainly open to it. I do need to save the ftp output messages to a file though. thanks,	[reply]
Re: $ftp not connecting to server by zwon (Abbot) on Oct 09, 2009 at 19:01 UTC
$ftp = Net::FTP->new( $server, Passive => 1, Debug => 0 ) or die $@; messages retruned. What messages were returned? Can you set `Debug => 1`?	[reply] [d/l]
Re: $ftp not connecting to server by hippsta (Acolyte) on Oct 09, 2009 at 19:03 UTC
Windows FTP generally operates in Active mode. This is more a system administration issue, than with perl per se. GL! :) Respectfully, Brother Hippsta	[reply]
Re: $ftp not connecting to server by vitoco (Hermit) on Oct 09, 2009 at 19:14 UTC
Some servers requires you to send the username and password using `user` and `pass` commands.	[reply] [d/l] [select]