From owner-freebsd-bugs  Sat Aug 10 11: 0:12 2002
Delivered-To: freebsd-bugs@hub.freebsd.org
Received: from mx1.FreeBSD.org (mx1.FreeBSD.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id F13DD37B400
	for <freebsd-bugs@hub.freebsd.org>; Sat, 10 Aug 2002 11:00:07 -0700 (PDT)
Received: from freefall.freebsd.org (freefall.FreeBSD.org [216.136.204.21])
	by mx1.FreeBSD.org (Postfix) with ESMTP id 4431143E65
	for <freebsd-bugs@hub.freebsd.org>; Sat, 10 Aug 2002 11:00:07 -0700 (PDT)
	(envelope-from gnats@FreeBSD.org)
Received: from freefall.freebsd.org (gnats@localhost [127.0.0.1])
	by freefall.freebsd.org (8.12.4/8.12.4) with ESMTP id g7AI07JU085026
	for <freebsd-bugs@freefall.freebsd.org>; Sat, 10 Aug 2002 11:00:07 -0700 (PDT)
	(envelope-from gnats@freefall.freebsd.org)
Received: (from gnats@localhost)
	by freefall.freebsd.org (8.12.4/8.12.4/Submit) id g7AI07UB085025;
	Sat, 10 Aug 2002 11:00:07 -0700 (PDT)
Received: from mx1.FreeBSD.org (mx1.FreeBSD.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 2968F37B400
	for <FreeBSD-gnats-submit@freebsd.org>; Sat, 10 Aug 2002 10:53:03 -0700 (PDT)
Received: from slimy.rodal.no (ti121210a080-0683.bb.online.no [80.212.2.171])
	by mx1.FreeBSD.org (Postfix) with ESMTP id 9C9B743E6E
	for <FreeBSD-gnats-submit@freebsd.org>; Sat, 10 Aug 2002 10:53:01 -0700 (PDT)
	(envelope-from morten@rodal.no)
Received: from slurp.rodal.no (morten@slurp.rodal.no [IPv6:2001:470:1f00:211:210:4bff:fe3e:2358])
	by slimy.rodal.no (8.12.3/8.12.3) with ESMTP id g7AHqx6A007358
	for <FreeBSD-gnats-submit@freebsd.org>; Sat, 10 Aug 2002 19:52:59 +0200 (CEST)
	(envelope-from morten@slurp.rodal.no)
Received: (from morten@localhost)
	by slurp.rodal.no (8.12.5/8.12.5/Submit) id g7AHqxLf062500;
	Sat, 10 Aug 2002 19:52:59 +0200 (CEST)
	(envelope-from morten)
Message-Id: <200208101752.g7AHqxLf062500@slurp.rodal.no>
Date: Sat, 10 Aug 2002 19:52:59 +0200 (CEST)
From: Morten Rodal <morten@rodal.no>
Reply-To: Morten Rodal <morten@rodal.no>
To: FreeBSD-gnats-submit@FreeBSD.org
X-Send-Pr-Version: 3.113
Subject: misc/41523: [PATCH] Remove perl from 440.status-mailq
Sender: owner-freebsd-bugs@FreeBSD.ORG
Precedence: bulk
List-ID: <freebsd-bugs.FreeBSD.ORG>
List-Archive: <http://docs.freebsd.org/mail/> (Web Archive)
List-Help: <mailto:majordomo@FreeBSD.ORG?subject=help> (List Instructions)
List-Subscribe: <mailto:majordomo@FreeBSD.ORG?subject=subscribe%20freebsd-bugs>
List-Unsubscribe: <mailto:majordomo@FreeBSD.ORG?subject=unsubscribe%20freebsd-bugs>
X-Loop: FreeBSD.org


>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