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