summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2006-01-03 15:41:30 +0000
committerOlivier Blin <oblin@mandriva.org>2006-01-03 15:41:30 +0000
commitc2dda5abbae0ef821d2d8c93e2cf90972279f1f8 (patch)
treed309965399fedd8fdd6c09c6a74e8d21ba98a7ac /perl-install/standalone/logdrake
parentbe98e2d67ccfcb58c1c114bf6054b8dcb00250b0 (diff)
downloaddrakx-backup-do-not-use-c2dda5abbae0ef821d2d8c93e2cf90972279f1f8.tar
drakx-backup-do-not-use-c2dda5abbae0ef821d2d8c93e2cf90972279f1f8.tar.gz
drakx-backup-do-not-use-c2dda5abbae0ef821d2d8c93e2cf90972279f1f8.tar.bz2
drakx-backup-do-not-use-c2dda5abbae0ef821d2d8c93e2cf90972279f1f8.tar.xz
drakx-backup-do-not-use-c2dda5abbae0ef821d2d8c93e2cf90972279f1f8.zip
don't have a useless empty hash in wizards objects, use the wizards hash
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-xperl-install/standalone/logdrake9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index b98c30d8e..0a93d0c78 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -389,15 +389,14 @@ sub alert_config() {
my %services_to_check = map { $_ => 1 } split(':', $options{SERVICES});
$::isWizard = 1;
- use wizards;
- my $w = wizards->new;
my $mode;
my $cron_file = "/etc/cron.hourly/logdrake_service";
my %modes = (
configure => N("Configure the mail alert system"),
disable => N("Stop the mail alert system"),
);
- my $wiz = {
+ require wizards;
+ my $wiz = wizards->new({
defaultimage => "logdrake.png",
name => N("Mail alert"),
pages => {
@@ -460,8 +459,8 @@ sub alert_config() {
no_back => 1,
},
},
- };
- $w->process($wiz, $in);
+ });
+ $wiz->process($in);
return if $mode eq 'disable';
$options{SERVICES} = join ':', grep { $services_to_check{$_} } sort keys %services_to_check;