Return to newsgroups.SH CVS log

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

Annotation of 43BSD/contrib/nntp/rrn/newsgroups.SH, revision 1.1.1.1

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

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