home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume23 / trn / part12 / Rnmail.SH < prev    next >
Text File  |  1991-08-22  |  7KB  |  358 lines
  1. case $CONFIG in
  2.     '') . ./config.sh ;;
  3. esac
  4. echo "Extracting Rnmail (with variable substitutions)"
  5. $spitshell >Rnmail <<!GROK!THIS!
  6. $startsh
  7. # $Header: Rnmail.SH,v 4.3.3.3 91/01/16 03:28:46 davison Trn $
  8. # 
  9. # $Log:    Rnmail.SH,v $
  10. # Revision 4.3.3.3  91/01/16  03:28:46  davison
  11. # Integrated rn patches 48-54.
  12. # 
  13. # Revision 4.3.3.2  90/08/20  16:22:29  davison
  14. # Use mbox.saver for MAILRECORD.  Fixed sitename handling.
  15. # 
  16. # Revision 4.3.3.1  90/07/24  22:02:49  davison
  17. # Initial Trn Release
  18. # 
  19. # Revision 4.3.2.3  90/12/30  03:48:04  sob
  20. # Changed "hidden" to "hiddennet" to be like nntp and bnews.
  21. # Made it possible to cancel articles if hiddennet is defined.
  22. # 
  23. # Revision 4.3.2.2  90/11/22  14:00:21  sob
  24. # Support added for hiding all hosts within a domain such that mail appears
  25. # to come for user@domainname only.
  26. # 
  27. # Revision 4.3.2.1  89/11/06  00:30:54  sob
  28. # Added RRN support from NNTP 1.5
  29. # 
  30. # Revision 4.3.1.4  85/08/01  14:23:05  lwall
  31. # Added MAILRECORD.  Temp file is no longer in /tmp.  'e editor' added.
  32. # 
  33. # Revision 4.3.1.3  85/05/20  16:25:17  lwall
  34. # Shouldn't ask editor if EDITOR or VISUAL defined.
  35. # 
  36. # Revision 4.3.1.2  85/05/17  10:36:19  lwall
  37. # Added "-- " before .signature.
  38. # 
  39. # Revision 4.3.1.1  85/05/10  11:30:38  lwall
  40. # Branch for patches.
  41. # 
  42. # Revision 4.3  85/05/01  11:34:18  lwall
  43. # Baseline for release with 4.3bsd.
  44. # 
  45. #
  46. # syntax: Rnmail -h headerfile [oldart]        or
  47. #         Rnmail destination-list         or just
  48. #         Rnmail
  49.  
  50. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
  51.  
  52. # System dependencies
  53.  
  54. mailer="${mailer-/bin/mail}"
  55. # if you change this to something that does signatures, take out signature code
  56.  
  57. # your site name
  58. case $portable in
  59. define)
  60.     case "$hostcmd" in
  61.     '') sitename="$sitename" ;;
  62.     *)  sitename=\`$hostcmd\` ;;
  63.     esac
  64.     case \$sitename in
  65.         *.*)
  66.             ;;
  67.         *)
  68.             sitename=\${sitename}.$domain
  69.             ;;
  70.     esac
  71.     ;;
  72. undef) sitename="$sitename" ;;
  73. esac
  74.  
  75. case $hiddennet in
  76. define)    sitename="$domain"
  77.     ;;
  78. *)
  79.     ;;
  80. esac
  81.  
  82. # your organization name
  83. orgname="$orgname"
  84. # what pager you use--if you have kernal paging use cat
  85. pager="\${PAGER-$pager}"
  86. # how you derive full names, bsd, usg, or other
  87. nametype="$nametype"
  88. # default editor
  89. defeditor="$defeditor"
  90. # where the non-publics are
  91. rnlib=$rnlib
  92. # how not to do a newline with echo
  93. n="$n"
  94. c="$c"
  95.  
  96. test=${test-test}
  97. sed=${sed-sed}
  98. echo=${echo-echo}
  99. cat=${cat-cat}
  100. grep=${grep-grep}
  101. rm=${rm-rm}
  102.  
  103. !GROK!THIS!
  104. $spitshell >>Rnmail <<'!NO!SUBS!'
  105. dotdir=${DOTDIR-${HOME-$LOGDIR}}
  106. tmpart=$dotdir/.letter
  107.  
  108. headerfile=""
  109. case $# in
  110. 0) ;;
  111. *)  case $1 in
  112.     -h)
  113.     headerfile="$2"
  114.     case $# in
  115.     3) oldart=$3 ;;
  116.     esac
  117.     ;;
  118.     esac
  119.     ;;
  120. esac
  121.  
  122. case $headerfile in
  123. '')
  124.     case $# in
  125.     0)
  126.     to=h
  127.     while $test "$to" = h ; do
  128.         $echo ""
  129.         $echo $n "To: $c"
  130.         read to
  131.         case $to in
  132.         h)
  133.         $cat <<'EOH'
  134.  
  135. Type the net address of those people that you wish the message sent to.
  136. Additional recipients may be added on the Cc: line when you edit.
  137.  
  138. Separate multiple addresses with spaces.
  139.  
  140. EOH
  141.         ;;
  142.         esac
  143.     done
  144.     ;;
  145.     *)
  146.     to="$*"
  147.     ;;
  148.     esac
  149.     to=`$echo "$to" | $sed 's/  */ /g'`
  150.  
  151.     title=h
  152.     while $test "$title" = h ; do
  153.     $echo ""
  154.     $echo $n "Title/Subject: $c"
  155.     read title
  156.     case $title in
  157.     h)
  158.         $cat <<'EOH'
  159.  
  160. Type the title for your message.  
  161. EOH
  162.         ;;
  163.     esac
  164.     done
  165.  
  166. # now build a file with a header for them to edit
  167.     
  168.     orgname=${ORGANIZATION-$orgname}
  169.     case $orgname in
  170.     /*) orgname=`$cat $orgname` ;;
  171.     esac
  172.  
  173.     $sed -e '/^Reply-To: $/d' > $tmpart <<EOHeader
  174. To: $to
  175. Subject: $title
  176. Organization: $orgname
  177. Reply-To: $REPLYTO
  178. Cc:
  179. Bcc:
  180.  
  181. EOHeader
  182.  
  183.     ;;
  184. *)
  185.     $cat < $headerfile  > $tmpart
  186.     ;;
  187. esac
  188.  
  189.  
  190. file=h
  191. while $test "$file" = h ; do
  192.     $echo ""
  193.     $echo $n "Prepared file to include [none]: $c"
  194.     read file
  195.     case $file in
  196.     h)
  197.     $cat <<'EOH'
  198.  
  199. If you have already produced the body of your message, type the filename
  200. for it here.  If you just want to proceed directly to the editor, type a
  201. RETURN.  In any event, you will be allowed to edit as many times as you
  202. want before you send off the message.
  203. EOH
  204.     ;;
  205.     '')
  206.     $echo "" >> $tmpart
  207.     state=edit
  208.     ;;
  209.     *)
  210.     $cat $file >>$tmpart
  211.     state=ask
  212.     ;;
  213.     esac
  214. done
  215.  
  216. $echo ""
  217.  
  218. while true ; do
  219.     case $state in
  220.     edit)
  221.     rescue="sleep 1; $cat $tmpart >>${HOME-$LOGDIR}/dead.letter ; $echo Message appended to ${HOME-$LOGDIR}/dead.letter ; exit"
  222.     trap "$rescue" 1
  223.     trap : 2
  224.     case "${VISUAL-${EDITOR-}}" in
  225.     '')
  226.         tmp=h
  227.         ;;
  228.     *)
  229.         tmp=''
  230.         ;;
  231.     esac
  232.     while $test "$tmp" = h ; do
  233.         $echo $n "Editor [${VISUAL-${EDITOR-$defeditor}}]: $c"
  234.         read tmp
  235.         case $tmp in
  236.         h)
  237.         $cat <<'EOH'
  238.  
  239. Type a return to get the default editor, or type the name of the editor you
  240. prefer.  The default editor depends on the VISUAL and EDITOR environment
  241. variables.
  242.  
  243. EOH
  244.         ;;
  245.         '')
  246.         ;;
  247.         *)
  248.         VISUAL=$tmp
  249.         export VISUAL
  250.         ;;
  251.         esac
  252.     done
  253.     ${VISUAL-${EDITOR-$defeditor}} $tmpart $oldart
  254.     trap "$rescue" 2
  255.     state=ask
  256.     ;;
  257.     
  258.     ask)
  259.     $echo ""
  260.     $echo $n "Send, abort, edit, or list? $c"
  261.     read ans
  262.     
  263.     case $ans in
  264.     a*)
  265.         state=rescue
  266.         ;;
  267.     e*)
  268.         set $ans
  269.         case $# in
  270.         2)  VISUAL="$2" ;;
  271.         esac
  272.         state=edit
  273.         ;;
  274.     l*)
  275.         $pager $tmpart
  276.         state=ask
  277.         ;;
  278.     s*)
  279.         state=send
  280.         ;;
  281.     h*)
  282.         $cat <<'EOH'
  283.  
  284. Type s to send the message, a to abort and append the message to dead.letter,
  285. e to edit the message again, or l to list the message.
  286.  
  287. To invoke an alternate editor, type 'e editor'.
  288. EOH
  289.     esac
  290.     ;;
  291.     
  292.     send)
  293.     if $test -f $dotdir/.signature; then
  294.         $echo $n "Append .signature file? [y] $c"
  295.         read ans
  296.         case $ans in
  297.         ''|y*)
  298.         $echo "-- " >> $tmpart
  299.         cat $dotdir/.signature >> $tmpart
  300.         ;;
  301.         esac
  302.     fi
  303.     case $mailer in
  304.     *sendmail)
  305.         $mailer -t <$tmpart
  306.         ;;
  307. # but recmail does not know about Bcc, alas
  308.     *recmail)
  309.         $mailer <$tmpart
  310.         ;;
  311.     *)
  312.         set X `$sed <$tmpart -n -e '/^To:/{' -e 's/To: *//p' -e q -e '}'`
  313.         shift
  314.         set X "$@" `$sed <$tmpart -n -e '/^Cc:/{' -e 's/Cc: *//p' -e q -e '}'`
  315.         shift
  316.         set X "$@" `$sed <$tmpart -n -e '/^Bcc:/{' -e 's/Bcc: *//p' -e q -e '}'`
  317.         shift
  318.         $grep -v "^Bcc:"  <$tmpart | $mailer "$@"
  319.         ;;
  320.     esac
  321.     case $? in
  322.     0)
  323.         state=cleanup
  324.         ;;
  325.     *)
  326.         state=rescue
  327.         ;;
  328.     esac
  329.     ;;
  330.     rescue)
  331.     $cat $tmpart >> ${HOME-$LOGDIR}/dead.letter
  332.     $echo "Message appended to ${HOME-$LOGDIR}/dead.letter"
  333.     $echo "A copy may be temporarily found in $tmpart"
  334.     exit
  335.     ;;
  336.     cleanup)
  337.     case "${MAILRECORD-none}" in
  338.     none)
  339.         ;;
  340.     *)
  341.         set X ${USER-${LOGNAME-`who am i`}} unknown
  342.         shift
  343.         $rnlib/mbox.saver $tmpart "." "." 0 0 Pnews $MAILRECORD "From $1 `date`"
  344.         if $test $? -eq 0 ; then
  345.         $echo "Message appended to $MAILRECORD"
  346.         else
  347.         $echo "Cannot append to $MAILRECORD"
  348.         fi
  349.         ;;
  350.     esac
  351.     exit
  352.     ;;
  353.     esac
  354. done
  355. !NO!SUBS!
  356. $eunicefix Rnmail
  357. chmod 755 Rnmail
  358.