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