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;
16 my $error = FS::cdr::batch_import( {
17 'filehandle' => *STDIN{IO},
23 "Usage: \n cdr.import user format <filename\n";