diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-06-03 12:14:49 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-06-03 12:14:49 -0700 |
commit | b86687a90410fb7147c172b0a2f8581fb1b9e64e (patch) | |
tree | 6b19987b322d9f0867f606f309a3b4c6429bfce5 /FS | |
parent | 7fcfa7f0d541550349122d063d0f7d0fc6b2d547 (diff) | |
parent | ba9bf233b9db200958851d262d3664a814691edc (diff) |
Merge branch 'master' of git.freeside.biz:/home/git/freeside
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cdr/zintel.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/FS/FS/cdr/zintel.pm b/FS/FS/cdr/zintel.pm index 7d78d1153..1d2236c38 100644 --- a/FS/FS/cdr/zintel.pm +++ b/FS/FS/cdr/zintel.pm @@ -4,6 +4,7 @@ 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; @ISA = qw(FS::cdr); @@ -16,7 +17,17 @@ use FS::cdr qw(_cdr_date_parser_maker); 'accountcode', #customer 'src', #anumber 'dst', #bnumber - 'calldate', #datetime + 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 skip(3), #calltype #status |