FS/FS/cdr/asterisk.pm

   1 package FS::cdr::asterisk;
   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 #http://www.the-asterisk-book.com/unstable/funktionen-cdr.html
  10 my %amaflags = (
  11   DEFAULT       => 0,
  12   OMIT          => 1, #asterisk 1.4+
  13   IGNORE        => 1, #asterisk 1.2
  14   BILLING       => 2, #asterisk 1.4+
  15   BILL          => 2, #asterisk 1.2
  16   DOCUMENTATION => 3,
  17   #? '' => 0,
  18 );
  19
  20 %info = (
  21   'name'          => 'Asterisk',
  22   'weight'        => 10,
  23   'import_fields' => [
  24     'accountcode',
  25     'src',
  26     'dst',
  27     'dcontext',
  28     'clid',
  29     'channel',
  30     'dstchannel',
  31     'lastapp',
  32     'lastdata',
  33     _cdr_date_parser_maker('startdate'),
  34     _cdr_date_parser_maker('answerdate'),
  35     _cdr_date_parser_maker('enddate'),
  36     'duration',
  37     'billsec',
  38     'disposition',
  39     sub { my($cdr, $amaflags) = @_; $cdr->amaflags($amaflags{$amaflags}); },
  40     'uniqueid',
  41     'userfield',
  42   ],
  43 );
  44
  45 1;