incompatible with translation
[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 $file = shift;
17
18 my $error = FS::cdr::batch_import( {
19   'file'            => $file,
20   'format'          => $format,
21   'batch_namevalue' => $file,
22 } );
23 die $error if $error;
24
25 sub usage {
26   "Usage: \n  cdr.import user format filename\n";
27 }
28