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

Minor refactor.

This commit is contained in:
Quinn Evans 2017-03-21 20:45:01 -06:00
parent 988b23a8a0
commit a76b69ea88
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
WOPO.COB
View File

@ -458,29 +458,28 @@
PERFORM GET-MSG-CONTENTS.
IF IS-CTCP(2) THEN
PERFORM HANDLE-CTCP
ELSE IF IS-COMMAND(2) THEN
MOVE COMMAND-BODY(2) TO R(1)
D DISPLAY "COMMAND BODY ", R(1)
PERFORM INIT-REPLY
PERFORM HANDLE-COMMAND
ELSE IF TARGET OF IRC-STATE IS EQUAL TO NICK OF WOPO THEN
MOVE R(2) TO R(1)
PERFORM INIT-REPLY
PERFORM HANDLE-COMMAND
ELSE
MOVE 1 TO PTR(2)
UNSTRING R(2) DELIMITED BY "$COLN$ "
INTO R(1)
WITH POINTER PTR(2)
IF R(1) IS EQUAL TO NICK OF WOPO THEN
UNSTRING R(2)
MOVE 0 TO INPUT-SOURCE, OUTPUT-DEST.
PERFORM INIT-REPLY
IF IS-COMMAND(2) THEN
MOVE COMMAND-BODY(2) TO R(1)
D DISPLAY "COMMAND BODY ", R(1)
PERFORM HANDLE-COMMAND
ELSE IF TARGET OF IRC-STATE IS EQUAL TO NICK OF WOPO THEN
MOVE R(2) TO R(1)
PERFORM HANDLE-COMMAND
ELSE
MOVE 1 TO PTR(2)
UNSTRING R(2) DELIMITED BY "$COLN$ "
INTO R(1)
WITH POINTER PTR(2)
PERFORM INIT-REPLY
PERFORM HANDLE-COMMAND.
IF R(1) IS EQUAL TO NICK OF WOPO THEN
UNSTRING R(2)
INTO R(1)
WITH POINTER PTR(2)
PERFORM HANDLE-COMMAND.
HANDLE-COMMAND.
MOVE 0 TO INPUT-SOURCE, OUTPUT-DEST.
MOVE 1 TO SRC.
MOVE 2 TO DEST.
PERFORM INDEX-PARAMS.