Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rick
From: rick@seismo.CSS.GOV (Rick Adams)
Newsgroups: net.news.adm
Subject: Re: Rmgroup on talk.religion? (yes, but be careful)
Message-ID: <41793@beno.seismo.CSS.GOV>
Date: Fri, 10-Oct-86 19:12:57 EDT
Article-I.D.: beno.41793
Posted: Fri Oct 10 19:12:57 1986
Date-Received: Sat, 11-Oct-86 20:25:29 EDT
References: <1198@Diamond.BBN.COM> <352@catnip.UUCP>
Organization: Center for Seismic Studies, Arlington, VA
Lines: 36
Summary: smarter rmgroup


This is the 2.11 rmgroup.sh. It is smart enough to remote talk.religion
without removing talk.religion.subgroups

---rick


: '@(#)rmgroup.sh	1.6	9/19/86'
for group
do
	echo "Removing newsgroup $group"
	qgrp="`echo $group | sed 's/\./\\\./g'`"
	if
		grep -s "^$qgrp " LIBDIR/active
	then
		cat << E_O_F >/tmp/$$
/^$qgrp[ 	]/d
w
q
E_O_F
		ed - LIBDIR/active < /tmp/$$
		ed - LIBDIR/newsgroups < /tmp/$$
		dir=SPOOLDIR/"`echo $group | sed 's/\./\//g'`"
		if [ -d $dir ]
		then
			rm $dir/*
			rmdir $dir
		else
			echo "$0: $dir: no spool directory" 2>&1
		fi
	else
		echo "$0: $group: no such newsgroup" 2>&1
	fi
done
rm -f /tmp/$$
exit 0