separazione dell'ftp fissata

SendFtpElabData.pl

@@ -48,7 +48,7 @@ sub trxelab {
 
     my $sth = $dbh->prepare(
 'select ftp_addrs, ftp_user, ftp_passwd, ftp_parm, ftp_filename, ftp_target, duedate from units
-                where name = ' . $unit . ';'
+                where name = "' . $unit . '";'
     ) or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
 
     $sth->execute();
@@ -120,8 +120,7 @@ sub trxelab {
         my ( $key, $val ) = split( /=>/, $parm );
         $ftp_parms{$key} = $val;
     }
-    my $name = POSIX::cuserid();
-    print getTimeStamp("log") . " - pid $$ >> Current user id: $name\n";
+
     print getTimeStamp("log")
       . " - pid $$ >> $unit - $tool ftp parm:\n"
       . Dumper(%ftp_parms);
@@ -184,6 +183,8 @@ GetOptions(
     "tool=s"     => \$tool
 ) or die("Error in command line arguments\n");
 
+print getTimeStamp("log") . " - pid $$ >> Send via FTP elab data for $unit - $tool.\n";
+
 if ( $tool eq 'DT0076' ) {
     sleep(600);
 }