FS/FS/cdr/freeside_description_default.pm

   1 package FS::cdr::freeside_description_default;
   2
   3 use strict;
   4 use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
   5 use Time::Local;
   6 use FS::cdr;
   7
   8 @ISA = qw(FS::cdr);
   9
  10 %info = (
  11   'name'          => 'Freeside default with description field as destination',
  12   'weight'        => 25,
  13   'header'        => 1,
  14   'import_fields' => [
  15     'charged_party',     # Billed number
  16     'src',               # Caller
  17
  18     # Date (YYYY/MM/DD)
  19     sub { my($cdr, $date) = @_;
  20           $date =~ /^(\d\d(\d\d)?)\/(\d{1,2})\/(\d{1,2})$/
  21             or die "unparsable date: $date"; #maybe we shouldn't die...
  22           ($tmp_mday, $tmp_mon, $tmp_year) = ( $4, $3-1, $1 );
  23         },
  24
  25     # Time (HH:MM:SS (AM/PM))
  26     sub { my($cdr, $time) = @_;
  27           $time =~ /^(\d{1,2}):(\d{1,2}):(\d{1,2}) (AM|PM)$/
  28             or die "unparsable time: $time"; #maybe we shouldn't die...
  29           my $hour = $1;
  30           $hour += 12 if $4 eq 'PM';
  31           $cdr->startdate(
  32             timelocal($3, $2, $hour ,$tmp_mday, $tmp_mon, $tmp_year)
  33           );
  34         },
  35
  36     # Number
  37     sub {
  38         my($cdr, $number) = @_;
  39         $number =~ /(\d+)$/
  40             or die "unparsable number: $number"; #maybe we shouldn't die...
  41         $cdr->dst($1);
  42     },
  43
  44     'description',      # Destination (regionname)
  45
  46     # Duration
  47     sub {
  48         my($cdr, $duration) = @_;
  49         $duration =~ /^(\d{1,2})m (\d{1,2})s$/
  50             or die "unparsable duration: $duration"; #maybe we shouldn't die...
  51         my $sec = $1*60 + $2;
  52         $cdr->duration($sec);
  53         $cdr->billsec($sec);
  54     },
  55
  56     # Price
  57     sub {
  58         my($cdr, $amount) = @_;
  59         $amount =~ s/\$//g;
  60         $cdr->upstream_price($amount);
  61     }
  62
  63   ],
  64 );
  65
  66