--- trunk/lib/Sack/Server.pm	2009/11/22 15:31:38	213
+++ trunk/lib/Sack/Server.pm	2009/11/22 21:54:25	219
@@ -89,7 +89,6 @@
 			$session->{peerport}->{ $new->peerport } = $new;
 			warn "[socket] connect\n";
 			Storable::store_fd( { ping => 1 }, $new );
-			info 0 => 'ping', $new->peerport;
 		} elsif ( $sock == $www ) {
 			my $client = $www->accept;
 			Sack::Server::HTTP::request( $client, sub {
@@ -127,12 +126,28 @@
 					, qq|</ul>|
 					;
 
-				print $send '<h1>Info</h1><pre>' . dump( $info ) . '</pre>';
+				print $send qq|<h1>Nodes</h1>
+<style type="text/css">
+.forked {
+	color: #f00;
+}
+
+.ping {
+	color: #0f0;
+}
+</style>
+				|, join("\n", map {
+					my $class = join(' ', map { $_->[0] } @{ $info->{node}->{$_} });
+					qq|<span class="$class">$_</span>|;
+				} sort keys %{ $info->{node} } );
 
 				print $send qq|<h1>Data</h1><ul>|
 					, join("\n", map { qq|<li><a href="$_">$_</a>| } glob '/tmp/sack/*' )
 					, qq|</ul>|
 					;
+
+				print $send '<pre>', dump($info), '</pre>';
+
 			} );
 		} else {
 			my $data = eval { Storable::fd_retrieve( $sock ) };