bryan@chroma.UUCP (Bryan Ford) (06/09/89)
I thought somebody might like this little script. It was originally
written by a friend of mine as a complete 'Mail' replacement - I just
turned it into a front-end for the normal 'Mail' program using ConMan's
Queue command. (You have to be using ConMan for this to work.)
The only things that should need changing are a few places in the 'read
your own mail' part, which are clearly marked. I have also included a
sample .mailrc file, so you can just add your own addresses.
# This is a shell archive. Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file"
# Created Sat Jun 10 08:01:52 1989
#
# This archive contains:
# Mail
# .mailrc
echo "Creating Mail"
cat > Mail <<"***EOF Mail***"
.key recipient
.bra {
.ket }
;
; Mail
; Script file for reading sending mail.
;
If "{recipient}" EQ ""
Echo "Read own mail."
If EXISTS UUCP:mail/bryan ; Replace Bryan with your username (3 places)
Ed UUCP:mail/bryan ; Replace Ed with your favorite editor
Else
Echo "No mail for Bryan."
EndIf
Skip out
Else
Search S:.mailrc {recipient} NONUM CASE | Read ALIAS NAME PATH
If VAL "$?" EQ 1
Ask "No alias for {recipient} - Do you want to continue?"
If NOT WARN
Skip out
EndIf
Set PATH {recipient}
EndIf
Echo "Path: $PATH"
Queue $PATH
Mail
EndIf
Lab out
Set ALIAS
Set NAME
Set PATH
***EOF Mail***
echo "Creating .mailrc"
cat > .mailrc <<"***EOF .mailrc***"
alias bryan bryan@geo-works.COM
alias csa comp-sys-amiga@ucbvax.berkeley.EDU
alias csat comp-sys-amiga-tech@ucbvax.berkeley.EDU
alias kilowatt archive-server@kilowatt.sun.COM
alias whawes hawes@dino.ulowell.EDU
***EOF .mailrc***