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

attivato il controlllo della due date per invio ftp

Browse Source
This commit is contained in:
battilo
2018-09-08 15:49:39 +02:00
parent 1f12748890
commit 902146f379
1 changed files with 42 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
LoadCSVData.pl
View File

@@ -38,6 +38,7 @@ my $ftp_passwd;
my $ftp_parm; my $ftp_parm;
my $ftp_filename; my $ftp_filename;
my $ftp_target; my $ftp_target;
my $duedate;
my ($unit_id, $unit, $unittype); my ($unit_id, $unit, $unittype);
my ($fileDate, $fileTime); my ($fileDate, $fileTime);
my $matlab_rt = "/usr/local/MATLAB/MATLAB_Runtime/v93"; my $matlab_rt = "/usr/local/MATLAB/MATLAB_Runtime/v93";
@@ -142,8 +143,8 @@ sub trxelab {
. " - pid $$ >> Could not connect to database: $DBI::errstr"; . " - pid $$ >> Could not connect to database: $DBI::errstr";
my $sth = $dbh->prepare( my $sth = $dbh->prepare(
'select ftp_addrs, ftp_user, ftp_passwd, ftp_parm, ftp_filename, ftp_target from units 'select ftp_addrs, ftp_user, ftp_passwd, ftp_parm, ftp_filename, ftp_target, duedate from units
where id = ' . $unit_id . ';' where id = ' . $unit_id . ';'
) or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr"; ) or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
$sth->execute(); $sth->execute();
@@ -158,6 +159,7 @@ sub trxelab {
$ftp_parm = $results->{'ftp_parm'}; $ftp_parm = $results->{'ftp_parm'};
$ftp_filename = $results->{'ftp_filename'}; $ftp_filename = $results->{'ftp_filename'};
$ftp_target = $results->{'ftp_target'}; $ftp_target = $results->{'ftp_target'};
$duedate = $results->{'duedate'};
} }
} }
@@ -216,38 +218,45 @@ sub trxelab {
print getTimeStamp("log") . " - pid $$ >> $tool ftp parm:\n" . Dumper(%ftp_parms); print getTimeStamp("log") . " - pid $$ >> $tool ftp parm:\n" . Dumper(%ftp_parms);
my $ftp = Net::FTP->new( %ftp_parms ) if (($duedate eq '0000-00-00 00:00:00') or
or die getTimeStamp("log") ($duedate eq '') or
. " - pid $$ >> Cannot connect to $ftp_addrs: $@ \n"; ($duedate gt getTimeStamp("db_ts") )) {
$ftp->login( $ftp_user, $ftp_passwd ) my $ftp = Net::FTP->new( %ftp_parms )
or die getTimeStamp("log") or die getTimeStamp("log")
. " - pid $$ >> Cannot login " . " - pid $$ >> Cannot connect to $ftp_addrs: $@ \n";
. $ftp->message . "\n"; $ftp->login( $ftp_user, $ftp_passwd )
$ftp_target //= ""; or die getTimeStamp("log")
if ( $ftp_target ne "" ) { . " - pid $$ >> Cannot login "
$ftp->cwd($ftp_target) . $ftp->message . "\n";
or die getTimeStamp("log") $ftp_target //= "";
. " - pid $$ >> Change remote dir failed " if ( $ftp_target ne "" ) {
. $ftp->message . "\n"; $ftp->cwd($ftp_target)
or die getTimeStamp("log")
. " - pid $$ >> Change remote dir failed "
. $ftp->message . "\n";
}
print getTimeStamp("log")
. " - pid $$ >> ftp target: "
. $ftp->pwd() . ".\n";
$ftp->put($fileelab)
or die getTimeStamp("log")
. " - pid $$ >> Put failed "
. $ftp->message . "\n";
print getTimeStamp("log")
. " - pid $$ >> ftp target lists "
. scalar @{ $ftp->ls() }
. " elements.\n";
$ftp->quit;
print getTimeStamp("log")
. " - pid $$ >> $tool: $fileelab ftp put executed.\n";
} else {
print getTimeStamp("log")
. " - pid $$ >> $tool: $fileelab ftp put didn't executed because due date reached.\n";
} }
print getTimeStamp("log")
. " - pid $$ >> ftp target: "
. $ftp->pwd() . ".\n";
$ftp->put($fileelab)
or die getTimeStamp("log")
. " - pid $$ >> Put failed "
. $ftp->message . "\n";
print getTimeStamp("log")
. " - pid $$ >> ftp target lists "
. scalar @{ $ftp->ls() }
. " elements.\n";
$ftp->quit;
print getTimeStamp("log")
. " - pid $$ >> $tool: $fileelab ftp put executed.\n";
return; return;
} }