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

diff --git a/bin/cdr.import b/bin/cdr.import
new file mode 100644
index 000000000..a3508bc8b
--- /dev/null
+++ b/bin/cdr.import
@@ -0,0 +1,25 @@
+#!/bin/sh
+#
+# Usage:
+#  cdr.import user format <filename
+#
+
+use strict;
+use FS::UID qw(adminsuidsetup);
+use FS::cdr;
+
+my $user = shift or die &usage;
+adminsuidsetup $user;
+
+my $format = shift or die &usage;
+
+my $error = FS::cdr::batch_import( {
+  'filehandle' => *STDIN{IO},
+  'format'     => $format,
+} );
+die $error if $error;
+
+sub usage {
+  "Usage: \n  cdr.import user format <filename\n";
+}
+