home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
zcm_scrp.zip
/
CISUPL.T
< prev
next >
Wrap
Text File
|
1989-11-21
|
4KB
|
143 lines
:: cisupl Rev 1-8-89
set s3 ""
pattern
wait -f2 : in case of spurious Function?
pat 1v "essage ready"
pat 2 "unction"
pat 3 " character maximum"
pat 4l "can't find"
pat 5 "Enter message." : Check for new forum s/w
pat 6c "Message:" "%z1\r"
pat 7 "Enter reply."
pat 8 "Forum !"
open -!tg %item; grab s0
while "t&&!%s0" grab s0
set ifs " /" : split on space or slash
split s0
if "!iz0,#:" goto oldf
echoc "New Format Message"
put "\025re %z1\r"
wait -f40
if 8||2||3 goto foox
if !1&&!5&&!7 goto notfnd
set s1 "s"
if 5||7 set s1 "post" : New fangled forum commands!
grab s0 : Either date line of old message or,
if "!ps0, " sets s1 %s0 : if no leading SP, save action
grab s0; grab s0;
goto sendit
notfnd: sets s1 "%z2\&u" : Remember the string concatenation rules!
grab s0
grab s0
split s0 " " ""
sets s2 "%z1"
ss s2 "(.*[0-9][0-9]*-)(.*)"
if %z2 sets s2 "%z2"; echoc "Fixed Sb %s2"
if "%s2>24" goto subbad
subok: grab s0 : Get Fm: line
set ifs ":"
split s0
sets s0 "%z1" : Name and PPN
if "%s0>24" goto tokbad : Too long - get PPN only
took: put "\025l;%s0;%s2\r"
wait -f20
if !1 goto foobar
sendit: if !t echoc "%item Short file! "; goto foobar
grab s3 : Get possible To: line
if ps3,To: goto unedited
pat 6 ""
if !dP ena -p; pq1; pp120; pg10
if dP ena -r
wait -f2
putv s3; putw "\r"
t -gx!G; wait -f1; ena -tG!p
if jremote,tel put "(Uploaded via Telenet)\r"
put "\025/ex\r";
pat 5 " action"
pat 6 "Action !"
wait -f40
put "\025%s1\r"
echoc "File %item To: %s0 Cmd: %s1"
pat 1c Stored
pat 3 "SUBTOPIC"
pat 4 "Files busy"
pat 6 "User ID required"
wait -f20
if 5 put "\025%s1\r"; wait -f40
if n put "\25\r" wait -f9
while 4 echo "Get on with it already." wait -f30
if 3||5 put "\25s0\r" wait -f9
if 3||5 put "\25s0\r" wait -f9
if !1&&!2&&!8 goto foobar
obey "!mv %item Z%item.tmp"
echoc "File Uploaded: %item moved to Z%item.tmp"
if !2&&!8 wait -f10
ena -gt
return
foobar: echoc "File Not Accpeted"
nolog closetx
put \3
pat 1 "Option:"
pat 6 "Choice:"
wait -f10
put "\0253\r"
wait -f10
if 5 put "a\ry\r"; wait -f10
if !2&&!8 purgek; kbdlock 0;set s5 ""
echoc "Moving %item to Y%item.tmp"
obey "!mv %item Y%item.tmp"
ena -gt
fail
foox: echoc "Moving %item to Y%item.tmp"
obey "!mv %item Y%item.tmp"
ena -gt
nolog closetx
echoc "CISUPL ABEND"
return
oldf: grab s1
echoc "Old Format File"
if "%s1>5" goto unedited : too long a command
if "!%s1" goto unedited : no save action command
if "!ps1,s" goto unedited : command not starting with 's'
put "\025%s0\r"
wait -f40
if 2||4 goto foox
if !1 goto foobar
goto sendit
: name/ppn too long, isolate ppn which begins with digit 1 or 7
tokbad: echoc "Name/PPN Too long %s0"
ss s0 "(7[0-9][0-9][0-9][0-9],[0-9][0-9]*)"
if %z1 sets s0 "%z1"; echoc "TO SPLIT OK"; goto took
set ifs " "
split s0
if pz0,7 sets s0 "%z0"; goto took
if pz0,1 sets s0 "%z0"; goto took
if pz1,7 sets s0 "%z1"; goto took
if pz1,1 sets s0 "%z1"; goto took
if pz2,7 sets s0 "%z2"; goto took
if pz2,1 sets s0 "%z2"; goto took
if pz3,7 sets s0 "%z3"; goto took
if pz3,1 sets s0 "%z3"; goto took
if pz4,7 sets s0 "%z4"; goto took
if pz4,1 sets s0 "%z4"; goto took
if pz5,7 sets s0 "%z5"; goto took
if pz5,1 sets s0 "%z5"; goto took
if pz6,7 sets s0 "%z6"; goto took
if pz6,1 sets s0 "%z6"; goto took
if pz7,7 sets s0 "%z7"; goto took
if pz7,1 sets s0 "%z7"; goto took
echoc "Can't parse Fm: Line to PPN"; goto foobar
subbad: echoc "Subject <%s2> Too Long"
if "!ps2,#" echoc "Can't reparse"; goto foobar
split s2 "-" ""
sets s2 "%z1"
echoc "New Subject Line %s2"
goto subok
unedited: echoc "cisupl: %item has not been edited!"
closetx
pat 5c "Do you wish to cancel" "\025y\r"
pat 6c "Post action !" "\25cancel\r"
put "\025/ex\r";
wait -f20
return