[Netpass-devel] NetPass/www/htdocs/Admin netgroups.mhtml,NONE,1.1 network.mhtml,NONE,1.1 auth.mhtml,
Brought to you by:
jeffmurphy
Menu
▾
▴
[Netpass-devel] NetPass/www/htdocs/Admin netgroups.mhtml,NONE,1.1 network.mhtml,NONE,1.1 auth.mhtml,1.1,1.2 autohandler,1.9,1.10 chpwd.mhtml,1.2,1.3 clienthistory.mhtml,1.2,1.3 logout.mhtml,1.2,1.3 reports.mhtml,1.2,1.3 lockcfg.mhtml,1.4,NONE
Update of /cvsroot/netpass/NetPass/www/htdocs/Admin In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12903/www/htdocs/Admin Modified Files: auth.mhtml autohandler chpwd.mhtml clienthistory.mhtml logout.mhtml reports.mhtml Added Files: netgroups.mhtml network.mhtml Removed Files: lockcfg.mhtml Log Message: netgroup/network web UI Index: autohandler =================================================================== RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/autohandler,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- autohandler 25 Apr 2005 19:15:03 -0000 1.9 +++ autohandler 3 May 2005 16:13:30 -0000 1.10 @@ -38,9 +38,10 @@ <DIV class='indent'> <a class="sbLinks" href="/Admin/gencfg.mhtml" title="">General</a><br> <a class="sbLinks" href="/Admin/network.mhtml" title="">Network</a><br> +<a class="sbLinks" href="/Admin/netgroups.mhtml" title="">Netgroup</a><br> <a class="sbLinks" href="/Admin/urlfilter.mhtml" title="">URL Filter</a><br> -<a class="sbLinks" href="/Admin/Editor/" title="">Message Editor</a><br> <a class="sbLinks" href="/Admin/greset.mhtml" title="">Global Reset</a><br> +<a class="sbLinks" href="/Admin/Scan/ids.mhtml" title="">IDS Config</a><br> </DIV> <DIV class='sbText'>Authentication</DIV> <DIV class='indent'> @@ -52,10 +53,10 @@ <a class="sbLinks" href="/Admin/mr.mhtml" title="">Manual Register</a><br> <a class="sbLinks" href="/Admin/qc.mhtml" title="">QuarControl</a><br> <a class="sbLinks" href="/Admin/Scan/" title="">Scan Config</a><br> -<a class="sbLinks" href="/Admin/Scan/ids.mhtml" title="">IDS Config</a><br> +<a class="sbLinks" href="/Admin/Editor/" title="">Message Editor</a><br> </DIV> <DIV class='sbText'>Logs and Reports</DIV> -<DIV class='indent'> +<DIV class='indent' style='border-bottom: solid 1px white;'> <a class="sbLinks" href="/Admin/audit.mhtml" title="">Audit Logs</a><br> <a class="sbLinks" href="/Admin/reports.mhtml" title="">Reports</a><br> </DIV> Index: chpwd.mhtml =================================================================== RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/chpwd.mhtml,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- chpwd.mhtml 24 Apr 2005 03:42:03 -0000 1.2 +++ chpwd.mhtml 3 May 2005 16:13:30 -0000 1.3 @@ -8,6 +8,11 @@ $new2 => ''; </%args> +<script language='JavaScript'><!-- +var pageDirty = false; +setWhereAmI('Change Password'); +--></script> + <%perl> # if we are root admin or root usereditor, # then "old" password isnt prompted for Index: reports.mhtml =================================================================== RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/reports.mhtml,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- reports.mhtml 15 Oct 2004 15:49:35 -0000 1.2 +++ reports.mhtml 3 May 2005 16:13:30 -0000 1.3 @@ -9,6 +9,10 @@ <%args> </%args> +<script language='JavaScript'><!-- +var pageDirty = false; +setWhereAmI('Logs and Reports'); +--></script> <a href="reports/bynet.mhtml">By Network</a><BR> <a href="reports/byclient.mhtml">By Client</a><BR> Index: clienthistory.mhtml =================================================================== RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/clienthistory.mhtml,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- clienthistory.mhtml 1 May 2005 05:44:12 -0000 1.2 +++ clienthistory.mhtml 3 May 2005 16:13:30 -0000 1.3 @@ -6,13 +6,17 @@ # Available under the "Artistic License" # http://www.gnu.org/licenses/license-list.html#ArtisticLicense </%doc> - <%args> $mac => ''; $notes => ''; $action => ''; </%args> +<script language='JavaScript'><!-- +var pageDirty = false; +setWhereAmI('Client Configuration > Quarantine Control > Client History'); +--></script> + <%perl> my $readOnly = "disabled"; Index: auth.mhtml =================================================================== RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/auth.mhtml,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- auth.mhtml 24 Apr 2005 03:57:26 -0000 1.1 +++ auth.mhtml 3 May 2005 16:13:29 -0000 1.2 @@ -3,6 +3,11 @@ <%args> </%args> +<script language='JavaScript'><!-- +var pageDirty = false; +setWhereAmI('Authentication > Methods'); +--></script> + <TABLE WIDTH=800 ID="authMethods" CELLSPACING=2 CELLPADDING=2> <THEAD> <TR><TH COLSPAN=2>Authentication Methods</TH></TR> --- lockcfg.mhtml DELETED --- Index: logout.mhtml =================================================================== RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/logout.mhtml,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- logout.mhtml 28 Sep 2004 16:03:00 -0000 1.2 +++ logout.mhtml 3 May 2005 16:13:30 -0000 1.3 @@ -7,7 +7,10 @@ This component deletes the session.. </%doc> - +<script language='JavaScript'><!-- +var pageDirty = false; +setWhereAmI('Logout'); +--></script> <%perl> if (exists $m->session->{'logged_in'}) { $m->session->{'logged_in'} = 0; --- NEW FILE: network.mhtml --- <%doc> DESCRIPTION This form allows you to: - add/remove networks - configure per-network settings - comment - ha enabled/disabled + settings - garp enabled/disabled + settings - netgroup membership - interface - nonquar/quar vlan id - switches - configure perl-network policy - any of the policy settings PERMISSIONS RW default/Admin RO none </%doc> <%args> $submit => ''; </%args> <%perl> return unless $m->comp('/Admin/Login', %ARGS); my ($isRoot, $junk) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin' ], 'group' => 'default'); if (!$isRoot) { print qq{<p class='error'>Sorry, you don't have access to this form.}; return; } # these group names can not be used as 'netgroups' my $reservedGroups = { 'default' => 1, 'clientAccess' => 1 }; # fetch all known networks and netgroups my $allNetworks = $np->cfg->getNetworks(); my $allNetgroups = (); foreach my $nw (@$allNetworks) { my $ng = $np->cfg->getNetgroup($nw); push @$allNetgroups, $ng if ($ng ne "") && (!grep(/^$ng$/, @$allNetgroups)); } </%perl> <h2> Network Configuration </h2> % $m->comp('/Admin/LockConfig'); % my $WH = "-" x 20; <script language='JavaScript'><!-- var pageDirty = false; setWhereAmI('Configuration > Network'); --></script> <form method="post"> <table border=0> <tr> <th>Netgroups</th> <th>Networks</th> </tr> <tr> <td style='text-align:center;'> <%$q->scrolling_list(-name => 'netgroups', -values => [ $WH, sort @$allNetgroups ], -size => 15, -multiple => 'false')%><BR> <input id='addNetgroup' name='addNetgroup' size=20 value='Add Netgroup...' disabled> </td> <td style='text-align:center;'> <%$q->scrolling_list(-name => 'networks', -values => [ $WH, sort @$allNetworks ], -size => 15, -multiple => 'false')%><BR> <input id='addNetwork' name='addNetwork' size=20 value='Add Network...' disabled> </td> </tr> </table> <table id='networkPolicy'> </table> </form> --- NEW FILE: netgroups.mhtml --- <%doc> DESCRIPTION This form allows you to: - add/remove netgroups - configure per-netgroup policy - any of the policy settings PERMISSIONS RW default/Admin RO none </%doc> <%args> $submit => ''; $netgroups => ''; $networks => ''; </%args> <%perl> return unless $m->comp('/Admin/Login', %ARGS); my ($isRoot, $junk) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin' ], 'group' => 'default'); if (!$isRoot) { print qq{<p class='error'>Sorry, you don't have access to this form.}; return; } # these group names can not be used as 'netgroups' my $reservedGroups = { 'default' => 1, 'clientAccess' => 1 }; # fetch all known networks and netgroups my $allNetworks = $np->cfg->getNetworks(); my $allNetgroups = (); foreach my $nw (@$allNetworks) { my $ng = $np->cfg->getNetgroup($nw); push @$allNetgroups, $ng if ($ng ne "") && (!grep(/^$ng$/, @$allNetgroups)); } </%perl> <h2> Network Configuration </h2> % $m->comp('/Admin/LockConfig', 'enableWhenLocked' => 'addNetgroup'); % my $WH = "-" x 20; <script language='JavaScript'>//<!-- var pageDirty = false; setWhereAmI('Configuration > Netgroups'); function netgroup_onchange_netgroups() { var o = document.getElementById("netgroups"); if (!o) return; if (o.options[0].selected == true) { //IE o.options[0].selected == false; return; } document.forms[0].submit(); } var reservedGroups = new Array; <%perl> foreach my $rg ($WH, keys %$reservedGroups) { print qq{reservedGroups.push('$rg');\n}; } </%perl> //--></script> <form method="post"> <table border=0> <tr> <th>Netgroups</th> <th>Networks</th> </tr> <tr> <td style='text-align:center; vertical-align: top;'> <%$q->scrolling_list(-name => 'netgroups', -values => [ $WH, sort @$allNetgroups ], -default => $netgroups, -id => 'netgroups', -attributes => { $WH => { 'disabled' => 1 } }, -onchange => 'netgroup_onchange_netgroups();', -size => 15, -multiple => 'false')%><P> <input id='addNetgroup' name='addNetgroup' size=20 value='Add Netgroup...' disabled> </td> <td style='text-align:center; vertical-align: top;'> <%$q->scrolling_list(-name => 'networks', -id => 'networks', -values => [ $WH, sort @$allNetworks ], -attributes => { $WH => { 'disabled' => 1 } }, -default => $networks, -size => 15, -multiple => 'false')%><BR> </td> </tr> </table> <P> % if ($netgroups) { % $m->comp('/Admin/TableEditPolicy', %ARGS, 'tableName' => 'Netgroup General Settings for '.$netgroups, 'network' => $netgroups); % } </form> |
