| Subject: | Error after PASV command is executed automatically by FTPSSL.pm |
We are trying to initiate FTPSSL session to get and put files with one
of our partners. It looks like the connection is established, but when
the FTPSSL.pm executes the PASV command (don't know if there is an
option to turn it off), we get a message
Show quoted text
<<< 230-You have 0 transfer credits remaining.
Use of uninitialized value in split
at /opt/perl_32/lib/site_perl/5.8.3/Net/FTPS
SL.pm line 141.
The line 141 in FTPSSL.pm is
" my @address = split( /,/, $3 ); "
I would very much appreciate any help on this issue. Is there a fix
already in place for this issue? If yes, where can I get the
fix/patch? or Am I missing some parameter in my command call
Here is a snapshot of the code that we are trying to execute:
-----------------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use Net::FTPSSL;
my $last_message;
my $ftps = Net::FTPSSL->new('<IP Address>',
Port => <Port>,
Encryption => 'E',
Debug => 1)
or die "Can't open <IP Address> in port <Port>";
$ftps->login('<User ID>', '<Password>') or die "Can't
login: ", $ftps->$last_message();
$ftps->cwd("<Pickup Directory>") or die "Can't change
directory: ", $ftps->last_message;
$ftps->nlst("<Pickup Directory>") or die "Can't put file: ",
$ftps->last_message;
$ftps->get("<FileName>") or die "Can't put file: ", $ftps-
Show quoted text
>>> PASV
>last_message;
$ftps->quit();
-----------------------------------------------------------------------