--- lib/PXElator/httpd.pm 2009/08/03 08:52:32 118 +++ lib/PXElator/httpd.pm 2009/08/04 17:16:11 140 @@ -98,7 +98,7 @@ sub start_stop { my $daemon = shift; - my $pid = $pids->{$daemon}; + my $pid = $pids->{$daemon} || 'not started'; warn "start_stop $daemon $pid\n"; @@ -136,6 +136,8 @@ sub get_request { my ( $client, $path, $param ) = @_; + server->refresh; + warn "get_request $path ", $param ? dump( $param ) : '', "\n"; if ( my $found = static( $client,$path ) ) { @@ -240,9 +242,12 @@ } use browser; +use network; sub start { + warn 'tap ', network::tap(); + my $server = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $httpd::port,