🚀 go-pugleaf

Sometimes, when my spool area is in danger of filling up, I decide to do an
expire run with less than the default number of days.  The problem of how many
days worth of news to keep requires a time-consuming examination of the history
file.  So here is a wee awk script to print out the number of news articles
received on each date in the history file:
----------------------------------- Cut Here ----------------------------------
#! /bin/sh
exec awk '
BEGIN	{	FS = "\t"	}
	{	if ($3 == "" || $3 == "cancelled")
			break
		date = $2
		while (substr (date, 1, 1) == " ")
			date = substr (date, 2)
		date = substr (date, 1, 8)
		if (count [date] == 0)
			sort [++number] = date
		++count [date]
	}
END	{	for (i = 1; i <= number; ++i)
		{	date = sort [i]
			printf "%s %s\n", date, count [date]
		}
	}
' < /usr/lib/news/history
----------------------------------- Cut Here ----------------------------------
-- 
EMAIL:	stephen@comp.lancs.ac.uk	| Post: University of Lancaster,
UUCP:	...!mcvax!ukc!dcl-cs!stephen	|	Department of Computing,
Phone:	+44 524 65201 Ext. 4120		|	Bailrigg, Lancaster, UK.
Project:Alvey ECLIPSE Distribution	|	LA1 4YR