Part of a perl script that I've written that is to be deployed on a bunch of esx 3 servers has a odd problem that is really stumping me. I'm posting here because I'm 99% sure that this doesn't have anything to do with my script and I have a nasty feeling that there is a chance the the hold up might be related to the ESX os and how it handles network interfaces.
Randomly, after successfully connecting to and authenticating to an ftp, the data connection fails while trying to transfer files. This failure can last for a few minutes to hours, and I see nothing that would suggest why or how long this would happen. This is the output I get from the script when I encounter this error.
Net::FTP=GLOB(0x8408ec8)<<< 220 Microsoft FTP Service
Net::FTP=GLOB(0x8408ec8)>>> user X
Net::FTP=GLOB(0x8408ec8)<<< 331 Password required for X.
Net::FTP=GLOB(0x8408ec8)>>> PASS ....
Net::FTP=GLOB(0x8408ec8)<<< 230 User X logged in.
Net::FTP=GLOB(0x8408ec8)>>> PASV
Net::FTP=GLOB(0x8408ec8)<<< 227 Entering Passive Mode (155,109,45,64,6,113).
Net::FTP=GLOB(0x8408ec8)>>> APPE file.csv
Net::FTP=GLOB(0x8408ec8)<<< 425 Can't open data connection.
This is the code I use for the ftp in the script. It usually works with no issues, but sometimes yeilds the above.
$ftp = Net::FTP->new("$ftpalias", Debug => 1)
or die "Cannot connect to $ftpalias: $@";
$ftp->login("X","X")
or die "Cannot login ", $ftp->message;
$ftp->append("$output", "$host.csv")
or die "Data Transfer Failed ", $ftp->message,
sleep (1800),
$ftp = Net::FTP->new("$ftpalias", Debug => 1),
$ftp->login("X","X"),
$ftp->append("$output", "$host.csv");
$ftp->quit;
Does anyone know what could be the issue, or runs a perl script that ftp's with no issues what so ever?
