[freeside-commits] freeside/FS/FS/cdr bell_west.pm, NONE, 1.1 simple.pm, 1.2, 1.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/cdr
In directory wavetail.420.am:/tmp/cvs-serv28551/FS/FS/cdr

Modified Files:
	simple.pm 
Added Files:
	bell_west.pm 
Log Message:
bell west CDR format, RT#4403

Index: simple.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/simple.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- simple.pm	2 Aug 2008 23:51:48 -0000	1.2
+++ simple.pm	31 Dec 2008 03:28:56 -0000	1.3
@@ -13,7 +13,7 @@
   'header'        => 1,
   'import_fields' => [
 
-    # Date
+    # Date (MM/DD/YY)
     sub { my($cdr, $date) = @_;
           $date =~ /^(\d{1,2})\/(\d{1,2})\/(\d\d(\d\d)?)$/
             or die "unparsable date: $date"; #maybe we shouldn't die...

--- NEW FILE: bell_west.pm ---
package FS::cdr::bell_west;

use strict;
use base qw( FS::cdr );
use vars qw( %info $tmp_mon $tmp_mday $tmp_year );
use Time::Local;
use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );

%info = (
  'name'          => 'Bell West',
  'weight'        => 210,
  'header'        => 1,     #0 default, set to 1 to ignore the first line
  'type'          => 'xls', #csv (default), fixedlength or xls

  'import_fields' => [

    # CDR FIELD / REQUIRED / Notes

    # CHG TYPE / No / Internal Code only (no need to import)
    sub {},

    # ACCOUNT # / No / Internal Number only (no need to import)
    sub {},

    # DATE / Yes / "DATE"   Excel date format MM/DD/YYYY
    sub { my($cdr, $date) = @_;
          $date =~ /^(\d{1,2})\/(\d{1,2})\/(\d\d(\d\d)?)$/
            or die "unparsable date: $date"; #maybe we shouldn't die...
          #$cdr->startdate( timelocal(0, 0, 0 ,$2, $1-1, $3) );
          ($tmp_mday, $tmp_mon, $tmp_year) = ( $2, $1-1, $3 );
        },

    # CUST NO / Yes / "TIME"    "075959" Text based time
    # Note: This is really the start time but Bell header says "Cust No" which
    #       is wrong
    sub { my($cdr, $time) = @_;
          #my($sec, $min, $hour, $mday, $mon, $year)= localtime($cdr->startdate);
          $time =~ /^(\d{1,2}):(\d{1,2}):(\d{1,2})$/
            or die "unparsable time: $time"; #maybe we shouldn't die...
          #$cdr->startdate( timelocal($3, $2, $1 ,$mday, $mon, $year) );
          $cdr->startdate(
            timelocal($3, $2, $1 ,$tmp_mday, $tmp_mon, $tmp_year)
          );
        },

    # BTN / Yes / Main billing number but not DID or real number (I guess put in SRC field)
    'src',

    # ORIG CITY / No / We will use your Freeside rating and description name
    'channel',

    # TERM / YES / All calls should be billed, however all calls are missing "1+" and "011+" & DIR ASST = "411"
    'dst',

    # TERM CITY / No / We will use your Freeside rating and description name
    'dstchannel',

    # WTN / Yes / Bill to number (I guess put in "charged_party")
    'charged_party',

    # CODE / Yes / Account Code (security) and we need on invoice (suggestions ?)
    'accountcode',

    # PROV/COUNTRY / No / We will use your Freeside rating and description name
    # (but use this to add "011" for "International" calls)
    sub { my( $cdr, $prov ) = @_;
          my $pre = ( $prov =~ /^\s*International\s*/i ) ? '011' : '1';
          $cdr->dst( $pre. $cdr->dst ) unless $cdr->dst =~ /^$pre/;
        },

    # CALL TYPE / Possibly / Not sure if you need this to determine correct billing method ?
    # DDD normal call (Direct Dial Dsomething? ="LD"?)
    # TF  Toll Free
    #     (toll free dst# should be sufficient to rate)
    # DAT Directory AssisTance
    #     (dst# 411 "area code" should be sufficient to rate)
    # DNS (Another sort of directory assistance?... only one record with
    #      "8195551212" in the dst#)
    'dcontext', #probably don't need... map to cdr_type?  calltypenum?

    # DURATION	Yes	Units = seconds
    'billsec', #need to trim .00 ?

    # AMOUNT CHARGED	No	Will use Freeside rating and description name
    sub { my( $cdr, $amount) = @_;
          $amount =~ s/^\$//;
          $cdr->upstream_price( $amount );
        },

  ],

);

1;

__END__

CHG TYPE        (unused)
ACCOUNT #       (unused)

DATE            startdate (+ CUST NO)
CUST NO         (startdate time)
                - Start of call (UNIX-style integer timestamp)

BTN            *src - Caller*ID number / Source number
ORIG CITY       channel - Channel used
TERM #         *dst - Destination extension
TERM CITY       dstchannel - Destination channel if appropriate
WTN            *charged_party - Service number to be billed
CODE           *accountcode - CDR account number to use: account

PROV/COUNTRY    (used to prefix TERM # w/ 1 or 011)

CALL TYPE       dcontext - Destination context
DURATION       *billsec - Total time call is up, in seconds
AMOUNT CHARGED *upstream_price - Wholesale price from upstream