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