diff options
author | mark <mark> | 2010-05-04 22:25:45 +0000 |
---|---|---|
committer | mark <mark> | 2010-05-04 22:25:45 +0000 |
commit | 01dbdf631092f7a56182d1cce6dde68de4e2516b (patch) | |
tree | d99a998c32fdee4e56319baee35b7dde15e311f5 /FS/FS/cdr.pm | |
parent | 6873aec01740ea7c70a5e20a3f3bce6e76bca410 (diff) |
RT#8026: WIP CDR format
Diffstat (limited to 'FS/FS/cdr.pm')
-rw-r--r-- | FS/FS/cdr.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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... } |