FS/FS/cdr/zintel_tollfree.pm

   1 package FS::cdr::zintel_tollfree;
   2
   3 use strict;
   4 use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
   5 use Time::Local;
   6 use FS::cdr qw(_cdr_date_parser_maker);
   7 use Date::Parse;
   8
   9 @ISA = qw(FS::cdr);
  10
  11 %info = (
  12   'name'          => 'Zintel Toll Free',
  13   'weight'        => 124,
  14   'header'        => 1,
  15   'import_fields' => [
  16
  17         skip(1),        #customer
  18         'dst',          #line
  19         skip(1),        #answerpt
  20                 sub { my ($cdr, $calldate) = @_;
  21                         $cdr->set('calldate', $calldate);
  22
  23                         $calldate =~ /^(\d{2})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/
  24                                 or die "unparseable date: $calldate";
  25                         my $tmp_date = "$2/$1/$3 $4:$5:$6";
  26
  27                         $tmp_date = str2time($tmp_date);
  28                         $cdr->set('startdate', $tmp_date);
  29
  30                   },    #DateTime
  31         'billsec',      #duration
  32         'src',          #caller
  33         skip(1),        #status
  34         'upstream_price',#sellprice
  35         skip(1),        #fromregion
  36         'upstream_src_regionname',              #fromarea
  37         skip(2),        #fromc2city
  38                         #toregion
  39         'upstream_dst_regionname',              #toarea
  40         skip(2),        #toc2city
  41                         #group_label
  42   ],
  43 );
  44
  45 sub skip { map {''} (1..$_[0]) }
  46
  47 1;
  48