home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d473 / cnewssrc / cnews_src.lzh / relay / ctl / rmgroup < prev    next >
Text File  |  1990-01-11  |  728b  |  30 lines
  1. #! /bin/sh
  2. # rmgroup group - snuff group
  3.  
  4. # =()<. ${NEWSCONFIG-@<NEWSCONFIG>@}>()=
  5. . ${NEWSCONFIG-/usr/lib/news/bin/config}
  6. export NEWSCTL NEWSBIN NEWSARTS
  7. PATH=$NEWSCTL/bin:$NEWSBIN:$NEWSPATH ; export PATH
  8. umask $NEWSUMASK
  9.  
  10. hdr=/tmp/nc$$
  11.  
  12. canonhdr >$hdr
  13.  
  14. # unapproved ctl msg? then quit
  15. egrep '^Approved:' $hdr >/dev/null || { rm -f $hdr; exit 0; }
  16.  
  17. # quit if no active entry
  18. egrep "^`echo $1 | sed 's/\./\\\\./g'` " $NEWSCTL/active >/dev/null ||
  19.     { rm -f $hdr; exit 0; }
  20.  
  21. SENDER="`grep '^Sender:' $hdr | sed 's/^[^:]*: *//'`"
  22. case "$SENDER" in
  23. "")    SENDER="`grep '^From:' $hdr | sed 's/^[^:]*: *//'`" ;;
  24. esac
  25.  
  26. # tell the local usenet administrator to do it by hand
  27. echo "rmgroup $1 says $SENDER" | mail $NEWSMASTER
  28.  
  29. rm -f $hdr
  30.