[Netpass-devel] NetPass/www/htdocs/Admin logout.mhtml,1.5,1.6 network.mhtml,1.6,1.7
Brought to you by:
jeffmurphy
|
From: jeff m. <jef...@us...> - 2005-05-20 15:16:22
|
Update of /cvsroot/netpass/NetPass/www/htdocs/Admin In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21675/www/htdocs/Admin Modified Files: logout.mhtml network.mhtml Log Message: bugs, network cfg ui Index: logout.mhtml =================================================================== RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/logout.mhtml,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- logout.mhtml 6 May 2005 20:13:34 -0000 1.5 +++ logout.mhtml 20 May 2005 15:16:12 -0000 1.6 @@ -16,7 +16,7 @@ _log("INFO", $m->session->{'username'}." is logging out of Admin tool\n"); $np->db->audit(-severity => 'NOTICE', -ip => $ENV{'REMOTE_ADDR'}, -user => $m->session->{'username'}, - -msg => [ "$username logged out of Admin tool" ]); + -msg => [ $m->session->{'username'}." logged out of Admin tool" ]); $m->session->{'logged_in'} = 0; tied(%{$m->session})->delete; print "Logging out. Please wait..<P>"; Index: network.mhtml =================================================================== RCS file: /cvsroot/netpass/NetPass/www/htdocs/Admin/network.mhtml,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- network.mhtml 19 May 2005 20:15:06 -0000 1.6 +++ network.mhtml 20 May 2005 15:16:12 -0000 1.7 @@ -92,6 +92,38 @@ $m->comp('/Admin/LockConfig', 'enableWhenLocked' => [ 'addNetwork', 'submitButton' ], 'init' => 0); my $WH = "--Select a Network--"; +my @setResults = (); + +if ($submitButton eq "Commit Changes") { + my $rv; + $rv = $np->cfg->setNetwork(-network => $network, + -comment => $comment, + -interface => $interface, + -qvid => $qvid, + -uqvid => $uqvid); + push @setResults, "Failed to set 'network' fields: $rv" if $rv; + + $rv = $np->cfg->setHA( -network => $network, + -enabled => $haToggle, + -primary => $primaryRedirector, + -secondary => $secondaryRedirector, + -virtualip => $virtualIP, + -servers => $servers + ); + push @setResults, "Failed to set HA fields: $rv" if $rv; + + $rv = $np->cfg->setGarp(-network => $network, + -delay => $garpDelay, + -number => $garpNumber + ); + push @setResults, "Failed to set 'garp' fields: $rv" if $rv; + + $np->cfg->setSwitches( -network => $network, + -switches => $switches, + -bsw => $BSW); + push @setResults, "Failed to set 'switches': $rv" if $rv; +} + </%perl> <h2> Network Configuration </h2> |