[Netpass-devel] NetPass/www/htdocs/Admin logout.mhtml,1.5,1.6 network.mhtml,1.6,1.7

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

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>