diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 14:44:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 14:44:23 +0000 |
| commit | a857623081234fa17d9f6447c995f4635b5f7672 (patch) | |
| tree | d5527a07fd5f3465f4de34cfee0d871eac2dba15 /perl-install/standalone/logdrake | |
| parent | 2bcf257104b6572bf0b940b1f06970588f8a1bad (diff) | |
| download | drakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.tar drakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.tar.gz drakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.tar.bz2 drakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.tar.xz drakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.zip | |
perl_checker
Diffstat (limited to 'perl-install/standalone/logdrake')
| -rwxr-xr-x | perl-install/standalone/logdrake | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index f97766b65..fd38b9614 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -196,7 +196,7 @@ gtkadd($my_win->{window}, $::Wizard_no_cancel = 1; $::WizardWindow->destroy if defined $::WizardWindow; undef $::WizardWindow; - } elsif ($err) { print "CRITICAL: \"$err\" =>\n" } + } elsif ($err) { print qq(CRITICAL: "$err" =>\n) } })), gtksignal_connect(Gtk2::Button->new(N("Save")), clicked => \&save), gtksignal_connect(Gtk2::Button->new($::isEmbedded ? N("Cancel") : N("Quit")), clicked => \&quit) @@ -409,7 +409,7 @@ my $initdir = "/etc/init.d"; webmin => N("Webmin Service"), xinetd => N("Xinetd Service") }; - my @installed_d = (); + my @installed_d; foreach my $serv (keys %$service) { -e "$initdir/$serv" && push @installed_d, $serv; } @@ -422,7 +422,7 @@ my $initdir = "/etc/init.d"; $cron .= "#- check services\n"; foreach (keys %services_to_check) { next unless $services_to_check{$_}; - $cron .= "\$r .= \"Service $_ ($service->{$_} is not running)\\n\" unless -e \"/var/lock/subsys/$_\";\n"; + $cron .= qq(\$r .= "Service $_ ($service->{$_} is not running)\\n" unless -e "/var/lock/subsys/$_";\n); } step_load: @@ -451,7 +451,7 @@ EOF { label => "" }, { label => "Email", val => \$email }, ]) or goto step_load; - if ($email !~ /[\w.-]*@[\w.-]/) { + if ($email !~ /[\w.-]*\@[\w.-]/) { err_dialog(N("Wrong email"), N("\"%s\" is not a valid email!")); goto step_output; } |