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