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