From 6e2b9a609245169c411a36c8d7930f0d63d9b9c6 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 9 Oct 2010 12:25:41 +0000
Subject: [PATCH] make all configuration specific values editable

all values which begin with configuraiton name
will be editable
---
 lib/PXElator/httpd.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index 3218391..675e428 100644
--- 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)
-- 
2.20.1