diff options
| author | ivan <ivan> | 2009-05-30 11:21:01 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-05-30 11:21:01 +0000 |
| commit | 69fe663ff9595ed47a77826920ffdda8a45a4d23 (patch) | |
| tree | 45203f142fa0870a8c5146c1c8edf091ccb6ecab /FS | |
| parent | 678751e266c03c9736ee56f14098227269e0e50a (diff) | |
clid is base-64 encoded, huh, RT#5229
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cdr/transnexus.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/cdr/transnexus.pm b/FS/FS/cdr/transnexus.pm index 573a8b16d..0ed7ad4ef 100644 --- a/FS/FS/cdr/transnexus.pm +++ b/FS/FS/cdr/transnexus.pm @@ -3,6 +3,7 @@ package FS::cdr::transnexus; use strict; use base qw( FS::cdr ); use vars qw( %info ); +use MIME::Base64; use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker ); %info = ( @@ -14,12 +15,12 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker ); #listref of what to do with each field from the CDR, in order 'import_fields' => [ - _cdr_date_parser_maker('startddate'), #O_CallStartTime + _cdr_date_parser_maker('startddate'), #O_CallStartTime 'src', #CallingNumberReported 'dst', #CalledNumberReported 'channel', #SourceDeviceName / O_ReportingDeviceName 'dstchannel', #O_ReportingDeviceName / DestinationDeviceName - 'clid', #CallId + sub { $_[0]->clid( decode_base64($_[1]) ); }, #CallId 'uniqueid', #TransactionId 'duration', #RatedDuration 'billsec', #O_BillingDuration |