From f2e9af8087362231b37e878ed3ef06cf6bbe3fd3 Mon Sep 17 00:00:00 2001
From: Jeremy Davis <jeremyd@freeside.biz>
Date: Tue, 13 May 2014 11:22:40 -0400
Subject: [PATCH] 29049 Zintel CDR format

---
 FS/FS/cdr/zintel.pm | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 FS/FS/cdr/zintel.pm

diff --git a/FS/FS/cdr/zintel.pm b/FS/FS/cdr/zintel.pm
new file mode 100644
index 000000000..0e44844dd
--- /dev/null
+++ b/FS/FS/cdr/zintel.pm
@@ -0,0 +1,45 @@
+package FS::cdr::zintel;
+
+use strict;
+use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
+use Time::Local;
+use FS::cdr qw(_cdr_date_parser_maker);
+
+@ISA = qw(FS::cdr);
+
+%info = (
+  'name'          => 'Zintel',
+  'weight'        => 123,
+  'header'        => 1,
+  'import_fields' => [
+
+	'accountcode',	#customer
+	'src',		#anumber
+	'dst',		#bnumber
+	sub { # OriginatingDate and OriginatingTime, two fields in the spec
+      		my ($cdr, $date) = @_;
+      		$date =~ /^(\d{2})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/
+        	or die "unparseable date: $date";
+		my $tmp_date = "$2/$1/$3 $4:$5:$6";      		
+		$cdr->calldate($tmp_date);
+    	     },#datetime
+
+	'billsec',	#duration
+	skip(3),	#calltype
+			#status
+			#product
+	'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;
+
-- 
2.11.0