Select Code to Download

Select or download this

[root@host6 dell-download]# ./get-files.pl > out.log 2>&1 &
[1] 10027
...
Can't use an undefined value as a symbol reference at /usr/share/perl5
+/Net/FTP/dataconn.pm line 54.
^C
[1]+  Exit 255                ./get-files.pl > out.log 2>&1

Select or download this

ftp> cd "Browse_For_Drivers/Servers, Storage & Networking/PowerEdge/Po
+werEdge R610/Network/HTML"
250 CWD command successful.
...
..<listings removed>..
drwxrwxrwx   1 owner    group               0 Aug 29  2012 Windows Ser
+ver 2008 x86
226 Transfer complete.

Select or download this

     48 sub _close {
     49   my $data = shift;
...
     55     if exists ${*$ftp}{'net_ftp_dataconn'}
     56     && $data == ${*$ftp}{'net_ftp_dataconn'};
     57 }

Select or download this

     60 sub close {
     61   my $data = shift;
...
     68   }
     69
     70   $data->_close;

Select or download this

#!/usr/bin/perl

...
sub GetFiles {
    return;
}