make all configuration specific values editable

all values which begin with configuraiton name
will be editable

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index 3218391..675e428 100644 (file)
--- a/lib/PXElator/httpd.pm
+++ b/lib/PXElator/httpd.pm
@@ -362,13 +362,12 @@ warn "XXX pids = ", dump( $daemons::pids );
 
                if ( $ip && $ip ne $server::ip ) {
 
-                       my @editable = ( qw/hostname config homepage/ );
-
-                       client::conf( $ip, $_ => $param->{$_} ) foreach @editable;
-
                        my $conf = client::all_conf( $ip );
                        my $config = delete $conf->{config};
 
+                       my @editable = ( qw/hostname config homepage/, grep { m{^\Q$config\E} } keys %$conf );
+                       client::conf( $ip, $_ => $param->{$_} ) foreach @editable;
+
                        my $nmap = qq|<a href=/nmap?scan=$ip>nmap</a>|;
                        my @table = (
                                'ping' => ping::host($ip)