home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
zcm_scrp.zip
/
BIXMAILU.T
< prev
next >
Wrap
Text File
|
1989-11-21
|
2KB
|
62 lines
::
:: "bixmailu.t" goes in %lib It uploads BIX Mail messages
:: Takes reply format beginning with "Memo #", or originating format
:: To user
:: Subject: subject
:: (Unix mail msg).
:: Register usage: s1 is receipient, s2 is subject
::
echo "File = %item"
open -!tg %item
l1: set s0 ""
while "t&&!%s0" grab s0
if "ps0,Memo #" goto rply
ss s0 "(^[Tt][Oo]:* *)(.*)"; sets s1 %z2
if !%s1 goto badmsg
echo "Originating format: To %s1"
goto orig2
rply: grab s0
if !t goto badmsg
ss s0 "(From: *)(.*)"; sets s1 %z2
orig2: while t&&!ps0,Subject: grab s0
if !t echo "No Subject: line seen"; goto badmsg
ss s0 "(Subject: *)(.*)"; sets s2 %z2
echo "Now to: '%s1' Subject: '%s2'"
:: if y review
:: closetx; return : for testing
pattern; pat 1 "Mail:"
if !is9,Mail put "mail\r"; set s9 "Mail"; wait; if !1 goto foobar
pat 2c "Enter subject:" "%s2\r"
pat 3l "Enter text."
put "clear\r"; wait
put "to %s1\r"; wait
pg62; pp300; pq0; if !dP ena -p
if dP ena -r
t -gx; ena -t!p; pp250
mput ".\r"
pat 2l "sent"
pat 3c "send/action:" "send\r"
wait
if !2 goto foobar
obey "!mv %item Z%item.tmp"
echoc "File Uploaded: %item moved to Z%item.tmp"
ena -gt
return
badmsg: echoc "Bad message format"
foobar: echoc "File Not Accpeted"
echo "Moving file to backup name"
abort; **********
obey "!mv %item Y%item.tmp"
echoc "File Rejected: %item moved to Y%item.tmp"
ena -gt
nolog closetx
return