Category : Communication (modem) tools and utilities
Archive   : ZMSCRIP.ZIP
Filename : PLXUPL.T

:: Script to upload messages to Compuserve's EasyPlex Electronic mail.
:: Assumes the "Prompt" option (not menu) Easyplex option has been set.
:: Message files have the addressee in the first line, Subject in 2nd.
:: Message files are stored in file names starting with 000 without extension
:: Error recovery has not been extensively tested.
open -!g %item
set s0 ""
while "L<4&&!%s0" grab s0
ss s0 ">[mM][cC]|([0-9][0-9]*,[0-9][0-9]*)"
if !%z0 echoc "Bad Address: %s0"; goto foox
grab s1
if !t goto foox
put "\25g easy\r"
pat; pat 1 " COMpose, "; pat 2 "lex!"
pat 6 "Enter choice number !"
pat 7c "is unavailable"
pat 8c "Press to continue: " "\025\r"
pat 9 "Enter correction "
pat 10 "% EasyPlex is temporarily unav"
wait -F40
if 7 goto fini
if 10 goto foobar
if n goto foobar
put "\25com\r"
pat 1 "done";
wait -f20
if !1 goto foobar
pg10;
if dP ena -r
else ena -p
wait -f1 : let echoes stop already.
if "%s1>31" putv s1; putw "\r"; set s1 "Possible Duplicate Message"
t -gx!G : file is uploaded here, low level FC
if du putw "\r --- Uploaded %t\r"
if jremote,tel put "(Uploaded via Telenet)\r"
put "\25/ex\r";
pat 1 "Send to"
wait -f20
if !1 goto foobar
put "\025%s0\r"
pat 1 "Subject:";
pat 2 " Invalid User ID:"
wait -f20
while "c&&2&&L<3" put "\025%s0\r" wait -f20
if !1 goto foobar
put "\025%s1\r"
echoc "File %item To: %s0 Sb: %s1"
pat 3 "Your name:"
pat 1 "correct";
pat 5c "YES or NO" "\25YES\r"
wait -f20
if 3 put "\25Chuck Forsberg\rY\r"; wait -f20
if !1 goto foobar
put "\25Y\r"
pat 1 " COMpose, ";
wait -f20
if "!1&&!2" goto foobar
if !dv "!%mv %item Z%item.tmp"
if dv "!%rename %item Z%item.tmp"
echoc "File Uploaded: %item moved to Z%item.tmp"
ena -tG!p
pat 1 OK; pat 2 TOP
put "\25mic\r"
wait -f20; if !1 put "mic\r"; wait -f20
return
foobar: put \3
wait -f5
putw "\25t\r"
putw "\25mic\r"
if "h% EasyPlex is temporarily unav" goto fini
ena -tG!p
return
foox: echoc "Moving %item to Y%item.tmp"
echoc "File Not Accpeted"
if !dv "!%mv %item Y%item.tmp"
if dv "!%rename %item Y%item.tmp"
fini: ena -gtG!p
nolog closetx
return