:
# topics - list news topics
# Heiner Steven (heiner.steven@odn.de), 1/96

: ${NEWSSPOOL:=/var/spool/news}

[ $# -lt 1 ] && exec echo "usage: $0 newsgroup [newsgroup ...]"

DaysOld=7
Groups=
for Group
do
    G=`echo "$Group" | tr \. /`
    Groups="${Groups:+$Groups }$G"
done

(cd $NEWSSPOOL
find $Groups -follow -type f -depth -mtime -$DaysOld -print |
	xargs agrep '^Subject: ') |
	cut -d: -f3- |
	sed -e 's:^[ 	]*::' \
		-e 's/[ 	][ 	]*/ /g' \
		-e 's/^[ 	]*[rR][eE]:[ 	]*//' |
	nawk '{Topic[$0]++}; END { for (i in Topic) print Topic[i] "\t" i}' |
	sort -nr