bin/cdr.import

   1 #!/bin/sh
   2 #
   3 # Usage:
   4 #  cdr.import user format <filename
   5 #
   6
   7 use strict;
   8 use FS::UID qw(adminsuidsetup);
   9 use FS::cdr;
  10
  11 my $user = shift or die &usage;
  12 adminsuidsetup $user;
  13
  14 my $format = shift or die &usage;
  15
  16 my $error = FS::cdr::batch_import( {
  17   'filehandle' => *STDIN{IO},
  18   'format'     => $format,
  19 } );
  20 die $error if $error;
  21
  22 sub usage {
  23   "Usage: \n  cdr.import user format <filename\n";
  24 }
  25