uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(Dis)ambiguate some variables, fix a line continuation

This commit is contained in:
Quinn Evans 2017-03-05 22:47:00 -07:00
parent 685feff941
commit 421971ec62
2 changed files with 121 additions and 108 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
IRC-MSG.COB
View File

@ -21,18 +21,17 @@
03 MSG-BODY PIC X(999).
03 MSG-BODY-1 REDEFINES MSG-BODY PIC X(6).
88 HAS-PREFIX VALUE "$COLN$".
01 IRC-PARAMETERS.
03 NUM-PARAMETERS PIC 99.
01 IRC-PARAMS.
03 NUM-PARAMS PIC 99.
03 PREFIX.
05 MSG-SRC PIC 999.
05 IDENT PIC 999.
05 HOST PIC 999.
03 COMMAND PIC 999.
03 PARAMS.
05 PARAM PIC 999 OCCURS 15 TIMES.
03 PARAM PIC 999 OCCURS 15 TIMES.
PROCEDURE DIVISION USING BUFFER, IRC-PARAMETERS.
MOVE 0 TO IRC-PARAMETERS.
PROCEDURE DIVISION USING BUFFER, IRC-PARAMS.
MOVE 0 TO IRC-PARAMS.
MOVE SPACES TO WORK.
MOVE 1 TO MSG-POINTER.
IF HAS-PREFIX THEN
@ -46,14 +45,14 @@
WITH POINTER MSG-POINTER.
MOVE 0 TO LOOP-STATE.
PERFORM GET-PARAMETER
VARYING NUM-PARAMETERS FROM 1, BY 1
VARYING NUM-PARAMS FROM 1, BY 1
UNTIL DONE OR
NUM-PARAMETERS IS NOT LESS THAN 15.
SUBTRACT 1 FROM NUM-PARAMETERS.
NUM-PARAMS IS NOT LESS THAN 15.
SUBTRACT 1 FROM NUM-PARAMS.
EXIT PROGRAM.
GET-PARAMETER.
MOVE MSG-POINTER TO PARAM(NUM-PARAMETERS).
MOVE MSG-POINTER TO PARAM(NUM-PARAMS).
MOVE SPACES TO WORK.
UNSTRING MSG-BODY DELIMITED BY SPACES
INTO WORK
@ -61,9 +60,9 @@
IF BLANK-PARAM OR REST-PARAMETER THEN
MOVE 99 TO LOOP-STATE.
IF BLANK-PARAM THEN
SUBTRACT 1 FROM NUM-PARAMETERS
SUBTRACT 1 FROM NUM-PARAMS
ELSE IF REST-PARAMETER THEN
ADD 6 TO PARAM(NUM-PARAMETERS).
ADD 6 TO PARAM(NUM-PARAMS).
WITH-PREFIX.
MOVE 7 TO MSG-POINTER, MSG-SRC.

206
WOPO.COB
View File

@ -56,7 +56,7 @@
88 IS-CTCP VALUE "$SOH$".
03 WORK-PTR PIC 999 USAGE COMPUTATIONAL.
03 PARAM PIC X(480) OCCURS 5 TIMES.
03 WOPO-PARAMS PIC 9.
03 NUM-PARAMS PIC 9.
03 WOPO-COUNTER PIC 9.
03 MSG-BODY-TMP PIC X(999).
D 03 DEBUG-PTR PIC 9.
@ -65,7 +65,7 @@
03 FILLER PIC X(40) VALUE "USER NAME.".
03 FILLER PIC X(6) VALUE "LEVEL.".
01 IRC-PARAMETERS.
01 IRC-PARAMS.
03 NUM-PARAMS PIC 99.
03 PREFIX.
05 MSG-SRC PIC 999.
@ -73,8 +73,7 @@
05 IDENT PIC 999.
05 HOST PIC 999.
03 COMMAND PIC 999.
03 PARAMS.
05 PARAM-PTR PIC 999 OCCURS 15 TIMES.
03 PARAM PIC 999 OCCURS 15 TIMES.
01 IRC-STATE.
03 NICK PIC X(40).
@ -90,7 +89,7 @@
03 BF-INPUT PIC X(999)
VALUE "$NUL$".
03 BF-CODE PIC X(999)
VALUE "++++++++++(>++++++(>++++<-)<-)>>.<<+++++(>++++(>--"
VALUE "++++++++++(>++++++(>++++<-)<-)>>.<<+++++(>++++(>--
- "--<-)<-)>>-.<+++(>---<-)>.-.$$".
03 BF-OUTPUT PIC X(999)
VALUE SPACES.
@ -205,20 +204,20 @@
PERFORM GET-PARAMS.
GET-IRC-STATE.
CALL "PARSE-IRC-MSG" USING MSG-BODY, IRC-PARAMETERS.
CALL "PARSE-IRC-MSG" USING MSG-BODY, IRC-PARAMS.
IF GOT-PREFIX THEN
MOVE MSG-SRC TO WORK-PTR
UNSTRING MSG-BODY
DELIMITED BY "$EXC$" OR "$AT$" OR SPACES
INTO NICK
WITH POINTER WORK-PTR.
MOVE COMMAND OF IRC-PARAMETERS TO WORK-PTR.
MOVE COMMAND OF IRC-PARAMS TO WORK-PTR.
UNSTRING MSG-BODY
DELIMITED BY SPACES
INTO COMMAND OF IRC-STATE
WITH POINTER WORK-PTR.
IF NUM-PARAMS IS NOT LESS THAN 1 THEN
MOVE PARAM-PTR(1) TO WORK-PTR
IF NUM-PARAMS OF IRC-PARAMS IS NOT LESS THAN 1 THEN
MOVE PARAM OF IRC-PARAMS(1) TO WORK-PTR
UNSTRING MSG-BODY
DELIMITED BY SPACES
INTO TARGET
@ -231,30 +230,31 @@
COMMAND OF IRC-STATE EQUALS WAITING-COMMAND.
GET-PARAMS.
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR.
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
TO WORK-PTR.
UNSTRING MSG-BODY DELIMITED BY "$NUL$"
INTO WORK
WITH POINTER WORK-PTR.
MOVE 1 TO WORK-PTR.
PERFORM BLANK-PARAM VARYING WORK-PTR FROM 1, BY 1,
UNTIL WORK-PTR IS NOT LESS THAN 5.
MOVE 0 TO WOPO-PARAMS, STATE.
MOVE 0 TO NUM-PARAMS OF WOPO, STATE.
MOVE 1 TO WORK-PTR.
PERFORM UNSTRING-PARAM UNTIL DONE.
UNSTRING-PARAM.
ADD 1 TO WOPO-PARAMS.
ADD 1 TO NUM-PARAMS OF WOPO.
UNSTRING WORK DELIMITED BY SPACE
INTO PARAM(WOPO-PARAMS)
INTO PARAM OF WOPO(NUM-PARAMS OF WOPO)
WITH POINTER WORK-PTR.
IF PARAM(WOPO-PARAMS) IS EQUAL TO SPACES THEN
SUBTRACT 1 FROM WOPO-PARAMS
IF PARAM OF WOPO(NUM-PARAMS OF WOPO) IS EQUAL TO SPACES THEN
SUBTRACT 1 FROM NUM-PARAMS OF WOPO
MOVE 99 TO STATE.
IF WOPO-PARAMS IS NOT LESS THAN 5 THEN
IF NUM-PARAMS OF WOPO IS NOT LESS THAN 5 THEN
MOVE 99 TO STATE.
BLANK-PARAM.
MOVE SPACES TO PARAM(WORK-PTR).
MOVE SPACES TO PARAM OF WOPO(WORK-PTR).
PRESERVE-MESSAGE.
MOVE MSG-BODY TO MSG-BODY-TMP.
@ -283,12 +283,13 @@
WAIT-FOR-ACC.
PERFORM WAIT-FOR-COMMAND.
IF PARAM(1) EQUALS USER-NAME AND PARAM(4) EQUALS "ACC" THEN
IF PARAM OF WOPO(1) EQUALS USER-NAME AND
PARAM OF WOPO(4) EQUALS "ACC" THEN
MOVE 99 TO STATE
IF PARAM(5) IS NOT EQUAL TO "3" THEN
IF PARAM OF WOPO(5) IS NOT EQUAL TO "3" THEN
MOVE 0 TO USER-LEVEL
ELSE
MOVE PARAM(3) TO USER-NAME
MOVE PARAM OF WOPO(3) TO USER-NAME
READ USERS RECORD
INVALID KEY MOVE 0 TO USER-LEVEL
ELSE MOVE SPACES TO COMMAND OF IRC-STATE.
@ -365,7 +366,7 @@
HANDLE-KICK.
D DISPLAY "DETECTED KICK.".
MOVE SPACES TO WORK.
MOVE PARAM-PTR(2) TO WORK-PTR.
MOVE PARAM OF IRC-PARAMS(2) TO WORK-PTR.
UNSTRING MSG-BODY DELIMITED BY SPACE
INTO WORK
WITH POINTER WORK-PTR.
@ -378,7 +379,8 @@
"$NUL$"
INTO MSG-BODY
PERFORM SEND-LINE
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
TO WORK-PTR
UNSTRING MSG-BODY-TMP
INTO WORK
WITH POINTER WORK-PTR
@ -395,67 +397,68 @@
PERFORM SEND-LINE.
DDEBUG-PARAMS.
D DISPLAY "PARAMETER ", DEBUG-PTR, ": ", PARAM(DEBUG-PTR).
D DISPLAY "PARAMETER ", DEBUG-PTR, ": ",
D PARAM OF WOPO(DEBUG-PTR).
HANDLE-MESSAGE.
D DISPLAY "HANDLING MESSAGE."
D PERFORM DEBUG-PARAMS
D VARYING DEBUG-PTR
D FROM 1, BY 1
D UNTIL DEBUG-PTR IS GREATER THAN WOPO-PARAMS
D UNTIL DEBUG-PTR IS GREATER THAN NUM-PARAMS OF WOPO
IF IS-CTCP THEN
PERFORM HANDLE-CTCP
ELSE IF IS-COMMAND THEN
MOVE 3 TO WORK-PTR
UNSTRING PARAM(1) INTO WORK
UNSTRING PARAM OF WOPO(1) INTO WORK
WITH POINTER WORK-PTR
MOVE WORK TO PARAM(1)
D DISPLAY "COMMAND BODY ", PARAM(1)
IF PARAM(1) IS EQUAL TO "BF-CODE" THEN
MOVE WORK TO PARAM OF WOPO(1)
D DISPLAY "COMMAND BODY ", PARAM OF WOPO(1)
IF PARAM OF WOPO(1) IS EQUAL TO "BF-CODE" THEN
PERFORM HANDLE-BF-CODE
ELSE IF PARAM(1) IS EQUAL TO "BF-INPUT" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "BF-INPUT" THEN
PERFORM HANDLE-BF-INPUT
ELSE IF PARAM(1) IS EQUAL TO "BF-OUTPUT" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "BF-OUTPUT" THEN
PERFORM HANDLE-BF-OUTPUT
ELSE IF PARAM(1) IS EQUAL TO "BF-RUN" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "BF-RUN" THEN
D DISPLAY "BF-RUN"
PERFORM HANDLE-BF-RUN
ELSE IF PARAM(1) IS EQUAL TO "DEOP" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "DEOP" THEN
PERFORM HANDLE-DEOP
ELSE IF PARAM(1) IS EQUAL TO "DEVOICE" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "DEVOICE" THEN
PERFORM HANDLE-DEVOICE
ELSE IF PARAM(1) IS EQUAL TO "HELP" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "HELP" THEN
PERFORM HANDLE-HELP
ELSE IF PARAM(1) IS EQUAL TO "JOIN" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "JOIN" THEN
PERFORM HANDLE-JOIN
ELSE IF PARAM(1) IS EQUAL TO "LEVEL" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "LEVEL" THEN
PERFORM HANDLE-LEVEL
ELSE IF PARAM(1) IS EQUAL TO "LICK" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "LICK" THEN
PERFORM HANDLE-LICK
ELSE IF PARAM(1) IS EQUAL TO "LIST-USERS" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "LIST-USERS" THEN
PERFORM HANDLE-LIST-USERS
ELSE IF PARAM(1) IS EQUAL TO "OP" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "OP" THEN
PERFORM HANDLE-OP
ELSE IF PARAM(1) IS EQUAL TO "PART" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "PART" THEN
PERFORM HANDLE-PART
ELSE IF PARAM(1) IS EQUAL TO "QUIT" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "QUIT" THEN
PERFORM HANDLE-QUIT
ELSE IF PARAM(1) IS EQUAL TO "RELEVEL" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "RELEVEL" THEN
PERFORM HANDLE-RELEVEL
ELSE IF PARAM(1) IS EQUAL TO "SHITFED" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "SHITFED" THEN
PERFORM HANDLE-SHITFED
ELSE IF PARAM(1) IS EQUAL TO "SHOW-ESCAPES" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "SHOW-ESCAPES" THEN
PERFORM HANDLE-SHOW-ESCAPES
ELSE IF PARAM(1) IS EQUAL TO "SOURCE" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "SOURCE" THEN
PERFORM HANDLE-SOURCE
ELSE IF PARAM(1) IS EQUAL TO "STRESS" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "STRESS" THEN
PERFORM HANDLE-STRESS
ELSE IF PARAM(1) IS EQUAL TO "VOICE" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "VOICE" THEN
PERFORM HANDLE-VOICE.
HANDLE-HELP.
PERFORM BEGIN-STANDARD-REPLY.
IF PARAM(2) IS EQUAL TO "ME" THEN
IF PARAM OF WOPO(2) IS EQUAL TO "ME" THEN
STRING "$240$$159$$142$$135$ "
- "GOD HELPS THOSE WHO HELP THEMSELVES, COMMIE. "
- "$240$$159$$142$$134"
@ -463,8 +466,8 @@
WITH POINTER WORK-PTR
ELSE
STRING "COMMANDS$COLN$ "
- "$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN $$DEOP "
- "$$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK "
- "$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN "
- "$$DEOP $$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK "
- "$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED "
- "$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE "
- "$NUL$"
@ -496,10 +499,10 @@
PERFORM SEND-LINE.
HANDLE-LICK.
IF WOPO-PARAMS IS LESS THAN 2 THEN
IF NUM-PARAMS OF WOPO IS LESS THAN 2 THEN
MOVE NICK TO WORK
ELSE
MOVE PARAM(2) TO WORK.
MOVE PARAM OF WOPO(2) TO WORK.
PERFORM BEGIN-REPLY.
STRING "$SOH$ACTION VIGOROUSLY LICKS " DELIMITED BY SIZE,
WORK DELIMITED BY SPACES,
@ -509,8 +512,8 @@
PERFORM SEND-LINE.
HANDLE-LEVEL.
IF PARAM(2) IS NOT EQUAL TO SPACES THEN
MOVE PARAM(2) TO USER-NAME
IF PARAM OF WOPO(2) IS NOT EQUAL TO SPACES THEN
MOVE PARAM OF WOPO(2) TO USER-NAME
ELSE
MOVE NICK TO USER-NAME.
READ USERS RECORD
@ -569,10 +572,10 @@
PERFORM REPLY-ACK.
PERFORM VALIDATE-USER.
IF USER-LEVEL IS NOT LESS THAN 80 AND
PARAM(2) IS NOT EQUAL TO "0" THEN
PARAM OF WOPO(2) IS NOT EQUAL TO "0" THEN
MOVE SPACES TO MSG-BODY
STRING "JOIN ", DELIMITED BY SIZE,
PARAM(2), DELIMITED BY SPACES,
PARAM OF WOPO(2), DELIMITED BY SPACES,
"$NUL$"
INTO MSG-BODY
PERFORM SEND-LINE
@ -582,10 +585,10 @@
HANDLE-PART.
PERFORM REPLY-ACK.
PERFORM VALIDATE-USER.
IF WOPO-PARAMS IS LESS THAN 2 THEN
IF NUM-PARAMS OF WOPO IS LESS THAN 2 THEN
MOVE TARGET TO WORK
ELSE
MOVE PARAM(2) TO WORK
MOVE PARAM OF WOPO(2) TO WORK
IF USER-LEVEL IS NOT LESS THAN 80 THEN
MOVE SPACES TO MSG-BODY
STRING "PART " DELIMITED BY SIZE,
@ -603,7 +606,7 @@
STRING "$LOWO$" INTO MSG-BODY WITH POINTER WORK-PTR.
STRING-PARAMS.
STRING PARAM(WOPO-COUNTER) DELIMITED BY SPACES
STRING PARAM OF WOPO(WOPO-COUNTER) DELIMITED BY SPACES
INTO MSG-BODY
WITH POINTER WORK-PTR.
ADD 1 TO WORK-PTR.
@ -611,9 +614,9 @@
HANDLE-VOICE.
PERFORM REPLY-ACK.
PERFORM VALIDATE-USER.
IF WOPO-PARAMS IS LESS THAN 2 THEN
MOVE NICK TO PARAM(2)
MOVE 2 TO WOPO-PARAMS.
IF NUM-PARAMS OF WOPO IS LESS THAN 2 THEN
MOVE NICK TO PARAM OF WOPO(2)
MOVE 2 TO NUM-PARAMS OF WOPO.
IF USER-LEVEL IS NOT LESS THAN 60 THEN
MOVE SPACES TO MSG-BODY
MOVE 1 TO WORK-PTR
@ -625,12 +628,14 @@
PERFORM STRING-LOWVS
VARYING WOPO-COUNTER
FROM 2, BY 1
UNTIL WOPO-COUNTER IS GREATER THAN WOPO-PARAMS
UNTIL WOPO-COUNTER IS GREATER THAN
NUM-PARAMS OF WOPO
ADD 1 TO WORK-PTR
PERFORM STRING-PARAMS
VARYING WOPO-COUNTER
FROM 2, BY 1
UNTIL WOPO-COUNTER IS GREATER THAN WOPO-PARAMS
UNTIL WOPO-COUNTER IS GREATER THAN
NUM-PARAMS OF WOPO
STRING "$NUL$"
INTO MSG-BODY
WITH POINTER WORK-PTR
@ -641,9 +646,9 @@
HANDLE-DEVOICE.
PERFORM REPLY-ACK.
PERFORM VALIDATE-USER.
IF WOPO-PARAMS IS LESS THAN 2 THEN
MOVE NICK TO PARAM(2)
MOVE 2 TO WOPO-PARAMS.
IF NUM-PARAMS OF WOPO IS LESS THAN 2 THEN
MOVE NICK TO PARAM OF WOPO(2)
MOVE 2 TO NUM-PARAMS OF WOPO.
IF USER-LEVEL IS NOT LESS THAN 60 THEN
MOVE SPACES TO MSG-BODY
MOVE 1 TO WORK-PTR
@ -655,12 +660,14 @@
PERFORM STRING-LOWVS
VARYING WOPO-COUNTER
FROM 2, BY 1
UNTIL WOPO-COUNTER IS GREATER THAN WOPO-PARAMS
UNTIL WOPO-COUNTER IS GREATER THAN
NUM-PARAMS OF WOPO
ADD 1 TO WORK-PTR
PERFORM STRING-PARAMS
VARYING WOPO-COUNTER
FROM 2, BY 1
UNTIL WOPO-COUNTER IS GREATER THAN WOPO-PARAMS
UNTIL WOPO-COUNTER IS GREATER THAN
NUM-PARAMS OF WOPO
STRING "$NUL$"
INTO MSG-BODY
WITH POINTER WORK-PTR
@ -671,9 +678,9 @@
HANDLE-OP.
PERFORM REPLY-ACK.
PERFORM VALIDATE-USER.
IF WOPO-PARAMS IS LESS THAN 2 THEN
MOVE NICK TO PARAM(2)
MOVE 2 TO WOPO-PARAMS.
IF NUM-PARAMS OF WOPO IS LESS THAN 2 THEN
MOVE NICK TO PARAM OF WOPO(2)
MOVE 2 TO NUM-PARAMS OF WOPO.
IF USER-LEVEL IS NOT LESS THAN 70 THEN
MOVE SPACES TO MSG-BODY
MOVE 1 TO WORK-PTR
@ -685,12 +692,14 @@
PERFORM STRING-LOWOS
VARYING WOPO-COUNTER
FROM 2, BY 1
UNTIL WOPO-COUNTER IS GREATER THAN WOPO-PARAMS
UNTIL WOPO-COUNTER IS GREATER THAN
NUM-PARAMS OF WOPO
ADD 1 TO WORK-PTR
PERFORM STRING-PARAMS
VARYING WOPO-COUNTER
FROM 2, BY 1
UNTIL WOPO-COUNTER IS GREATER THAN WOPO-PARAMS
UNTIL WOPO-COUNTER IS GREATER THAN
NUM-PARAMS OF WOPO
STRING "$NUL$"
INTO MSG-BODY
WITH POINTER WORK-PTR
@ -701,9 +710,9 @@
HANDLE-DEOP.
PERFORM REPLY-ACK.
PERFORM VALIDATE-USER.
IF WOPO-PARAMS IS LESS THAN 2 THEN
MOVE NICK TO PARAM(2)
MOVE 2 TO WOPO-PARAMS.
IF NUM-PARAMS OF WOPO IS LESS THAN 2 THEN
MOVE NICK TO PARAM OF WOPO(2)
MOVE 2 TO NUM-PARAMS OF WOPO.
IF USER-LEVEL IS NOT LESS THAN 70 THEN
MOVE SPACES TO MSG-BODY
MOVE 1 TO WORK-PTR
@ -715,12 +724,14 @@
PERFORM STRING-LOWOS
VARYING WOPO-COUNTER
FROM 2, BY 1
UNTIL WOPO-COUNTER IS GREATER THAN WOPO-PARAMS
UNTIL WOPO-COUNTER IS GREATER THAN
NUM-PARAMS OF WOPO
ADD 1 TO WORK-PTR
PERFORM STRING-PARAMS
VARYING WOPO-COUNTER
FROM 2, BY 1
UNTIL WOPO-COUNTER IS GREATER THAN WOPO-PARAMS
UNTIL WOPO-COUNTER IS GREATER THAN
NUM-PARAMS OF WOPO
STRING "$NUL$"
INTO MSG-BODY
WITH POINTER WORK-PTR
@ -748,10 +759,10 @@
PERFORM REPLY-ACK.
PERFORM VALIDATE-USER.
IF USER-LEVEL IS NOT LESS THAN 90 THEN
IF PARAM(2) IS NOT EQUAL TO SPACES THEN
IF PARAM(2) IS EQUAL TO "ON" THEN
IF PARAM OF WOPO(2) IS NOT EQUAL TO SPACES THEN
IF PARAM OF WOPO(2) IS EQUAL TO "ON" THEN
SET SHOW-ESCAPES TO ON
ELSE IF PARAM(2) IS EQUAL TO "OFF" THEN
ELSE IF PARAM OF WOPO(2) IS EQUAL TO "OFF" THEN
SET SHOW-ESCAPES TO OFF
ELSE NEXT SENTENCE
ELSE IF SHOULD-SHOW-ESCAPES THEN
@ -769,9 +780,9 @@
HANDLE-RELEVEL.
PERFORM REPLY-ACK.
PERFORM VALIDATE-USER.
MOVE PARAM(2) TO USER-NAME.
MOVE PARAM OF WOPO(2) TO USER-NAME.
IF USER-LEVEL IS NOT LESS THAN 99 THEN
MOVE PARAM(3) TO USER-LEVEL
MOVE PARAM OF WOPO(3) TO USER-LEVEL
IF USER-LEVEL IS NOT GREATER THAN ZERO THEN
DELETE USERS RECORD
INVALID KEY NEXT SENTENCE
@ -789,7 +800,7 @@
PERFORM SEND-LINE.
HANDLE-BF-CODE.
IF WOPO-PARAMS IS LESS THAN 2 THEN
IF NUM-PARAMS OF WOPO IS LESS THAN 2 THEN
PERFORM BEGIN-STANDARD-REPLY
STRING "CODE. ",
BF-CODE,
@ -801,7 +812,8 @@
ELSE
PERFORM REPLY-ACK
PERFORM VALIDATE-USER
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
TO WORK-PTR
UNSTRING MSG-BODY DELIMITED BY SPACE
INTO WORK,
WITH POINTER WORK-PTR
@ -814,7 +826,7 @@
PERFORM REPLY-NAK.
HANDLE-BF-INPUT.
IF WOPO-PARAMS IS LESS THAN 2 THEN
IF NUM-PARAMS OF WOPO IS LESS THAN 2 THEN
PERFORM BEGIN-STANDARD-REPLY
STRING "INPUT. ",
BF-INPUT
@ -826,7 +838,8 @@
ELSE
PERFORM REPLY-ACK
PERFORM VALIDATE-USER
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
TO WORK-PTR
UNSTRING MSG-BODY DELIMITED BY SPACE
INTO WORK,
WITH POINTER WORK-PTR
@ -856,10 +869,10 @@
D DISPLAY "HANDLING BF-RUN".
PERFORM REPLY-ACK
PERFORM VALIDATE-USER.
IF WOPO-PARAMS IS LESS THAN 2 THEN
IF NUM-PARAMS OF WOPO IS LESS THAN 2 THEN
MOVE 999 TO MAYBE-CYCLE-LIMIT
ELSE
UNSTRING PARAM(2) INTO MAYBE-CYCLE-LIMIT.
UNSTRING PARAM OF WOPO(2) INTO MAYBE-CYCLE-LIMIT.
D DISPLAY "CYCLE LIMIT. ", CYCLE-LIMIT.
IF USER-LEVEL IS NOT LESS THAN 50 THEN
MOVE MAYBE-CYCLE-LIMIT TO CYCLE-LIMIT
@ -896,21 +909,22 @@
NEXT SENTENCE
ELSE
MOVE 6 TO WORK-PTR
UNSTRING PARAM(1) DELIMITED BY SPACE OR "$SOH$"
UNSTRING PARAM OF WOPO(1) DELIMITED BY SPACE OR "$SOH$"
INTO WORK
WITH POINTER WORK-PTR
D DISPLAY "CTCP PARAM. ", WORK
MOVE WORK TO PARAM(1)
IF PARAM(1) IS EQUAL TO "PING" THEN
MOVE WORK TO PARAM OF WOPO(1)
IF PARAM OF WOPO(1) IS EQUAL TO "PING" THEN
PERFORM HANDLE-PING
ELSE IF PARAM(1) IS EQUAL TO "VERSION" THEN
ELSE IF PARAM OF WOPO(1) IS EQUAL TO "VERSION" THEN
PERFORM HANDLE-VERSION
* ELSE IF PARAM(1) IS EQUAL TO "TIME" THEN
* ELSE IF PARAM OF WOPO(1) IS EQUAL TO "TIME" THEN
* PERFORM HANDLE-TIME
ELSE NEXT SENTENCE.
HANDLE-PING.
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR.
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
TO WORK-PTR.
ADD 5 TO WORK-PTR
UNSTRING MSG-BODY DELIMITED BY "$NUL$"
INTO WORK