3 # bin/cdr_calltype.import ivan ~ivan/convergent/newspecs/fixed_inbound/calltypes.csv
6 use FS::UID qw(dbh adminsuidsetup);
9 my $user = shift or die &usage;
17 #$line =~ /^(\d+),"([^"]+)"$/ or do {
18 $line =~ /^(\d+),"([^"]+)"/ or do {
19 warn "unparsable line: $line\n";
23 my $cdr_calltype = new FS::cdr_calltype {
28 #my $error = $cdr_calltype->check;
29 my $error = $cdr_calltype->insert;
31 warn "********** $error FOR LINE: $line\n";
33 #my $wait = scalar(<STDIN>);
39 "Usage:\n\ncdr_calltype.import username filename ...\n";