projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b2e8d91271bf532f0aced89458404695a045bd83
[freeside.git]
/
bin
/
cdr.import
1
#!/usr/bin/perl
2
#
3
# Usage:
4
# cdr.import user format filename
5
#
6
7
use strict;
8
use FS::UID qw(adminsuidsetup);
9
use FS::cdr;
10
11
my $user = shift or die &usage;
12
adminsuidsetup $user;
13
14
my $format = shift or die &usage;
15
16
my $error = FS::cdr::batch_import( {
17
'file' => shift,
18
'format' => $format,
19
} );
20
die $error if $error;
21
22
sub usage {
23
"Usage: \n cdr.import user format filename\n";
24
}
25