summaryrefslogtreecommitdiffstats
path: root/drakwizard.pl
diff options
context:
space:
mode:
Diffstat (limited to 'drakwizard.pl')
-rwxr-xr-xdrakwizard.pl14
1 files changed, 7 insertions, 7 deletions
diff --git a/drakwizard.pl b/drakwizard.pl
index fe6425c2..df20ec4b 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -38,7 +38,7 @@ $::Wiz_dir = '/usr/share/wizards/';
$::Wiz_more_dir = "/etc/wizard.d/";
my $in = interactive->vnew;
-my %wiz = (
+my %all_wizards = (
apache2 => [ 'Apache', N("Apache2 web server"), { ver => 2 } ],
samba => [ 'Samba', N("Samba server") ],
sambashare => [ 'Sambashare', N("Manage Samba share") ],
@@ -64,22 +64,22 @@ foreach my $file (glob_("$::Wiz_more_dir/*.conf"))
{
next unless -f $file;
my %tmp=getVarsFromSh($file);
- $wiz{lc($file)} = [ $tmp{NAME}, $tmp{DESCRIPTION} ];
+ $all_wizards{lc($file)} = [ $tmp{NAME}, $tmp{DESCRIPTION} ];
}
@ARGV = grep { ! /^--/ } @ARGV;
-if (!defined($wiz{$ARGV[0]})) {
+if (!defined($all_wizards{$ARGV[0]})) {
$in->ask_from(
N("Drakwizard wizard selection"),
N("Please select a wizard"),
- [{ val => \$ARGV[0], list => [sort { $wiz{$a}[1] cmp $wiz{$b}[1] } keys %wiz], format => sub { $wiz{$_[0]}[1] }}]
+ [{ val => \$ARGV[0], list => [sort { $all_wizards{$a}[1] cmp $all_wizards{$b}[1] } keys %all_wizards], format => sub { $all_wizards{$_[0]}[1] }}]
);
- push @ARGV, @{$wiz{$ARGV[0]}}[0,2];
+ push @ARGV, @{$all_wizards{$ARGV[0]}}[0,2];
}
-require "MDK/Wizard/$wiz{$ARGV[0]}[0].pm";
+require "MDK/Wizard/$all_wizards{$ARGV[0]}[0].pm";
-my ($wiz, $err) = "MDK::Wizard::$wiz{$ARGV[0]}[0]"->new($wiz{$ARGV[0]}[2]);
+my ($wiz, $err) = "MDK::Wizard::$all_wizards{$ARGV[0]}[0]"->new($all_wizards{$ARGV[0]}[2]);
if ($err) {
$::Wizard_finished = 1;
$in->ask_okcancel(N("Error"), translate($err));