98 |
|
|
99 |
sub start_stop { |
sub start_stop { |
100 |
my $daemon = shift; |
my $daemon = shift; |
101 |
my $pid = $pids->{$daemon}; |
my $pid = $pids->{$daemon} || 'not started'; |
102 |
|
|
103 |
warn "start_stop $daemon $pid\n"; |
warn "start_stop $daemon $pid\n"; |
104 |
|
|
136 |
sub get_request { |
sub get_request { |
137 |
my ( $client, $path, $param ) = @_; |
my ( $client, $path, $param ) = @_; |
138 |
|
|
139 |
|
server->refresh; |
140 |
|
|
141 |
warn "get_request $path ", $param ? dump( $param ) : '', "\n"; |
warn "get_request $path ", $param ? dump( $param ) : '', "\n"; |
142 |
|
|
143 |
if ( my $found = static( $client,$path ) ) { |
if ( my $found = static( $client,$path ) ) { |
242 |
} |
} |
243 |
|
|
244 |
use browser; |
use browser; |
245 |
|
use network; |
246 |
|
|
247 |
sub start { |
sub start { |
248 |
|
|
249 |
|
warn 'tap ', network::tap(); |
250 |
|
|
251 |
my $server = IO::Socket::INET->new( |
my $server = IO::Socket::INET->new( |
252 |
Proto => 'tcp', |
Proto => 'tcp', |
253 |
LocalPort => $httpd::port, |
LocalPort => $httpd::port, |