[freeside-commits] freeside/FS/FS/cdr asterisk.pm, 1.1, 1.2 genband_meetme.pm, 1.1, 1.2 genband.pm, 1.1, 1.2 nextone.pm, 1.1, 1.2 openser.pm, 1.1, 1.2 simple.pm, 1.1, 1.2 taqua.pm, 1.1, 1.2 unitel.pm, 1.1, 1.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/cdr
In directory wavetail.420.am:/tmp/cvs-serv14383/cdr

Modified Files:
	asterisk.pm genband_meetme.pm genband.pm nextone.pm openser.pm 
	simple.pm taqua.pm unitel.pm 
Log Message:
fix 'Can't call method "parse" on an undefined value' error from CDR format refactor

Index: genband.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/genband.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- genband.pm	17 Jul 2008 23:55:38 -0000	1.1
+++ genband.pm	2 Aug 2008 23:51:48 -0000	1.2
@@ -1,5 +1,6 @@
 package FS::cdr::genband;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);
 

Index: asterisk.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/asterisk.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- asterisk.pm	17 Jul 2008 23:55:38 -0000	1.1
+++ asterisk.pm	2 Aug 2008 23:51:47 -0000	1.2
@@ -1,5 +1,6 @@
 package FS::cdr::asterisk;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);
 

Index: unitel.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/unitel.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- unitel.pm	17 Jul 2008 23:55:38 -0000	1.1
+++ unitel.pm	2 Aug 2008 23:51:48 -0000	1.2
@@ -1,5 +1,6 @@
 package FS::cdr::unitel;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr;
 

Index: nextone.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/nextone.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- nextone.pm	30 Jul 2008 22:10:18 -0000	1.1
+++ nextone.pm	2 Aug 2008 23:51:48 -0000	1.2
@@ -1,5 +1,6 @@
 package FS::cdr::nextone;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);
 

Index: simple.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/simple.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- simple.pm	17 Jul 2008 23:55:38 -0000	1.1
+++ simple.pm	2 Aug 2008 23:51:48 -0000	1.2
@@ -1,7 +1,9 @@
 package FS::cdr::simple;
 
-use vars qw(@ISA %info);
-use FS::cdr;
+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);
 
@@ -37,11 +39,12 @@
     'dst',
 
     # Duration
-    sub { my($cdr, $min) = @_;
-          my $sec = sprintf('%.0f', $min * 60 );
-          $cdr->billsec(  $sec );
-          $cdr->duration( $sec );
-        },
+    _cdr_min_parser_maker, #( [qw( billsec duration)] ),
+    #sub { my($cdr, $min) = @_;
+    #      my $sec = sprintf('%.0f', $min * 60 );
+    #      $cdr->billsec(  $sec );
+    #      $cdr->duration( $sec );
+    #    },
 
   ],
 );

Index: openser.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/openser.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- openser.pm	17 Jul 2008 23:55:38 -0000	1.1
+++ openser.pm	2 Aug 2008 23:51:48 -0000	1.2
@@ -1,5 +1,6 @@
 package FS::cdr::openser;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);
 

Index: taqua.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/taqua.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- taqua.pm	17 Jul 2008 23:55:38 -0000	1.1
+++ taqua.pm	2 Aug 2008 23:51:48 -0000	1.2
@@ -1,5 +1,6 @@
 package FS::cdr::taqua;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);
 

Index: genband_meetme.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/genband_meetme.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- genband_meetme.pm	17 Jul 2008 23:55:38 -0000	1.1
+++ genband_meetme.pm	2 Aug 2008 23:51:48 -0000	1.2
@@ -1,5 +1,6 @@
 package FS::cdr::genband_meetme;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);