summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 13:25:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 13:25:40 +0000
commite3988c821c58082788d4d52ddbd6d084ae898ccb (patch)
tree3c948fd75f8f70944c3615282e4254af7e0c7180 /perl-install
parentde74485baf2c4901f1b53aab7073885c69cf0776 (diff)
downloaddrakx-e3988c821c58082788d4d52ddbd6d084ae898ccb.tar
drakx-e3988c821c58082788d4d52ddbd6d084ae898ccb.tar.gz
drakx-e3988c821c58082788d4d52ddbd6d084ae898ccb.tar.bz2
drakx-e3988c821c58082788d4d52ddbd6d084ae898ccb.tar.xz
drakx-e3988c821c58082788d4d52ddbd6d084ae898ccb.zip
replace q@...@ with q(...) or here_doc
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/logdrake16
1 files changed, 9 insertions, 7 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 2c79e0e62..a8c37c240 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -447,10 +447,12 @@ my $initdir = "/etc/init.d";
{ label => "load ", val => \$load, type => 'range', min => 1, max => 50 },
]) or goto step_service;
- $cron .= q@
+ $cron .= sprintf(<<'EOF', $load);
#- load
my ($load) = split ' ', first(cat_("/proc/loadavg"));
-$r .= "Load is huge: $load\n" if ($load >@ . "$load);\n\n";
+$r .= "Load is huge: $load\n" if ($load > %s);
+
+EOF
step_output:
# $::Wizard_no_previous = 1;
@@ -462,11 +464,11 @@ $r .= "Load is huge: $load\n" if ($load >@ . "$load);\n\n";
{ label => "Email", val => \$email},
]) or goto step_load;
- $cron .= q@#- report it@;
- $cron .= q@
-$email = @. "'" . "$email" . "'" . ";\n\n";
+ $cron .= q(#- report it);
+ $cron .= q(
+$email = ) . "'" . "$email" . "'" . ";\n\n";
- $cron .= q!
+ $cron .= q(
open F, '|/usr/sbin/sendmail -oi -t';
print F
@@ -475,7 +477,7 @@ From: root@localhost
To: ), "$email\n";
print F $r;
-# EOF!;
+# EOF);
output "$cron_hourly", $cron;
chmod 0755, $cron_hourly;