X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Ftelos_csv.pm;fp=FS%2FFS%2Fcdr%2Ftelos_csv.pm;h=3faff79cd82cb962da46288fa764b08c37bd8be9;hb=7c31cf37525038a55687a436cb962fd5cd939e42;hp=0000000000000000000000000000000000000000;hpb=46ef8524cf2e6db7b851967062ce92ffb0773d10;p=freeside.git

diff --git a/FS/FS/cdr/telos_csv.pm b/FS/FS/cdr/telos_csv.pm
new file mode 100644
index 000000000..3faff79cd
--- /dev/null
+++ b/FS/FS/cdr/telos_csv.pm
@@ -0,0 +1,60 @@
+package FS::cdr::telos_csv;
+
+use strict;
+use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
+use Time::Local;
+use FS::cdr qw(_cdr_min_parser_maker);
+
+@ISA = qw(FS::cdr);
+
+%info = (
+  'name'          => 'Telos (CSV)',
+  'weight'        => 535,
+  'header'        => 1,
+  'import_fields' => [
+
+    # Date (MM/DD/YY)
+    sub { my($cdr, $date) = @_;
+          $date =~ /^(\d{1,2})\/(\d{1,2})\/(\d\d(\d\d)?)$/
+            or die "unparsable date: $date";
+          ($tmp_mday, $tmp_mon, $tmp_year) = ( $2, $1-1, $3 );
+        },
+
+    # Time
+    sub { my($cdr, $time) = @_;
+          $time =~ /^(\d{1,2}):(\d{1,2}):(\d{1,2})$/
+            or die "unparsable time: $time";
+          $cdr->enddate(
+            timelocal($3, $2, $1 ,$tmp_mday, $tmp_mon, $tmp_year)
+          );
+        },
+    '', #RAS-Client
+    sub { #Record-Type
+      my($cdr, $rectype, $conf, $param) = @_;
+      $param->{skiprow} = 1 if lc($rectype) ne 'stop';
+    },
+    skip(24), #Full-Name, Auth-Type, User-Name, NAS-IP-Address, NAS-Port,
+              #Service-Type, Framed-Protocol, Framed-IP-Address, 
+              #Framed-IP-Netmask, Framed-Routing, Filter-ID, Framed-MTU,
+              #Framed-Compression, Login-IP-Host, Login-Service, Login-TCP-Port,
+              #Callback-Number, Callback-ID, Framed-Route, Framed-IPX-Network,
+              #Class, Session-Timeout, Idle-Timeout, Termination-Action
+              #I told you it was a RADIUS log
+    'dst', # Called-Station-ID, always 'X' in sample data
+    'src', # Calling-Station-ID
+    skip(8), #NAS-Identifier, Proxy-State, Acct-Status-Type, Acct-Delay-Time,
+             #Acct-Input-Octets, Acct-Output-Octets, Acct-Session-Id, 
+             #Acct-Authentic
+    sub { 
+      my ($cdr, $sec) = @_; 
+      $cdr->duration($sec); 
+      $cdr->billsec($sec);
+      $cdr->startdate($cdr->enddate - $sec);
+    },
+    skip(75), #everything else
+  ],
+);
+
+sub skip { map {''} (1..$_[0]) }
+
+1;