1 package FS::cdr::ani_networks;
2 use base qw( FS::cdr );
9 'name' => 'ANI NETWORKS',
11 'type' => 'fixedlength',
12 'fixedlength_format' => [qw(
13 call_date_time:14:1:14
14 bill_to_number:15:15:29
15 translate_number:10:30:39
16 originating_number:10:40:49
17 originating_lata:3:50:52
18 originating_city:30:53:82
19 originating_state:2:83:84
20 originating_country:4:85:88
21 terminating_number:15:89:103
22 terminating_lata:3:104:106
23 terminating_city:30:107:136
24 terminating_state:2:137:138
25 terminating_citycode:3:139:141
26 terminating_country:4:142:145
28 call_transport:1:148:148
29 account_code:12:149:160
32 wholesale_amount:9:171:179
34 originating_lrn:10:184:193
35 terminating_lrn:10:194:203
36 originating_ocn:4:204:207
37 terminating_ocn:4:208:211
40 sub { #call_date and time
41 my($cdr, $data, $conf, $param) = @_;
42 $data =~ /^(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/ or die "unparsable record_date: $data";
43 $cdr->set('calldate', "$2/$3/$1 $4:$5:$6");
44 $cdr->set('startdate', "$2/$3/$1 $4:$5:$6");
46 'charged_party', #bill to number
48 'src', #originating number
51 '', #originating state
52 '', #originating country
53 'dst', #terminating number
56 '', #terminating state
57 '', #terminating city code
58 '', #terminating country
61 'accountcode', #account code
64 my($cdr, $field) = @_;
65 $cdr->set(duration => $field);
66 $cdr->set(billsec => $field);
70 'src_lrn', #originating lrn
71 'dst_lrn', #terminating lrn