enable to disable some icons through /etc/sysconfig/mcc.conf

2 files changed, 18 insertions, 1 deletions

diff --git a/NEWS b/NEWS
index af5f9db1..111218e4 100644
--- a/NEWS
+++ b/NEWS
@@ -1,4 +1,5 @@
 - do open bug in running firefox drakbug (#31109)
+- enable to disable some icons through /etc/sysconfig/mcc.conf
 
 Version 10.18.6 - 23 May 2008, Thierry Vignaud
 
diff --git a/control-center b/control-center
index f4e2c244..e37b9e33 100755
--- a/control-center
+++ b/control-center
@@ -760,6 +760,22 @@ sub request_url {
 my $align = lang::text_direction_rtl() ? "right" : "justify";
 my $align2 = lang::text_direction_rtl() ? "right" : "left";
 
+
+my $conf_file = '/etc/sysconfig/mcc.conf';
+foreach (cat_($conf_file)) {
+    #s/^ENABLE_//;
+    #my ($key, $val) = /^(.*)=(.*)/;
+    if (my ($key, $val) = /^ENABLE_(.*)=(.*)/) {
+        $key =~ s/_/ /g;
+        #warn "--> ($key, $val)\n";
+        $programs{$key}{disabled} = 1 if $val ne 'yes';
+        warn ">> disabling $key\n" if $val ne 'yes';
+    } else {
+        warn "bogus line in $conf_file: $_\n";
+        next;
+    }
+}
+
 sub clean_list {
     my ($subtree) = @_;
     grep {
@@ -768,7 +784,7 @@ sub clean_list {
         my $is_present = -x $exec;
         # do not complain about missing entries in move:
         warn qq("$exec" is not executable [$stuff]) if $mdk_rel !~ /Move/ && !$is_present;
-        !$programs{$stuff}{hidden} && $is_present;
+        !$programs{$stuff}{hidden} && $is_present && !$programs{$stuff}{disabled};
     } @$subtree;
 }