diff options
| -rw-r--r-- | bin/cdr.import | 25 |
1 files changed, 25 insertions, 0 deletions
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"; +} + |