diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 13:25:40 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 13:25:40 +0000 |
| commit | e3988c821c58082788d4d52ddbd6d084ae898ccb (patch) | |
| tree | 3c948fd75f8f70944c3615282e4254af7e0c7180 | |
| parent | de74485baf2c4901f1b53aab7073885c69cf0776 (diff) | |
| download | drakx-backup-do-not-use-e3988c821c58082788d4d52ddbd6d084ae898ccb.tar drakx-backup-do-not-use-e3988c821c58082788d4d52ddbd6d084ae898ccb.tar.gz drakx-backup-do-not-use-e3988c821c58082788d4d52ddbd6d084ae898ccb.tar.bz2 drakx-backup-do-not-use-e3988c821c58082788d4d52ddbd6d084ae898ccb.tar.xz drakx-backup-do-not-use-e3988c821c58082788d4d52ddbd6d084ae898ccb.zip | |
replace q@...@ with q(...) or here_doc
| -rwxr-xr-x | perl-install/standalone/logdrake | 16 |
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; |