362 |
|
|
363 |
if ( $ip && $ip ne $server::ip ) { |
if ( $ip && $ip ne $server::ip ) { |
364 |
|
|
|
my @editable = ( qw/hostname config homepage/ ); |
|
|
|
|
|
client::conf( $ip, $_ => $param->{$_} ) foreach @editable; |
|
|
|
|
365 |
my $conf = client::all_conf( $ip ); |
my $conf = client::all_conf( $ip ); |
366 |
my $config = delete $conf->{config}; |
my $config = delete $conf->{config}; |
367 |
|
|
368 |
|
my @editable = ( qw/hostname config homepage/, grep { m{^\Q$config\E} } keys %$conf ); |
369 |
|
client::conf( $ip, $_ => $param->{$_} ) foreach @editable; |
370 |
|
|
371 |
my $nmap = qq|<a href=/nmap?scan=$ip>nmap</a>|; |
my $nmap = qq|<a href=/nmap?scan=$ip>nmap</a>|; |
372 |
my @table = ( |
my @table = ( |
373 |
'ping' => ping::host($ip) |
'ping' => ping::host($ip) |