- my $error = FS::cdr::batch_import( {
- 'file' => "$cachedir/$filename",
- 'format' => $format,
- 'params' => { 'cdrbatch' => $filename, },
- 'empty_ok' => 1,
- } );
- die $error if $error;
+ my $file_timestamp = $filename.'-'.time2str('%Y-%m-%d', time);
+
+ my $import_options = {
+ 'file' => "$cachedir/$ungziped",
+ 'format' => $format,
+ 'batch_namevalue' => $file_timestamp,
+ 'empty_ok' => 1,
+ };
+ $import_options->{'cdrtypenum'} = $opt_c if $opt_c;
+
+ my $error = FS::cdr::batch_import($import_options);
+ if ( $error ) {
+ unlink "$cachedir/$filename";
+ unlink "$cachedir/$ungziped" if $opt_g;
+ die $error;
+ }