From decwrl!ucbvax!ucsd!usc!cs.utexas.edu!uunet!allbery Mon May 7 07:38:07 PDT 1990 Article 1507 of comp.sources.misc: Path: decwrl!ucbvax!ucsd!usc!cs.utexas.edu!uunet!allbery From: levy@cbnewsc.ATT.COM (Daniel R. Levy) Newsgroups: comp.sources.misc Subject: v12i027: fol -- show followups to current article Message-ID: <87529@uunet.UU.NET> Date: 5 May 90 17:10:30 GMT Sender: allbery@uunet.UU.NET Organization: AT&T Bell Laboratories, Naperville IL Lines: 101 Approved: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) Posting-number: Volume 12, Issue 27 Submitted-by: levy@cbnewsc.ATT.COM (Daniel R. Levy) Archive-name: fol/part01 #! /bin/sh # This file was wrapped with "dummyshar". "sh" this file to extract. # Contents: fol echo extracting 'fol' if test -f 'fol' -a -z "$1"; then echo Not overwriting 'fol'; else sed 's/^X//' << \EOF > 'fol' X#!/bin/sh X# X# fol -- list the followups to the current article ($A). X# X# Invoke from "readnews" or "vnews" as "!fol" or "!fol -v". X# This may be compatible with other UNIX news readers as is, or with some X# minor modifications. X# X# If invoked as "fol -v" (or with any other argument) you are placed X# in "view" on the followups, if there are any. X# X# This is for netnews users who have ants in their pants wanting to followup X# to a post, but want to be sure nobody else has said the same thing first :-). X# It is written in boring but ubiquitous Bourne Shell for maximum portability. X# X# Written 5/2/90 by Dan Levy, ttbcad!levy, AT&T Bell Labs X# X XPATH=/usr/5bin:/bin:/usr/bin:/usr/ucb/bin:$PATH; export PATH X Xecho #in case not already at the left margin X Xif test -z "$A" Xthen X echo \$A is null or not set >&2 X exit 1 Xelif test ! -f "$A" -o ! -r "$A" Xthen X echo File \$A="'$A'" not found or unreadable >&2 X exit 1 Xfi X Xcase $A in X /*) ;; X *) echo File \$A="'$A'" not a full path name >&2 X exit 1 X ;; Xesac X XF=`basename $A` X Xif expr $F : '[1-9][0-9]*$' >/dev/null Xthen X : Xelse X echo FILE \$A="'$A'" does not have numeric basename >&2 X exit 1 Xfi X XD=`dirname $A` X Xcd $D || exit 1 X XM=`grep '^Message-ID:' $A | line | (read M I R; echo $I)` X Xif test -z "$M" Xthen X echo FILE \$A="'$A'" has no Message-ID in it >&2 X exit 1 Xfi X Xecho Looking for followups to $F in this news group X XL=`ls | awk '($1 + 0 > '$F')' | sort -n` XFU=`grep "^References:" $L /dev/null | X awk -F: '(index($0,"'$M'") > 1) { print $1 }` X Xif test -n "$FU" Xthen X echo Followups to $F in this news group: $FU X if test $# -ne 0 X then X echo Type return to enter \"view\" on followups: X read x X view $FU X fi Xelse X echo No followups to $F found in this news group Xfi X Xexit 0 EOF chars=`wc -c < 'fol'` if test $chars != 1734; then echo 'fol' is $chars characters, should be 1734 characters!; fi fi exit 0 -- Daniel R. Levy >>> God: just say "yes" <<< AT&T Bell Laboratories UNIX(R) mail: att!ttbcad!levy, att!cbnewsc!levy 1000 East Warrenville Rd. Any opinions expressed in the message above are Naperville, Illinois 60566 mine, and not necessarily AT&T's.