home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d473 / cnewssrc / cnews_src.lzh / relay / altctl / rmgroup.auto < prev   
Text File  |  1990-01-11  |  1KB  |  41 lines
  1. #! /bin/sh
  2. # rmgroup group - snuff group. active file is locked at entry
  3. # =()<. ${NEWSCONFIG-@<NEWSCONFIG>@}>()=
  4. . ${NEWSCONFIG-/usr/lib/news/bin/config}
  5. export NEWSCTL NEWSBIN NEWSARTS
  6. PATH=$NEWSCTL/bin:$NEWSBIN:$NEWSPATH ; export PATH
  7. umask $NEWSUMASK
  8.  
  9. F=/tmp/nc$$
  10.  
  11. cat >$F
  12. grep -s '^Approved:' $F || { rm -f $F; exit 1; }    # unapproved ctl msg? then quit
  13. SENDER="`grep '^Sender:' $F | sed 's/^[^:]*: *//'`"
  14. case "$SENDER" in
  15. "")
  16.     SENDER="`grep '^From:' $F | sed 's/^[^:]*: *//'`"
  17.     ;;
  18. esac
  19.  
  20. # remove active entry
  21. sed "/^`echo $1 | sed 's/\./\\\\./g'` /d" $NEWSCTL/active >$F.act
  22. cp $NEWSCTL/active $NEWSCTL/active.old
  23. cp $F.act $NEWSCTL/active
  24.  
  25. # rm -rf $NEWSARTS/`echo $1 | tr . / `    # remove the directory
  26. dir=$NEWSARTS/`echo $1 | tr . / `    # name the directory
  27. export dir                # for sub-shell below
  28. (
  29.     if test -x $dir; then
  30.         cd $dir                # go there
  31.         rm -f *
  32.         cd ..
  33.         rmdir `basename "$dir" '' `    # remove the empty directory
  34.     fi
  35. )
  36.  
  37. # tell the local usenet administrator the bad news
  38. echo "rmgrouped $1 cuz $SENDER said to" | mail $NEWSMASTER
  39.  
  40. rm -f $F*
  41.