summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-08-09 09:17:15 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-08-09 09:17:15 +0000
commit10750b887113dc03041c3be0d246b5b0f601a5de (patch)
treed2342f51aa30ecc5257bc1a2620e5e5ee236d8d9
parent5a8e51ddcd0ad7d8f3c47331c6720777e28e5c34 (diff)
downloaddrakwizard-10750b887113dc03041c3be0d246b5b0f601a5de.tar
drakwizard-10750b887113dc03041c3be0d246b5b0f601a5de.tar.gz
drakwizard-10750b887113dc03041c3be0d246b5b0f601a5de.tar.bz2
drakwizard-10750b887113dc03041c3be0d246b5b0f601a5de.tar.xz
drakwizard-10750b887113dc03041c3be0d246b5b0f601a5de.zip
split drakwizard (show or not all wizards in optionmenu)
-rwxr-xr-xdrakwizard.pl39
1 files changed, 22 insertions, 17 deletions
diff --git a/drakwizard.pl b/drakwizard.pl
index e90104ed..40a9100c 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -38,24 +38,29 @@ $::Wiz_more_dir = "/etc/wizard.d/";
my $in = interactive->vnew;
my %wiz = (
- dhcp => ['Dhcp', N("DHCP server")],
- bind => ['Bind', N("DNS server")],
- inn => ['Inn', N("News server")],
- nfs => ['NFS', N("NFS server")],
- postfix => ['Postfix', N("Mail server")],
- proftpd => ['Proftpd', N("FTP server")],
- samba => ['Samba', N("Samba server")],
- sambashare => ['Sambashare', N("Manage Samba share")],
- sambaprint => ['Sambaprint', N("Manage Samba print")],
- squid => ['Squid', N("Proxy")],
- sshd => ['Sshd', N("OpenSSH daemon configuration")],
- ntp => ['Ntp', N("Time server")],
- apache2 => ['Apache', N("Apache2 web server"), { ver => 2 }],
- nisautofs => ['Nisautofs', N("NIS server autofs map")],
- installsrv => ['Installsrv', N("Linux Install server")],
- ldap => [ 'Ldap', N("ldap server")],
- );
+ apache2 => ['Apache', N("Apache2 web server"), { ver => 2 }],
+ samba => ['Samba', N("Samba server")],
+ sambashare => ['Sambashare', N("Manage Samba share")],
+ sambaprint => ['Sambaprint', N("Manage Samba print")],
+ postfix => ['Postfix', N("Mail server")],
+ );
+# display all wizards
+-d "/usr/share/wizards/proxy_wizard" and %wiz = (
+ %wiz,
+ nisautofs => ['Nisautofs', N("NIS server autofs map")],
+ installsrv => ['Installsrv', N("Linux Install server")],
+ ldap => [ 'Ldap', N("ldap server")],
+ squid => ['Squid', N("Proxy")],
+ sshd => ['Sshd', N("OpenSSH daemon configuration")],
+ ntp => ['Ntp', N("Time server")],
+ dhcp => ['Dhcp', N("DHCP server")],
+ bind => ['Bind', N("DNS server")],
+ inn => ['Inn', N("News server")],
+ nfs => ['NFS', N("NFS server")],
+ proftpd => ['Proftpd', N("FTP server")],
+ %wiz,
+ );
foreach my $file (glob_("$::Wiz_more_dir/*.conf"))
{