--- trunk/lib/Sack/Server.pm	2009/11/21 16:12:18	211
+++ trunk/lib/Sack/Server.pm	2009/11/21 16:34:12	212
@@ -94,8 +94,34 @@
 			Sack::Server::HTTP::request( $client, sub {
 warn "XXX callback ",dump( @_ );
 				my ( $send, $method, $param ) = @_;
-				print $send "HTTP/1.0 200 OK\r\nContent-Type: text/plain\r\n\r\n"
-					, dump( $info )
+
+				if ( $method =~ m{views} ) {
+					warn "$method ", -s $method, " bytes";
+					my $code = read_file $method;
+					Sack::Merge->clean;
+					to_all { view => $code, path => $method };
+					print $send "HTTP/1.0 302 $method\r\nLocation: /\r\n\r\n";
+					return;
+				} elsif ( $method =~ m{^/tmp/sack} ) {
+					@shard_paths = glob "$method/*";
+					warn "loading shard $method from ", dump( @shard_paths );
+					to_all { load => $method };
+					print $send "HTTP/1.0 302 $method\r\nLocation: /\r\n\r\n";
+					return;
+				}
+
+				print $send "HTTP/1.0 200 OK\r\nContent-Type: text/html\r\n\r\n";
+
+				print $send qq|<h1>Views</h1><ul>|
+					, join("\n", map { qq|<li><a href="$_">$_</a>| } glob '/srv/Sack/views/*/*.pl' )
+					, qq|</ul>|
+					;
+
+				print $send '<h1>Info</h1><pre>' . dump( $info ) . '</pre>';
+
+				print $send qq|<h1>Data</h1><ul>|
+					, join("\n", map { qq|<li><a href="$_">$_</a>| } glob '/tmp/sack/*' )
+					, qq|</ul>|
 					;
 			} );
 		} else {