From 01dbdf631092f7a56182d1cce6dde68de4e2516b Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Tue, 4 May 2010 22:25:45 +0000
Subject: RT#8026: WIP CDR format

---
 FS/FS/cdr.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'FS/FS/cdr.pm')

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index 36797b7..2426f41 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -746,7 +746,10 @@ sub _cdr_date_parse {
     ($mon, $day, $year, $hour, $min, $sec) = ( $1, $2, $3, $4, $5, $6 );
   } elsif ( $date  =~ /^\s*(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d+\.\d+)(\D|$)/ ) {
     # broadsoft: 20081223201938.314
-    ($year, $mon, $day, $hour, $min, $sec) = ( $1, $2, $3, $4, $5, $6);
+    ($year, $mon, $day, $hour, $min, $sec) = ( $1, $2, $3, $4, $5, $6 );
+  } elsif ( $date  =~ /^\s*(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/ ) {
+    # WIP: 20100329121420
+    ($year, $mon, $day, $hour, $min, $sec) = ( $1, $2, $3, $4, $5, $6 );
   } else {
      die "unparsable date: $date"; #maybe we shouldn't die...
   }
-- 
cgit v1.1