projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
scalability: always reap children, RT#78270
[freeside.git]
/
bin
/
cdr.import
diff --git
a/bin/cdr.import
b/bin/cdr.import
old mode 100644
(file)
new mode 100755
(executable)
index
a3508bc
..
36266ef
--- a/
bin/cdr.import
+++ b/
bin/cdr.import
@@
-1,7
+1,7
@@
-#!/
bin/sh
+#!/
usr/bin/perl
#
# Usage:
#
# Usage:
-# cdr.import user format
<
filename
+# cdr.import user format filename
#
use strict;
#
use strict;
@@
-13,13
+13,16
@@
adminsuidsetup $user;
my $format = shift or die &usage;
my $format = shift or die &usage;
+my $file = shift;
+
my $error = FS::cdr::batch_import( {
my $error = FS::cdr::batch_import( {
- 'filehandle' => *STDIN{IO},
- 'format' => $format,
+ 'file' => $file,
+ 'format' => $format,
+ 'batch_namevalue' => $file,
} );
die $error if $error;
sub usage {
} );
die $error if $error;
sub usage {
- "Usage: \n cdr.import user format
<
filename\n";
+ "Usage: \n cdr.import user format filename\n";
}
}