[freeside-commits] branch FREESIDE_2_3_BRANCH updated. 80befede6380d372b2cea741c43fd534e4211963

Mark Wells mark at 420.am
Tue Oct 30 14:13:13 PDT 2012


The branch, FREESIDE_2_3_BRANCH has been updated
       via  80befede6380d372b2cea741c43fd534e4211963 (commit)
      from  ad73c5caef5fb3ea7ba87c575d4784bd76b72ef4 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 80befede6380d372b2cea741c43fd534e4211963
Author: Mark Wells <mark at freeside.biz>
Date:   Tue Oct 30 14:12:52 2012 -0700

    Windstream CDR format, #17063

diff --git a/FS/FS/cdr/windstream.pm b/FS/FS/cdr/windstream.pm
new file mode 100644
index 0000000..7aa3294
--- /dev/null
+++ b/FS/FS/cdr/windstream.pm
@@ -0,0 +1,77 @@
+package FS::cdr::simple;
+
+use strict;
+use vars qw( @ISA %info %calltypes );
+use FS::cdr qw(_cdr_date_parser_maker);
+
+ at ISA = qw(FS::cdr);
+
+%calltypes = (
+  # numbers are arbitrary
+  'IntraLata Calling' =>                              1 ,
+  'Intrastate Calling' =>                             2  ,
+  'Interstate Calling' =>                             3  ,
+  'International Calling' =>                          4  ,
+  'Intrastate Toll Free' =>                           5  ,
+  'Interstate Toll Free' =>                           6  ,
+  'Toll Free Canada' =>                               7  ,
+  'Toll Free NANP' =>                                 8  ,
+  'IntraLata Directory Assistance' =>                 9  ,
+  'LD Directory Assistance' =>                        10 ,
+  'Message Local Usage' =>                            11 ,
+  'Operator Assistance' =>                            12 ,
+  'Operator Services' =>                              13 ,
+  'O- Assistance (Minus)' =>                          14 ,
+  'O+ Assistance (Plus)' =>                           15 ,
+  'IntraLata Toll 3rd Party' =>                       16 ,
+  'IntraLata Toll Collect' =>                         17 ,
+  'Third Number Billing' =>                           18 ,
+  'Third Number Billing - Assisted' =>                19 ,
+  'Three Way Calling (per use)' =>                    20 ,
+  'Busy Connect (per use)' =>                         21 ,
+  'Busy Line Interrupt (per use)' =>                  22 ,
+  'Busy Line Verification (per use)' =>               23 ,
+  'Call Forwarding Variable per access' =>            24 ,
+  'Call Return (*69 per use)' =>                      25 ,
+  'Call Trace (*per use)' =>                          26 ,
+  'Conference Calling Feature' =>                     27 ,
+  'Directory Assistance Call Completion (per use)' => 28 ,
+);
+
+$_ = lc($_) for keys(%calltypes);
+
+%info = (
+  'name'          => 'Windstream',
+  'weight'        => 520,
+  'header'        => 0,
+  'sep_char'      => "\t",
+  'import_fields' => [
+
+    'accountcode',                        # Account Number
+    'uniqueid',                           # Reference Number
+    '',                                   # Call Type (see Service Type below)
+    _cdr_date_parser_maker('answerdate'), # Answer Date
+    '',                                   # Account Code--unused?
+    '',                                   # CPN_DID
+    'src',                                # From Number
+    'upstream_src_regionname',            # From Location
+    '',                                   # From Country
+    'dst',                                # To Number
+    'upstream_dst_regionname',            # To Location
+    '',                                   # To Country Code
+    '',                                   # Units
+    'upstream_price',                     # Amount
+    sub {                                 # Service Type
+      my ($cdr, $field) = @_;
+      $cdr->calltypenum($calltypes{$field} || '')
+    },
+    '',                                   # Payphone Indicator
+    sub {                                 # TF Service Number
+      # replace the To Number with this, if there is one
+      my ($cdr, $field) = @_;
+      $cdr->dst($field) if ( $field );
+    },
+  ],
+);
+
+1;

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/cdr/windstream.pm |   77 +++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 77 insertions(+), 0 deletions(-)
 create mode 100644 FS/FS/cdr/windstream.pm




More information about the freeside-commits mailing list