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