[Netpass-devel] NetPass/www/htdocs/Admin audit.mhtml,1.10,1.11 greset.mhtml,1.7,1.8 reports.mhtml,1.3,1.4

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

Update of /cvsroot/netpass/NetPass/www/htdocs/Admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12306/www/htdocs/Admin

Modified Files:
	audit.mhtml greset.mhtml reports.mhtml 
Log Message:
fixed perm bugs on various admin forms, bug#1426340 bug#1426335

Index: greset.mhtml
===================================================================
RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/greset.mhtml,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- greset.mhtml	31 Aug 2005 20:09:17 -0000	1.7
+++ greset.mhtml	7 Feb 2006 19:54:33 -0000	1.8
@@ -39,6 +39,7 @@
 
 <%perl>
 
+
 use Sys::Hostname;
 
 my ($isRoot, $junk) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin' ], 'group' => 'default');

Index: reports.mhtml
===================================================================
RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/reports.mhtml,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- reports.mhtml	3 May 2005 16:13:30 -0000	1.3
+++ reports.mhtml	7 Feb 2006 19:54:33 -0000	1.4
@@ -14,6 +14,13 @@
 setWhereAmI('Logs and Reports');
 --></script>
 
+<%perl>
+if (! ($m->comp('/Admin/MemberOf', 'acl' => [ 'Admin', 'Reports' ]))[0] ) {
+	print $q->p({-class=>'error'}, "Sorry, permission denied.<BR>(You must be an Admin or in the Reports group)");
+	return;
+}
+</%perl>
+
 <a href="reports/bynet.mhtml">By Network</a><BR>
 <a href="reports/byclient.mhtml">By Client</a><BR>
 <a href="reports/byos.mhtml">By OS</a><BR>

Index: audit.mhtml
===================================================================
RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/audit.mhtml,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- audit.mhtml	19 Jan 2006 21:41:48 -0000	1.10
+++ audit.mhtml	7 Feb 2006 19:54:33 -0000	1.11
@@ -36,8 +36,7 @@
 
 print $q->h2("Audit Logs");
 
-if (! $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin', 'Reports' ]) ) { 
-       
+if (! ($m->comp('/Admin/MemberOf', 'acl' => [ 'Admin', 'Reports' ]))[0] ) {
 	print $q->p({-class=>'error'}, "Sorry, permission denied.<BR>(You must be an Admin or in the Reports group)");
 	return;
 }