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 |
|
|
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, |