--- lib/PXElator/httpd.pm	2009/08/05 19:49:19	152
+++ lib/PXElator/httpd.pm	2009/08/05 23:22:17	153
@@ -23,6 +23,7 @@
 <div style="font-size: 80%; color: #888">
 <a href=/>home</a>
 <a href=/server>server</a>
+<a href=/client>client</a>
 </div>
 
 }}
@@ -47,6 +48,7 @@
 use html;
 our $static_pids;
 use progress_bar;
+use config;
 
 sub static {
 	my ($client,$path) = @_;
@@ -222,6 +224,22 @@
 			, menu()
 			, html::table( 2, map { ( $_, eval '$server::'.$_ ) } ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain_name', 'base_dir' ) )
 			;
+	} elsif ( $path =~ m{^/client} ) {
+		my $ip = $client->peerhost;
+		my $hostname = server::shared( "hostname/$ip", $param->{hostname} );
+		my $deploy   = server::shared( "deploy/$ip",   $param->{deploy}   );
+		print $client $ok
+			, menu()
+			, qq|<form method=get>|
+			, html::table( 2,
+				'ip' => $ip,
+				'hostname' => qq|<input type=text name=hostname value=$hostname>|,
+				'deploy' => html::select( 'deploy', $deploy, config::available ),
+			)
+			, qq|<input type=submit value=change></form><pre>|
+			, config::for_ip( $ip )
+			, qq|</pre>|
+			;
 	} elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) {
 		eval 'our $' . $1 . ' = ' . $2;
 		warn $@ if $@;