249 |
|
|
250 |
warn 'tap ', network::tap(); |
warn 'tap ', network::tap(); |
251 |
|
|
252 |
|
daemons::start_stop 'browser', $url; |
253 |
|
daemons::start_stop $_ foreach ( qw/dhcpd tftpd dnsd/ ); |
254 |
|
daemons::start_stop 'kvm' unless $ENV{DEV}; # skip kvm statup when running on real device |
255 |
|
|
256 |
my $server = IO::Socket::INET->new( |
my $server = IO::Socket::INET->new( |
257 |
Proto => 'tcp', |
Proto => 'tcp', |
258 |
LocalAddr => $server::ip, |
LocalAddr => $server::ip, |
263 |
|
|
264 |
print "url $url\n"; |
print "url $url\n"; |
265 |
|
|
|
daemons::start_stop 'browser', $url; |
|
|
daemons::start_stop $_ foreach ( qw/dhcpd tftpd dnsd/ ); |
|
|
daemons::start_stop 'kvm' unless $ENV{DEV}; # skip kvm statup when running on real device |
|
|
|
|
266 |
while (1) { |
while (1) { |
267 |
my $client = $server->accept() || next; # ALARM trickle us |
my $client = $server->accept() || next; # ALARM trickle us |
268 |
my $request = <$client>; |
my $request = <$client>; |