refresh script

SendFtpElabData.pl

@@ -7,10 +7,10 @@ use Net::FTP;
 
 $|++;    # Autoflush
 
-my $username = 'ase_lar';
+my $username = 'aselar';
 my $password = 'laravel';
 my $db_name  = 'ase_lar';
-my $server   = 'localhost';
+my $server   = '85.235.153.201';
 my $matlab_timestamp;
 my $ftp_send = 1;
 my $ftp_addrs;
@@ -21,6 +21,7 @@ my $ftp_filename = '';
 my $ftp_target;
 my $duedate = '';
 my ( $unit, $tool );
+my $dest = '/tmp/';
 
 sub getTimeStamp
 {    # parm [ts] => timestamp for filename; log => timestamp for log
@@ -71,6 +72,7 @@ sub trxelab {
     # Disconnect
 
     my $fileelab;
+    my $filetosend; 
 
     if ( !defined $ftp_filename or $ftp_filename eq "" ) {
         $fileelab =
@@ -78,6 +80,11 @@ sub trxelab {
           . $tool . '_'
           . getTimeStamp()
           . '.csv';  #mettere quello che si prende da query *** aggiungere $unit
+        $filetosend =
+            '/tmp/'
+          . $tool . '_'
+          . getTimeStamp()
+          . '.csv';  #mettere quello che si prende da query *** aggiungere $unit
     }
     else {
         $ftp_filename =~ s/(\$\w+)/$1/eeg;
@@ -86,6 +93,10 @@ sub trxelab {
             '/var/lib/mysql-files/'
           . $ftp_filename . '_'
           . getTimeStamp() . '.csv';
+        $filetosend =
+            '/tmp/'
+          . $ftp_filename . '_'
+          . getTimeStamp() . '.csv';
     }
 
     my $sthdo = $dbh->do(
@@ -108,6 +119,8 @@ sub trxelab {
 
     $dbh->disconnect;
 
+    system("scp -i /home/battilo/scripts/key -P6229 alex\@" . $server . ":" . $fileelab . " /tmp");
+
     $ftp_parm //= "";
     $ftp_parm =~ s/\s//g;
 
@@ -154,7 +167,7 @@ sub trxelab {
           . " - pid $$ >> ftp target: "
           . $ftp->pwd() . ".\n";
 
-        $ftp->put($fileelab)
+        $ftp->put($filetosend)
           or die getTimeStamp("log")
           . " - pid $$ >> Put failed: "
           . $ftp->message . "\n";