From 7b619783e271688d4197102afff757897f3a510b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 24 Jan 2005 10:53:32 +0000
Subject: split the wizard category in four

---
 control-center | 79 +++++++++++++++++++++++++++++++++++++++-------------------
 1 file changed, 53 insertions(+), 26 deletions(-)

diff --git a/control-center b/control-center
index 8c85e6d2..f800f072 100755
--- a/control-center
+++ b/control-center
@@ -599,6 +599,21 @@ my %programs =
 
   );
 
+sub wizard_format {
+    map {
+        my ($id, $wizard, $icon, $description) = @$_;
+        $programs{$id} =
+          {
+           binary => "$sbindir/drakwizard $wizard",
+           embedded => 1,
+           description => $description,
+           icon => $icon,
+          };
+        
+        $id;
+    } @_;
+}
+
 # [ [ class_label, class icon name, [ program_label, ... ] ]
 my @tree =
     (if_($isRpmDrake || $isParkRpmDrake,
@@ -616,38 +631,50 @@ my @tree =
          ]),
 
      if_($isWiz,
-         [ N("Server wizards"), 'wizard-mdk',
+         if_(0, [ N("Server wizards"), 'wizard-mdk' ]),
+         [ N("Sharing"), 'wizard-mdk',
            [
-            (map {
-                my ($id, $wizard, $icon, $description) = @$_;
-                $programs{$id} =
-                  {
-                   binary => "$sbindir/drakwizard $wizard",
-                   embedded => 1,
-                   description => $description,
-                   icon => $icon,
-                  };
-
-                $id;
-            } (# [ id, wizard file name, icon, description ]
+            (wizard_format(# [ id, wizard file name, icon, description ]
+               [ "FTP wizard",        "proftpd", 'ftp-mdk', N("Configure FTP") ],
+               [ "Samba wizard",      "samba", 'samba_server-mdk', N("Configure Samba") ],
+               [ "Web wizard",        "apache2", 'web_server-mdk', N("Configure web server") ],
+               [ "Installation server wizard",    "installsrv", 'wizard-mdk', N("Configure installation server") ],
+               ),
+            ),
+           ]
+         ],
+         [ N("Network Services"), 'wizard-mdk',
+           [
+            (wizard_format(# [ id, wizard file name, icon, description ]
                [ "DHCP wizard",       "dhcp", 'dhcp_server-mdk', N("Configure DHCP") ],
                [ "DNS wizard",        "bind", 'dns_server-mdk', N("Configure DNS") ],
-               [ "FTP wizard",        "proftpd", 'ftp-mdk', N("Configure FTP") ],
-               [ "News wizard",       "inn", 'news-mdk', N("Configure news") ],
-               [ "Kolab wizard",             "kolab", "kolab-mdk", N("Configure groupware") ],
-               [ "LDAP wizard",             "ldap", "ldap-mdk", N("Configure LDAP") ],
-               [ "Postfix wizard",    "postfix", 'postfix-mdk', N("Configure mail") ],
                [ "Squid wizard",      "squid", 'drakproxy-mdk', N("Configure proxy") ],
-               [ "Samba wizard",      "samba", 'samba_server-mdk', N("Configure Samba") ],
                [ "Time wizard",       "ntp", 'ntp_server-mdk', N("Configure time") ],
-               [ "Web wizard",        "apache2", 'web_server-mdk', N("Configure web server") ]),
+               ),
+            ),
+           ]
+         ],
+         [ N("Authentication"), 'wizard-mdk',
+           [
+            "Authentication",
+            (wizard_format(# [ id, wizard file name, icon, description ]
                [ 'Nis+autofs wizard',        "nisautofs",  'nisautofs', N("Configure NIS and Autofs") ],
-               [ "Installation server wizard",    "installsrv", 'wizard-mdk', N("Configure installation server") ],
-               if_(0, [ "Pxe wizard",               "pxe",        'pxe-server', N("Configure PXE") ]),
-
-            )
+               [ "LDAP wizard",             "ldap", "ldap-mdk", N("Configure LDAP") ],
+               ),
+            ),
            ]
-         ]),
+         ],
+         [ N("Groupware"), 'wizard-mdk',
+           [
+            (wizard_format(# [ id, wizard file name, icon, description ]
+               [ "News wizard",       "inn", 'news-mdk', N("Configure news") ],
+               [ "Kolab wizard",             "kolab", "kolab-mdk", N("Configure groupware") ],
+               [ "Postfix wizard",    "postfix", 'postfix-mdk', N("Configure mail") ],
+               ),
+            ),
+           ]
+         ],
+            ),
 
      if_($isWebAdmin || $isRfbDrake,
          [ N("Online Administration"), 'online-administration-mdk',
@@ -705,7 +732,7 @@ my @tree =
 
      [ N("System"), 'system-mdk',
        [
-        "Authentication",
+        if_($isWiz, "Authentication"),
         "Menus",
         "Display Manager chooser",
         "Services",
-- 
cgit v1.2.1