From e3988c821c58082788d4d52ddbd6d084ae898ccb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Nov 2002 13:25:40 +0000 Subject: replace q@...@ with q(...) or here_doc --- perl-install/standalone/logdrake | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'perl-install/standalone') 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; -- cgit v1.2.1