[net.sources] rnpress

pz@emacs.UUCP (Paul Czarnecki) (02/07/86)

Not a shar archive!  dont forget to strip the .signature!  Read the
comments in the source.  This is a csh script.

#
#	rnpress -- rn article compresser
#
#	Author:		Paul Czarnecki
#	Address:	decvax!{cca,wanginst!infinet}!emacs!pz
#
#	This program is used to compress your ~/News directory and
#	generate a table of contents of that directory.  It is only
#	needed if you are trying to save disk space.
#
#	You will need Larry Wall's excellant news reader "rn" and the
#	compress package (sorry, I don't know where we got it).  If
#	you don't have compress 4.2 people can (presumably) use
#	compact(1) but should change the Z to a C. You should also use
#	the -/ option of rn to make the files appear in the ~/News
#	directory.  csh users only (sorry!)
#
#	As usual in this world of too many lawyers I assume absolutly no
#	responsibility for use or misuse of this program.  I do not
#	guaranty its use for any purpose whatsover.  And if you sue me
#	I will deny posting it.  It is simply random line noise.  Feel
#	free to copy/use/modify the code but leave this comment intact
#	(already twice as long as the code!).  Althougth this is a
#	*really* simple program I find it worthwhile.  Please send me
#	changes etc...

set NEWSDIR=/u/pz/News		# I'm *sure* you want to change this
set TOC=TableOfContents

cd $NEWSDIR

find $NEWSDIR -name \[1234567890]\*  \! -name \*Z\* -exec grep Subject \{\} /dev/null >> $TOC \; -exec compress \{\} \;

sort $TOC | uniq > rnpress.$$
mv rnpress.$$ $TOC
-- 
-- You pretend I'm him and I'll pretend you're her.

   Paul Czarnecki
   Uniworks, Inc.		decvax!{cca,wanginst!infinet}!emacs!pz
   20 William Street		emacs!pz@cca-unix.ARPA
   Wellesley, MA 02181		(617) 235-2600