17 |
use File::Slurp; |
use File::Slurp; |
18 |
#use JSON; |
#use JSON; |
19 |
use IO::Socket::INET; |
use IO::Socket::INET; |
|
use Module::Refresh; |
|
20 |
|
|
21 |
our $pids; |
our $pids; |
22 |
$pids = { httpd => $$ } unless defined $pids; # keep pids on refresh |
$pids = { httpd => $$ } unless defined $pids; # keep pids on refresh |
256 |
start_stop 'screen'; |
start_stop 'screen'; |
257 |
start_stop 'kvm'; |
start_stop 'kvm'; |
258 |
|
|
259 |
while (my $client = $server->accept()) { |
while (1) { |
260 |
$client->autoflush(1); |
my $client = $server->accept() || next; # ALARM trickle us |
261 |
my $request = <$client>; |
my $request = <$client>; |
262 |
|
|
263 |
warn "request $request\n" if $debug; |
warn "request $request\n" if $debug; |
264 |
|
|
|
Module::Refresh->refresh; |
|
|
|
|
265 |
if ($request =~ m{^GET (/.*) HTTP/1.[01]}) { |
if ($request =~ m{^GET (/.*) HTTP/1.[01]}) { |
266 |
my $path = $1; |
my $path = $1; |
267 |
my $param; |
my $param; |