Update of /cvsroot/netpass/NetPass/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14355/lib
Modified Files:
NetPass.pm
Log Message:
bug fix
Index: NetPass.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- NetPass.pm 4 Aug 2005 20:41:17 -0000 1.19
+++ NetPass.pm 5 Aug 2005 15:33:59 -0000 1.20
@@ -330,7 +330,7 @@
no strict 'refs';
- my $auth_mod = $self->{'cfg'}->policy(-key => 'AUTH_METHOD');
+ my $auth_mod = $self->cfg->policy(-key => 'AUTH_METHOD');
_log "DEBUG", "auth_meth = $auth_mod\n";
if (exists $self->{'auth_mod_loaded'}) {
@@ -367,7 +367,7 @@
no strict 'refs';
- my $auth_mod = $self->{'cfg'}->policy(-key => 'ADMIN_AUTH_METHOD');
+ my $auth_mod = $self->cfg->policy(-key => 'ADMIN_AUTH_METHOD');
_log "DEBUG", "admin_auth_meth = $auth_mod\n";
if (exists $self->{'auth_mod_loaded'}) {
@@ -425,7 +425,7 @@
sub enforceMultiMacPolicy {
my ($self, $mac, $ip, $status, $sw, $po, $mp, $pm) = @_;
- if ( $self->policy(-key => 'MULTI_MAC') eq "ALL_OK" ) {
+ if ( $self->cfg->policy(-key => 'MULTI_MAC') eq "ALL_OK" ) {
_log "DEBUG", "$mac $ip MULTI_MAC policy is ALL_OK $sw/$po\n";
my $allOK = 1;
my @OKmacs;
@@ -481,7 +481,7 @@
# XXX ELSE DISALLOWED
# XXX for future implementation
- _log "ERROR", "MULTI_MAC policy ".$self->policy(-key => 'MULTI_MAC')." not implemented\n";
+ _log "ERROR", "MULTI_MAC policy ".$self->cfg->policy(-key => 'MULTI_MAC')." not implemented\n";
return ($status, $sw, $po);
}
|
