[freeside-commits] freeside/FS/FS/part_export sqlradius.pm, 1.48.2.4, 1.48.2.5

[Mark Wells]

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

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	sqlradius.pm 
Log Message:
RADIUS groups for svc_broadband, #14695

Index: sqlradius.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/sqlradius.pm,v
retrieving revision 1.48.2.4
retrieving revision 1.48.2.5
diff -u -w -d -r1.48.2.4 -r1.48.2.5
--- sqlradius.pm	31 Oct 2011 19:20:28 -0000	1.48.2.4
+++ sqlradius.pm	11 Nov 2011 02:00:10 -0000	1.48.2.5
@@ -12,7 +12,7 @@
 @ISA = qw(FS::part_export);
 @EXPORT_OK = qw( sqlradius_connect );
 
-$DEBUG = 0;
+$DEBUG = 1;
 
 my %groups;
 tie %options, 'Tie::IxHash',
@@ -119,18 +119,28 @@
 
 sub rebless { shift; }
 
-sub export_username {
+sub export_username { # override for other svcdb
   my($self, $svc_acct) = (shift, shift);
   warn "export_username called on $self with arg $svc_acct" if $DEBUG > 1;
   $svc_acct->username;
 }
 
+sub radius_reply { #override for other svcdb
+  my($self, $svc_acct) = (shift, shift);
+  $svc_acct->radius_reply;
+}
+
+sub radius_check { #override for other svcdb
+  my($self, $svc_acct) = (shift, shift);
+  $svc_acct->radius_check;
+}
+
 sub _export_insert {
   my($self, $svc_x) = (shift, shift);
 
   foreach my $table (qw(reply check)) {
     my $method = "radius_$table";
-    my %attrib = $svc_x->$method();
+    my %attrib = $self->$method($svc_x);
     next unless keys %attrib;
     my $err_or_queue = $self->sqlradius_queue( $svc_x->svcnum, 'insert',
       $table, $self->export_username($svc_x), %attrib );