FS/FS/cdr/telapi_voip.pm


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

package FS::cdr::telapi_voip;
use base qw( FS::cdr );

use strict;
use vars qw( @ISA %info $CDR_TYPES );
use FS::Record qw( qsearch );
use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );

%info = (
  'name'          => 'telapi_voip (csv file)',
  'weight'        => 601,
  'header'        => 1,
  'type'          => 'csv',
  'import_fields' => [
    skip(1),                              # Inbound/Outbound
    _cdr_date_parser_maker('startdate'),  # date
    skip(1),                              # cost per minute
    'upstream_price',                     # call cost
    'billsec',                            # duration
    'src',                                # source
    'dst',                                # destination
    skip(1),                              # hangup code
  ],
);

sub skip { map {''} (1..$_[0]) }

1;