4 # cdr.import user format filename
8 use FS::UID qw(adminsuidsetup);
11 my $user = shift or die &usage;
14 my $format = shift or die &usage;
18 my $error = FS::cdr::batch_import( {
21 'params' => { 'cdrbatch' => $file },
26 "Usage: \n cdr.import user format filename\n";