1 files changed, 28 insertions, 0 deletions
diff --git a/bin/cdr.import b/bin/cdr.import
new file mode 100644
index 0000000..36266ef
--- /dev/null
+++ b/bin/cdr.import
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+#
+# 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 $file = shift;
+
+my $error = FS::cdr::batch_import( {
+  'file'            => $file,
+  'format'          => $format,
+  'batch_namevalue' => $file,
+} );
+die $error if $error;
+
+sub usage {
+  "Usage: \n  cdr.import user format filename\n";
+}
+