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     sub { my($cdr, $data, $conf, $param) = @_;
  24           $cdr->duration($data);
  25           $cdr->billsec( $data);
  26     },                # Duration
  27     skip(2),          # Roundup Duration, User Name
  28     'dst',            # DNIS
  29     'src',            # ANI
  30     skip(2),          # Call Type, Toll Free,
  31     skip(1),          # Chair Conference Entry Code
  32     'accountcode',    # Participant Conference Entry Code,
  33     ],
  34
  35 );
  36
  37 sub skip { map {''} (1..$_[0]) }
  38
  39 1;