my($cdr, $cdrtypename, $conf, $param) = @_;
return unless length($cdrtypename);
_init_cdr_types();
- die "no matching cdrtypenum for $cdrtypename"
- unless defined $CDR_TYPES->{$cdrtypename};
+ unless (defined $CDR_TYPES->{$cdrtypename}) {
+ warn "Skipping Record: CDR type name $cdrtypename does not exist!";
+ $param->{skiprow} = 1;
+ }
$cdr->cdrtypenum($CDR_TYPES->{$cdrtypename});
}, # type
_cdr_min_parser_maker('billsec'), #PriceDurationMins
"enddate=s" => \$enddate,
);
+$startdate = str2time($startdate) or die "can't parse start date $startdate\n";
+ $startdate = time2str('%m-%d-%Y', $startdate);
+$enddate = str2time($enddate) or die "can't parse start date $enddate\n";
+ $enddate = time2str('%m-%d-%Y', $enddate);
+
my $fsuser = $ARGV[-1];
die usage() unless $fsuser;
seek($cfh,0,0);
- print "Importing batch $cdrbatch\n";
+ warn "Importing batch $cdrbatch\n";
my $error = FS::cdr::batch_import({
'batch_namevalue' => $cdrbatch,
'file' => $cfh->filename,
'format' => 'telapi_'.$type
});
+ warn "Error importing CDR's\n".$error if $error;
+
exit;
\ No newline at end of file