![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to Pnews.SH CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / nntp / rrn|
Return to Pnews.SH CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / nntp / rrn |
1.1 ! root 1: case $CONFIG in ! 2: '') . config.sh ;; ! 3: esac ! 4: echo "Extracting Pnews (with variable substitutions)" ! 5: $spitshell >Pnews <<!GROK!THIS! ! 6: $startsh ! 7: # $Header: Pnews.SH,v 4.3.1.2 85/05/17 10:36:46 lwall Exp $ ! 8: # ! 9: # $Log: Pnews.SH,v $ ! 10: # Revision 4.3.1.2 85/05/17 10:36:46 lwall ! 11: # Removed some extra backslashes. ! 12: # ! 13: # Revision 4.3.1.1 85/05/10 11:30:21 lwall ! 14: # Branch for patches. ! 15: # ! 16: # Revision 4.3 85/05/01 12:20:33 lwall ! 17: # Baseline for release with 4.3bsd. ! 18: # ! 19: # ! 20: # syntax: Pnews -h headerfile or ! 21: # Pnews -h headerfile oldarticle or ! 22: # Pnews newsgroup title or just ! 23: # Pnews ! 24: ! 25: export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$) ! 26: ! 27: # System dependencies ! 28: ! 29: mailer="${mailer-/bin/mail}" ! 30: # if you change this to something that does signatures, take out signature code ! 31: ! 32: case $portable in ! 33: define) ! 34: # your site name ! 35: sitename=\`$hostcmd\` ! 36: # where recordings, distributions and moderators are kept ! 37: lib=\`$filexp $lib\` ! 38: # where important rn things are kept ! 39: rnlib=\`$filexp $rnlib\` ! 40: ;; ! 41: undef) ! 42: # your site name ! 43: sitename="$sitename" ! 44: # where recordings, distributions and moderators are kept ! 45: lib="$lib" ! 46: # where important rn things are kept ! 47: rnlib="$rnlib" ! 48: ;; ! 49: esac ! 50: ! 51: # your organization name ! 52: orgname="$orgname" ! 53: # what pager you use--if you have kernal paging use cat ! 54: pager="\${PAGER-$pager}" ! 55: # how you derive full names, bsd, usg, or other ! 56: nametype="$nametype" ! 57: # default editor ! 58: defeditor="$defeditor" ! 59: # how not to echo with newline ! 60: n="$n" ! 61: c="$c" ! 62: ! 63: # You should also look at the distribution warnings below marked !DIST! ! 64: # to make sure any distribution regions you are a member of are included. ! 65: # The following are some prototypical distribution groups. If you do not ! 66: # use them all set the unused ones to a non-null string such as 'none'. ! 67: loc="$locpref" ! 68: org="$orgpref" ! 69: city="$citypref" ! 70: state="$statepref" ! 71: cntry="$cntrypref" ! 72: cont="$contpref" ! 73: ! 74: test=${test-test} ! 75: sed=${sed-sed} ! 76: echo=${echo-echo} ! 77: cat=${cat-cat} ! 78: egrep=${egrep-egrep} ! 79: grep=${grep-grep} ! 80: rm=${rm-rm} ! 81: tr=${tr-tr} ! 82: inews=${inews-inews} ! 83: ! 84: !GROK!THIS! ! 85: $spitshell >>Pnews <<'!NO!SUBS!' ! 86: if $test -f ${DOTDIR-${HOME-$LOGDIR}}/.pnewsexpert; then ! 87: expertise=expert ! 88: else ! 89: $cat <<'EOM' ! 90: I see you've never used this version of Pnews before. I will give you extra ! 91: help this first time through, but then you must remember what you learned. ! 92: If you don't understand any question, type h and a CR (carriage return) for ! 93: help. ! 94: ! 95: If you've never posted an article to the net before, it is HIGHLY recommended ! 96: that you read the netiquette document found in net.announce.newusers so ! 97: that you'll know to avoid the commonest blunders. To do that, interrupt ! 98: Pnews, and get to the top-level prompt of rn. Say "g net.announce.newusers" ! 99: and you are on your way. ! 100: ! 101: EOM ! 102: expertise=beginner ! 103: fi ! 104: ! 105: case $cntry in ! 106: can) stpr=Province ;; ! 107: *) stpr=State ;; ! 108: esac ! 109: ! 110: tmpart=/tmp/article$$ ! 111: ! 112: headerfile="" ! 113: case $# in ! 114: 0) ;; ! 115: *) case $1 in ! 116: -h) ! 117: headerfile="$2" ! 118: shift ! 119: shift ! 120: case $# in ! 121: 0) ! 122: oldart="" ! 123: ;; ! 124: *) ! 125: oldart="$1" ! 126: shift ! 127: ;; ! 128: esac ! 129: ;; ! 130: esac ! 131: ;; ! 132: esac ! 133: ! 134: case $headerfile in ! 135: '') ! 136: . $rnlib/Pnews.header ! 137: ;; ! 138: *) ! 139: $cat < $headerfile > $tmpart ! 140: ;; ! 141: esac ! 142: rescue="sleep 1; $cat $tmpart >>${HOME-$LOGDIR}/dead.article ; $echo saved in ${HOME-$LOGDIR}/dead.article ; $rm -f $tmpart; exit" ! 143: trap "$rescue" 1 ! 144: trap "$rescue" 2 ! 145: ! 146: $echo "" ! 147: set X `$sed < $tmpart -n -e '/^Distribution: /{' -e p -e q -e '}' -e '/^$/q'` ! 148: shift ! 149: case $# in ! 150: 0|1) ! 151: set X `$sed < $tmpart -n -e '/^Newsgroups: /{' -e p -e q -e '}'` ! 152: shift ! 153: case $# in ! 154: 0|1) ! 155: set "x net.whatever" ! 156: ;; ! 157: esac ! 158: ;; ! 159: *) ! 160: set $1 $2.whatever ! 161: ;; ! 162: esac ! 163: shift ! 164: ! 165: #: play recorded message ! 166: #if $test -s ${lib}/recording ; then ! 167: # ng=`$echo $1 | $sed "s/,.*//"` ! 168: # _rec1=${lib}/`$sed -n "/^$ng/s/^.* //p" ${lib}/recording` ! 169: # _tmp=`$echo $ng |$sed "s/\..*//"` ! 170: # _rec2=${lib}/`$cat -s ${lib}/recording|$grep ${_tmp}.all|$sed "s/^.* //"` ! 171: # if $test -f ${_rec1} ; then ! 172: # $cat -s ${_rec1} ! 173: # fi ! 174: # if $test -f ${_rec2} ; then ! 175: # $cat -s ${_rec2} ! 176: # fi ! 177: #fi ! 178: ! 179: # tell them what we think they are doing... !DIST! ! 180: case $1 in ! 181: net.*) ! 182: $echo 'This program posts news to many hundreds of machines throughout the world.' ! 183: ;; ! 184: $cont.*) ! 185: $echo 'This program posts news to many machines throughout the continent.' ! 186: ;; ! 187: $cntry.*) ! 188: $echo 'This program posts news to many machines throughout the country.' ! 189: ;; ! 190: $state.*) ! 191: $echo 'This program posts news to many machines throughout the state.' ! 192: ;; ! 193: $city.*) ! 194: $echo 'This program posts news to many machines throughout the city.' ! 195: ;; ! 196: $org.*) ! 197: $echo 'This program posts news to machines throughout the organization.' ! 198: ;; ! 199: $loc.*) ! 200: $echo 'This program posts news to machines throughout the local organization.' ! 201: ;; ! 202: *.*) ! 203: $echo 'This program may post news to many machines.' ! 204: ;; ! 205: *) ! 206: $echo 'This program posts news to everyone on the machine.' ! 207: ;; ! 208: esac ! 209: ans="" ! 210: while $test "$ans" = "" ; do ! 211: $echo $n "Are you absolutely sure that you want to do this? [ny] $c" ! 212: read ans ! 213: case $ans in ! 214: y*) ;; ! 215: f*) suppressmess=y ;; ! 216: h*) $cat <<'EOH' ! 217: ! 218: Type n or CR to exit, y to post. ! 219: ! 220: EOH ! 221: ans="" ;; ! 222: *) exit ;; ! 223: esac ! 224: done ! 225: ! 226: file=h ! 227: while $test "$file" = h ; do ! 228: $echo "" ! 229: $echo $n "Prepared file to include [none]: $c" ! 230: read file ! 231: case $file in ! 232: h) ! 233: $cat <<'EOH' ! 234: ! 235: If you have already produced the body of your article, type the filename ! 236: for it here. If you just want to proceed directly to the editor, type a ! 237: RETURN. In any event, you will be allowed to edit as many times as you ! 238: want before you send off the article. ! 239: EOH ! 240: ;; ! 241: '') ! 242: $echo "" >> $tmpart ! 243: state=edit ! 244: ;; ! 245: *) ! 246: $cat $file >>$tmpart ! 247: state=ask ! 248: ;; ! 249: esac ! 250: done ! 251: ! 252: $echo "" ! 253: ! 254: while true ; do ! 255: case $state in ! 256: edit) ! 257: case $expertise in ! 258: beginner) ! 259: $cat </dev/null >${DOTDIR-${HOME-$LOGDIR}}/.pnewsexpert ! 260: $cat <<'EOMessage' ! 261: A temporary file has been created for you to edit. Be sure to leave at ! 262: least one blank line between the header and the body of your message. ! 263: (And until a certain bug is fixed all over the net, don't start the body of ! 264: your message with any indentation, or it may get eaten.) ! 265: ! 266: Within the header may be fields that you don't understand. If you don't ! 267: understand a field (or even if you do), you can simply leave it blank, and ! 268: it will go away when the article is posted. ! 269: ! 270: Type return to get the default editor, or type the name of your favorite ! 271: editor. ! 272: ! 273: EOMessage ! 274: ;; ! 275: esac ! 276: case "${VISUAL-${EDITOR-}}" in ! 277: '') ! 278: tmp=h ! 279: ;; ! 280: *) ! 281: tmp='' ! 282: ;; ! 283: esac ! 284: while $test "$tmp" = h ; do ! 285: $echo $n "Editor [${VISUAL-${EDITOR-$defeditor}}]: $c" ! 286: read tmp ! 287: case $tmp in ! 288: h) ! 289: $cat <<'EOH' ! 290: ! 291: Type a return to get the default editor, or type the name of the editor you ! 292: prefer. The default editor depends on the VISUAL and EDITOR environment ! 293: variables. ! 294: ! 295: EOH ! 296: ;; ! 297: '') ! 298: ;; ! 299: *) ! 300: VISUAL=$tmp ! 301: export VISUAL ! 302: ;; ! 303: esac ! 304: done ! 305: trap : 2 ! 306: ${VISUAL-${EDITOR-$defeditor}} $tmpart $oldart ! 307: trap "$rescue" 2 ! 308: state=ask ! 309: ;; ! 310: ! 311: ask) ! 312: $echo "" ! 313: $echo $n "Send, abort, edit, or list? $c" ! 314: read ans ! 315: ! 316: case $ans in ! 317: a*) ! 318: state=rescue ! 319: ;; ! 320: e*) ! 321: state=edit ! 322: ;; ! 323: l*) ! 324: $pager $tmpart ! 325: state=ask ! 326: ;; ! 327: s*) ! 328: state=send ! 329: ;; ! 330: h*) ! 331: $cat <<'EOH' ! 332: ! 333: Type s to send the article, a to abort and append the article to dead.article, ! 334: e to edit the article again, or l to list the article. ! 335: EOH ! 336: esac ! 337: ;; ! 338: ! 339: send) ! 340: set X `$sed < $tmpart -n -e '/^Newsgroups: /{' -e p -e q -e '}'` ! 341: shift ! 342: case $# in ! 343: 2) ! 344: state=cleanup ! 345: if $test -f $lib/moderators; then ! 346: tryinews=no ! 347: shift ! 348: case "$1" in ! 349: *,*) set `$echo $1 | tr ',' ' '`;; ! 350: esac ! 351: for newsgroup in $*; do ! 352: # the following screwy sed should prevent Eunice from hanging on no match ! 353: moderator=`$sed <$lib/moderators \ ! 354: -e "/^$newsgroup[ ]/!s/.*//" \ ! 355: -e "s/^$newsgroup[ ]//"` ! 356: case ${moderator}X in ! 357: X) tryinews=yes ! 358: ;; ! 359: *) ! 360: $echo Mailing to moderator $moderator ! 361: case "$mailer" in ! 362: *recmail) ! 363: $echo To: $moderator | $cat - $tmpart | $mailer ! 364: ;; ! 365: *) ! 366: $mailer $moderator < $tmpart ! 367: ;; ! 368: esac ! 369: case $? in ! 370: 0) ;; ! 371: *) ! 372: $echo Unable to mail to moderator $moderator ! 373: state=rescue ! 374: ;; ! 375: esac ! 376: ;; ! 377: esac ! 378: done ! 379: else ! 380: tryinews=yes ! 381: fi ! 382: case "$tryinews" in ! 383: yes) ! 384: if $inews -h < $tmpart ; then ! 385: : null ! 386: else ! 387: state=rescue ! 388: fi ! 389: ;; ! 390: esac ! 391: ;; ! 392: *) ! 393: $echo "" ! 394: $echo "Malformed Newsgroups line." ! 395: $echo "" ! 396: sleep 1 ! 397: state=edit ! 398: ;; ! 399: esac ! 400: ;; ! 401: rescue) ! 402: $cat $tmpart >> ${HOME-$LOGDIR}/dead.article ! 403: $echo "Article saved to ${HOME-$LOGDIR}/dead.article" ! 404: state=cleanup ! 405: ;; ! 406: cleanup) ! 407: $rm -f $tmpart ! 408: exit ! 409: ;; ! 410: esac ! 411: done ! 412: !NO!SUBS! ! 413: $eunicefix Pnews ! 414: chmod 755 Pnews ! 415: $spitshell >Pnews.header <<'!NO!SUBS!' ! 416: case $# in ! 417: 0) ! 418: ng=h ! 419: while $test "$ng" = h ; do ! 420: $echo "" ! 421: $echo $n "Newsgroup(s): $c" ! 422: read ng ! 423: case $ng in ! 424: h) ! 425: $cat <<'EOH' ! 426: ! 427: Type the name of one or more newsgroups to which you wish to post an article. ! 428: If you want to post to multiple newsgroups, it is better to do them all at ! 429: once than to post to each newsgroup individually, which defeats the news ! 430: reading programs' strategies of eliminating duplicates. ! 431: ! 432: Separate multiple newsgroup names with commas. ! 433: EOH ! 434: ;; ! 435: esac ! 436: done ! 437: ;; ! 438: *) ! 439: ng=$1 ! 440: shift ! 441: ;; ! 442: esac ! 443: case $ng in ! 444: *\ *) ! 445: ng=`$echo "$ng" | $sed 's/[, ] */,/g'` ! 446: ;; ! 447: esac ! 448: case $ng in ! 449: net.*|fa.*|mod.*) ! 450: defdist=net ! 451: dist=h ! 452: ;; ! 453: *.*) ! 454: defdist=`expr "X$ng" : 'X\([a-z0-9]*\)'` ! 455: dist=h ! 456: ;; ! 457: *) ! 458: defdist='' ! 459: dist='' ! 460: ;; ! 461: esac ! 462: ! 463: while $test "$dist" = h ; do ! 464: if $test -f $lib/distributions; then ! 465: $echo " " ! 466: $echo "Your local distribution prefixes are:" ! 467: $cat $lib/distributions ! 468: else ! 469: $egrep -v '[ ]none$' <<EOM ! 470: ! 471: Your local distribution prefixes are: ! 472: Local organization: $loc ! 473: Organization: $org ! 474: City: $city ! 475: $stpr: $state ! 476: Country: $cntry ! 477: Continent: $cont ! 478: Everywhere: net,mod,fa ! 479: ! 480: EOM ! 481: fi ! 482: $echo $n "Distribution ($defdist): $c" ! 483: read dist ! 484: case $dist in ! 485: '') dist=$defdist ;; ! 486: esac ! 487: case $dist in ! 488: h) ! 489: $cat <<'EOH' ! 490: ! 491: The Distribution line may be used to limit the distribution of an article ! 492: to some subset of the systems that would receive the article based only on ! 493: the Newsgroups line. For example, if you want to sell your car in net.auto, ! 494: and you live in New Jersey, you might want to put "nj" on the Distribution ! 495: line to avoid advertising in California, which has enough problems of its own. ! 496: The actual area designators to use depend on where you are, of course. ! 497: EOH ! 498: ;; ! 499: ''|$loc*|$org*|$city*|$state*|$cntry*|$cont*|fa*|mod*) ! 500: ;; ! 501: net*|world*) ! 502: dist='' ! 503: ;; ! 504: *) ! 505: if $test -f $lib/distributions && \ ! 506: $egrep "^$dist[ ]" $lib/distributions >$tmpart && \ ! 507: $test -s $tmpart; then ! 508: : null ! 509: else ! 510: $echo "Unrecognized distribution prefix--type h for help." ! 511: dist=h ! 512: fi ! 513: ;; ! 514: esac ! 515: done ! 516: ! 517: case $ng in ! 518: *net.general*) ! 519: follow=`echo "$ng" | sed 's/net\.general/net.followup/g'` ! 520: ;; ! 521: *) ! 522: follow="" ! 523: ;; ! 524: esac ! 525: ! 526: case $# in ! 527: 0) ! 528: title=h ! 529: while $test "$title" = h ; do ! 530: $echo "" ! 531: $echo $n "Title/Subject: $c" ! 532: read title ! 533: case $title in ! 534: h) ! 535: $cat <<'EOH' ! 536: ! 537: Type the title for your article. Please make it as informative as possible ! 538: (within reason) so that people who aren't interested won't have to read the ! 539: article to find out they aren't interested. This includes marking movie ! 540: spoilers as (spoiler), and rotated jokes as (rot 13). ! 541: EOH ! 542: ;; ! 543: esac ! 544: done ! 545: ;; ! 546: *) ! 547: title="$*" ! 548: ;; ! 549: esac ! 550: ! 551: # now build a file with a header for them to edit ! 552: ! 553: set X ${USER-${LOGNAME-`who am i`}} ! 554: shift ! 555: logname=$1 ! 556: case $logname in ! 557: *!*) logname=`expr "$logname" : '!\(.*\)$'` ;; ! 558: esac ! 559: case ${NAME-$nametype} in ! 560: bsd) ! 561: fullname=`$sed </etc/passwd -e "/^$logname:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^,:;]*\).*"'$'"/\1/" -e "q" -e "}" -e "d"` ! 562: case $fullname in ! 563: *'&'*) : GACK ! 564: lname=`$echo $logname | $tr 'a-z' 'A-Z'` ! 565: lname=`$echo $lname $logname | $sed 's/^\(.\)[^ ]* ./\1/'` ! 566: fullname=`$echo "$fullname" | $sed "s/&/${lname}/"` ! 567: ;; ! 568: esac ! 569: ;; ! 570: usg) ! 571: fullname=`$sed </etc/passwd -e "/^$logname:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^(:]*\).*"'$'"/\1/" -e "s/^.*-//" -e "q" -e "}" -e "d"` ! 572: ;; ! 573: *) ! 574: fullname=${NAME-`$cat ${HOME-$LOGDIR}/.fullname`} ! 575: ;; ! 576: esac ! 577: ! 578: orgname=${ORGANIZATION-$orgname} ! 579: case $orgname in ! 580: /*) orgname=`$cat $orgname` ;; ! 581: esac ! 582: ! 583: $cat > $tmpart <<EOHeader ! 584: Newsgroups: $ng ! 585: Subject: $title ! 586: Expires: ! 587: References: ! 588: Sender: ! 589: Reply-To: $logname@$sitename.UUCP ($fullname) ! 590: Followup-To: $follow ! 591: Distribution: $dist ! 592: Organization: $orgname ! 593: Keywords: ! 594: ! 595: EOHeader ! 596: ! 597: !NO!SUBS! ! 598: $eunicefix Pnews.header
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.