add troop CDRs, RT#4413
[freeside.git] / bin / cdr.import
index 5c5e6ab..b2e8d91 100644 (file)
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 # Usage:
-#  cdr.import user format <filename
+#  cdr.import user format filename
 #
 
 use strict;
@@ -14,12 +14,12 @@ adminsuidsetup $user;
 my $format = shift or die &usage;
 
 my $error = FS::cdr::batch_import( {
-  'filehandle' => *STDIN{IO},
-  'format'     => $format,
+  'file'   => shift,
+  'format' => $format,
 } );
 die $error if $error;
 
 sub usage {
-  "Usage: \n  cdr.import user format <filename\n";
+  "Usage: \n  cdr.import user format filename\n";
 }