bin/cdr.import

   1 #!/usr/bin/perl
   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 $file = shift;
  17
  18 my $error = FS::cdr::batch_import( {
  19   'file'            => $file,
  20   'format'          => $format,
  21   'batch_namevalue' => $file,
  22 } );
  23 die $error if $error;
  24
  25 sub usage {
  26   "Usage: \n  cdr.import user format filename\n";
  27 }
  28