nagel@ics.uci.edu (Mark Nagel) (10/29/89)
Warren Lavallee writes: > C-news strikes again... soc.feminism is a moderated group... Yup -- I find that newgroup patch that was posted some time invaluable. Here it is again for those that missed it along with some local mods to prevent auto creation of alt groups (just recently added :-) *** newgroup.orig Fri Oct 27 09:53:55 1989 --- newgroup Fri Oct 27 10:04:10 1989 *************** *** 14,20 **** cat >$F # unapproved ctl msg? then quit ! grep -s '^Approved:' $F >/dev/null || { rm -f $F; exit 0; } SENDER="`grep '^Sender:' $F | sed 's/^[^:]*: *//'`" case "$SENDER" in --- 14,23 ---- cat >$F # unapproved ctl msg? then quit ! APPROVER="`grep '^Approved:' $F | sed 's/^[^:]*: *//'`" ! case "$APPROVER" in ! ""|above-user@above-host) rm -f $F; exit 0;; ! esac SENDER="`grep '^Sender:' $F | sed 's/^[^:]*: *//'`" case "$SENDER" in *************** *** 42,47 **** --- 45,60 ---- $1 ! then # no group in active, but sys file likes it: make it + case "$1" in + alt.*) + (echo "$SENDER requests that you create $1."; + echo ""; + echo "$SENDER says:" + echo ""; + sed '1,/^$/d' < $F) | mail $NEWSMASTER + exit + ;; + esac case "$2" in moderated) flag=m ;; *) flag=y ;; *************** *** 50,54 **** (echo "$1 `getdate now` $SENDER" >>$NEWSCTL/active.times) # rn hook # make the directory since rn will bitch if it's missing mkpdir $NEWSARTS/`echo $1 | tr . / ` ! echo "newsgroup $1 was created by $SENDER." | mail $NEWSMASTER fi --- 63,71 ---- (echo "$1 `getdate now` $SENDER" >>$NEWSCTL/active.times) # rn hook # make the directory since rn will bitch if it's missing mkpdir $NEWSARTS/`echo $1 | tr . / ` ! (echo "newsgroup $1 was created by $SENDER."; ! echo ""; ! echo "$SENDER says:"; ! echo ""; ! sed '1,/^$/d' < $F) | mail $NEWSMASTER fi -- Mark Nagel UC Irvine Department of ICS +----------------------------------------+ ARPA: nagel@ics.uci.edu | radiation: smog with an attitude | UUCP: ucbvax!ucivax!nagel +----------------------------------------+