diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_export/sqlradius.pm | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm index 07f6cf05c..736b34e99 100644 --- a/FS/FS/part_export/sqlradius.pm +++ b/FS/FS/part_export/sqlradius.pm @@ -12,7 +12,7 @@ use Carp qw( cluck ); @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 _groups_susp_reason_map { map { reverse( /^\s*(\S+)\s*(.*)$/ ) } 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 ); |