106 |
use boolean; |
use boolean; |
107 |
|
|
108 |
use kvm; |
use kvm; |
109 |
|
use qemu; $pids->{qemu} = 'stopped'; |
110 |
|
|
111 |
$SIG{CHLD} = 'IGNORE'; |
$SIG{CHLD} = 'IGNORE'; |
112 |
|
|
236 |
, qq|<form method=get>| |
, qq|<form method=get>| |
237 |
, html::table( 2, |
, html::table( 2, |
238 |
'ip' => $ip, |
'ip' => $ip, |
239 |
|
'mac' => client::mac( $ip ), |
240 |
'hostname' => qq|<input type=text name=hostname value=$hostname>|, |
'hostname' => qq|<input type=text name=hostname value=$hostname>|, |
241 |
'deploy' => html::select( 'deploy', $deploy, config::available ), |
'deploy' => html::select( 'deploy', $deploy, config::available ), |
242 |
) |
) |
253 |
map { |
map { |
254 |
my $ip = $_; |
my $ip = $_; |
255 |
$ip =~ s{^.+/ip/}{}; |
$ip =~ s{^.+/ip/}{}; |
256 |
qq|<li><a href=/client/$ip>$ip</a></li>| |
qq|<li><a href=/client/$ip>$ip</a> |, client::mac($ip), qq|</li>|; |
257 |
} |
} |
258 |
glob("$server::conf/ip/*") |
glob("$server::conf/ip/*") |
259 |
) |
) |