home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1248 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  2.3 KB
  1. From: danj1@cbnewse.ATT.COM (Dan Jacobson)
  2. Newsgroups: news.newusers.questions,alt.sources
  3. Subject: Macro for Somewhat Better "=" (list subjects) in rn newsreader
  4. Message-ID: <14528@cbnewse.ATT.COM>
  5. Date: 1 May 90 22:02:24 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 Tue May  1 17:02:28 CDT 1990
  12. # Contents:  ...subjects
  13.  
  14. echo x - ...subjects
  15. sed 's/^@//' > "...subjects" <<'@//E*O*F ...subjects//'
  16. : Dan_Jacobson@ATT.COM 5/1990
  17.  
  18. # A semi-stupid quick'n'dirty UNIX netnews subject gatherer for inside
  19. # rn, because rn's "=" isn't good enough.  Gives the count, in
  20. # descending order, of each subject in a newsgroup.  This program
  21. # takes a few seconds to run. It also doesn't look in your .newsrc
  22. # file, so it just lists all subjects, read and unread. Sample output
  23. # [while in newsgroup soc.singles]:
  24.  
  25. #   32 is monogamy passe?
  26. #   16 bathroom needs (was: meeting women)
  27. #   15 isis position paper on homosexuality
  28. # etc.
  29.  
  30. # [I bet I'm not the first to make this macro/program, and is there a
  31. # new release of rn that does it?]  It is called by an rn macro so
  32. # that it executes in the newsgroup's spool directory, which I assume
  33. # you have access to (e.g., probably not accessible if you're running
  34. # rrn).  Lists all subjects, read and unread.  To bind this to ":",
  35. # put this line in your .rnmac file (with the ":" the first thing on
  36. # the line):
  37.  
  38. #         : %(%m=[nap]?%(%m=n?.)!!...subjects^j)
  39.  
  40. # and call this file [that you are reading] "...subjects" and put it
  41. # in your UNIX $PATH.
  42.  
  43. test -z "$PAGER" && PAGER="eval echo; cat"
  44. #echo: else output looks ugly when called from newsgroup selection level.
  45.  
  46. W='[     ][     ]*' #white space
  47. sed "
  48.     /^Subject/!d
  49.     s/$W$//
  50.     s/$W/ /g
  51.     s/ [Rr][Ee]: / /g
  52.     s/ [Rr][Ee]^2: / /g
  53.     s/ [Rr][Ee] / /g
  54.     s/Subject: //g
  55.     y/QWERTYUIOPASDFGHJKLZXCVBNM/qwertyuiopasdfghjklzxcvbnm/
  56.     " * | sort | uniq -c | sort -nr | $PAGER
  57. @//E*O*F ...subjects//
  58. chmod u=rwx,g=rx,o=rx ...subjects
  59.  
  60. echo Inspecting for damage in transit...
  61. temp=/tmp/shar$$; dtemp=/tmp/.shar$$
  62. trap "rm -f $temp $dtemp; exit" 0 1 2 3 15
  63. cat > $temp <<\!!!
  64.      41    252   1454 ...subjects
  65. !!!
  66. wc  ...subjects | sed 's=[^ ]*/==' | diff -b $temp - >$dtemp
  67. if [ -s $dtemp ]
  68. then echo "Ouch [diff of wc output]:" ; cat $dtemp
  69. else echo "No problems found."
  70. fi
  71. exit 0
  72.