# 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 =~ /^\./;
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;