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

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

@ISA = qw(FS::cdr);

%info = (
  'name'          => 'Vitelity',
  'weight'        => 100,
  'header'        => 1,
  'import_fields' => [
    # Cheers to Vitelity for their concise, readable CDR format.
    _cdr_date_parser_maker('startdate'),
    'src',
    'dst',
    sub { my($cdr, $field) = @_;
          $cdr->set(duration => $field);
          $cdr->set(billsec  => $field);
        },
    'clid',
    'disposition',
    'upstream_price',
    ],
);

1;