#!/usr/bin/perl
#
# Usage:
-# cdr.import user format <filename
+# cdr.import user format filename
#
use strict;
my $format = shift or die &usage;
+my $file = shift;
+
my $error = FS::cdr::batch_import( {
- 'filehandle' => *STDIN{IO},
- 'format' => $format,
+ 'file' => $file,
+ 'format' => $format,
+ 'params' => { 'cdrbatch' => $file },
} );
die $error if $error;
sub usage {
- "Usage: \n cdr.import user format <filename\n";
+ "Usage: \n cdr.import user format filename\n";
}