add lesnet CDR format

1 files changed, 40 insertions, 0 deletions

diff --git a/FS/FS/cdr/lesnet.pm b/FS/FS/cdr/lesnet.pm
new file mode 100644
index 000000000..5a9482a8d
--- /dev/null
+++ b/FS/FS/cdr/lesnet.pm
@@ -0,0 +1,40 @@
+package FS::cdr::lesnet;
+
+use strict;
+use vars qw( @ISA %info );
+
+@ISA = qw(FS::cdr);
+
+%info = (
+  'name'          => 'LesNet',
+  'weight'        => 120,
+  'type'          => 'csv',
+  'import_fields' => [
+    # Call Date
+    'calldate',
+
+    # Source_Number
+    'src',
+
+    # Terminating_Number
+    'dst',
+
+    # Duration
+    sub { my($cdr,$field) = @_;
+            $cdr->duration($field);
+            $cdr->billsec($field);
+        },
+
+    'upstream_price',
+    
+    'dcontext',
+
+    'channel',
+    
+    # Sip Call id
+    'dstchannel',
+
+  ],
+);
+
+1;