projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
add troop CDRs, RT#4413
[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