alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ftp

Browse Source
This commit is contained in:
alessandro
2017-11-01 01:36:15 +01:00
parent 9463ca4dcd
commit f8e0b803e2
1 changed files with 481 additions and 476 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
LoadCSVData.pl
View File

@@ -192,7 +192,7 @@ sub trxelab {
$ftp_parms{$key} = $val; $ftp_parms{$key} = $val;
} }
print getTimeStamp("log") . " - pid $$ >> $tool: ftp parm = " . Dumper(%ftp_parms) . "\n"; print getTimeStamp("log") . " - pid $$ >> $tool: ftp parm \n" . Dumper(%ftp_parms);
my $ftp = Net::FTP->new( %ftp_parms ) my $ftp = Net::FTP->new( %ftp_parms )
or die getTimeStamp("log") or die getTimeStamp("log")
@@ -217,6 +217,11 @@ sub trxelab {
or die getTimeStamp("log") or die getTimeStamp("log")
. " - pid $$ >> Put failed " . " - pid $$ >> Put failed "
. $ftp->message . "\n"; . $ftp->message . "\n";
print getTimeStamp("log")
. " - pid $$ >> ftp target files list:\n"
. Dumper($ftp->ls());
$ftp->quit; $ftp->quit;
print getTimeStamp("log") print getTimeStamp("log")
. " - pid $$ >> $tool: $fileelab ftp put executed.\n"; . " - pid $$ >> $tool: $fileelab ftp put executed.\n";