diff options
author | mark <mark> | 2010-11-25 01:06:29 +0000 |
---|---|---|
committer | mark <mark> | 2010-11-25 01:06:29 +0000 |
commit | 39289cd1e5a06044aa9a8dc3d2e4d8c9ffb02b11 (patch) | |
tree | 305c995e91e8549820ef00c3aef16a0bed644495 /FS/FS/cdr.pm | |
parent | 54f3136cfa1230e9a80641c7477ed75c0910d48a (diff) |
Telos XML CDR format, RT#10721
Diffstat (limited to 'FS/FS/cdr.pm')
-rw-r--r-- | FS/FS/cdr.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index 8f6a43c..f7402ee 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -788,6 +788,10 @@ sub _cdr_date_parse { } 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 ); + } elsif ( $date =~ /^(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})Z$/) { + # Telos + ($year, $mon, $day, $hour, $min, $sec) = ( $1, $2, $3, $4, $5, $6 ); + $options{gmt} = 1; } else { die "unparsable date: $date"; #maybe we shouldn't die... } @@ -855,6 +859,11 @@ my %import_options = ( keys %cdr_info }, + 'format_xml_formats' => + { map { $_ => $cdr_info{$_}->{'xml_format'}; } + keys %cdr_info + }, + 'format_row_callbacks' => { map { $_ => $cdr_info{$_}->{'row_callback'}; } keys %cdr_info }, |