1 files changed, 71 insertions, 0 deletions
diff --git a/FS/FS/cdr/indosoft.pm b/FS/FS/cdr/indosoft.pm
new file mode 100644
index 0000000..cb25089
--- /dev/null
+++ b/FS/FS/cdr/indosoft.pm
@@ -0,0 +1,71 @@
+package FS::cdr::indosoft;
+
+use strict;
+use base qw( FS::cdr );
+use vars qw( %info );
+use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
+
+%info = (
+  'name'          => 'Indosoft Conference Bridge',
+  'weight'        => 300,
+  'header'        => 1,
+  'type'          => 'csv',
+
+  #listref of what to do with each field from the CDR, in order
+  'import_fields' => [
+
+    #cdr_id
+    'uniqueid',
+
+    #connect_time
+    _cdr_date_parser_maker( ['startdate', 'answerdate' ] ),
+
+    #disconnect_time
+    _cdr_date_parser_maker('enddate'),
+
+    #account_id
+    'accountcode',
+
+    #conference_id
+    'userfield',
+
+    #client_id
+    'charged_party',
+
+    #pin_used
+    'dcontext',
+
+    #channel
+    'channel',
+
+    #clid
+    #'src',
+    sub { my($cdr, $clid) = @_;
+          $cdr->clid( $clid ); #because they called it 'clid' explicitly
+          $cdr->src(  $clid );
+        },
+
+    #dnis
+    'dst',
+
+    #call_status
+    'disposition',
+
+    #conf_billing_code
+    'lastapp', #arbitrary
+
+    #participant_id
+    'lastdata', #arbitrary
+
+    #codr_id
+    'dstchannel', #arbitrary
+
+    #call_type
+    'description',
+    
+  ],
+
+);
+
+1;
+