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 ) ) { |