53 |
use client; |
use client; |
54 |
use log; |
use log; |
55 |
use x11; |
use x11; |
56 |
|
use amt; |
57 |
|
|
58 |
sub static { |
sub static { |
59 |
my ($client,$path) = @_; |
my ($client,$path) = @_; |
249 |
, config::for_ip( $ip ) |
, config::for_ip( $ip ) |
250 |
, qq|</pre>| |
, qq|</pre>| |
251 |
; |
; |
252 |
|
|
253 |
|
if ( my $amt = client::conf( $ip, 'amt' ) ) { |
254 |
|
print $client amt::info( $amt ); |
255 |
|
} |
256 |
} else { |
} else { |
257 |
print $client $ok |
print $client $ok |
258 |
, qq|<h2>Clients on $server::ip</h2>| |
, qq|<h2>Clients on $server::ip</h2>| |
307 |
start_stop 'dhcpd'; |
start_stop 'dhcpd'; |
308 |
start_stop 'tftpd'; |
start_stop 'tftpd'; |
309 |
start_stop 'dnsd'; |
start_stop 'dnsd'; |
310 |
start_stop 'kvm'; |
start_stop 'kvm' unless $ENV{DEV}; # skip kvm statup when running on real device |
311 |
|
|
312 |
while (1) { |
while (1) { |
313 |
my $client = $server->accept() || next; # ALARM trickle us |
my $client = $server->accept() || next; # ALARM trickle us |