FS/FS/cdr/telos_xml.pm

   1 package FS::cdr::telos_xml;
   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'          => 'Telos (XML)',
  11   'weight'        => 530,
  12   'type'          => 'xml',
  13   'xml_format'    => {
  14     'xmlrow' => [ 'Telos_CDRS', 'CDRecord' ],
  15     'xmlkeys' => [ qw(
  16       record_type
  17       seq_num
  18       a_party_num
  19       b_party_num
  20       seize
  21       answer
  22       disc
  23       ) ],
  24   },
  25
  26   'import_fields' => [
  27     sub { my($cdr, $data, $conf, $param) = @_;
  28           $cdr->cdrtypenum($data);
  29           # CDR type 2 = SMS records, set billsec = 1 so that
  30           # they'll be charged under per-call rating
  31           $cdr->billsec(1) if ( $data == 2 );
  32         },
  33     'uniqueid',
  34     'src',
  35     'dst', # usually empty for some reason
  36     _cdr_date_parser_maker('startdate'),
  37     _cdr_date_parser_maker('answerdate'),
  38     _cdr_date_parser_maker('enddate'),
  39   ],
  40
  41 );
  42
  43 1;