.key GROUP,FNAME
.bra [
.ket ]
;! /bin/sh
; rmgroup group - snuff group

canonhdr <[FNAME] >T:hdr[$$]
delete quiet [FNAME]

; unapproved ctl msg? then quit
;egrep '^Approved:' $hdr >/dev/null || { rm -f $hdr; exit 0; }
grep >NIL: "^Approved:" T:hdr[$$]
if val $RC gt 0
	delete quiet T:hdr[$$]
	quit 10
endif

; quit if no active entry
;egrep "^`echo $1 | sed 's/\./\\\\./g'` " $NEWSCTL/active >/dev/null ||
;	{ rm -f $hdr; exit 0; }
grep >NIL: "^[GROUP] " NewsCtl:active
if val $RC gt 0
	delete quiet T:hdr[$$]
	quit 10
endif

;SENDER="`grep '^Sender:' $hdr | sed 's/^[^:]*: *//'`"
grep >env:NEWS "^Sender:" T:hdr[$$]
read <env:NEWS header SENDER
if warn
	; There wasn't a "Sender:" header 'cuz read got EOF
	;case "$SENDER" in
	;"")	SENDER="`grep '^From:' $hdr | sed 's/^[^:]*: *//'`" ;;
	;esac
	grep >env:NEWS "^From:" T:hdr[$$]
	read <env:NEWS header SENDER
endif
delete quiet T:hdr[$$]

; tell the local usenet administrator to do it by hand
grep >env:NEWS "^NEWSMASTER" NewsCtl:CNews.Config
read <env:NEWS header header MAILTO
echo >env:NEWS "Subject: rmgroup [GROUP] says $SENDER"
sendmail <env:NEWS -t $MAILTO

delete quiet env:(NEWS|MAILTO)