diff options
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-x | perl-install/standalone/logdrake | 9 |
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; |