home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1463 < prev    next >
Internet Message Format  |  1990-12-28  |  63KB
  1. From: sob@lib.tmc.edu (Stan Barber)
  2. Newsgroups: alt.sources
  3. Subject: rrn/rn combo kit part 6 of 9
  4. Message-ID: <432@lib.tmc.edu>
  5. Date: 14 Jun 90 03:28:30 GMT
  6.  
  7. #! /bin/sh
  8.  
  9. # Make a new directory for the rn sources, cd to it, and run kits 1 thru 9 
  10. # through sh.  When all 9 kits have been run, read README.
  11.  
  12. echo "This is rn kit 6 (of 9).  If kit 6 is complete, the line"
  13. echo '"'"End of kit 6 (of 9)"'" will echo at the end.'
  14. echo ""
  15. export PATH || (echo "You didn't use sh, you clunch." ; kill $$)
  16. echo Extracting Pnews.SH
  17. cat >Pnews.SH <<'!STUFFY!FUNK!'
  18. case $CONFIG in
  19.     '') . config.sh ;;
  20. esac
  21. echo "Extracting Pnews (with variable substitutions)"
  22. $spitshell >Pnews <<!GROK!THIS!
  23. $startsh
  24. # $Header: Pnews.SH,v 4.3.2.7 90/05/04 23:14:45 sob Exp $
  25. #
  26. # $Log:    Pnews.SH,v $
  27. # Revision 4.3.2.7  90/05/04  23:14:45  sob
  28. # Expires: line removed from Pnews.header.
  29. # 
  30. # Revision 4.3.2.6  90/04/21  16:53:43  sob
  31. # Corrected a typo pointed out by Bill Aten.
  32. # 
  33. # Revision 4.3.2.5  89/12/17  01:53:48  sob
  34. # Changed from using ypcat to using ypmatch
  35. # 
  36. # Revision 4.3.2.4  89/12/09  01:48:30  sob
  37. # Reply-To: field removed. This makes all the headers created by rn
  38. # look roughly the same.
  39. # 
  40. # Revision 4.3.2.3  89/11/26  22:20:04  sob
  41. # Added support for some of the top level names that are not part of
  42. # the mainstream.
  43. # 
  44. # Revision 4.3.2.2  89/11/06  00:25:39  sob
  45. # Some minor changes to make the help messages more accurate
  46. # 
  47. # Revision 4.3.2.1  89/11/06  00:21:30  sob
  48. # Added RRN support from NNTP 1.5
  49. # 
  50. # Revision 4.3.1.4  86/09/05  15:21:10  lwall
  51. # Changes for new top-level newsgroup names.
  52. # 
  53. # Revision 4.3.1.3  85/08/01  14:24:06  lwall
  54. # Added AUTHORCOPY.  Temp file is no longer in /tmp.  'e editor' added.
  55. # 
  56. # Revision 4.3.1.2  85/05/17  10:36:46  lwall
  57. # Removed some extra backslashes.
  58. # 
  59. # Revision 4.3.1.1  85/05/10  11:30:21  lwall
  60. # Branch for patches.
  61. # 
  62. # Revision 4.3  85/05/01  12:20:33  lwall
  63. # Baseline for release with 4.3bsd.
  64. # 
  65. #
  66. # syntax: Pnews -h headerfile            or
  67. #      Pnews -h headerfile oldarticle    or
  68. #         Pnews newsgroup title            or just
  69. #         Pnews
  70.  
  71. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  72.  
  73. # System dependencies
  74.  
  75. mailer="${mailer-/bin/mail}"
  76. # if you change this to something that does signatures, take out signature code
  77.  
  78. case $portable in
  79. define)
  80. # your site name
  81. sitename=\`$hostcmd\`
  82. case \$sitename in
  83.     *.*)
  84.         ;;
  85.     *)
  86.         sitename=\${sitename}.$domain
  87.         ;;
  88. esac
  89. # where recordings, distributions and moderators are kept
  90. lib=\`$filexp $lib\`
  91. # where important rn things are kept
  92. rnlib=\`$filexp $rnlib\`
  93. ;;
  94. undef)
  95. # your site name
  96. sitename="$sitename"
  97. # where recordings, distributions and moderators are kept
  98. lib="$lib"
  99. # where important rn things are kept
  100. rnlib="$rnlib"
  101. ;;
  102. esac
  103.  
  104. # your organization name
  105. orgname="$orgname"
  106. # what pager you use--if you have kernal paging use cat
  107. pager="\${PAGER-$pager}"
  108. # how you derive full names, bsd, usg, or other
  109. nametype="$nametype"
  110. # default editor
  111. defeditor="$defeditor"
  112. # how not to echo with newline
  113. n="$n"
  114. c="$c"
  115.  
  116. # You should also look at the distribution warnings below marked !DIST!
  117. # to make sure any distribution regions you are a member of are included.
  118. # The following are some prototypical distribution groups.  If you do not
  119. # use them all set the unused ones to a non-null string such as 'none'.
  120. loc="$locpref"
  121. org="$orgpref"
  122. city="$citypref"
  123. state="$statepref"
  124. cntry="$cntrypref"
  125. cont="$contpref"
  126.  
  127. test=${test-test}
  128. sed=${sed-sed}
  129. echo=${echo-echo}
  130. cat=${cat-cat}
  131. egrep=${egrep-egrep}
  132. grep=${grep-grep}
  133. rm=${rm-rm}
  134. tr=${tr-tr}
  135. inews=${inews-inews}
  136. ypmatch=${ypmatch}
  137.  
  138. !GROK!THIS!
  139. $spitshell >>Pnews <<'!NO!SUBS!'
  140. dotdir=${DOTDIR-${HOME-$LOGDIR}}
  141. tmpart=$dotdir/.article
  142.  
  143. if $test -f $dotdir/.pnewsexpert; then
  144.     expertise=expert
  145. else
  146.     $cat <<'EOM'
  147. I see you've never used this version of Pnews before.  I will give you extra
  148. help this first time through, but then you must remember what you learned.
  149. If you don't understand any question, type h and a CR (carriage return) for
  150. help.
  151.  
  152. If you've never posted an article to the net before, it is HIGHLY recommended
  153. that you read the netiquette document found in news.announce.newusers so
  154. that you'll know to avoid the commonest blunders.  To do that, interrupt
  155. Pnews, and get to the top-level prompt of rn.  Type "g news.announce.newusers"
  156. and you are on your way.
  157.  
  158. EOM
  159.     expertise=beginner
  160. fi
  161.  
  162. case $cntry in
  163.   can) stpr=Province ;;
  164.   *)   stpr=State ;;
  165. esac
  166.  
  167. headerfile=""
  168. case $# in
  169. 0) ;;
  170. *)  case $1 in
  171.     -h)
  172.     headerfile="$2"
  173.     shift
  174.     shift
  175.     case $# in
  176.     0)
  177.         oldart=""
  178.         ;;
  179.     *)
  180.         oldart="$1"
  181.         shift
  182.         ;;
  183.     esac
  184.     ;;
  185.     esac
  186.     ;;
  187. esac
  188.  
  189. case $headerfile in
  190. '')
  191.     . $rnlib/Pnews.header
  192.     ;;
  193. *)
  194.     $cat < $headerfile  > $tmpart
  195.     ;;
  196. esac
  197.     rescue="sleep 1; $cat $tmpart >>${HOME-$LOGDIR}/dead.article ; $echo Article appended to ${HOME-$LOGDIR}/dead.article ; exit"
  198.     trap "$rescue" 1
  199.     trap "$rescue" 2
  200.  
  201. $echo ""
  202. #: play recorded message
  203. set X `$sed < $tmpart -n -e '/^Newsgroups: /{' -e p -e q -e '}'`
  204. shift
  205. case $# in
  206. 0|1)
  207.     ;;
  208. *)
  209.     shift
  210.     if $test -s ${lib}/recording ; then
  211.      ng=`$echo $1 | $sed "s/,.*//"`
  212.     _rec1=${lib}/`$sed -n "/^$ng/s/^.*    //p" ${lib}/recording`
  213.     _tmp=`$echo $ng |$sed "s/\..*//"`
  214.     _rec2=${lib}/`$cat -s ${lib}/recording|$grep ${_tmp}.all|$sed "s/^.*    //"`
  215.     if $test -f ${_rec1} ; then
  216.         $cat -s ${_rec1}
  217.     fi
  218.     if $test -f ${_rec2} ; then
  219.         $cat -s ${_rec2}
  220.     fi
  221.     fi
  222.     ;;
  223. esac
  224.  
  225. set X `$sed < $tmpart -n -e '/^Distribution: /{' -e p -e q -e '}' -e '/^$/q'`
  226. shift
  227. case $# in
  228. 0|1)
  229.     set X `$sed < $tmpart -n -e '/^Newsgroups: /{' -e p -e q -e '}'`
  230.     shift
  231.     case $# in
  232.     0|1)
  233.     set "x misc.whatever"
  234.     ;;
  235.     esac
  236.     ;;
  237. *)
  238.     set $1 $2.whatever
  239.     ;;
  240. esac
  241. shift
  242.  
  243. #: play recorded message
  244. #if $test -s ${lib}/recording ; then
  245. #     ng=`$echo $1 | $sed "s/,.*//"`
  246. #    _rec1=${lib}/`$sed -n "/^$ng/s/^.*    //p" ${lib}/recording`
  247. #    _tmp=`$echo $ng |$sed "s/\..*//"`
  248. #    _rec2=${lib}/`$cat -s ${lib}/recording|$grep ${_tmp}.all|$sed "s/^.*    //"`
  249. #    if $test -f ${_rec1} ; then
  250. #    $cat -s ${_rec1}
  251. #    fi
  252. #    if $test -f ${_rec2} ; then
  253. #    $cat -s ${_rec2}
  254. #    fi
  255. #fi
  256.  
  257. # tell them what we think they are doing... !DIST!
  258. case $1 in
  259. world.*|comp.*|news.*|sci.*|rec.*|misc.*|soc.*|talk.*|alt.*)
  260.     $cat <<'EOM'
  261. This program posts news to thousands of machines throughout the entire
  262. civilized world.  Your message will cost the net hundreds if not thousands of
  263. dollars to send everywhere.  Please be sure you know what you are doing.
  264.  
  265. EOM
  266.     ;;
  267. vmsnet.*)
  268.     $echo 'This program posts news to many machines.'
  269.     ;;
  270. bit.*)
  271.     $echo 'This program posts news to many machines on BITNET.'
  272.     ;;
  273. ddn.*)
  274.     $echo 'This program posts news to many machines throughout the internet.'
  275.     ;;
  276. $cont.*)
  277.     $echo 'This program posts news to many machines throughout the continent.'
  278.     ;;
  279. $cntry.*)
  280.     $echo 'This program posts news to many machines throughout the country.'
  281.     ;;
  282. $state.*)
  283.     $echo 'This program posts news to many machines throughout the state.'
  284.     ;;
  285. $city.*)
  286.     $echo 'This program posts news to many machines throughout the city.'
  287.     ;;
  288. $org.*)
  289.     $echo 'This program posts news to machines throughout the organization.'
  290.     ;;
  291. $loc.*)
  292.     $echo 'This program posts news to machines throughout the local organization.'
  293.     ;;
  294. *.*)
  295.     $echo 'This program may post news to many machines.'
  296.     ;;
  297. to.*)
  298.     $echo 'This program may post news to a partcular machine.'
  299.     ;;
  300. *)
  301.     $echo 'This program posts news to everyone on the machine.'
  302.     ;;
  303. esac
  304. ans=""
  305. while $test "$ans" = "" ; do
  306.     $echo $n "Are you absolutely sure that you want to do this? [ny] $c"
  307.     read ans
  308.     case $ans in
  309.     y*) ;;
  310.     f*) suppressmess=y ;;
  311.     h*) $cat <<'EOH'
  312.  
  313. Type n or CR to exit, y to post.
  314.  
  315. EOH
  316.     ans="" ;;
  317.     *) exit ;;
  318.     esac
  319. done
  320.  
  321. file=h
  322. while $test "$file" = h ; do
  323.     $echo ""
  324.     $echo $n "Prepared file to include [none]: $c"
  325.     read file
  326.     case $file in
  327.     h)
  328.     $cat <<'EOH'
  329.  
  330. If you have already produced the body of your article, type the filename
  331. for it here.  If you just want to proceed directly to the editor, type a
  332. RETURN.  In any event, you will be allowed to edit as many times as you
  333. want before you send off the article.
  334. EOH
  335.     ;;
  336.     '')
  337.     $echo "" >> $tmpart
  338.     state=edit
  339.     ;;
  340.     *)
  341.     $cat $file >>$tmpart
  342.     state=ask
  343.     ;;
  344.     esac
  345. done
  346.  
  347. $echo ""
  348.  
  349. while true ; do
  350.     case $state in
  351.     edit)
  352.     case $expertise in
  353.     beginner)
  354.         $cat </dev/null >$dotdir/.pnewsexpert
  355.         $cat <<'EOMessage'
  356. A temporary file has been created for you to edit.  Be sure to leave at
  357. least one blank line between the header and the body of your message.
  358. (And until a certain bug is fixed all over the net, don't start the body of
  359. your message with any indentation, or it may get eaten.)
  360.  
  361. Within the header may be fields that you don't understand.  If you don't
  362. understand a field (or even if you do), you can simply leave it blank, and
  363. it will go away when the article is posted.
  364.  
  365. Type return to get the default editor, or type the name of your favorite
  366. editor.
  367.  
  368. EOMessage
  369.         ;;
  370.     esac
  371.     case "${VISUAL-${EDITOR-}}" in
  372.     '')
  373.         tmp=h
  374.         ;;
  375.     *)
  376.         tmp=''
  377.         ;;
  378.     esac
  379.     while $test "$tmp" = h ; do
  380.         $echo $n "Editor [${VISUAL-${EDITOR-$defeditor}}]: $c"
  381.         read tmp
  382.         case $tmp in
  383.         h)
  384.         $cat <<'EOH'
  385.  
  386. Type a return to get the default editor, or type the name of the editor you
  387. prefer.  The default editor depends on the VISUAL and EDITOR environment
  388. variables.
  389.  
  390. EOH
  391.         ;;
  392.         '')
  393.         ;;
  394.         *)
  395.         VISUAL=$tmp
  396.         export VISUAL
  397.         ;;
  398.         esac
  399.     done
  400.     trap : 2
  401.     ${VISUAL-${EDITOR-$defeditor}} $tmpart $oldart
  402.     trap "$rescue" 2
  403.     state=ask
  404.     ;;
  405.     
  406.     ask)
  407.     $echo ""
  408.     $echo $n "Send, abort, edit, or list? $c"
  409.     read ans
  410.     
  411.     case "$ans" in
  412.     a*)
  413.         state=rescue
  414.         ;;
  415.     e*)
  416.         set $ans
  417.         case $# in
  418.         2)  VISUAL="$2" ;;
  419.         esac
  420.         state=edit
  421.         ;;
  422.     l*)
  423.         $pager $tmpart
  424.         state=ask
  425.         ;;
  426.     s*)
  427.         state=send
  428.         ;;
  429.     h*)
  430.         $cat <<'EOH'
  431.  
  432. Type s to send the article, a to abort and append the article to dead.article,
  433. e to edit the article again, or l to list the article.
  434.  
  435. To invoke an alternate editor, type 'e editor'.
  436. EOH
  437.     esac
  438.     ;;
  439.     
  440.     send)
  441.     set X `$sed < $tmpart -n -e '/^Newsgroups: /{' -e p -e q -e '}'`
  442.     shift
  443.     case $# in
  444.     2)
  445.         state=cleanup
  446.         if $test -f $lib/moderators; then
  447.         tryinews=no
  448.         shift
  449.         case "$1" in
  450.         *,*) set `$echo $1 | tr ',' ' '`;;
  451.         esac
  452.         for newsgroup in $*; do
  453. # the following screwy sed should prevent Eunice from hanging on no match
  454.             moderator=`$sed <$lib/moderators \
  455.             -e "/^$newsgroup[     ]/!s/.*//" \
  456.             -e "s/^$newsgroup[     ]//"`
  457.             case ${moderator}X in
  458.             X)  tryinews=yes
  459.             ;;
  460.             *)
  461.             $echo Mailing to moderator $moderator
  462.             case "$sign" in
  463.             n*) ;;
  464.             *)
  465.                 if $test -f $dotdir/.signature; then
  466.                 echo $n "Append .signature file? [y] $c"
  467.                 read ans
  468.                 case $ans in
  469.                 ''|y*)
  470.                     echo "-- " >> $tmpart
  471.                     cat $dotdir/.signature >> $tmpart
  472.                     ;;
  473.                 esac
  474.                 fi
  475.                 sign=no
  476.                 ;;
  477.             esac
  478.             case "$mailer" in
  479.             *recmail)
  480.                 $echo To: $moderator | $cat - $tmpart | $mailer
  481.                 ;;
  482.             *)
  483.                 $mailer $moderator < $tmpart
  484.                 ;;
  485.             esac
  486.             case $? in
  487.             0) ;;
  488.             *)
  489.                 $echo Unable to mail to moderator $moderator
  490.                 state=rescue
  491.                 ;;
  492.             esac
  493.             ;;
  494.             esac
  495.         done
  496.         else
  497.         tryinews=yes
  498.         fi
  499.         case "$tryinews" in
  500.         yes)
  501.         if $inews -h < $tmpart ; then
  502.             : null
  503.         else
  504.             state=rescue
  505.         fi
  506.         ;;
  507.         esac
  508.         ;;
  509.     *)
  510.         $echo ""
  511.         $echo "Malformed Newsgroups line."
  512.         $echo ""
  513.         sleep 1
  514.         state=edit
  515.         ;;
  516.     esac
  517.     ;;
  518.     rescue)
  519.     $cat $tmpart >> ${HOME-$LOGDIR}/dead.article
  520.     $echo "Article appended to ${HOME-$LOGDIR}/dead.article"
  521.     $echo "A copy may be temporarily found in $tmpart"
  522.     exit
  523.     ;;
  524.     cleanup)
  525.     case "${AUTHORCOPY-none}" in
  526.     none)
  527.         ;;
  528.     *)  if $echo From $USER `date` >> $AUTHORCOPY; then
  529.         $cat $tmpart >> $AUTHORCOPY
  530.         $echo "Article appended to $AUTHORCOPY"
  531.         $echo "" >> $AUTHORCOPY
  532.         $echo "" >> $AUTHORCOPY
  533.         else
  534.         $echo "Cannot append to $AUTHORCOPY"
  535.         fi
  536.         ;;
  537.     esac
  538.     exit
  539.     ;;
  540.     esac
  541. done
  542. !NO!SUBS!
  543. $eunicefix Pnews
  544. chmod 755 Pnews
  545. $spitshell >Pnews.header <<'!NO!SUBS!'
  546. case $# in
  547. 0)
  548.     ng=h
  549.     while $test "$ng" = h ; do
  550.     $echo ""
  551.     $echo $n "Newsgroup(s): $c"
  552.     read ng
  553.     case $ng in
  554.     h)
  555.         $cat <<'EOH'
  556.  
  557. Type the name of one or more newsgroups to which you wish to post an article.
  558. If you want to post to multiple newsgroups, it is better to do them all at
  559. once than to post to each newsgroup individually, which defeats the news
  560. reading programs' strategies of eliminating duplicates.
  561.  
  562. Separate multiple newsgroup names with commas.
  563. EOH
  564.         ;;
  565.     esac
  566.     done
  567.     ;;
  568. *)
  569.     ng=$1
  570.     shift
  571.     ;;
  572. esac
  573. case $ng in
  574. *\ *)
  575.     ng=`$echo "$ng" | $sed 's/[, ] */,/g'`
  576.     ;;
  577. esac
  578. case $ng in
  579. bit.*|pubnet.*|bionet.*|vmsnet.*|comp.*|news.*|sci.*|rec.*|misc.*|soc.*|talk.*|alt.*)
  580.     defdist=world
  581.     dist=h
  582.     ;;
  583. ddn.*)
  584.     defdist=inet
  585.     dist=h
  586.     ;;
  587. to.*)
  588.     defdist=''
  589.     dist=''
  590.     ;;
  591. *.*)
  592.     defdist=`expr "X$ng" : 'X\([a-z0-9]*\)'`
  593.     dist=h
  594.     ;;
  595. *)
  596.     defdist=''
  597.     dist=''
  598.     ;;
  599. esac
  600.  
  601. while $test "$dist" = h ; do
  602.     if $test -f $lib/distributions; then
  603.     $echo " "
  604.     $echo "Your local distribution prefixes are:"
  605.     $cat $lib/distributions
  606.     $echo " "
  607.     else
  608.     $egrep -v '[     ]none$' <<EOM
  609.  
  610. Your local distribution prefixes are:
  611.     Local organization:    $loc
  612.     Organization:    $org
  613.     City:        $city
  614.     $stpr:          $state
  615.     Country:        $cntry
  616.     Continent:        $cont
  617.     Everywhere:        world
  618.  
  619. EOM
  620.     fi
  621.     $echo $n "Distribution ($defdist): $c"
  622.     read dist
  623.     case $dist in
  624.     '') dist=$defdist ;;
  625.     esac
  626.     case $dist in
  627.     h)
  628.     $cat <<'EOH'
  629.  
  630. The Distribution line may be used to limit the distribution of an article
  631. to some subset of the systems that would receive the article based only on
  632. the Newsgroups line.  For example, if you want to sell your car in talk.auto,
  633. and you live in New Jersey, you might want to put "nj" on the Distribution
  634. line to avoid advertising in California, which has enough problems of its own.
  635. The actual area designators to use depend on where you are, of course.
  636. EOH
  637.     ;;
  638.     ''|$loc*|$org*|$city*|$state*|$cntry*|$cont*|$defdist)
  639.     ;;
  640.     world*|comp*|news*|sci*|rec*|misc*|soc*|talk*|alt*)
  641.     dist=''
  642.     ;;
  643.     *)  
  644.     if $test -f $lib/distributions && \
  645.       $egrep "^$dist[     ]" $lib/distributions >$tmpart && \
  646.       $test -s $tmpart; then
  647.         : null
  648.     else
  649.         $echo "Unrecognized distribution prefix--type h for help, CR to use anyway."
  650.         defdist=$dist
  651.         dist=h
  652.     fi
  653.     ;;
  654.     esac
  655. done
  656.  
  657. follow=""
  658.  
  659. case $# in
  660. 0)
  661.     title=h
  662.     while $test "$title" = h ; do
  663.     $echo ""
  664.     $echo $n "Title/Subject: $c"
  665.     read title
  666.     case $title in
  667.     h)
  668.         $cat <<'EOH'
  669.  
  670. Type the title for your article.  Please make it as informative as possible
  671. (within reason) so that people who aren't interested won't have to read the
  672. article to find out they aren't interested.  This includes marking movie
  673. spoilers as (spoiler), and rotated jokes as (rot 13).
  674. EOH
  675.     ;;
  676.     esac
  677.     done
  678.     ;;
  679. *)
  680.     title="$*"
  681.     ;;
  682. esac
  683.  
  684. # now build a file with a header for them to edit
  685.  
  686. set X ${USER-${LOGNAME-`who am i`}}
  687. shift
  688. logname=$1
  689. case $logname in
  690. *!*) logname=`expr "$logname" : '!\(.*\)$'` ;;
  691. esac
  692. case ${NAME-$nametype} in
  693. bsd)
  694.      if $test "$ypmatch" != ""; then
  695.          fullname=`$ypmatch $logname passwd 2>/dev/null | $sed "s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^,:;]*\).*"'$'"/\1/"`
  696.      fi
  697.      if $test "$fullname" = ""; then
  698.          fullname=`$sed </etc/passwd -e "/^$logname:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^,:;]*\).*"'$'"/\1/" -e "q" -e "}" -e "d"`
  699.      fi
  700.     case $fullname in
  701.     *'&'*) : GACK
  702.     lname=`$echo $logname | $tr 'a-z' 'A-Z'`
  703.     lname=`$echo $lname $logname | $sed 's/^\(.\)[^ ]* ./\1/'`
  704.     fullname=`$echo "$fullname" | $sed "s/&/${lname}/"`
  705.     ;;
  706.     esac
  707.     ;;
  708. usg)
  709.      if $test "$ypmatch" != ""; then
  710.          fullname=`$ypmatch $logname passwd 2>/dev/null | $sed "s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^(:]*\).*"'$'"/\1/" -e "s/^.*-//" -e "q"`
  711.      fi
  712.      if $test "$fullname" = ""; then
  713.     fullname=`$sed </etc/passwd -e "/^$logname:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:\([^(:]*\).*"'$'"/\1/" -e "s/^.*-//" -e "q" -e "}" -e "d"`
  714.      fi
  715.     ;;
  716. *)
  717.     fullname=${NAME-`$cat $dotdir/.fullname`}
  718.     ;;
  719. esac
  720.  
  721. orgname=${ORGANIZATION-$orgname}
  722. case $orgname in
  723. /*) orgname=`$cat $orgname` ;;
  724. esac
  725.  
  726. $cat > $tmpart <<EOHeader
  727. From: $logname@$sitename ($fullname)
  728. Newsgroups: $ng
  729. Subject: $title
  730. References: 
  731. Sender: 
  732. Followup-To: $follow
  733. Distribution: $dist
  734. Organization: $orgname
  735. Keywords: 
  736.  
  737. EOHeader
  738.  
  739. !NO!SUBS!
  740. case "$isrrn" in
  741. define) sed < Pnews.header -e '/^#NORMAL/d' > Pnews.h.new ;;
  742. *)  sed < Pnews.header -e '/^#NORMAL/s/^#NORMAL//' > Pnews.h.new ;;
  743. esac
  744. mv Pnews.h.new Pnews.header
  745. $eunicefix Pnews.header
  746. !STUFFY!FUNK!
  747. echo Extracting rn.c
  748. cat >rn.c <<'!STUFFY!FUNK!'
  749. /*  rn -- new readnews program
  750.  *
  751.  *  Original Author: lwall@sdcrdcf.UUCP (Larry Wall)
  752.  *  Organization: System Development Corporation, Santa Monica
  753.  *
  754.  *  begun:   01/14/83
  755.  *    1.0: 04/08/83
  756.  *      2.0: 09/01/83
  757.  *      RRN/RN: 11/01/89
  758. */
  759.  
  760. static char rnid[] = "@(#)$Header: rn.c,v 4.3.2.4 90/04/03 23:11:33 sob Exp $";
  761. static char patchlevel[] = "Patch #: 47";
  762.  
  763. /* $Log:    rn.c,v $
  764.  * Revision 4.3.2.4  90/04/03  23:11:33  sob
  765.  * Added more information to the version command.
  766.  * 
  767.  * Revision 4.3.2.3  90/03/22  23:05:23  sob
  768.  * Fixes provided by Wayne Davison <drivax!davison>
  769.  * 
  770.  * Revision 4.3.2.2  89/11/28  01:51:25  sob
  771.  * Removed redundant #include directive.
  772.  * 
  773.  * Revision 4.3.2.1  89/11/08  02:27:38  sob
  774.  * Release of RN 4.3 with RRN that can be compiled from the same
  775.  * sources as either version of the program.
  776.  * 
  777.  * Revision 4.3.1.4  85/09/10  11:05:13  lwall
  778.  * Improved %m in in_char().
  779.  * 
  780.  * Revision 4.3.1.3  85/05/16  16:47:10  lwall
  781.  * Catchup confirmation didn't grok -t.
  782.  * 
  783.  * Revision 4.3.1.2  85/05/13  09:34:53  lwall
  784.  * Fixed default after do_newsgroup() returns from Q command.
  785.  * 
  786.  * Revision 4.3.1.1  85/05/10  11:38:08  lwall
  787.  * Branch for patches.
  788.  * 
  789.  * Revision 4.3  85/05/01  11:47:56  lwall
  790.  * Baseline for release with 4.3bsd.
  791.  * 
  792.  */
  793.  
  794. #include "INTERN.h"
  795. #include "common.h"
  796. #include "rn.h"
  797. #include "EXTERN.h"
  798. #include "rcstuff.h"
  799. #include "term.h"
  800. #include "final.h"
  801. #include "ngdata.h"
  802. #include "util.h"
  803. #include "only.h"
  804. #include "ngsrch.h"
  805. #include "help.h"
  806. #include "last.h"
  807. #include "init.h"
  808. #include "intrp.h"
  809. #include "rcln.h"
  810. #include "sw.h"
  811. #include "addng.h"
  812. #include "ng.h"
  813.  
  814. void
  815. rn_init()
  816. {
  817.     ;
  818. }
  819.  
  820. void
  821. main(argc,argv)
  822. int argc;
  823. char *argv[];
  824. {
  825.     bool foundany = initialize(argc,argv);
  826.     register char *s;
  827.     bool oh_for_the_good_old_days = FALSE;
  828.     
  829.     if (maxngtodo)
  830.     starthere = 0;
  831.     else if (!foundany) {        /* nothing to do? */
  832. #ifdef VERBOSE
  833.     if (verbose)
  834.         fputs("\
  835. No unread news in subscribed-to newsgroups.  To subscribe to a new\n\
  836. newsgroup use the g<newsgroup> command.\n\
  837. ",stdout) FLUSH;
  838. #endif
  839.     starthere = nextrcline;
  840.     }
  841.  
  842.     /* loop through all unread news */
  843.  
  844.     {
  845.     char promptbuf[80];
  846.     bool special = FALSE;        /* temporarily allow newsgroup */
  847.                     /*   with no unread news? */
  848.     bool retry;            /* cycle back to top of list? */
  849.     NG_NUM recent_ng = 0;
  850.     
  851.     current_ng = 0;
  852.     do {
  853.         retry = FALSE;
  854.         if (findlast) {
  855.         findlast = FALSE;
  856.         starthere = 0;
  857.         if (*lastngname) {
  858.             if ((ng = find_ng(lastngname)) == nextrcline)
  859.             ng = 0;
  860.             else {
  861.             set_ngname(lastngname);
  862.                 set_toread(ng);
  863.             if (toread[ng] <= TR_NONE)
  864.                 ng = 0;
  865.             }
  866.         }
  867.         }
  868.         else {
  869.         ng = starthere;
  870.         starthere = 0;
  871.         }
  872.         while (ng <= nextrcline) {    /* for each newsgroup */
  873.         mode = 'n';
  874.         if (ng >= nextrcline) {    /* after the last newsgroup? */
  875.             ng = nextrcline;    /* force it to 1 after */
  876. #ifdef ONLY
  877.             if (maxngtodo) {
  878.             if (retry)
  879. #ifdef VERBOSE
  880.                 IF(verbose)
  881.                 printf("\nRestriction %s%s still in effect.\n",
  882.                     ngtodo[0],
  883.                     maxngtodo > 1 ? ", etc." : nullstr) FLUSH;
  884.                 ELSE
  885. #endif
  886. #ifdef TERSE
  887.                 fputs("\n(\"Only\" mode.)\n",stdout) FLUSH;
  888. #endif
  889.             else {
  890. #ifdef VERBOSE
  891.                 IF(verbose)
  892.                 fputs("\nNo articles under restriction.",
  893.                   stdout) FLUSH;
  894.                 ELSE
  895. #endif
  896. #ifdef TERSE
  897.                 fputs("\nNo \"only\" articles.",stdout) FLUSH;
  898. #endif
  899.                 end_only();    /* release the restriction */
  900.                 retry = TRUE;
  901.             }
  902.             }
  903. #endif
  904.             dfltcmd = (retry ? "npq" : "qnp");
  905. #ifdef VERBOSE
  906.             IF(verbose)
  907.             sprintf(promptbuf,
  908.                 "\n******** End of newsgroups--what next? [%s] ",
  909.                 dfltcmd);
  910.             ELSE
  911. #endif
  912. #ifdef TERSE
  913.             sprintf(promptbuf,
  914.                 "\n**** End--next? [%s] ", dfltcmd);
  915. #endif
  916.         }
  917.         else {
  918.             bool shoe_fits;    /* newsgroup matches restriction? */
  919.  
  920.             if (toread[ng] >= TR_NONE) {    /* recalc toread? */
  921.             set_ngname(rcline[ng]);
  922.             if (shoe_fits = (special || inlist(ngname)))
  923.                 set_toread(ng);
  924.             if (paranoid) {
  925.                 recent_ng = current_ng;
  926.                 current_ng = ng;
  927.                 cleanup_rc();
  928.                     /* this may move newsgroups around */
  929.                 ng = current_ng;
  930.                 set_ngname(rcline[ng]);
  931.             }
  932.             }
  933.             if (toread[ng] < (maxngtodo||special ? TR_NONE : TR_ONE) || !shoe_fits) {
  934.                     /* unwanted newsgroup? */
  935.             ng++;        /* then skip it */
  936.             continue;
  937.             }
  938.     reprompt_newsgroup:
  939.             dfltcmd = "ynq";
  940. #ifdef VERBOSE
  941.             IF(verbose)
  942.             sprintf(promptbuf,
  943.                 "\n******** %3ld unread article%c in %s--read now? [%s] ",
  944.                 (long)toread[ng], (toread[ng]==TR_ONE ? ' ' : 's'),
  945.                 ngname, dfltcmd);    /* format prompt string */
  946.             ELSE
  947. #endif
  948. #ifdef TERSE
  949.             sprintf(promptbuf,
  950.                 "\n**** %3ld in %s--read? [%s] ",
  951.                 (long)toread[ng],
  952.                 ngname,dfltcmd);    /* format prompt string */
  953. #endif
  954.         }
  955.         special = FALSE;    /* go back to normal mode */
  956.         if (ng != current_ng) {
  957.             recent_ng = current_ng;
  958.                     /* remember previous newsgroup */
  959.             current_ng = ng;    /* remember current newsgroup */
  960.         }
  961.     reask_newsgroup:
  962.         unflush_output();    /* disable any ^O in effect */
  963.         fputs(promptbuf,stdout) FLUSH;/* print prompt */
  964.         fflush(stdout);
  965.     reinp_newsgroup:
  966.         eat_typeahead();
  967.         getcmd(buf);
  968.         if (errno || *buf == '\f') {
  969.             putchar('\n') FLUSH; /* if return from stop signal */
  970.             goto reask_newsgroup;    /* give them a prompt again */
  971.         }
  972.         setdef(buf,dfltcmd);
  973. #ifdef VERIFY
  974.         printcmd();
  975. #endif
  976.         switch (*buf) {
  977.         case 'p':        /* find previous unread newsgroup */
  978.             do {
  979.             if (ng <= 0)
  980.                 break;
  981.             ng--;
  982.             if (toread[ng] == TR_NONE)
  983.                 set_toread(ng);
  984.             } while (toread[ng] <= TR_NONE);
  985.             break;
  986.         case 'P':        /* goto previous newsgroup */
  987.             do {
  988.             if (ng <= 0)
  989.                 break;
  990.             ng--;
  991.             } while (toread[ng] < TR_NONE);
  992.             special = TRUE;    /* don't skip it if toread==0 */
  993.             break;
  994.         case '-':
  995.             ng = recent_ng;    /* recall previous newsgroup */
  996.             special = TRUE;    /* don't skip it if toread==0 */
  997.             break;
  998.         case 'q': case 'Q': case 'x':    /* quit? */
  999.             oh_for_the_good_old_days = (*buf == 'x');
  1000.             putchar('\n') FLUSH;
  1001.             ng = nextrcline+1;    /* satisfy */
  1002.             retry = FALSE;    /*   loop conditions */
  1003.             break;
  1004.         case '^':
  1005.             putchar('\n') FLUSH;
  1006.             ng = 0;
  1007.             break;
  1008.         case 'n': case '+':    /* find next unread newsgroup */
  1009.             if (ng == nextrcline) {
  1010.             putchar('\n') FLUSH;
  1011.             retry = TRUE;
  1012.             }
  1013.             else if (toread[ng] > TR_NONE)
  1014.             retry = TRUE;
  1015.             ng++;
  1016.             break;
  1017.         case 'N':        /* goto next newsgroup */
  1018.             ng++;
  1019.             special = TRUE;    /* and don't skip it if toread==0 */
  1020.             break;
  1021.         case '1':        /* goto 1st newsgroup */
  1022.             ng = 0;
  1023.             special = TRUE;    /* and don't skip it if toread==0 */
  1024.             break;
  1025.         case '$':
  1026.             ng = nextrcline;    /* goto last newsgroup */
  1027.             retry = TRUE;
  1028.             break;
  1029.         case 'L':
  1030.             list_newsgroups();
  1031.             goto reask_newsgroup;
  1032.         case '/': case '?':    /* scan for newsgroup pattern */
  1033. #ifdef NGSEARCH
  1034.             switch (ng_search(buf,TRUE)) {
  1035.             case NGS_ABORT:
  1036.             goto reinp_newsgroup;
  1037.             case NGS_INTR:
  1038. #ifdef VERBOSE
  1039.             IF(verbose)
  1040.                 fputs("\n(Interrupted)\n",stdout) FLUSH;
  1041.             ELSE
  1042. #endif
  1043. #ifdef TERSE
  1044.                 fputs("\n(Intr)\n",stdout) FLUSH;
  1045. #endif
  1046.             ng = current_ng;
  1047.             goto reask_newsgroup;
  1048.             case NGS_FOUND:
  1049.             special = TRUE;    /* don't skip it if toread==0 */
  1050.             break;
  1051.             case NGS_NOTFOUND:
  1052. #ifdef VERBOSE
  1053.             IF(verbose)
  1054.                 fputs("\n\nNot found--use g to add newsgroups\n",
  1055.                 stdout) FLUSH;
  1056.             ELSE
  1057. #endif
  1058. #ifdef TERSE
  1059.                 fputs("\n\nNot found\n",stdout) FLUSH;
  1060. #endif
  1061.             goto reask_newsgroup;
  1062.             }
  1063. #else
  1064.             notincl("/");
  1065. #endif
  1066.             break;
  1067.         case 'm':
  1068. #ifndef RELOCATE
  1069.             notincl("m");
  1070.             break;
  1071. #endif            
  1072.         case 'g':    /* goto named newsgroup */
  1073.             if (!finish_command(FALSE))
  1074.                     /* if they didn't finish command */
  1075.             goto reinp_newsgroup;    /* go try something else */
  1076.             for (s = buf+1; *s == ' '; s++);
  1077.                     /* skip leading spaces */
  1078.             if (!*s)
  1079.             strcpy(s,ngname);
  1080. #ifdef RELOCATE
  1081.             if (!get_ng(s,*buf=='m'))    /* try to find newsgroup */
  1082. #else
  1083.             if (!get_ng(s,FALSE))    /* try to find newsgroup */
  1084. #endif
  1085.             ng = current_ng;/* if not found, go nowhere */
  1086.             special = TRUE;    /* don't skip it if toread==0 */
  1087.             break;
  1088. #ifdef DEBUGGING
  1089.         case 'D':
  1090.             printf("\nTries: %d Hits: %d\n",
  1091.             softtries,softtries-softmisses) FLUSH;
  1092.             goto reask_newsgroup;
  1093. #endif
  1094.         case '!':        /* shell escape */
  1095.             if (escapade())     /* do command */
  1096.             goto reinp_newsgroup;
  1097.                     /* if rubbed out, re input */
  1098.             goto reask_newsgroup;
  1099.         case Ctl('k'):        /* edit global KILL file */
  1100.             edit_kfile();
  1101.             goto reask_newsgroup;
  1102.         case 'c':        /* catch up */
  1103. #ifdef CATCHUP
  1104. reask_catchup:
  1105. #ifdef VERBOSE
  1106.         IF(verbose)
  1107.             in_char("\nDo you really want to mark everything as read? [yn] ", 'C');
  1108.         ELSE
  1109. #endif
  1110. #ifdef TERSE
  1111.             in_char("\nReally? [ynh] ", 'C');
  1112. #endif
  1113.             putchar('\n') FLUSH;
  1114.             setdef(buf,"y");
  1115.             if (*buf == 'h') {
  1116. #ifdef VERBOSE
  1117.             printf("Type y or SP to mark all articles as read.\n");
  1118.             printf("Type n to leave articles marked as they are.\n");
  1119. #else
  1120.             printf("y or SP to mark all read.\n");
  1121.             printf("n to forget it.\n");
  1122. #endif
  1123.             goto reask_catchup;
  1124.             }
  1125.             else if (*buf!=' ' && *buf!='y' && *buf!='n' && *buf!='q') {
  1126.             printf(hforhelp);
  1127.             settle_down();
  1128.             goto reask_catchup;
  1129.             } else if ( (*buf == ' ' || *buf == 'y') && ng<nextrcline )
  1130.             catch_up(ng);
  1131.             else
  1132.             retry = TRUE;
  1133.             ng++;
  1134. #else
  1135.             notincl("c");
  1136. #endif
  1137.             break;
  1138.         case 'u':        /* unsubscribe */
  1139.             if (ng < nextrcline && toread[ng] >= TR_NONE) {
  1140.                     /* unsubscribable? */
  1141.             printf(unsubto,rcline[ng]) FLUSH;
  1142.             rcchar[ng] = NEGCHAR;
  1143.                     /* unsubscribe to (from?) it */
  1144.             toread[ng] = TR_UNSUB;
  1145.                     /* and make line invisible */
  1146.             ng++;        /* do an automatic 'n' */
  1147.             }
  1148.             break;
  1149.         case 'h': {        /* help */
  1150.             int cmd;
  1151.  
  1152.             if ((cmd = help_ng()) > 0)
  1153.             pushchar(cmd);
  1154.             goto reask_newsgroup;
  1155.         }
  1156.         case 'a':
  1157. #ifndef FINDNEWNG
  1158.             notincl("a");
  1159.             goto reask_newsgroup;
  1160. #else
  1161.             /* FALL THROUGH */
  1162. #endif
  1163.         case 'o':
  1164. #ifdef ONLY
  1165.         {
  1166. #ifdef FINDNEWNG
  1167.             bool doscan = (*buf == 'a');
  1168. #endif
  1169.  
  1170.             if (!finish_command(TRUE)) /* get rest of command */
  1171.             goto reinp_newsgroup;    /* if rubbed out, try something else */
  1172.             end_only();
  1173.             if (buf[1]) {
  1174.             bool minusd = instr(buf+1,"-d") != Nullch;
  1175.  
  1176.             sw_list(buf+1);
  1177.             if (minusd)
  1178.                 cwd_check();
  1179.             putchar('\n') FLUSH;
  1180. #ifdef FINDNEWNG
  1181.             if (doscan && maxngtodo)
  1182.                 scanactive();
  1183. #endif
  1184.             }
  1185.             ng = 0;        /* simulate ^ */
  1186.             retry = FALSE;
  1187.             break;
  1188.         }
  1189. #else
  1190.             notincl("o");
  1191.             goto reask_newsgroup;
  1192. #endif
  1193.         case '&':
  1194.             if (switcheroo()) /* get rest of command */
  1195.             goto reinp_newsgroup;    /* if rubbed out, try something else */
  1196.             goto reask_newsgroup;
  1197.         case 'l': {        /* list other newsgroups */
  1198.             if (!finish_command(TRUE)) /* get rest of command */
  1199.             goto reinp_newsgroup;    /* if rubbed out, try something else */
  1200.             for (s = buf+1; *s == ' '; s++);
  1201.                         /* skip leading spaces */
  1202.             sprintf(cmd_buf,"%s '%s'",filexp(NEWSGROUPS),s);
  1203.             resetty();
  1204.             if (doshell(sh,cmd_buf))
  1205. #ifdef VERBOSE
  1206.             IF(verbose)
  1207.                 fputs("    (Error from newsgroups program)\n",
  1208.                 stdout) FLUSH;
  1209.             ELSE
  1210. #endif
  1211. #ifdef TERSE
  1212.                 fputs("(Error)\n",stdout) FLUSH;
  1213. #endif
  1214.             noecho();
  1215.             crmode();
  1216.             goto reask_newsgroup;
  1217.         }
  1218.         case '.': case '=':
  1219.         case 'y': case 'Y': /* do normal thing */
  1220.             if (ng >= nextrcline) {
  1221.             fputs("\nNot on a newsgroup.",stdout) FLUSH;
  1222.             goto reask_newsgroup;
  1223.             }
  1224.             if (*buf == '=')
  1225.             s = savestr("=");
  1226.             else if (*buf == '.') {    /* start command? */
  1227.             if (!finish_command(FALSE)) /* get rest of command */
  1228.                 goto reinp_newsgroup;
  1229.             s = savestr(buf+1);
  1230.                     /* do_newsgroup will free it */
  1231.             }
  1232.             else
  1233.             s = Nullch;
  1234.             if (toread[ng])
  1235.             retry = TRUE;
  1236.             switch (do_newsgroup(s)) {
  1237.             case NG_ERROR:
  1238.             case NG_NORM:
  1239.             ng++;
  1240.             break;
  1241.             case NG_ASK:
  1242.             goto reprompt_newsgroup;
  1243.             case NG_MINUS:
  1244.             ng = recent_ng;    /* recall previous newsgroup */
  1245.             special = TRUE;    /* don't skip it if toread==0 */
  1246.             break;
  1247.             }
  1248.             break;
  1249. #ifdef STRICTCR
  1250.         case '\n':
  1251.             fputs(badcr,stdout) FLUSH;
  1252.             goto reask_newsgroup;
  1253. #endif
  1254.         case 'v':
  1255.             printf("\n%s",rnid);
  1256.             printf("\n%s",patchlevel);
  1257.             printf("\nSend bugs to rrn@lib.tmc.edu\n") FLUSH;
  1258.             goto reask_newsgroup;
  1259.         default:
  1260.             printf("\n%s",hforhelp) FLUSH;
  1261.             settle_down();
  1262.             goto reask_newsgroup;
  1263.         }
  1264.         }
  1265.     } while (retry);
  1266.     }
  1267.  
  1268.     /* now write .newsrc back out */
  1269.  
  1270.     write_rc();
  1271.  
  1272.     if (oh_for_the_good_old_days)
  1273.     get_old_rc();
  1274.  
  1275.     finalize(0);            /* and exit */
  1276. }
  1277.  
  1278. /* set current newsgroup */
  1279.  
  1280. void
  1281. set_ngname(what)
  1282. char *what;
  1283. {
  1284.     int len = strlen(what)+1;
  1285.  
  1286.     growstr(&ngname,&ngnlen,len);
  1287.     strcpy(ngname,what);
  1288.     growstr(&ngdir,&ngdlen,len);
  1289.     strcpy(ngdir,getngdir(ngname));
  1290. }
  1291.  
  1292. static char *myngdir;
  1293. static int ngdirlen = 0;
  1294.  
  1295. char *
  1296. getngdir(ngnam)
  1297. char *ngnam;
  1298. {
  1299.     register char *s;
  1300.  
  1301.     growstr(&myngdir,&ngdirlen,strlen(ngnam)+1);
  1302.     strcpy(myngdir,ngnam);
  1303.     for (s = myngdir; *s; s++)
  1304.     if (*s == '.')
  1305.         *s = '/';
  1306.     return myngdir;
  1307. }
  1308.  
  1309. !STUFFY!FUNK!
  1310. echo Extracting sw.c
  1311. cat >sw.c <<'!STUFFY!FUNK!'
  1312. /* $Header: sw.c,v 4.3.2.3 90/05/08 22:06:00 sob Exp $
  1313.  *
  1314.  * $Log:    sw.c,v $
  1315.  * Revision 4.3.2.3  90/05/08  22:06:00  sob
  1316.  * Added quick startup (-q) flag.
  1317.  * 
  1318.  * Revision 4.3.2.2  90/03/22  23:05:34  sob
  1319.  * Fixes provided by Wayne Davison <drivax!davison>
  1320.  * 
  1321.  * Revision 4.3.2.1  89/12/09  00:52:40  sob
  1322.  * Now handles SIGWINCH correctly.
  1323.  * 
  1324.  * Revision 4.3.1.2  85/05/21  13:36:23  lwall
  1325.  * Sped up "rn -c" by not doing unnecessary initialization.
  1326.  * 
  1327.  * Revision 4.3.1.1  85/05/10  11:40:38  lwall
  1328.  * Branch for patches.
  1329.  * 
  1330.  * Revision 4.3  85/05/01  11:50:54  lwall
  1331.  * Baseline for release with 4.3bsd.
  1332.  * 
  1333.  */
  1334.  
  1335. #include "EXTERN.h"
  1336. #include "common.h"
  1337. #include "util.h"
  1338. #include "head.h"
  1339. #include "only.h"
  1340. #include "term.h"
  1341. #include "ng.h"
  1342. #include "intrp.h"
  1343. #include "INTERN.h"
  1344. #include "sw.h"
  1345.  
  1346. void
  1347. sw_init(argc,argv,tcbufptr)
  1348. int argc;
  1349. char *argv[];
  1350. char **tcbufptr;
  1351. {
  1352.     register int i;
  1353.  
  1354.     if (argc >= 2 && strEQ(argv[1],"-c"))
  1355.     checkflag=TRUE;            /* so we can optimize for -c */
  1356.     interp(*tcbufptr,1024,GLOBINIT);
  1357.     sw_file(tcbufptr,FALSE);
  1358.     safecpy(*tcbufptr,getenv("RNINIT"),1024);
  1359.     if (**tcbufptr) {
  1360.     if (**tcbufptr == '/') {
  1361.         sw_file(tcbufptr,TRUE);
  1362.     }
  1363.     else
  1364.         sw_list(*tcbufptr);
  1365.     }
  1366.  
  1367.     for (i = 1; i < argc; i++)
  1368.     decode_switch(argv[i]);
  1369. }
  1370.  
  1371. void
  1372. sw_file(tcbufptr,bleat)
  1373. char **tcbufptr;
  1374. bool bleat;
  1375. {
  1376.     int initfd = open(*tcbufptr,0);
  1377.     
  1378.     if (initfd >= 0) {
  1379.     fstat(initfd,&filestat);
  1380.     if (filestat.st_size > 1024)
  1381.         *tcbufptr = saferealloc(*tcbufptr,(MEM_SIZE)filestat.st_size);
  1382.     if (filestat.st_size) {
  1383.         read(initfd,*tcbufptr,(int)filestat.st_size);
  1384.         (*tcbufptr)[filestat.st_size-1] = '\0';
  1385.                 /* wipe out last newline */
  1386.         sw_list(*tcbufptr);
  1387.     }
  1388.     else
  1389.         **tcbufptr = '\0';
  1390.     close(initfd);
  1391.     }
  1392.     else {
  1393.     if (bleat)
  1394.         printf(cantopen,*tcbufptr) FLUSH;
  1395.     **tcbufptr = '\0';
  1396.     }
  1397. }
  1398.  
  1399. /* decode a list of space separated switches */
  1400.  
  1401. void
  1402. sw_list(swlist)
  1403. char *swlist;
  1404. {
  1405.     char *tmplist = safemalloc((MEM_SIZE) strlen(swlist) + 2);
  1406.                     /* semi-automatic string */
  1407.     register char *p, inquote = 0;
  1408.  
  1409.     strcpy(tmplist,swlist);
  1410.     for (p=tmplist; isspace(*p); p++) ;    /* skip any initial spaces */
  1411.     while (*p) {            /* "String, or nothing" */
  1412.     if (!inquote && isspace(*p)) {    /* word delimiter? */
  1413.         *p++ = '\0';        /* chop here */
  1414.         while (isspace(*p))        /* these will be ignored later */
  1415.         p++;
  1416.     }
  1417.     else if (inquote == *p) {
  1418.         strcpy(p,p+1);        /* delete trailing quote */
  1419.         inquote = 0;        /* no longer quoting */
  1420.     }
  1421.     else if (!inquote && *p == '"' || *p == '\'') {
  1422.                     /* OK, I know when I am not wanted */
  1423.         inquote = *p;        /* remember single or double */
  1424.         strcpy(p,p+1);        /* delete the quote */
  1425.     }                /* (crude, but effective) */
  1426.     else if (*p == '\\') {        /* quoted something? */
  1427.         if (p[1] == '\n')        /* newline? */
  1428.         strcpy(p,p+2);        /* "I didn't see anything" */
  1429.         else {
  1430.         strcpy(p,p+1);        /* delete the backwhack */
  1431.         p++;            /* leave the whatever alone */
  1432.         }
  1433.     }
  1434.     else
  1435.         p++;            /* normal char, leave it alone */
  1436.     }
  1437.     *++p = '\0';            /* put an extra null on the end */
  1438.     if (inquote)
  1439.     printf("Unmatched %c in switch\n",inquote) FLUSH;
  1440.     for (p = tmplist; *p; /* p += strlen(p)+1 */ ) {
  1441.     decode_switch(p);
  1442.     while (*p++) ;            /* point at null + 1 */
  1443.     }
  1444.     free(tmplist);            /* this oughta be in Ada */
  1445. }
  1446.  
  1447. /* decode a single switch */
  1448.  
  1449. void
  1450. decode_switch(s)
  1451. register char *s;
  1452. {
  1453.     while (isspace(*s))            /* ignore leading spaces */
  1454.     s++;
  1455. #ifdef DEBUGGING
  1456.     if (debug)
  1457.     printf("Switch: %s\n",s) FLUSH;
  1458. #endif
  1459.     if (*s != '-' && *s != '+') {    /* newsgroup pattern */
  1460.     setngtodo(s);
  1461.     }
  1462.     else {                /* normal switch */
  1463.     bool upordown = *s == '-' ? TRUE : FALSE;
  1464.     char tmpbuf[LBUFLEN];
  1465.  
  1466.     s++;
  1467.     switch (*s) {
  1468. #ifdef TERMMOD
  1469.     case '=': {
  1470.         char *beg = s+1;
  1471.  
  1472.         while (*s && *s != '-' && *s != '+') s++;
  1473.         cpytill(tmpbuf,beg,*s);
  1474.         if (upordown ? strEQ(getenv("TERM"),tmpbuf)
  1475.                  : strNE(getenv("TERM"),tmpbuf) ) {
  1476.         decode_switch(s);
  1477.         }
  1478.         break;
  1479.     }
  1480. #endif
  1481. #ifdef BAUDMOD
  1482.     case '0': case '1': case '2': case '3': case '4':
  1483.     case '5': case '6': case '7': case '8': case '9':
  1484.         if (upordown ? (just_a_sec*10 <= atoi(s))
  1485.                  : (just_a_sec*10 >= atoi(s)) ) {
  1486.         while (isdigit(*s)) s++;
  1487.         decode_switch(s);
  1488.         }
  1489.         break;
  1490. #endif
  1491.     case '/':
  1492.         if (checkflag)
  1493.         break;
  1494. #ifdef SETENV
  1495.         setenv("SAVEDIR",  upordown ? "%p/%c" : "%p" );
  1496.         setenv("SAVENAME", upordown ? "%a"    : "%^C");
  1497. #else
  1498.         notincl("-/");
  1499. #endif
  1500.         break;
  1501.     case 'c':
  1502.         checkflag = upordown;
  1503.         break;
  1504.     case 'C':
  1505.         s++;
  1506.         if (*s == '=') s++;
  1507.         docheckwhen = atoi(s);
  1508.         break;
  1509.     case 'd': {
  1510.         if (checkflag)
  1511.         break;
  1512.         s++;
  1513.         if (*s == '=') s++;
  1514.         if (cwd) {
  1515.         chdir(cwd);
  1516.         free(cwd);
  1517.         }
  1518.         cwd = savestr(s);
  1519.         break;
  1520.     }
  1521. #ifdef DEBUGGING
  1522.     case 'D':
  1523.         s++;
  1524.         if (*s == '=') s++;
  1525.         if (*s)
  1526.         if (upordown)
  1527.             debug |= atoi(s);
  1528.         else
  1529.             debug &= ~atoi(s);
  1530.         else
  1531.         if (upordown)
  1532.             debug |= 1;
  1533.         else
  1534.             debug = 0;
  1535.         break;
  1536. #endif
  1537.     case 'e':
  1538.         erase_screen = upordown;
  1539.         break;
  1540.     case 'E':
  1541. #ifdef SETENV
  1542.         s++;
  1543.         if (*s == '=')
  1544.         s++;
  1545.         strcpy(tmpbuf,s);
  1546.         s = index(tmpbuf,'=');
  1547.         if (s) {
  1548.         *s++ = '\0';
  1549.         setenv(tmpbuf,s);
  1550.         }
  1551.         else
  1552.         setenv(tmpbuf,nullstr);
  1553. #else
  1554.         notincl("-E");
  1555. #endif
  1556.         break;
  1557.     case 'F':
  1558.         s++;
  1559.         indstr = savestr(s);
  1560.         break;
  1561. #ifdef INNERSEARCH
  1562.     case 'g':
  1563.         gline = atoi(s+1)-1;
  1564.         break;
  1565. #endif
  1566.     case 'H':
  1567.     case 'h': {
  1568.         register int len, i;
  1569.         char *t;
  1570.         int flag = (*s == 'h' ? HT_HIDE : HT_MAGIC);
  1571.         
  1572.         if (checkflag)
  1573.         break;
  1574.         s++;
  1575.         len = strlen(s);
  1576.         for (t=s; *t; t++)
  1577.         if (isupper(*t))
  1578.            *t = tolower(*t);
  1579.         for (i=HEAD_FIRST; i<HEAD_LAST; i++)
  1580.         if (!len || strnEQ(s,htype[i].ht_name,len))
  1581.             if (upordown)
  1582.             htype[i].ht_flags |= flag;
  1583.             else
  1584.             htype[i].ht_flags &= ~flag;
  1585.         break;
  1586.     }
  1587.     case 'i':
  1588.         s++;
  1589.         if (*s == '=') s++;
  1590.         initlines = atoi(s);
  1591.         initlines_specified = TRUE;
  1592.         break;
  1593.     case 'l':
  1594.         muck_up_clear = upordown;
  1595.         break;
  1596.     case 'L':
  1597. #ifdef CLEAREOL
  1598.         can_home_clear = upordown;
  1599. #else
  1600.         notincl("-L");
  1601. #endif
  1602.         break;
  1603.     case 'M':
  1604.         mbox_always = upordown;
  1605.         break;
  1606.     case 'm':
  1607.         s++;
  1608.         if (*s == '=') s++;
  1609.         if (!upordown)
  1610.         marking = NOMARKING;
  1611.         else if (*s == 'u')
  1612.         marking = UNDERLINE;
  1613.         else {
  1614.         marking = STANDOUT;
  1615.         }
  1616.         break;
  1617.     case 'N':
  1618.         norm_always = upordown;
  1619.         break;
  1620. #ifdef VERBOSE
  1621.     case 'n':
  1622.         fputs("This isn't readnews.  Don't use -n.\n\n",stdout) FLUSH;
  1623.         break;
  1624. #endif
  1625.     case 'r':
  1626.         findlast = upordown;
  1627.         break;
  1628.     case 's':
  1629.         s++;
  1630.         if (*s == '=') s++;
  1631.         if (*s) {
  1632.         countdown = atoi(s);
  1633.         suppress_cn = FALSE;
  1634.         }
  1635.         else {
  1636.         if (!upordown)
  1637.             countdown = 5;
  1638.         suppress_cn = upordown;
  1639.         }
  1640.         break;
  1641.     case 'S':
  1642. #ifdef ARTSEARCH
  1643.         s++;
  1644.         if (*s == '=') s++;
  1645.         if (*s)
  1646.         scanon = atoi(s);
  1647.         else
  1648.         scanon = upordown*3;
  1649. #else
  1650.         notincl("-S");
  1651. #endif
  1652.         break;
  1653.     case 't':
  1654. #ifdef VERBOSE
  1655. #ifdef TERSE
  1656.         verbose = !upordown;
  1657. #else
  1658.         notincl("+t");
  1659. #endif
  1660. #else
  1661.         notincl("+t");
  1662. #endif
  1663.         break;
  1664.     case 'T':
  1665.         typeahead = upordown;
  1666.         break;
  1667.     case 'v':
  1668. #ifdef VERIFY
  1669.         verify = upordown;
  1670. #else
  1671.         notincl("-v");
  1672. #endif
  1673.         break;
  1674.     /*
  1675.      * People want a way to avoid checking for new newsgroups on startup.
  1676.      */
  1677.     case 'q':
  1678.         quickstart = upordown;
  1679.         break;
  1680.     default:
  1681. #ifdef VERBOSE
  1682.         IF(verbose)
  1683.         printf("\nIgnoring unrecognized switch: -%c\n", *s) FLUSH;
  1684.         ELSE
  1685. #endif
  1686. #ifdef TERSE
  1687.         printf("\nIgnoring -%c\n", *s) FLUSH;
  1688. #endif
  1689.         break;
  1690.     }
  1691.     }
  1692. }
  1693.  
  1694. /* print current switch values */
  1695.  
  1696. void
  1697. pr_switches()
  1698. {
  1699.     static char mp[2] = {'+','-'};
  1700.     register int i;
  1701.     
  1702.     fputs("\nCurrent switch settings:\n",stdout);
  1703.     printf("%c/ ", mp[strEQ(getval("SAVEDIR",SAVEDIR),"%p/%c")]);
  1704.     printf("%cc ", mp[checkflag]);
  1705.     printf("-C%d ", docheckwhen);
  1706.     printf("-d%s ", cwd);
  1707. #ifdef DEBUGGING
  1708.     if (debug)
  1709.     printf("-D%d ", debug);
  1710. #endif
  1711.     printf("%ce ", mp[erase_screen]);
  1712.     printf("-F\"%s\" ", indstr);
  1713. #ifdef INNERSEARCH
  1714.     printf("-g%d", gline);
  1715. #endif
  1716.     putchar('\n');
  1717. #ifdef VERBOSE
  1718.     if (verbose) {
  1719.     for (i=HEAD_FIRST; i<HEAD_LAST; i++)
  1720.         printf("%ch%s%c",
  1721.         mp[htype[i].ht_flags & HT_HIDE], htype[i].ht_name,
  1722.         (! (i % 5) ? '\n' : ' ') );
  1723.     }
  1724. #endif
  1725.     printf("-i%d ", initlines);
  1726.     printf("%cl ", mp[muck_up_clear]);
  1727. #ifdef CLEAREOL
  1728.     printf("%cL ", mp[can_home_clear]);
  1729. #endif CLEAREOL
  1730.     if (marking)
  1731.     printf("-m%c ",marking==UNDERLINE?'u':'s');
  1732.     else
  1733.     printf("+m ");
  1734.     printf("%cM ", mp[mbox_always]);
  1735.     printf("%cN ", mp[norm_always]);
  1736.     printf("%cr ", mp[findlast]);
  1737.     if (countdown)
  1738.     printf("-s%d ", countdown);
  1739.     else
  1740.     printf("%cs ", mp[suppress_cn]);
  1741. #ifdef ARTSEARCH
  1742.     if (scanon)
  1743.     printf("-S%d ",scanon);
  1744.     else
  1745.     printf("+S ");
  1746. #endif
  1747. #ifdef VERBOSE
  1748. #ifdef TERSE
  1749.     printf("%ct ", mp[!verbose]);
  1750. #endif
  1751. #endif
  1752.     printf("%cT ", mp[typeahead]);
  1753. #ifdef VERIFY
  1754.     printf("%cv ", mp[verify]);
  1755. #endif
  1756.     fputs("\n\n",stdout) FLUSH;
  1757. #ifdef ONLY
  1758.     if (maxngtodo) {
  1759. #ifdef VERBOSE
  1760.     IF(verbose)
  1761.         fputs("Current restriction:",stdout);
  1762.     ELSE
  1763. #endif
  1764. #ifdef TERSE
  1765.         fputs("Only:",stdout);
  1766. #endif
  1767.     for (i=0; i<maxngtodo; i++)
  1768.         printf(" %s",ngtodo[i]);
  1769.     fputs("\n\n",stdout) FLUSH;
  1770.     }
  1771. #ifdef VERBOSE
  1772.     else if (verbose)
  1773.     fputs("No restriction.\n\n",stdout) FLUSH;
  1774. #endif
  1775. #endif
  1776. }
  1777.  
  1778. void
  1779. cwd_check()
  1780. {
  1781.     char tmpbuf[LBUFLEN];
  1782.  
  1783.     if (!cwd)
  1784.     cwd = savestr(filexp("~/News"));
  1785.     strcpy(tmpbuf,cwd);
  1786.     if (chdir(cwd)) {
  1787.     safecpy(tmpbuf,filexp(cwd),sizeof tmpbuf);
  1788.     if (makedir(tmpbuf,MD_DIR) < 0 || chdir(tmpbuf) < 0) {
  1789.         interp(cmd_buf, (sizeof cmd_buf), "%~/News");
  1790.         if (makedir(cmd_buf,MD_DIR) < 0)
  1791.         strcpy(tmpbuf,homedir);
  1792.         else
  1793.         strcpy(tmpbuf,cmd_buf);
  1794.         chdir(tmpbuf);
  1795. #ifdef VERBOSE
  1796.         IF(verbose)
  1797.         printf("\
  1798. Cannot make directory %s--\n\
  1799.     articles will be saved to %s\n\
  1800. \n\
  1801. ",cwd,tmpbuf) FLUSH;
  1802.         ELSE
  1803. #endif
  1804. #ifdef TERSE
  1805.         printf("\
  1806. Can't make %s--\n\
  1807.     using %s\n\
  1808. \n\
  1809. ",cwd,tmpbuf) FLUSH;
  1810. #endif
  1811.     }
  1812.     }
  1813.     free(cwd);
  1814.     getwd(tmpbuf);
  1815.     if (eaccess(tmpbuf,2)) {
  1816. #ifdef VERBOSE
  1817.     IF(verbose)
  1818.         printf("\
  1819. Current directory %s is not writeable--\n\
  1820.     articles will be saved to home directory\n\n\
  1821. ",tmpbuf) FLUSH;
  1822.     ELSE
  1823. #endif
  1824. #ifdef TERSE
  1825.         printf("%s not writeable--using ~\n\n",tmpbuf) FLUSH;
  1826. #endif
  1827.     strcpy(tmpbuf,homedir);
  1828.     }
  1829.     cwd = savestr(tmpbuf);
  1830. }
  1831. !STUFFY!FUNK!
  1832. echo Extracting respond.c
  1833. cat >respond.c <<'!STUFFY!FUNK!'
  1834. /* $Header: respond.c,v 4.3.2.3 90/03/22 23:05:19 sob Exp $
  1835.  *
  1836.  * $Log:    respond.c,v $
  1837.  * Revision 4.3.2.3  90/03/22  23:05:19  sob
  1838.  * Fixes provided by Wayne Davison <drivax!davison>
  1839.  * 
  1840.  * Revision 4.3.2.2  89/11/26  18:25:10  sob
  1841.  * Enlarged the size of the header buffer to accomodate long references lines.
  1842.  * Fix provided by Joe Buck.
  1843.  * 
  1844.  * Revision 4.3.2.1  89/11/06  01:00:26  sob
  1845.  * Added RRN support from NNTP 1.5
  1846.  * 
  1847.  * Revision 4.3.1.5  85/09/10  11:05:00  lwall
  1848.  * Improved %m in in_char().
  1849.  * 
  1850.  * Revision 4.3.1.4  85/05/23  17:24:49  lwall
  1851.  * Now allows 'r' and 'f' on null articles.
  1852.  * 
  1853.  * Revision 4.3.1.3  85/05/15  14:42:32  lwall
  1854.  * Removed duplicate include of intrp.h.
  1855.  * 
  1856.  * Revision 4.3.1.2  85/05/14  08:55:15  lwall
  1857.  * Default for normal/mailbox question was applied to wrong buffer.
  1858.  * 
  1859.  * Revision 4.3.1.1  85/05/10  11:37:33  lwall
  1860.  * Branch for patches.
  1861.  * 
  1862.  * Revision 4.3  85/05/01  11:47:04  lwall
  1863.  * Baseline for release with 4.3bsd.
  1864.  * 
  1865.  */
  1866.  
  1867. #include "EXTERN.h"
  1868. #include "common.h"
  1869. #include "intrp.h"
  1870. #include "head.h"
  1871. #include "term.h"
  1872. #include "ng.h"
  1873. #include "util.h"
  1874. #include "rn.h"
  1875. #include "artio.h"
  1876. #include "final.h"
  1877. #include "INTERN.h"
  1878. #include "respond.h"
  1879.  
  1880. static char nullart[] = "\nNull article\n";
  1881.  
  1882. void
  1883. respond_init()
  1884. {
  1885.     ;
  1886. }
  1887.  
  1888. int
  1889. save_article()
  1890. {
  1891.     bool use_pref;
  1892.     register char *s, *c;
  1893.     char altbuf[CBUFLEN];
  1894.     int iter;
  1895.     bool interactive = (buf[1] == FINISHCMD);
  1896.     
  1897.     if (!finish_command(interactive))    /* get rest of command */
  1898.     return SAVE_ABORT;
  1899.     use_pref = isupper(*buf);
  1900. #ifdef ASYNC_PARSE
  1901.     parse_maybe(art);
  1902. #endif
  1903.     savefrom = (*buf=='w' || *buf=='W' ? htype[PAST_HEADER].ht_minpos : 0);
  1904.     if (artopen(art) == Nullfp) {
  1905. #ifdef VERBOSE
  1906.     IF(verbose)
  1907.         fputs("\n\
  1908. Saving null articles is not very productive!  :-)\n\
  1909. ",stdout) FLUSH;
  1910.     ELSE
  1911. #endif
  1912. #ifdef TERSE
  1913.         fputs(nullart,stdout) FLUSH;
  1914. #endif
  1915.     return SAVE_DONE;
  1916.     }
  1917.     if (chdir(cwd)) {
  1918.     printf(nocd,cwd) FLUSH;
  1919.     sig_catcher(0);
  1920.     }
  1921.     if (savedest)
  1922.     free(savedest);
  1923.     if ((s = index(buf,'|')) != Nullch) {
  1924.                 /* is it a pipe command? */
  1925.     s++;            /* skip the | */
  1926.     while (*s == ' ') s++;
  1927.     safecpy(altbuf,filexp(s),sizeof altbuf);
  1928.     savedest = altbuf;
  1929.     interp(cmd_buf, (sizeof cmd_buf), getval("PIPESAVER",PIPESAVER));
  1930.                 /* then set up for command */
  1931.     resetty();        /* restore tty state */
  1932.     if (use_pref)        /* use preferred shell? */
  1933.         doshell(Nullch,cmd_buf);
  1934.                 /* do command with it */
  1935.     else
  1936.         doshell(sh,cmd_buf);    /* do command with sh */
  1937.     noecho();        /* and stop echoing */
  1938.     crmode();        /* and start cbreaking */
  1939.     savedest = savestr(savedest);
  1940.     }
  1941.     else {            /* normal save */
  1942.     bool there, mailbox;
  1943.     char *savename = getval("SAVENAME",SAVENAME);
  1944.  
  1945.     s = buf+1;        /* skip s or S */
  1946.     if (*s == '-') {    /* if they are confused, skip - also */
  1947. #ifdef VERBOSE
  1948.         IF(verbose)
  1949.         fputs("Warning: '-' ignored.  This isn't readnews.\n",stdout)
  1950.           FLUSH;
  1951.         ELSE
  1952. #endif
  1953. #ifdef TERSE
  1954.         fputs("'-' ignored.\n",stdout) FLUSH;
  1955. #endif
  1956.         s++;
  1957.     }
  1958.     for (; *s == ' '; s++);    /* skip spaces */
  1959.     safecpy(altbuf,filexp(s),sizeof altbuf);
  1960.     s = altbuf;
  1961.     if (! index(s,'/')) {
  1962.         interp(buf, (sizeof buf), getval("SAVEDIR",SAVEDIR));
  1963.         if (makedir(buf,MD_DIR))    /* ensure directory exists */
  1964.         strcpy(buf,cwd);
  1965.         if (*s) {
  1966.         for (c = buf; *c; c++) ;
  1967.         *c++ = '/';
  1968.         strcpy(c,s);        /* add filename */
  1969.         }
  1970.         s = buf;
  1971.     }
  1972.     for (iter = 0;
  1973.         (there = stat(s,&filestat) >= 0) &&
  1974.         (filestat.st_mode & S_IFDIR);
  1975.         iter++) {            /* is it a directory? */
  1976.  
  1977.         c = (s+strlen(s));
  1978.         *c++ = '/';            /* put a slash before filename */
  1979.         interp(c, s==buf?(sizeof buf):(sizeof altbuf),
  1980.         iter ? "News" : savename );
  1981.                 /* generate a default name somehow or other */
  1982.         if (index(c,'/')) {        /* yikes, a '/' in the filename */
  1983.         makedir(s,MD_FILE);
  1984.         }
  1985.     }
  1986.     if (*s != '/') {        /* relative path? */
  1987.         c = (s==buf ? altbuf : buf);
  1988.         sprintf(c, "%s/%s", cwd, s);
  1989.         s = c;            /* absolutize it */
  1990.     }
  1991.     s = savedest = savestr(s);    /* doesn't move any more */
  1992.                     /* make it handy for %b */
  1993.     if (!there) {
  1994.         if (mbox_always)
  1995.         mailbox = TRUE;
  1996.         else if (norm_always)
  1997.         mailbox = FALSE;
  1998.         else {
  1999.         char *dflt = (instr(savename,"%a") ? "nyq" : "ynq");
  2000.         
  2001.         sprintf(cmd_buf,
  2002.         "\nFile %s doesn't exist--\n    use mailbox format? [%s] ",
  2003.           s,dflt);
  2004.           reask_save:
  2005.         in_char(cmd_buf, 'M');
  2006.         putchar('\n') FLUSH;
  2007.         setdef(buf,dflt);
  2008. #ifdef VERIFY
  2009.         printcmd();
  2010. #endif
  2011.         if (*buf == 'h') {
  2012. #ifdef VERBOSE
  2013.             IF(verbose)
  2014.             printf("\n\
  2015. Type y to create %s as a mailbox.\n\
  2016. Type n to create it as a normal file.\n\
  2017. Type q to abort the save.\n\
  2018. ",s) FLUSH;
  2019.             ELSE
  2020. #endif
  2021. #ifdef TERSE
  2022.             fputs("\n\
  2023. y to create mailbox.\n\
  2024. n to create normal file.\n\
  2025. q to abort.\n\
  2026. ",stdout) FLUSH;
  2027. #endif
  2028.             goto reask_save;
  2029.         }
  2030.         else if (*buf == 'n') {
  2031.             mailbox = FALSE;
  2032.         }
  2033.         else if (*buf == 'y') {
  2034.             mailbox = TRUE;
  2035.         }
  2036.         else if (*buf == 'q') {
  2037.             goto s_bomb;
  2038.         }
  2039.         else {
  2040.             fputs(hforhelp,stdout) FLUSH;
  2041.             settle_down();
  2042.             goto reask_save;
  2043.         }
  2044.         }
  2045.     }
  2046.     else if (filestat.st_mode & S_IFCHR)
  2047.         mailbox = FALSE;
  2048.     else {
  2049.         int tmpfd;
  2050.         
  2051.         tmpfd = open(s,0);
  2052.         if (tmpfd == -1)
  2053.         mailbox = FALSE;
  2054.         else {
  2055.         read(tmpfd,buf,LBUFLEN);
  2056.         c = buf;
  2057.         if (!isspace(MBOXCHAR))
  2058.             while (isspace(*c))
  2059.             c++;
  2060.         mailbox = (*c == MBOXCHAR);
  2061.         close(tmpfd);
  2062.         }
  2063.     }
  2064.  
  2065.     safecpy(cmd_buf, filexp(mailbox ?
  2066.         getval("MBOXSAVER",MBOXSAVER) :
  2067.         getval("NORMSAVER",NORMSAVER) ), sizeof cmd_buf);
  2068.                 /* format the command */
  2069.     resetty();        /* make terminal behave */
  2070.     if (doshell(use_pref?Nullch:SH,cmd_buf))
  2071.         fputs("Not saved",stdout);
  2072.     else
  2073.         printf("%s to %s %s",
  2074.           there?"Appended":"Saved",
  2075.           mailbox?"mailbox":"file",
  2076.           s);
  2077.     if (interactive)
  2078.         putchar('\n') FLUSH;
  2079.     noecho();        /* make terminal do what we want */
  2080.     crmode();
  2081.     }
  2082. s_bomb:
  2083. #ifdef SERVER
  2084.     if (chdir(spool)) {
  2085. #else not SERVER
  2086.     if (chdir(spool) || chdir(ngdir)) {
  2087. #endif SERVER
  2088.     printf(nocd,ngdir) FLUSH;
  2089.     sig_catcher(0);
  2090.     }
  2091.     return SAVE_DONE;
  2092. }
  2093.  
  2094. int
  2095. cancel_article()
  2096. {
  2097.     char *artid_buf;
  2098.     char *ngs_buf;
  2099.     char *from_buf;
  2100.     char *reply_buf;
  2101.     int myuid = getuid();
  2102.     int r = -1;
  2103.  
  2104.     if (artopen(art) == Nullfp) {
  2105. #ifdef VERBOSE
  2106.     IF(verbose)
  2107.         fputs("\n\
  2108. Cancelling null articles is your idea of fun?  :-)\n\
  2109. ",stdout) FLUSH;
  2110.     ELSE
  2111. #endif
  2112. #ifdef TERSE
  2113.         fputs(nullart,stdout) FLUSH;
  2114. #endif
  2115.     return r;
  2116.     }
  2117.     reply_buf = fetchlines(art,REPLY_LINE);
  2118.     from_buf = fetchlines(art,FROM_LINE);
  2119.     artid_buf = fetchlines(art,ARTID_LINE);
  2120.     ngs_buf = fetchlines(art,NGS_LINE);
  2121.     if (!instr(from_buf,sitename) ||
  2122.     (!instr(from_buf,logname) &&
  2123.      !instr(reply_buf,logname) &&
  2124. #ifdef NEWSADMIN
  2125.      myuid != newsuid &&
  2126. #endif
  2127.      myuid != ROOTID ) )
  2128. #ifdef VERBOSE
  2129.         IF(verbose)
  2130.         fputs("\nYou can't cancel someone else's article\n",stdout)
  2131.           FLUSH;
  2132.         ELSE
  2133. #endif
  2134. #ifdef TERSE
  2135.         fputs("\nNot your article\n",stdout) FLUSH;
  2136. #endif
  2137.     else {
  2138.     tmpfp = fopen(headname,"w");    /* open header file */
  2139.     if (tmpfp == Nullfp) {
  2140.         printf(cantcreate,headname) FLUSH;
  2141.         goto no_cancel;
  2142.     }
  2143.     interp(buf, (sizeof buf), getval("CANCELHEADER",CANCELHEADER));
  2144.     fputs(buf,tmpfp);
  2145.     fclose(tmpfp);
  2146.     fputs("\nCanceling...\n",stdout) FLUSH;
  2147.     r = doshell(sh,filexp(getval("CANCEL",CANCEL)));
  2148.     }
  2149. no_cancel:
  2150.     free(artid_buf);
  2151.     free(ngs_buf);
  2152.     free(from_buf);
  2153.     free(reply_buf);
  2154.     return r;
  2155. }
  2156.  
  2157. void
  2158. reply()
  2159. {
  2160.     bool incl_body = (*buf == 'R');
  2161.     char *maildoer = savestr(filexp(getval("MAILPOSTER",MAILPOSTER)));
  2162.  
  2163.     artopen(art);
  2164.     tmpfp = fopen(headname,"w");    /* open header file */
  2165.     if (tmpfp == Nullfp) {
  2166.     printf(cantcreate,headname) FLUSH;
  2167.     goto no_reply;
  2168.     }
  2169.     interp(buf, (sizeof buf), getval("MAILHEADER",MAILHEADER));
  2170.     fputs(buf,tmpfp);
  2171.     if (!instr(maildoer,"%h"))
  2172. #ifdef VERBOSE
  2173.     IF(verbose)
  2174.         printf("\n%s\n(Above lines saved in file %s)\n",buf,headname)
  2175.           FLUSH;
  2176.     ELSE
  2177. #endif
  2178. #ifdef TERSE
  2179.         printf("\n%s\n(Header in %s)\n",buf,headname) FLUSH;
  2180. #endif
  2181.     if (incl_body && artfp != Nullfp) {
  2182.     interp(buf, (sizeof buf), getval("YOUSAID",YOUSAID));
  2183.     fprintf(tmpfp,"%s\n",buf);
  2184. #ifdef ASYNC_PARSE
  2185.     parse_maybe(art);
  2186. #endif
  2187.     fseek(artfp,(long)htype[PAST_HEADER].ht_minpos,0);
  2188.     while (fgets(buf,LBUFLEN,artfp) != Nullch) {
  2189.         fprintf(tmpfp,"%s%s",indstr,buf);
  2190.     }
  2191.     fprintf(tmpfp,"\n");
  2192.     }
  2193.     fclose(tmpfp);
  2194.     interp(cmd_buf, (sizeof cmd_buf), maildoer);
  2195.     invoke(cmd_buf,origdir);
  2196.     UNLINK(headname);        /* kill the header file */
  2197. no_reply:
  2198.     free(maildoer);
  2199. }
  2200.  
  2201. void
  2202. followup()
  2203. {
  2204.     bool incl_body = (*buf == 'F');
  2205.     char hbuf[4*LBUFLEN];    /* four times the old size */
  2206.  
  2207.     artopen(art);
  2208.     tmpfp = fopen(headname,"w");
  2209.     if (tmpfp == Nullfp) {
  2210.     printf(cantcreate,headname) FLUSH;
  2211.     return;
  2212.     }
  2213.     interp(hbuf, (sizeof hbuf), getval("NEWSHEADER",NEWSHEADER));
  2214.     fprintf(tmpfp,"%s",hbuf);
  2215.     if (incl_body && artfp != Nullfp) {
  2216. #ifdef VERBOSE
  2217.     if (verbose)
  2218.         fputs("\n\
  2219. (Be sure to double-check the attribution against the signature, and\n\
  2220. trim the quoted article down as much as possible.)\n\
  2221. ",stdout) FLUSH;
  2222. #endif
  2223.     interp(buf, (sizeof buf), getval("ATTRIBUTION",ATTRIBUTION));
  2224.     fprintf(tmpfp,"%s\n",buf);
  2225. #ifdef ASYNC_PARSE
  2226.     parse_maybe(art);
  2227. #endif
  2228.     fseek(artfp,(long)htype[PAST_HEADER].ht_minpos,0);
  2229.     while (fgets(buf,LBUFLEN,artfp) != Nullch) {
  2230.         fprintf(tmpfp,"%s%s",indstr,buf);
  2231.     }
  2232.     fprintf(tmpfp,"\n");
  2233.     }
  2234.     fclose(tmpfp);
  2235.     safecpy(cmd_buf,filexp(getval("NEWSPOSTER",NEWSPOSTER)),sizeof cmd_buf);
  2236.     invoke(cmd_buf,origdir);
  2237.     UNLINK(headname);
  2238. }
  2239.  
  2240. void
  2241. invoke(cmd,dir)
  2242. char *cmd,*dir;
  2243. {
  2244.     if (chdir(dir)) {
  2245.     printf(nocd,dir) FLUSH;
  2246.     return;
  2247.     }
  2248. #ifdef VERBOSE
  2249.     IF(verbose)
  2250.     printf("\n(leaving cbreak mode; cwd=%s)\nInvoking command: %s\n\n",
  2251.         dir,cmd) FLUSH;
  2252.     ELSE
  2253. #endif
  2254. #ifdef TERSE
  2255.     printf("\n(-cbreak; cwd=%s)\nInvoking: %s\n\n",dir,cmd) FLUSH;
  2256. #endif
  2257.     resetty();            /* make terminal well-behaved */
  2258.     doshell(sh,cmd);        /* do the command */
  2259.     noecho();            /* set no echo */
  2260.     crmode();            /* and cbreak mode */
  2261. #ifdef VERBOSE
  2262.     IF(verbose)
  2263.     fputs("\n(re-entering cbreak mode)\n",stdout) FLUSH;
  2264.     ELSE
  2265. #endif
  2266. #ifdef TERSE
  2267.     fputs("\n(+cbreak)\n",stdout) FLUSH;
  2268. #endif
  2269. #ifdef SERVER
  2270.     if (chdir(spool)) {
  2271. #else not SERVER
  2272.     if (chdir(spool) || chdir(ngdir)) {
  2273. #endif SERVER
  2274.     printf(nocd,ngdir) FLUSH;
  2275.     sig_catcher(0);
  2276.     }
  2277. }
  2278.  
  2279. !STUFFY!FUNK!
  2280. echo Extracting util.c
  2281. cat >util.c <<'!STUFFY!FUNK!'
  2282. /* $Header: util.c,v 4.3.2.6 90/04/23 00:24:42 sob Exp $
  2283.  *
  2284.  * $Log:    util.c,v $
  2285.  * Revision 4.3.2.6  90/04/23  00:24:42  sob
  2286.  * A bit of clean up.
  2287.  * 
  2288.  * Revision 4.3.2.5  90/03/17  21:34:21  sob
  2289.  * Reworked VOIDSIG into SIGRET.
  2290.  * 
  2291.  * Revision 4.3.2.4  89/12/14  23:58:54  sob
  2292.  * Fixed small bug reported by fletcher@cs.utexas.edu in getwd().
  2293.  * 
  2294.  * Revision 4.3.2.3  89/11/08  04:47:11  sob
  2295.  * Added VOIDSIG handling for SunOS 4.X
  2296.  * 
  2297.  * Revision 4.3.2.2  89/11/07  23:19:35  sob
  2298.  * Bug fixes for SIGSTP problems
  2299.  * 
  2300.  * Revision 4.3.2.1  89/11/06  01:03:21  sob
  2301.  * Added RRN support from NNTP 1.5
  2302.  * 
  2303.  * Revision 4.3.1.2  85/05/15  14:44:27  lwall
  2304.  * Last arg of execl changed from 0 to Nullch [(char*)0].
  2305.  * 
  2306.  * Revision 4.3.1.1  85/05/10  11:41:30  lwall
  2307.  * Branch for patches.
  2308.  * 
  2309.  * Revision 4.3  85/05/01  11:51:44  lwall
  2310.  * Baseline for release with 4.3bsd.
  2311.  * 
  2312.  */
  2313.  
  2314. #include "EXTERN.h"
  2315. #include "common.h"
  2316. #include "final.h"
  2317. #include "ndir.h"
  2318. #include "INTERN.h"
  2319. #include "util.h"
  2320.  
  2321. void
  2322. util_init()
  2323. {
  2324.     ;
  2325. }
  2326.     
  2327. /* fork and exec a shell command */
  2328.  
  2329. int
  2330. doshell(shl,s)
  2331. char *s, *shl;
  2332. {
  2333.     int status, pid, w;
  2334.     SIGRET (*signal())();
  2335.     char *shell;
  2336.  
  2337. #ifdef SIGTSTP
  2338.     sigset(SIGTSTP,SIG_DFL);
  2339.     sigset(SIGTTOU,SIG_DFL);
  2340.     sigset(SIGTTIN,SIG_DFL);
  2341. #endif
  2342.     if (shl != Nullch)
  2343.     shell = shl;
  2344.     else if ((shell = getenv("SHELL")) == Nullch || !*shell)
  2345.     shell = PREFSHELL;
  2346.     if ((pid = vfork()) == 0) {
  2347. #ifdef SERVER
  2348.         int i;
  2349.  
  2350.     /* This is necessary to keep bourne shell from puking */
  2351.  
  2352.         for (i = 3; i < 10; ++i)
  2353.                 close(i);
  2354. #endif SERVER
  2355.  
  2356.     if (*s)
  2357.         execl(shell, shell, "-c", s, Nullch);
  2358.     else
  2359.         execl(shell, shell, Nullch, Nullch, Nullch);
  2360.     _exit(127);
  2361.     }
  2362.     signal(SIGINT, SIG_IGN);
  2363.     signal(SIGQUIT, SIG_IGN);
  2364.     waiting = TRUE;
  2365.     while ((w = wait(&status)) != pid && w != -1)
  2366.     ;
  2367.     if (w == -1)
  2368.     status = -1;
  2369.     waiting = FALSE;
  2370.     sigset(SIGINT, int_catcher);    /* always catch interrupts */
  2371.     signal(SIGQUIT, SIG_DFL);
  2372. #ifdef SIGTSTP
  2373.     sigset(SIGTSTP,stop_catcher);
  2374.     sigset(SIGTTOU,stop_catcher);
  2375.     sigset(SIGTTIN,stop_catcher);
  2376. #endif
  2377.     return status;
  2378. }
  2379.  
  2380. static char nomem[] = "rn: out of memory!\n";
  2381.  
  2382. /* paranoid version of malloc */
  2383.  
  2384. char *
  2385. safemalloc(size)
  2386. MEM_SIZE size;
  2387. {
  2388.     char *ptr;
  2389.     char *malloc();
  2390.  
  2391.     ptr = malloc(size?size:1);    /* malloc(0) is NASTY on our system */
  2392.     if (ptr != Nullch)
  2393.     return ptr;
  2394.     else {
  2395.     fputs(nomem,stdout) FLUSH;
  2396.     sig_catcher(0);
  2397.     }
  2398.     /*NOTREACHED*/
  2399. }
  2400.  
  2401. /* paranoid version of realloc */
  2402.  
  2403. char *
  2404. saferealloc(where,size)
  2405. char *where;
  2406. MEM_SIZE size;
  2407. {
  2408.     char *ptr;
  2409.     char *realloc();
  2410.  
  2411.     ptr = realloc(where,size?size:1);    /* realloc(0) is NASTY on our system */
  2412.     if (ptr != Nullch)
  2413.     return ptr;
  2414.     else {
  2415.     fputs(nomem,stdout) FLUSH;
  2416.     sig_catcher(0);
  2417.     }
  2418.     /*NOTREACHED*/
  2419. }
  2420.  
  2421. /* safe version of string copy */
  2422.  
  2423. char *
  2424. safecpy(to,from,len)
  2425. char *to;
  2426. register char *from;
  2427. register int len;
  2428. {
  2429.     register char *dest = to;
  2430.  
  2431.     if (from != Nullch) 
  2432.     for (len--; len && (*dest++ = *from++); len--) ;
  2433.     *dest = '\0';
  2434.     return to;
  2435. }
  2436.  
  2437. /* safe version of string concatenate, with \n deletion and space padding */
  2438.  
  2439. char *
  2440. safecat(to,from,len)
  2441. char *to;
  2442. register char *from;
  2443. register int len;
  2444. {
  2445.     register char *dest = to;
  2446.  
  2447.     len--;                /* leave room for null */
  2448.     if (*dest) {
  2449.     while (len && *dest++) len--;
  2450.     if (len) {
  2451.         len--;
  2452.         *(dest-1) = ' ';
  2453.     }
  2454.     }
  2455.     if (from != Nullch)
  2456.     while (len && (*dest++ = *from++)) len--;
  2457.     if (len)
  2458.     dest--;
  2459.     if (*(dest-1) == '\n')
  2460.     dest--;
  2461.     *dest = '\0';
  2462.     return to;
  2463. }
  2464.  
  2465. /* copy a string up to some (non-backslashed) delimiter, if any */
  2466.  
  2467. char *
  2468. cpytill(to,from,delim)
  2469. register char *to, *from;
  2470. register int delim;
  2471. {
  2472.     for (; *from; from++,to++) {
  2473.     if (*from == '\\' && from[1] == delim)
  2474.         from++;
  2475.     else if (*from == delim)
  2476.         break;
  2477.     *to = *from;
  2478.     }
  2479.     *to = '\0';
  2480.     return from;
  2481. }
  2482.  
  2483. /* return ptr to little string in big string, NULL if not found */
  2484.  
  2485. char *
  2486. instr(big, little)
  2487. char *big, *little;
  2488.  
  2489. {
  2490.     register char *t, *s, *x;
  2491.  
  2492.     for (t = big; *t; t++) {
  2493.     for (x=t,s=little; *s; x++,s++) {
  2494.         if (!*x)
  2495.         return Nullch;
  2496.         if (*s != *x)
  2497.         break;
  2498.     }
  2499.     if (!*s)
  2500.         return t;
  2501.     }
  2502.     return Nullch;
  2503. }
  2504.  
  2505. /* effective access */
  2506.  
  2507. #ifdef SETUIDGID
  2508. int
  2509. eaccess(filename, mod)
  2510. char *filename;
  2511. int mod;
  2512. {
  2513.     int protection, euid;
  2514.     
  2515.     mod &= 7;                /* remove extraneous garbage */
  2516.     if (stat(filename, &filestat) < 0)
  2517.     return -1;
  2518.     euid = geteuid();
  2519.     if (euid == ROOTID)
  2520.     return 0;
  2521.     protection = 7 & (filestat.st_mode >>
  2522.       (filestat.st_uid == euid ? 6 :
  2523.         (filestat.st_gid == getegid() ? 3 : 0)
  2524.       ));
  2525.     if ((mod & protection) == mod)
  2526.     return 0;
  2527.     errno = EACCES;
  2528.     return -1;
  2529. }
  2530. #endif
  2531.  
  2532. /*
  2533.  * Get working directory
  2534.  */
  2535. #ifdef GETCWD
  2536. char *
  2537. getwd(np)
  2538. char *np;
  2539. {
  2540.     char * name;
  2541.     extern char * getcwd();
  2542.     name = getcwd(np,1024);
  2543.     return(name);
  2544. }
  2545. #else
  2546. #ifndef GETWD
  2547. char *
  2548. getwd(np)            /* shorter but slower */
  2549. char *np;
  2550. {
  2551.     FILE *popen();
  2552.     FILE *pipefp = popen("/bin/pwd","r");
  2553.  
  2554.     if (pipefp == Nullfp) {
  2555.     printf("Can't run /bin/pwd\n") FLUSH;
  2556.     finalize(1);
  2557.     }
  2558.     fgets(np,512,pipefp);
  2559.     np[strlen(np)-1] = '\0';    /* wipe out newline */
  2560.     pclose(pipefp);
  2561.     return np;
  2562. }
  2563. #endif
  2564. #endif
  2565. /* just like fgets but will make bigger buffer as necessary */
  2566.  
  2567. char *
  2568. get_a_line(original_buffer,buffer_length,fp)
  2569. char *original_buffer;
  2570. register int buffer_length;
  2571. FILE *fp;
  2572. {
  2573.     register int bufix = 0;
  2574.     register int nextch;
  2575.     register char *some_buffer_or_other = original_buffer;
  2576.  
  2577.     do {
  2578.     if (bufix >= buffer_length) {
  2579.         buffer_length *= 2;
  2580.         if (some_buffer_or_other == original_buffer) {
  2581.                     /* currently static? */
  2582.         some_buffer_or_other = safemalloc((MEM_SIZE)buffer_length+1);
  2583.         strncpy(some_buffer_or_other,original_buffer,buffer_length/2);
  2584.                     /* so we must copy it */
  2585.         }
  2586.         else {            /* just grow in place, if possible */
  2587.         some_buffer_or_other = saferealloc(some_buffer_or_other,
  2588.             (MEM_SIZE)buffer_length+1);
  2589.         }
  2590.     }
  2591.     if ((nextch = getc(fp)) == EOF)
  2592.         return Nullch;
  2593.     some_buffer_or_other[bufix++] = (char) nextch;
  2594.     } while (nextch && nextch != '\n');
  2595.     some_buffer_or_other[bufix] = '\0';
  2596.     len_last_line_got = bufix;
  2597.     return some_buffer_or_other;
  2598. }
  2599.  
  2600. /* copy a string to a safe spot */
  2601.  
  2602. char *
  2603. savestr(str)
  2604. char *str;
  2605. {
  2606.     register char *newaddr = safemalloc((MEM_SIZE)(strlen(str)+1));
  2607.  
  2608.     strcpy(newaddr,str);
  2609.     return newaddr;
  2610. }
  2611.  
  2612. int
  2613. makedir(dirname,nametype)
  2614. register char *dirname;
  2615. int nametype;
  2616. {
  2617. #ifdef MAKEDIR
  2618.     register char *end;
  2619.     register char *s;
  2620.     char tmpbuf[1024];
  2621.     register char *tbptr = tmpbuf+5;
  2622.  
  2623.     for (end = dirname; *end; end++) ;    /* find the end */
  2624.     if (nametype == MD_FILE) {        /* not to create last component? */
  2625.     for (--end; end != dirname && *end != '/'; --end) ;
  2626.     if (*end != '/')
  2627.         return 0;            /* nothing to make */
  2628.     *end = '\0';            /* isolate file name */
  2629.     }
  2630.     strcpy(tmpbuf,"mkdir");
  2631.  
  2632.     s = end;
  2633.     for (;;) {
  2634.     if (stat(dirname,&filestat) >= 0) {
  2635.                     /* does this much exist? */
  2636.         *s = '/';            /* mark this as existing */
  2637.         break;
  2638.     }
  2639.     s = rindex(dirname,'/');    /* shorten name */
  2640.     if (!s)                /* relative path! */
  2641.         break;            /* hope they know what they are doing */
  2642.     *s = '\0';            /* mark as not existing */
  2643.     }
  2644.     
  2645.     for (s=dirname; s <= end; s++) {    /* this is grody but efficient */
  2646.     if (!*s) {            /* something to make? */
  2647.         sprintf(tbptr," %s",dirname);
  2648.         tbptr += strlen(tbptr);    /* make it, sort of */
  2649.         *s = '/';            /* mark it made */
  2650.     }
  2651.     }
  2652.     if (nametype == MD_DIR)        /* don't need final slash unless */
  2653.     *end = '\0';            /*  a filename follows the dir name */
  2654.  
  2655.     return (tbptr==tmpbuf+5 ? 0 : doshell(sh,tmpbuf));
  2656.                     /* exercise our faith */
  2657. #else
  2658.     sprintf(cmd_buf,"%s %s %d", filexp(DIRMAKER), dirname, nametype);
  2659.     return doshell(sh,cmd_buf);
  2660. #endif
  2661. }
  2662.  
  2663. #ifdef SETENV
  2664. static bool firstsetenv = TRUE;
  2665. extern char **environ;
  2666.  
  2667. void
  2668. setenv(nam,val)
  2669. char *nam, *val;
  2670. {
  2671.     register int i=envix(nam);        /* where does it go? */
  2672.  
  2673.     if (!environ[i]) {            /* does not exist yet */
  2674.     if (firstsetenv) {        /* need we copy environment? */
  2675.         int j;
  2676. #ifndef lint
  2677.         char **tmpenv = (char**)    /* point our wand at memory */
  2678.         safemalloc((MEM_SIZE) (i+2) * sizeof(char*));
  2679. #else
  2680.         char **tmpenv = Null(char **);
  2681. #endif lint
  2682.     
  2683.         firstsetenv = FALSE;
  2684.         for (j=0; j<i; j++)        /* copy environment */
  2685.         tmpenv[j] = environ[j];
  2686.         environ = tmpenv;        /* tell exec where it is now */
  2687.     }
  2688. #ifndef lint
  2689.     else
  2690.         environ = (char**) saferealloc((char*) environ,
  2691.         (MEM_SIZE) (i+2) * sizeof(char*));
  2692.                     /* just expand it a bit */
  2693. #endif lint
  2694.     environ[i+1] = Nullch;    /* make sure it's null terminated */
  2695.     }
  2696.     environ[i] = safemalloc((MEM_SIZE) strlen(nam) + strlen(val) + 2);
  2697.                     /* this may or may not be in */
  2698.                     /* the old environ structure */
  2699.     sprintf(environ[i],"%s=%s",nam,val);/* all that work just for this */
  2700. }
  2701.  
  2702. int
  2703. envix(nam)
  2704. char *nam;
  2705. {
  2706.     register int i, len = strlen(nam);
  2707.  
  2708.     for (i = 0; environ[i]; i++) {
  2709.     if (strnEQ(environ[i],nam,len) && environ[i][len] == '=')
  2710.         break;            /* strnEQ must come first to avoid */
  2711.     }                    /* potential SEGV's */
  2712.     return i;
  2713. }
  2714. #endif
  2715.  
  2716. void
  2717. notincl(feature)
  2718. char *feature;
  2719. {
  2720.     printf("\nNo room for feature \"%s\" on this machine.\n",feature) FLUSH;
  2721. }
  2722.  
  2723. char *
  2724. getval(nam,def)
  2725. char *nam,*def;
  2726. {
  2727.     char *val;
  2728.  
  2729.     if ((val = getenv(nam)) == Nullch || !*val)
  2730.     val = def;
  2731.     return val;
  2732. }
  2733.  
  2734. /* grow a static string to at least a certain length */
  2735.  
  2736. void
  2737. growstr(strptr,curlen,newlen)
  2738. char **strptr;
  2739. int *curlen;
  2740. int newlen;
  2741. {
  2742.     if (newlen > *curlen) {        /* need more room? */
  2743.     if (*curlen)
  2744.         *strptr = saferealloc(*strptr,(MEM_SIZE)newlen);
  2745.     else
  2746.         *strptr = safemalloc((MEM_SIZE)newlen);
  2747.     *curlen = newlen;
  2748.     }
  2749. }
  2750.  
  2751. void
  2752. setdef(buffer,dflt)
  2753. char *buffer,*dflt;
  2754. {
  2755. #ifdef STRICTCR
  2756.     if (*buffer == ' ')
  2757. #else
  2758.     if (*buffer == ' ' || *buffer == '\n')
  2759. #endif
  2760.     {
  2761.     if (*dflt == '^' && isupper(dflt[1]))
  2762.         *buffer = Ctl(dflt[1]);
  2763.     else
  2764.         *buffer = *dflt;
  2765.     }
  2766. }
  2767. !STUFFY!FUNK!
  2768. echo Extracting newsetup.1
  2769. cat >newsetup.1 <<'!STUFFY!FUNK!'
  2770. ''' $Header: newsetup.1,v 4.3 85/05/01 11:43:22 lwall Exp $
  2771. ''' 
  2772. ''' $Log:    newsetup.1,v $
  2773. ''' Revision 4.3  85/05/01  11:43:22  lwall
  2774. ''' Baseline for release with 4.3bsd.
  2775. ''' 
  2776. ''' 
  2777. .de Sh
  2778. .br
  2779. .ne 5
  2780. .PP
  2781. \fB\\$1\fR
  2782. .PP
  2783. ..
  2784. .de Sp
  2785. .if t .sp .5v
  2786. .if n .sp
  2787. ..
  2788. '''
  2789. '''     Set up \*(-- to give an unbreakable dash;
  2790. '''     string Tr holds user defined translation string.
  2791. '''     Bell System Logo is used as a dummy character.
  2792. '''
  2793. .ie n \{\
  2794. .tr \(bs-\*(Tr
  2795. .ds -- \(bs-
  2796. .if (\n(.H=4u)&(1m=24u) .ds -- \(bs\h'-12u'\(bs\h'-12u'-\" diablo 10 pitch
  2797. .if (\n(.H=4u)&(1m=20u) .ds -- \(bs\h'-12u'\(bs\h'-8u'-\" diablo 12 pitch
  2798. .ds L" ""
  2799. .ds R" ""
  2800. .ds L' '
  2801. .ds R' '
  2802. 'br\}
  2803. .el\{\
  2804. .ds -- \(em\|
  2805. .tr \*(Tr
  2806. .ds L" ``
  2807. .ds R" ''
  2808. .ds L' `
  2809. .ds R' '
  2810. 'br\}
  2811. .TH NEWSETUP 1 LOCAL
  2812. .SH NAME
  2813. newsetup - a program to set up a .newsrc file
  2814. .SH SYNOPSIS
  2815. .B newsetup
  2816. .SH DESCRIPTION
  2817. The
  2818. .I newsetup
  2819. program creates a new .newsrc file containing all of the currently active
  2820. newsgroups.
  2821. It tries to put them in a reasonable order, i.e. local newsgroups earlier,
  2822. but you'll probably want to change the ordering anyway (if you use
  2823. .IR rn )
  2824. in order to put interesting newsgroups first.
  2825. If you already have a .newsrc, it will be backed up with the name
  2826. \*(L".oldnewsrc\*(R".
  2827. .SH ENVIRONMENT
  2828. .IP DOTDIR 8
  2829. Where to put your .newsrc, if not in your home directory.
  2830. .Sp
  2831. Default: $HOME
  2832. .IP HOME 8
  2833. Your home directory.
  2834. .Sp
  2835. Default: $LOGDIR
  2836. .IP LOGDIR 8
  2837. Your home directory if HOME is undefined.
  2838. .SH FILES
  2839. /usr/lib/news/active or a reasonable facsimile
  2840. .br
  2841. ${DOTDIR-{$HOME-$LOGDIR}}/.newsrc
  2842. .SH SEE ALSO
  2843. rn(1), newsrc(5)
  2844. .SH DIAGNOSTICS
  2845. .SH BUGS
  2846. !STUFFY!FUNK!
  2847. echo ""
  2848. echo "End of kit 6 (of 9)"
  2849. cat /dev/null >kit6isdone
  2850. config=true
  2851. for iskit in 1 2 3 4 5 6 7 8 9 ; do
  2852.     if test -f kit${iskit}isdone; then
  2853.     echo "You have run kit ${iskit}."
  2854.     else
  2855.     echo "You still need to run kit ${iskit}."
  2856.     config=false
  2857.     fi
  2858. done
  2859. case $config in
  2860.     true)
  2861.     echo "You have run all your kits.  Please read README and then type Configure."
  2862.     chmod 755 Configure
  2863.     ;;
  2864. esac
  2865. : I do not append .signature, but someone might mail this.
  2866. exit
  2867.