257 |
html::conf( $ip, $conf, 'edit', @editable ) |
html::conf( $ip, $conf, 'edit', @editable ) |
258 |
); |
); |
259 |
|
|
|
warn "XX conf ",dump( $conf ); |
|
|
|
|
260 |
print $client ok |
print $client ok |
261 |
, qq|<form method=get>| |
, qq|<form method=get>| |
262 |
, html::table( 2, @table ), |
, html::table( 2, @table ), |
388 |
|
|
389 |
print "url $url\n"; |
print "url $url\n"; |
390 |
|
|
391 |
|
syslogd::install_local; |
392 |
|
|
393 |
while (1) { |
while (1) { |
394 |
my $client = $server->accept() || next; # ALARM trickle us |
my $client = $server->accept() || next; # ALARM trickle us |
395 |
my $request = <$client>; |
my $request = <$client>; |