FS/FS/cdr/vvs.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::vvs;

use strict;
use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
use Time::Local;
use FS::cdr qw(_cdr_date_parser_maker);

@ISA = qw(FS::cdr);

%info = (
  'name'          => 'VVS',
  'weight'        => 120,
  'header'        => 1,
  'import_fields' => [

        skip(1),        # i_customer
        'accountcode',  # account_id
        'src',          # caller
        'dst',          # called
        skip(2),        # reason
                        # call id
        _cdr_date_parser_maker('startdate'),       # time
        'billsec',      # duration
        skip(2),        # ringtime
                        # reseller_charge
       'upstream_price',# customer_charge
  ],
);

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

1;