bin/cdr_calltype.import

   1 #!/usr/bin/perl -w
   2 #
   3 # bin/cdr_calltype.import ivan ~ivan/convergent/newspecs/fixed_inbound/calltypes.csv
   4
   5 use strict;
   6 use FS::UID qw(dbh adminsuidsetup);
   7 use FS::cdr_calltype;
   8
   9 my $user = shift or die &usage;
  10 adminsuidsetup $user;
  11
  12 while (<>) {
  13
  14   chomp;
  15   my $line = $_;
  16
  17   #$line =~ /^(\d+),"([^"]+)"$/ or do {
  18   $line =~ /^(\d+),"([^"]+)"/ or do {
  19     warn "unparsable line: $line\n";
  20     next;
  21   };
  22
  23   my $cdr_calltype = new FS::cdr_calltype {
  24     'calltypenum'  => $1,
  25     'calltypename' => $2,
  26   };
  27
  28   #my $error = $cdr_calltype->check;
  29   my $error = $cdr_calltype->insert;
  30   if ( $error ) {
  31     warn "********** $error FOR LINE: $line\n";
  32     dbh->commit;
  33     #my $wait = scalar(<STDIN>);
  34   }
  35
  36 }
  37
  38 sub usage {
  39   "Usage:\n\ncdr_calltype.import username filename ...\n";
  40 }
  41