add cdr-charged_party-truncate_{length,prefix} in order to trim charged_party to...

[freeside.git] / bin / cdr.sftp_and_import

diff --git a/bin/cdr.sftp_and_import b/bin/cdr.sftp_and_import
index f68d70c..79e743f 100755 (executable)
--- a/bin/cdr.sftp_and_import
+++ b/bin/cdr.sftp_and_import
@@ -16,8 +16,8 @@ use FS::cdr;
 # parse command line
 ###
 
-use vars qw( $opt_e $opt_d $opt_u $opt_v );
-getopts('e:d:u:v');
+use vars qw( $opt_e $opt_d $opt_v );
+getopts('e:d:v');
 
 $opt_e ||= 'csv';
 #$opt_e = ".$opt_e" unless $opt_e =~ /^\./;
@@ -61,13 +61,11 @@ foreach my $file ( @$ls ) {
 
   warn "Processing $filename\n" if $opt_v;
 
-  open(FILE, "$cachedir/$filename") or die "can't read $cachedir/$filename: $!";
-
   my $error = FS::cdr::batch_import( {
-    'filehandle' => *FILE{IO},
-    'format'     => $format,
-    'cdrbatch'   => $filename,
-    'empty_ok'   => 1,
+    'file'     => "$cachedir/$filename"
+    'format'   => $format,
+    'params'   => { 'cdrbatch' => $filename, },
+    'empty_ok' => 1,
   } );
   die $error if $error;