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
29
30
31
32

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

use strict;
use vars qw( %info );
use FS::cdr qw( _cdr_date_parser_maker );

%info = (
  'name'          => 'TeleAPI VoIP (CSV file)',
  'weight'        => 601,
  'header'        => 1,
  'type'          => 'csv',
  'import_fields' => [
    _cdr_date_parser_maker('startdate', 'gmt'=>1 ),  # date gmt
    'src',                                           # source
    'dst',                                           # destination
    'clid',                                          # callerid
    'disposition',                                   # hangup code
    'userfield',                                     # sip account
    'src_ip_addr',                                   # orig ip
    'billsec',                                       # duration
    skip(1),                                  # per minute (add "upstream_rate"?
    'upstream_price',                                # call cost
    'dcontext',                                      # type
    'uniqueid',                                      # uuid
    'lastapp',                                       # direction
  ],
);

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

1;