[freeside-commits] branch master updated. 615b19cd8d6ce68be77f2684e491a980957c8475

Jeremy Davis jeremyd at 420.am
Tue Jun 10 07:57:04 PDT 2014


The branch, master has been updated
       via  615b19cd8d6ce68be77f2684e491a980957c8475 (commit)
      from  895152b70a5b827fd43b28724ae1c50943d7f83e (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 615b19cd8d6ce68be77f2684e491a980957c8475
Author: Jeremy Davis <jeremyd at freeside.biz>
Date:   Tue Jun 10 10:56:45 2014 -0400

    #29294 Zintel Toll-free

diff --git a/FS/FS/cdr/zintel_tollfree.pm b/FS/FS/cdr/zintel_tollfree.pm
new file mode 100644
index 0000000..e482a90
--- /dev/null
+++ b/FS/FS/cdr/zintel_tollfree.pm
@@ -0,0 +1,48 @@
+package FS::cdr::zintel_tollfree;
+
+use strict;
+use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
+use Time::Local;
+use FS::cdr qw(_cdr_date_parser_maker);
+use Date::Parse;
+
+ at ISA = qw(FS::cdr);
+
+%info = (
+  'name'          => 'Zintel Toll Free',
+  'weight'        => 124,
+  'header'        => 1,
+  'import_fields' => [
+
+	skip(1),	#customer
+	'dst',		#line
+	skip(1),	#answerpt
+          	sub { my ($cdr, $calldate) = @_;
+                        $cdr->set('calldate', $calldate);
+
+                        $calldate =~ /^(\d{2})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/
+                                or die "unparseable date: $calldate";
+                        my $tmp_date = "$2/$1/$3 $4:$5:$6";
+
+                        $tmp_date = str2time($tmp_date);
+                        $cdr->set('startdate', $tmp_date);
+
+                  },    #DateTime
+	'billsec',	#duration
+	'src',          #caller    
+			#status
+	'upstream_price',#sellprice
+	skip(1),	#fromregion
+	'upstream_src_regionname',		#fromarea
+	skip(2),	#fromc2city
+			#toregion
+	'upstream_dst_regionname',		#toarea
+	skip(2),	#toc2city
+			#group_label
+  ],
+);
+
+sub skip { map {''} (1..$_[0]) }
+
+1;
+

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

Summary of changes:
 FS/FS/cdr/{zintel.pm => zintel_tollfree.pm} |   17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)
 copy FS/FS/cdr/{zintel.pm => zintel_tollfree.pm} (80%)




More information about the freeside-commits mailing list