home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / unix / armlinux / alpha / PARTITIONS / USR_GZ / usr / bin / newsgroups < prev    next >
Encoding:
Text File  |  1995-05-14  |  2.0 KB  |  74 lines
  1. #!/bin/sh
  2. # $Id: newsgroups.SH,v 3.0 1992/02/01 03:09:32 davison Trn $
  3. # 
  4. # This software is Copyright 1991 by Stan Barber. 
  5. #
  6. # Permission is hereby granted to copy, reproduce, redistribute or otherwise
  7. # use this software as long as: there is no monetary profit gained
  8. # specifically from the use or reproduction of this software, it is not
  9. # sold, rented, traded or otherwise marketed, and this copyright notice is
  10. # included prominently in any copy made. 
  11. #
  12. # The author make no claims as to the fitness or correctness of this software
  13. # for any use whatsoever, and it is provided as is. Any use of this software
  14. # is at the user's own risk. 
  15.  
  16. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  17.  
  18. : syntax: newsgroups [pattern] [pipeflag]
  19.  
  20. : System Dependencies
  21.  
  22. : You might want to change pager to a "make column" program if you have one.
  23. : On the other hand, if your kernel does paging, cat would probably do.
  24. pager="/bin/more"
  25.  
  26.  
  27. active="/tmp/active.$$"
  28. rnlib=/usr/lib/trn
  29. case $rnlib in
  30. ~*) rnlib=`/usr/lib/trn/filexp $rnlib` ;;
  31. esac
  32. nntplist=/usr/bin/nntplist
  33.  
  34. : End of system dependencies, hopefully
  35.  
  36. if $nntplist -o $active ACTIVE; then
  37.     : nothing
  38. else
  39.     exit 1
  40. fi
  41.  
  42. if test $# -ge 2 ; then
  43.     pager=/bin/cat
  44. else
  45.     /bin/echo "Completely unsubscribed newsgroups:"
  46. fi
  47.  
  48. dotdir=${DOTDIR-${HOME-$LOGDIR}}
  49. newsrc=$dotdir/.newsrc
  50.  
  51. : Throwing .newsrc into the pot twice is a lovely hack to prevent
  52. : bogus newsgroups from showing up as unsubscribed.
  53.  
  54. /bin/cat $newsrc $newsrc $active | \
  55. /usr/bin/sed -n    -e '/^options/d' \
  56.     -e '/^[     ]/d' \
  57.     -e '/^control/d' \
  58.     -e '/^to\./d' \
  59.      -e '/ x$/d' \
  60.     -e 's/^\([^ !:]*\)[ !:].*$/\1/' \
  61.     -e "/.*$1/p" | \
  62. /usr/bin/sort | /usr/bin/uniq -u | $pager
  63. /bin/rm -f $active
  64. if test $# -ge 2 ; then
  65.     exit
  66. fi
  67. /bin/echo  "[Type return to continue] \c"
  68. read tmp
  69. /bin/echo ""
  70. /bin/echo "Unsubscribed but mentioned in $newsrc:"
  71. /usr/bin/sed -n < $newsrc \
  72.     -e "/$1.*!/"'s/^\([^!]*\)!.*$/\1/p' | \
  73. /usr/bin/sort | $pager
  74.