Return to newsgroups CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / nntp / rrn

Annotation of 43BSD/contrib/nntp/rrn/newsgroups, revision 1.1

1.1     ! root        1: #!/bin/sh
        !             2: # : newsgroups.SH,v 4.3 85/05/01 11:43:27 lwall Exp $
        !             3: # 
        !             4: # :    newsgroups.SH,v $
        !             5: # Revision 4.3  85/05/01  11:43:27  lwall
        !             6: # Baseline for release with 4.3bsd.
        !             7: # 
        !             8: 
        !             9: export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
        !            10: 
        !            11: : syntax: newsgroups [pattern] [pipeflag]
        !            12: 
        !            13: : System Dependencies
        !            14: 
        !            15: : You might want to change pager to a "make column" program if you have one.
        !            16: : On the other hand, if your kernel does paging, cat would probably do.
        !            17: pager="/usr/ucb/more"
        !            18: active="/tmp/active.$$"
        !            19: 
        !            20: : End of system dependencies, hopefully
        !            21: 
        !            22: /usr/local/lib/rn/getactive $active
        !            23: 
        !            24: if /bin/test $# -ge 2 ; then
        !            25:     pager=cat
        !            26: else
        !            27:     echo "Completely unsubscribed newsgroups:"
        !            28: fi
        !            29: 
        !            30: dotdir=${DOTDIR-${HOME-$LOGDIR}}
        !            31: 
        !            32: : Throwing .newsrc into the pot twice is a lovely hack to prevent
        !            33: : bogus newsgroups from showing up as unsubscribed.
        !            34: 
        !            35: cat $dotdir/.newsrc $dotdir/.newsrc $active | \
        !            36: sed    -e '/^options/d' \
        !            37:        -e '/^[  ]/d' \
        !            38:        -e '/^control/d' \
        !            39:        -e '/^to\./d' \
        !            40:        -e 's/^\([^ !:]*\)[ !:].*$/\1/' \
        !            41:        -e "/.*$1/p" \
        !            42:        -e 'd' | \
        !            43: sort | uniq -u | $pager
        !            44: if /bin/test $# -ge 2 ; then
        !            45:     exit
        !            46: fi
        !            47: echo -n "[Type return to continue] "
        !            48: read tmp
        !            49: echo ""
        !            50: echo "Unsubscribed but mentioned in .newsrc:"
        !            51: sed < $dotdir/.newsrc \
        !            52:        -e "/$1.*!/"'s/^\([^!]*\)!.*$/\1/p' \
        !            53:        -e 'd' | \
        !            54: sort | $pager
        !            55: rm $active

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.