Date: Sat, 10 Aug 2002 19:52:59 +0200 (CEST) From: Morten Rodal <morten@rodal.no> To: FreeBSD-gnats-submit@FreeBSD.org Subject: misc/41523: [PATCH] Remove perl from 440.status-mailq Message-ID: <200208101752.g7AHqxLf062500@slurp.rodal.no>
next in thread | raw e-mail | index | archive | help
>Number: 41523
>Category: misc
>Synopsis: [PATCH] Remove perl from 440.status-mailq
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: change-request
>Submitter-Id: current-users
>Arrival-Date: Sat Aug 10 11:00:06 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator: Morten Rodal
>Release: FreeBSD 5.0-CURRENT i386
>Organization:
>Environment:
System: FreeBSD 5.0-CURRENT
>Description:
-CURRENT does not have perl and will produce a daily mail with "Perl is
not installed". I think the periodic scripts can be rewritten with the
help of awk and/or sed.
>How-To-Repeat:
Just run periodic without having perl installed on 5.0-CURRENT.
>Fix:
--- 440.status-mailq.orig Sat Aug 10 19:52:06 2002
+++ 440.status-mailq Sat Aug 10 18:17:14 2002
@@ -25,7 +25,7 @@
rc=$(case "$daily_status_mailq_shorten" in
[Yy][Ee][Ss])
mailq |
- perl -ne 'print if /^\s+\S+@/' |
+ awk '/^\W+\w+@/ {print $1}' |
sort |
uniq -c |
sort -nr |
@@ -45,7 +45,7 @@
rc=$(case "$daily_status_mailq_shorten" in
[Yy][Ee][Ss])
mailq -Ac |
- perl -ne 'print if /^\s+\S+@/' |
+ awk '/^\W+\w+@/ {print $1}' |
sort |
uniq -c |
sort -nr |
>Release-Note:
>Audit-Trail:
>Unformatted:
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-bugs" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200208101752.g7AHqxLf062500>