Update of /cvsroot/netpass/NetPass/www/htdocs/Admin/cmd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6469/www/htdocs/Admin/cmd
Modified Files:
setresult.mhtml
Log Message:
netgroup editor UI
Index: setresult.mhtml
===================================================================
RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/cmd/setresult.mhtml,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- setresult.mhtml 1 May 2005 05:44:12 -0000 1.1
+++ setresult.mhtml 4 May 2005 20:22:17 -0000 1.2
@@ -22,7 +22,7 @@
print "NOK $rid client's IP is not a part of NetPass\n";
}
else {
- my $ng = $np->cfg->getNetgroup($nw);
+ my $ng = $np->cfg->getNetgroup(-network => $nw);
my ($isOK, $groups) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin', 'QuarAdmin' ]);
my ($isRoot, $junk) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin' ], 'group' => 'default');
if ($isRoot || ($isOK && (grep (/^$nw$/, @$groups) || grep (/^$ng$/, @$groups)))) {
|
