fix TeleAPI import (what kind of crack was Christopher smoking that he couldn't fix...

[freeside.git] / FS / FS / cdr / telapi_voip.pm

diff --git a/FS/FS/cdr/telapi_voip.pm b/FS/FS/cdr/telapi_voip.pm
index 687c431..c238d2a 100644 (file)
--- a/FS/FS/cdr/telapi_voip.pm
+++ b/FS/FS/cdr/telapi_voip.pm
@@ -2,27 +2,31 @@ package FS::cdr::telapi_voip;
 use base qw( FS::cdr );
 
 use strict;
 use base qw( FS::cdr );
 
 use strict;

-use vars qw( @ISA %info $CDR_TYPES );
-use FS::Record qw( qsearch );
-use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
+use vars qw( %info );
+use FS::cdr qw( _cdr_date_parser_maker );

 
 %info = (
 
 %info = (

-  'name'          => 'telapi_voip (csv file)',
+  'name'          => 'TeleAPI VoIP (CSV file)',

   'weight'        => 601,
   'header'        => 1,
   'type'          => 'csv',
   'import_fields' => [
   'weight'        => 601,
   'header'        => 1,
   'type'          => 'csv',
   'import_fields' => [

-    skip(1),                              # Inbound/Outbound
-    _cdr_date_parser_maker('startdate'),  # date
-    skip(1),                              # cost per minute
-    'upstream_price',                     # call cost
-    'billsec',                            # duration
-    'src',                                # source
-    'dst',                                # destination
-    skip(1),                              # hangup code
+    _cdr_date_parser_maker('startdate', 'gmt'=>1 ),  # date gmt
+    'src',                                           # source
+    'dst',                                           # destination
+    'clid',                                          # callerid
+    'disposition',                                   # hangup code
+    'userfield',                                     # sip account
+    'src_ip_addr',                                   # orig ip
+    'billsec',                                       # duration
+    skip(1),                                  # per minute (add "upstream_rate"?
+    'upstream_price',                                # call cost
+    'dcontext',                                      # type
+    'uniqueid',                                      # uuid
+    'lastapp',                                       # direction

   ],
 );
 
 sub skip { map {''} (1..$_[0]) }
 
   ],
 );
 
 sub skip { map {''} (1..$_[0]) }
 

-1;
\ No newline at end of file
+1;