I'm using Redhat8 to collect files with a perl script (not web) across a firewal. In redhat8 passive mode is set by default. I want to set it to off.
How to do so?

Since it set to on, i'm not able to get a listing of the directory i'm supposed to find files..

ex : ftp> ls
227 Entering Passive Mode (xx,xx,xx,xx,10,38)
ftp: connect: Connection refused

Thanks!

I don't have a RH8, but if it uses the same ftp program FC2 uses, there is no way to disable it's use of passive at command invocation. You could put pass in the list of commands to be run, or you could do it the "right way"

Thanks...

but i can't do it the right way because i only know the prefix of the file... So i must do a "ls" to check wich files i have to download.

It's a program that download a file each 15 minutes...

On redhat6 passive mode is set to off but on redhat8 not...

May be i can downgrade to RH6 but it's not possible...


i'm still stuck....

There must be a way ta have a ls working...??!

No, no need to downgrade. After you have the connection set up, just turn passive off. Something like this *should* work:

Also, if this is on servers you control, rsync is your friend

Manually it's working... Via perl FTP it's not working!

Somewhere a pasv command is send...

Post the code block that does the FTP transfer (remove any sensitive info such as IPs or username:password)

#!/usr/bin/perl
my $ftp;
use strict;
use Net::FTP;
main();
sub main
{
$ftp = Net::FTP->new("IP outside the firewal",'Debug',1);
$ftp->login("user","password");
$ftp->binary();
$ftp->cwd("/the/directory");
my @ftp_resp = $ftp->dir("dcol-mmsc1be2_20041129205929Z*");
print ($#ftp_resp);
}

This is the "Debug" output

1 ) Net::FTP: Net::FTP(2.65)
2 ) Net::FTP: Exporter(5.567)
3 ) Net::FTP: Net::Cmd(2.21)
4 ) Net::FTP: IO::Socket::INET(1.26)
5 ) Net::FTP: IO::Socket(1.27)
6 ) Net::FTP: IO::Handle(1.21)

7 ) Net::FTP=GLOB(0x8065878)<<< 220 mmsc1ms1 FTP server (Compaq Tru64 UNIX Version 5.60) ready.
8 ) Net::FTP=GLOB(0x8065878)>>> user MCellFTP
9 ) Net::FTP=GLOB(0x8065878)<<< 331 Password required for MCellFTP.
10) Net::FTP=GLOB(0x8065878)>>> PASS ....
11) Net::FTP=GLOB(0x8065878)<<< 230 User MCellFTP logged in.
12) Net::FTP=GLOB(0x8065878)>>> TYPE I
13) Net::FTP=GLOB(0x8065878)<<< 200 Type set to I.
14) Net::FTP=GLOB(0x8065878)>>> CWD /usr/users/MCellFTP/sdr_collected
15) Net::FTP=GLOB(0x8065878)<<< 250 CWD command successful.
16) Net::FTP=GLOB(0x8065878)>>> PASV
17) Net::FTP=GLOB(0x8065878)<<< 227 Entering Passive Mode (xx,xx,xx,xx,12,72)
18) Net::FTP=GLOB(0x8065878)>>> LIST dcol-mmsc1be2_20041129205929Z*

-1

Line 16-17 passive mode sent by ??? and the response from the server. This is what i do not want to be sent by my Redhat8 perl librairies...

Thanks!

Got it!

Thanks for your help.

Need to set FTP_PASSIVE to 0 in my perl script.