#!/bin/sh

# news queue statistics for sn
# by Andras BALI <drewie@bigfoot.com>
# modified by Jorgen Schaefer <forcer@mindless.com>

SNSPOOL=${SNROOT:-/var/spool/sn}

for i in $SNSPOOL/.outgoing/*; do
    if [ "$i" = "$SNSPOOL/.outgoing/*" ]
    then
	echo "Can't read from $SNSPOOL/.outgoing/, exiting."
	break
    fi
    servername=$(basename $i | cut -d: -f1)
    files=$(find $i/ -type f -not -name .lock \
                             -not -name .last-list \
                             -not -name password \
                             -not -name username)
    if [ -z "$files" ]; then
	echo No outgoing articles for $servername
    else
	NUM=$(echo "$files" | wc -l | tr -d ' ')
	if [ $NUM -eq 1 ]; then ARTICLES=article ; else ARTICLES=articles ; fi
	echo $NUM outgoing $ARTICLES for $servername:
	k=1
	echo "$files" | while read j; do
	    echo -n "-> $k.  "; grep "Newsgroups: " $j | head -1
	    echo -n "       ";  grep "Subject: " $j | head -1
	    echo -n "       ";  grep "Date: " $j | head -1
	    k=$((k + 1))
	done
    fi
done
