home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1566 < prev    next >
Internet Message Format  |  1990-12-28  |  3KB
  1. From: Dan_Jacobson@ATT.COM
  2. Newsgroups: news.newusers.questions,alt.sources
  3. Subject: "...subjects": better "=" (list subjects) macro for rn newsreader
  4. Message-ID: <1990Jul9.025122.17778@cbnewse.att.com>
  5. Date: 9 Jul 90 02:51:22 GMT
  6.  
  7. # This is a shell archive.  Remove anything before this line,
  8. # then unpack it by saving it in a file and typing "sh file".
  9. #
  10. # 
  11. # Wrapped by danj1 on Sun Jul  8 21:32:09 CDT 1990
  12. # Contents:  ...subjects
  13.  
  14. echo x - ...subjects
  15. sed 's/^@//' > "...subjects" <<'@//E*O*F ...subjects//'
  16. : Dan_Jacobson@ATT.COM 1990-7-8
  17. # A poorperson's somewhat better "=" (list subjects) macro for the rn
  18. # newsreader
  19.  
  20. # A semi-stupid UNIX netnews subject gatherer for inside rn, because
  21. # rn's "=" isn't good enough.  Anybody can install this in their own
  22. # $HOME/bin, etc. Gives the count, in descending order [so hottest
  23. # topics are at top], of each subject in a newsgroup.  This program
  24. # takes a few seconds to run. It also doesn't look in your .newsrc
  25. # file, so it just lists all subjects, read and unread. Sample output
  26. # [while in newsgroup soc.singles]:
  27.  
  28. #   32 is monogamy passe?
  29. #   16 bathroom needs (was: meeting women)
  30. #   15 isis position paper on homosexuality
  31. #   [etc.]
  32.  
  33. # [I bet I'm not the first to make this kind of macro/program, and is
  34. # there a new release of rn that does it?]  This executable file is
  35. # called by an rn macro so that it executes in the newsgroup's spool
  36. # directory, which I assume you have access to (e.g., probably not
  37. # accessible if you're running rrn).  Lists all subjects, read and
  38. # unread.  To bind this to ":", put this line in your $HOME/.rnmac
  39. # file (with the ":" being the first character on the line):
  40.  
  41. #         : %(%m=[nap]?%(%m=n?.)!!...subjects^j)
  42.  
  43. # and call this file [that you are reading] "...subjects" and put it
  44. # in your UNIX $PATH.  Why the funny name "...subjects"?  So ls(1)
  45. # won't see it often, as it is a specialized command invoked only from
  46. # your macro file.
  47.  
  48. test -z "$PAGER" && PAGER="eval echo; cat"
  49. #echo: else output looks ugly when called from newsgroup selection level.
  50.  
  51. W='[     ]' #one "white space"... there should be a SPACE and a TAB
  52. # here, otherwise this file got mangled and you should restore those
  53. # two characters
  54.  
  55. sed "
  56.     /^Subject/!d
  57.     : Z
  58.     s/$W[Rr][Ee]:$W/ /g
  59.     s/$W[Rr][Ee]^2:$W/ /g
  60.     s/$W[Rr][Ee]$W/ /g
  61.     t Z
  62.     s/$W$W*$//
  63.     s/$W$W$W*/ /g
  64.     s/Subject: //g
  65.     y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/
  66.     " * | sort | uniq -c | sort -nr | $PAGER
  67. @//E*O*F ...subjects//
  68. chmod u=rwx,g=rx,o=rx ...subjects
  69.  
  70. echo Inspecting for damage in transit...
  71. temp=/tmp/shar$$; dtemp=/tmp/.shar$$
  72. trap "rm -f $temp $dtemp; exit" 0 1 2 3 15
  73. cat > $temp <<\!!!
  74.      51    332   1942 ...subjects
  75. !!!
  76. wc  ...subjects | sed 's=[^ ]*/==' | diff -b $temp - >$dtemp
  77. if [ -s $dtemp ]
  78. then echo "Ouch [diff of wc output]:" ; cat $dtemp
  79. else echo "No problems found."
  80. fi
  81. exit 0
  82.