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

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.