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