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 ); |
my @editable = ( qw/hostname config homepage/, grep { m{^\Q$config\E} } keys %$conf ); |
369 |
client::conf( $ip, $_ => $param->{$_} ) foreach @editable; |
my @update = grep { defined $param->{$_} } @editable; |
370 |
|
if ( @update ) { |
371 |
|
client::conf( $ip, $_ => $param->{$_} ) foreach @update; |
372 |
|
print $client redirect("$url/client/$ip"); |
373 |
|
return; |
374 |
|
} |
375 |
|
|
376 |
my $nmap = qq|<a href=/nmap?scan=$ip>nmap</a>|; |
my $nmap = qq|<a href=/nmap?scan=$ip>nmap</a>|; |
377 |
my @table = ( |
my @table = ( |