X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fcdr.import;h=36266efbf2da00d442d6eac9bc9f84c6b7a8621e;hb=5c3409b2a987a9a6fc6ca77bcaceb4b7cefa03de;hp=a3508bc8b40cbf242e19b7238692b2dc87d25c92;hpb=80ff02710fb34b6d59adc7095cdf744b2cab3eaf;p=freeside.git

diff --git a/bin/cdr.import b/bin/cdr.import
old mode 100644
new mode 100755
index a3508bc8b..36266efbf
--- a/bin/cdr.import
+++ b/bin/cdr.import
@@ -1,7 +1,7 @@
-#!/bin/sh
+#!/usr/bin/perl
 #
 # Usage:
-#  cdr.import user format <filename
+#  cdr.import user format filename
 #
 
 use strict;
@@ -13,13 +13,16 @@ adminsuidsetup $user;
 
 my $format = shift or die &usage;
 
+my $file = shift;
+
 my $error = FS::cdr::batch_import( {
-  'filehandle' => *STDIN{IO},
-  'format'     => $format,
+  'file'            => $file,
+  'format'          => $format,
+  'batch_namevalue' => $file,
 } );
 die $error if $error;
 
 sub usage {
-  "Usage: \n  cdr.import user format <filename\n";
+  "Usage: \n  cdr.import user format filename\n";
 }