FS/FS/cdr/cia.pm

   1 package FS::cdr::cia;
   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'          => 'Client Instant Access',
  11   'weight'        => 510,
  12   'header'        => 1,
  13   'type'          => 'csv',
  14   'sep_char'      => "\t",
  15   'import_fields' => [
  16     skip(2),          # Reseller Account Number, Confirmation Number
  17     'description',    # Conference Name
  18     skip(3),          # Organization Name, Bill Code, Q&A Active
  19     'userfield',      # Chairperson Name
  20     skip(2),          # Conference Start Time, Conference End Time
  21     _cdr_date_parser_maker('startdate'),  # Connect Time
  22     _cdr_date_parser_maker('enddate'),    # Disconnect Time
  23     skip(1),          # Duration
  24     sub { my($cdr, $data, $conf, $param) = @_;
  25           $cdr->duration($data);
  26           $cdr->billsec( $data);
  27     },                # Roundup Duration
  28     skip(1),          # User Name
  29     'dst',            # DNIS
  30     'src',            # ANI
  31     skip(2),          # Call Type, Toll Free,
  32     'accountcode',    # Chair Conference Entry Code
  33     skip(1),          # Participant Conference Entry Code,
  34     ],
  35
  36 );
  37
  38 sub skip { map {''} (1..$_[0]) }
  39
  40 1;