--- lib/PXElator/httpd.pm	2009/09/07 21:34:05	390
+++ lib/PXElator/httpd.pm	2009/09/07 21:53:45	391
@@ -223,13 +223,19 @@
 			;
 
 	} elsif ( $path =~ m{^/server} ) {
+		if ( my $c = $param->{new_clients} ) {
+			server::shared( 'new_clients', $c );
+		}
 		print $client ok
+			, qq|<form method=get>|
 			, html::table( 2,
 				'debug' => qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|,
+				'new_clients' => qq|<input type=text name=new_clients size=3 value="| . server::shared( 'new_clients' ) . qq|">|,
 				 map {
 					( $_, html::tt eval '$server::'.$_ )
 				 } ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain_name', 'base_dir', 'conf' )
 			)
+			, qq|</form>|
 			;
 	} elsif ( $path =~ m!^/client(?:/$RE{net}{IPv4}{-keep})?! ) {
 		my $ip = $1;