home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume23 / trn / part13 / newsgroups.SH < prev    next >
Text File  |  1991-08-22  |  3KB  |  99 lines
  1. case $CONFIG in
  2.     '') . ./config.sh ;;
  3. esac
  4. echo "Extracting newsgroups (with variable substitutions)"
  5. $spitshell >newsgroups <<!GROK!THIS!
  6. $startsh
  7. # $Header: newsgroups.SH,v 4.3.3.1 91/01/16 03:18:14 davison Trn $
  8. # 
  9. # $Log:    newsgroups.SH,v $
  10. # Revision 4.3.3.1  91/01/16  03:18:14  davison
  11. # Integrated rn patches 48-54.
  12. # 
  13. # Revision 4.3.2.7  90/04/23  19:30:41  sob
  14. # Extra space removed to make second part of newsgroups work.
  15. # Sigh.
  16. # 
  17. # Revision 4.3.2.6  90/04/06  20:35:37  sob
  18. # Added fixes for SCO Xenix sent by ronald@robobar.co.uk.
  19. # 
  20. # Revision 4.3.2.5  90/03/17  17:27:00  sob
  21. # System V sed and BSD sed don't work quite alike. This change uses a
  22. # syntax that is common between them.
  23. # 
  24. # Revision 4.3.2.4  89/11/08  01:13:35  sob
  25. # Finished modifications to make work with RN and RRN
  26. # 
  27. # Revision 4.3.2.3  89/11/07  22:58:04  sob
  28. # Added final changes to allow rn and rrn to be built from same sources.
  29. # 
  30. # Revision 4.3.2.2  89/11/07  22:52:22  sob
  31. # Added prelimiary support to allow both rrn and rn to be built from same
  32. # sources.
  33. # 
  34. # Revision 4.3.2.1  89/11/06  01:04:39  sob
  35. # Added RRN support from NNTP 1.5
  36. # 
  37. # Revision 4.3  85/05/01  11:43:27  lwall
  38. # Baseline for release with 4.3bsd.
  39. # 
  40.  
  41. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  42.  
  43. : syntax: newsgroups [pattern] [pipeflag]
  44.  
  45. : System Dependencies
  46.  
  47. : You might want to change pager to a "make column" program if you have one.
  48. : On the other hand, if your kernel does paging, cat would probably do.
  49. pager="${pager-/usr/ucb/more}"
  50. #NORMALactive="${active-/usr/lib/news/active}"
  51.  
  52. #NORMALcase \$active in
  53. #NORMAL~*) active=\`$filexp \$active\` ;;
  54. #NORMALesac
  55.  
  56. #NNTPactive="/tmp/active.\$\$"
  57.  
  58. : End of system dependencies, hopefully
  59.  
  60. #NNTP$rnlib/getactive \$active
  61.  
  62. if $test \$# -ge 2 ; then
  63.     pager=$cat
  64. else
  65.     $echo "Completely unsubscribed newsgroups:"
  66. fi
  67.  
  68. dotdir=\${DOTDIR-\${HOME-\$LOGDIR}}
  69.  
  70. : Throwing .newsrc into the pot twice is a lovely hack to prevent
  71. : bogus newsgroups from showing up as unsubscribed.
  72.  
  73. $cat \$dotdir/.newsrc \$dotdir/.newsrc \$active | \\
  74. $sed -n    -e '/^options/d' \\
  75.     -e '/^[     ]/d' \\
  76.     -e '/^control/d' \\
  77.     -e '/^to\./d' \\
  78.     -e 's/^\([^ !:]*\)[ !:].*\$/\1/' \\
  79.     -e "/.*\$1/p" | \\
  80. $sort | $uniq -u | \$pager
  81. if $test \$# -ge 2 ; then
  82.     exit
  83. fi
  84. $echo $n "[Type return to continue] $c"
  85. read tmp
  86. $echo ""
  87. $echo "Unsubscribed but mentioned in .newsrc:"
  88. $sed -n < \$dotdir/.newsrc \\
  89.     -e "/\$1.*!/"'s/^\([^!]*\)!.*\$/\1/p' | \\
  90. $sort | \$pager
  91. !GROK!THIS!
  92. case "$isrrn" in
  93. define)  sed < newsgroups -e '/^#NNTP/s/^#NNTP//' -e '/^#NORMAL/d' > newsgroups.new ;;
  94. *) sed < newsgroups -e '/^#NNTP/d' -e '/^#NORMAL/s/^#NORMAL//' > newsgroups.new ;;
  95. esac
  96. mv newsgroups.new newsgroups
  97. $eunicefix newsgroups
  98. chmod 755 newsgroups
  99.