'weight' => 500,
'header' => 1, #0 default, set to 1 to ignore the first line, or
# to higher numbers to ignore that number of lines
- 'type' => 'csv', #csv (default), fixedlength or xls
+ 'type' => 'csv',
'sep_char' => ',', #for csv, defaults to ,
'disabled' => 0, #0 default, set to 1 to disable
$param->{skiprow} = 1 if lc($data) ne 'normal';
'' }, # 3: type
- trim('accountcode'), # 4: userNumber
skip(2),
+ 'dcontext', # 6: direction
trim('src'), # 7: callingNumber
skip(1),
trim('dst'), # 9: calledNumber
'ANSWERED' : 'NO ANSWER') }, # 12: answerIndicator
_cdr_date_parser_maker('answerdate'), # 13: answerTime
_cdr_date_parser_maker('enddate'), # 14: releaseTime
-
+ skip(17),
+ sub { my($cdr, $accountcode) = @_;
+ if ($cdr->is_tollfree){
+ my $dst = substr($cdr->dst,0,32);
+ $cdr->set('accountcode', $dst);
+ } else {
+ $cdr->set('accountcode', $accountcode);
+ }},
],
);