From: ivan Date: Thu, 22 Sep 2011 00:38:38 +0000 (+0000) Subject: add datestamp to batch name derived from filename, remove temp files for all errors... X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=4067729dd523f424e317a707a4fa455230bf6b49 add datestamp to batch name derived from filename, remove temp files for all errors that abort processing, RT#14385 --- diff --git a/FS/bin/freeside-cdr-sftp_and_import b/FS/bin/freeside-cdr-sftp_and_import index 039941c72..7f2693fcb 100755 --- a/FS/bin/freeside-cdr-sftp_and_import +++ b/FS/bin/freeside-cdr-sftp_and_import @@ -105,10 +105,12 @@ foreach my $filename ( @$ls ) { } } + my $file_timestamp = $filename.'-'.time2str('%Y-%m-%d', time); + my $import_options = { 'file' => "$cachedir/$ungziped", 'format' => $format, - 'batch_namevalue' => $filename.'-'.time2str('%Y-%m-%d', time), + 'batch_namevalue' => $file_timestamp, 'empty_ok' => 1, }; $import_options->{'cdrtypenum'} = $opt_c if $opt_c; @@ -123,7 +125,7 @@ foreach my $filename ( @$ls ) { if ( $opt_d ) { if($opt_m eq 'ftp') { my $ftp = ftp(); - $ftp->rename($filename, "$opt_d/$filename") + $ftp->rename($filename, "$opt_d/$file_timestamp") or do { unlink "$cachedir/$filename"; unlink "$cachedir/$ungziped" if $opt_g; @@ -132,7 +134,7 @@ foreach my $filename ( @$ls ) { } else { my $sftp = sftp(); - $sftp->rename($filename, "$opt_d/$filename") + $sftp->rename($filename, "$opt_d/$file_timestamp") or do { unlink "$cachedir/$filename"; unlink "$cachedir/$ungziped" if $opt_g;