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