home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
zcm_scrp.zip
/
OPUSUPL.T
< prev
next >
Wrap
Text File
|
1989-11-21
|
2KB
|
92 lines
:: Upload message to Opus Rev 7-28-89
:: First line is "From: name" (reply) or "To name" (originating)
:: Nest 2 lines searched for "Subject: "
:: Message body starts on next line
::
:on !c goto foonc
pat
pat 5 "aborted"
pat 6 "\nSelect: "
pat 7 "I don't understand `"
pat 8 "Message aborted."
open -!tg %item; set s0 ""
while "t&&!%s0" grab s0 :: read past initial blank lines
if !t goto foobar
if "ps0,To " goto orig :: Sanity check first non blank line
if "!ps0,From:" goto foobar :: Sanity check first non blank line
orig: split s0 " :" ""
sets s1 "%z1"
ss s1 "(.*)( *)"
while %z2 sets s1 "%z1" ss s1 "(.*)( $)"
ss s1 "(^ *)(.*)"; if %z1 sets s1 "%z2"
grab s2 :: If to line - ignore
ss s2 "(R[eE]: *|Subject: *)(.*)"
if !%z2 grab s2; ss s2 "(R[eE]: *|Subject: *)(.*)"
if !%z2 grab s2; ss s2 "(R[eE]: *|Subject: *)(.*)"
sets s2 "%z2"
ss s2 "(R[eE]: *|Subject: *)(.*)"
if %z2 ss s2 "(R[eE]: *|Subject: *)(.*)"; sets s2 "%z2"
ss s2 "(.*)( *)"
while %z2 sets s2 "%z1" ss s2 "(.*)( $)"
ss s2 "(^ *)(.*)"; if %z1 sets s2 "%z2"
echoc "TO: <%s1> SUBJECT: <%s2>"
: return :: for local testing of argument parsing
pat 0c "left. Start msg anyway [y,N]?" "y\r"
pat 9c "Create msg from file [y,N]?" "n\r"
pat 10i "To: "
pat 11i "Private [y,N"
put "e\r"
wait -f4
if 7 goto foobar
if 11 putw "n\r"
put "%s1\r"
pat 12i "Subject:"
wait -f4
if 8 goto foobar
pat 20i "1:" :: check for line by line msg upload
pat 21 "sert" :: full screen ?
put "%s2\r" :: send massaged subject line
wait
if 20 goto oldent
if !2 goto foobar
set blankfill ""
pat 20 ""; pat 21 ""; pat 5 ""
put " \b"; sleep 20
ena -tp; pq1; pp120; pg10
t -gx; ena -t!p
putw "\032"
goto done
oldent: set blankfill " - "
pat 20 ""; pat 21 ""; pat 5 ""
ena -pt; pq1; pp120; pg:
t -gx; ena -t!p
put "\r"
pat 7i "Editor Options:"
wait
if !7 goto foobar
put "s\r"
wait
if !6 goto foobar
done: "!%mv %item Z%item.tmp"
echoc "File Uploaded: %item moved to Z%item.tmp"
ena -gt
pat
return
foonc: echoc "Carrier Lost"
foobar: echoc "File Not Accpeted"
nolog closetx
pat
return
foox: echoc "Moving %item to Y%item.tmp"
"!%mv %item Y%item.tmp"
ena -gt
nolog closetx
echoc "OPUSUPL ABEND"
pat
return
unedited: echoc "opusupl.t: %item has not been edited!"
closetx
pat
return