From morten@rodal.no  Sat Aug 10 10:53:03 2002
Return-Path: <morten@rodal.no>
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
Cc:
Subject: [PATCH] Remove perl from 440.status-mailq
X-Send-Pr-Version: 3.113
X-GNATS-Notify:

>Number:         41523
>Category:       misc
>Synopsis:       [PATCH] Remove perl from 440.status-mailq
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-bugs
>State:          closed
>Quarter:        
>Keywords:       
>Date-Required:  
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Sat Aug 10 11:00:06 PDT 2002
>Closed-Date:    Sat Feb 08 11:11:42 PST 2003
>Last-Modified:  Sat Feb 08 11:11:42 PST 2003
>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:
State-Changed-From-To: open->closed 
State-Changed-By: gshapiro 
State-Changed-When: Sat Feb 8 11:11:05 PST 2003 
State-Changed-Why:  
This was already fixed in revision 1.9 by keramida 

http://www.freebsd.org/cgi/query-pr.cgi?pr=41523 
>Unformatted:
