Archiving /usr/spool/oldnews
Charlie Perkins
charliep at polaris.UUCP
Fri Nov 22 11:49:49 AEST 1985
=========
Arch_oldnews creates "nice" (but BIG) output
suitable for printing out on a line printer.
I use it to keep hardcopy listings of the
news articles when I expire them, so that
conceivably people could search through the
listings to find interesting articles and
retrieve them from the tapes. Anyway, it is
useful. This program grew to about 5 times
its original size and could very reasonably
become a C program now.
=================================================
arch_oldnews
=================================================
/bin/rm -f /tmp/arch_oldnews
cat <<'arch_oldnews' > /tmp/arch_oldnews
newsgroup=
export newsgroup
if test -d $1
then
newsgroup=`echo $1 | sed "s;/usr/spool/oldnews/*;;"`
(echo ; echo $newsgroup ; echo " "; echo " ") > /tmp/directoryxyzq
elif test -f $1
then
subject=`grep '^Subject:' $1 | sed 's/Subject: //
1q'`
case "$subject" in
"") exit
esac
messageID=`grep '^Message-ID:' $1 | sed 's/^Message-ID: <\(.*\)>/\1/`
msgsize=`expr "$messageID" : '.*'`
if test "$msgsize" -ge 16
then
tabs=" "
else
tabs=" "
fi
if test -s /tmp/directoryxyzq
then
cat /tmp/directoryxyzq
cat /dev/null > /tmp/directoryxyzq
fi
echo `basename $1`": $messageID$tabs$subject"
fi
arch_oldnews
chmod 755 /tmp/arch_oldnews
cd /usr/spool/oldnews
find fa net mod na nj -exec /tmp/arch_oldnews {} \;
rm /tmp/arch_oldnews
--
Charlie Perkins, IBM T.J. Watson Research philabs!polaris!charliep,
perk%YKTVMX.BITNET at berkeley, perk.yktvmx.ibm at csnet-relay
More information about the Comp.sources.unix
mailing list