FS/FS/cdr/vitelity.pm

   1 package FS::cdr::vitelity;
   2
   3 use strict;
   4 use vars qw( @ISA %info );
   5 use FS::cdr qw(_cdr_date_parser_maker);
   6
   7 @ISA = qw(FS::cdr);
   8
   9 %info = (
  10   'name'          => 'Vitelity',
  11   'weight'        => 100,
  12   'header'        => 1,
  13   'import_fields' => [
  14     # Cheers to Vitelity for their concise, readable CDR format.
  15     _cdr_date_parser_maker('startdate'),
  16     'src',
  17     'dst',
  18     sub { my($cdr, $field) = @_;
  19           $cdr->set(duration => $field);
  20           $cdr->set(billsec  => $field);
  21         },
  22     'clid',
  23     'disposition',
  24     'upstream_price',
  25     ],
  26 );
  27
  28 1;