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