1 package FS::cdr::windstream;
4 use vars qw( @ISA %info %calltypes );
5 use FS::cdr qw(_cdr_date_parser_maker);
10 # numbers are arbitrary
11 'IntraLata Calling' => 1 ,
12 'Intrastate Calling' => 2 ,
13 'Interstate Calling' => 3 ,
14 'International Calling' => 4 ,
15 'Intrastate Toll Free' => 5 ,
16 'Interstate Toll Free' => 6 ,
17 'Toll Free Canada' => 7 ,
18 'Toll Free NANP' => 8 ,
19 'IntraLata Directory Assistance' => 9 ,
20 'LD Directory Assistance' => 10 ,
21 'Message Local Usage' => 11 ,
22 'Operator Assistance' => 12 ,
23 'Operator Services' => 13 ,
24 'O- Assistance (Minus)' => 14 ,
25 'O+ Assistance (Plus)' => 15 ,
26 'IntraLata Toll 3rd Party' => 16 ,
27 'IntraLata Toll Collect' => 17 ,
28 'Third Number Billing' => 18 ,
29 'Third Number Billing - Assisted' => 19 ,
30 'Three Way Calling (per use)' => 20 ,
31 'Busy Connect (per use)' => 21 ,
32 'Busy Line Interrupt (per use)' => 22 ,
33 'Busy Line Verification (per use)' => 23 ,
34 'Call Forwarding Variable per access' => 24 ,
35 'Call Return (*69 per use)' => 25 ,
36 'Call Trace (*per use)' => 26 ,
37 'Conference Calling Feature' => 27 ,
38 'Directory Assistance Call Completion (per use)' => 28 ,
41 $_ = lc($_) for keys(%calltypes);
44 'name' => 'Windstream',
50 'accountcode', # Account Number
51 'uniqueid', # Reference Number
52 '', # Call Type (see Service Type below)
53 _cdr_date_parser_maker('answerdate'), # Answer Date
54 '', # Account Code--unused?
57 'upstream_src_regionname', # From Location
60 'upstream_dst_regionname', # To Location
63 'upstream_price', # Amount
65 my ($cdr, $field) = @_;
66 $cdr->calltypenum($calltypes{$field} || '')
68 '', # Payphone Indicator
69 sub { # TF Service Number
70 # replace the To Number with this, if there is one
71 my ($cdr, $field) = @_;
72 $cdr->dst($field) if ( $field );