blob: a17417b857325e05148f22e5efd34bf4e6eea7fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl
#
# Usage:
# cdr.import user format filename
#
use strict;
use FS::UID qw(adminsuidsetup);
use FS::cdr;
my $user = shift or die &usage;
adminsuidsetup $user;
my $format = shift or die &usage;
my $file = shift;
my $error = FS::cdr::batch_import( {
'file' => $file,
'format' => $format,
'params' => { 'cdrbatch' => $file },
} );
die $error if $error;
sub usage {
"Usage: \n cdr.import user format filename\n";
}
|
