FS/FS/cdr/indosoft.pm

   1 package FS::cdr::indosoft;
   2
   3 use strict;
   4 use base qw( FS::cdr );
   5 use vars qw( %info );
   6 use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
   7
   8 %info = (
   9   'name'          => 'Indosoft Conference Bridge',
  10   'weight'        => 300,
  11   'header'        => 1,
  12   'type'          => 'csv',
  13
  14   #listref of what to do with each field from the CDR, in order
  15   'import_fields' => [
  16
  17     #cdr_id
  18     'uniqueid',
  19
  20     #connect_time
  21     _cdr_date_parser_maker( ['startdate', 'answerdate' ] ),
  22
  23     #disconnect_time
  24     _cdr_date_parser_maker('enddate'),
  25
  26     #account_id
  27     'accountcode',
  28
  29     #conference_id
  30     'userfield',
  31
  32     #client_id
  33     'charged_party',
  34
  35     #pin_used
  36     'dcontext',
  37
  38     #channel
  39     'channel',
  40
  41     #clid
  42     #'src',
  43     sub { my($cdr, $clid) = @_;
  44           $cdr->clid( $clid ); #because they called it 'clid' explicitly
  45           $cdr->src(  $clid );
  46         },
  47
  48     #dnis
  49     'dst',
  50
  51     #call_status
  52     'disposition',
  53
  54     #conf_billing_code
  55     'lastapp', #arbitrary
  56
  57     #participant_id
  58     'lastdata', #arbitrary
  59
  60     #codr_id
  61     'dstchannel', #arbitrary
  62
  63     #call_type
  64     'description',
  65
  66   ],
  67
  68 );
  69
  70 1;
  71