[Netpass-devel] NetPass/lib NetPass.pm,1.19,1.20

[jeff m. <jef...@us...>]

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);
 }