Update of /cvsroot/netpass/NetPass/www/htdocs/Admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30364/www/htdocs/Admin
Modified Files:
mr.mhtml
Log Message:
bug fixes
Index: mr.mhtml
===================================================================
RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/mr.mhtml,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- mr.mhtml 6 May 2005 03:09:33 -0000 1.10
+++ mr.mhtml 16 Aug 2005 16:31:33 -0000 1.11
@@ -71,8 +71,7 @@
-name => "ip",
-value => $ip,
-filter => '/^\d+\.\d+\.\d+\.\d+$/',
- -error => 'Please format the IP Address in the format
- specified.'
+ -error => 'Please format the IP Address in the format specified.'
).
$q->small(' e.g. '.$np->cfg->policy(-key => 'EXAMPLE_IPADDR', -network => $ENV{'REMOTE_ADDR'}))
)
@@ -84,8 +83,7 @@
-name => "mac",
-value => $mac,
-filter => '/^\w{2}:{0,1}\w{2}:{0,1}\w{2}:{0,1}\w{2}:{0,1}\w{2}:{0,1}\w{2}$/',
- -error => 'Please format the MAC Address in the forma
-t specified.'
+ -error => 'Please format the MAC Address in the format specified.'
).
$q->small(' e.g. AABBCCDDEEFF')
)
@@ -129,7 +127,7 @@
if ( ! $isRoot ) {
my $netgroup = $np->cfg->getNetgroup(-network => $nw);
- if ( !grep(/^$nw$/, @$rwGroups) && !grep(/^$netgroup$/, @$rwGroups) ) {
+ if ( !grep(/^default$/, @$rwGroups) && !grep(/^$nw$/, @$rwGroups) && !grep(/^$netgroup$/, @$rwGroups) ) {
$err = "You don't have permission to register an IP address on the $nw network.";
}
}
|
