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

Add debug output for command handling.

This commit is contained in:
Quinn Evans 2017-04-07 21:29:21 -06:00
parent c4197f2121
commit 28a92f27a8
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
WOPO.COB
View File

@ -504,28 +504,37 @@
D DISPLAY "HANDLING MESSAGE." D DISPLAY "HANDLING MESSAGE."
MOVE 2 TO DEST. MOVE 2 TO DEST.
PERFORM GET-MSG-CONTENTS. PERFORM GET-MSG-CONTENTS.
D DISPLAY "MESSAGE CONTENTS. ", R(2).
IF IS-CTCP(2) THEN IF IS-CTCP(2) THEN
PERFORM HANDLE-CTCP PERFORM HANDLE-CTCP
ELSE ELSE
MOVE 0 TO INPUT-SOURCE, OUTPUT-DEST. MOVE 0 TO INPUT-SOURCE, OUTPUT-DEST.
PERFORM INIT-REPLY PERFORM INIT-REPLY
IF IS-COMMAND(2) THEN IF IS-COMMAND(2) THEN
D DISPLAY "PREFIXED COMMAND DETECTED."
MOVE COMMAND-BODY(2) TO R(1) MOVE COMMAND-BODY(2) TO R(1)
D DISPLAY "COMMAND BODY ", R(1) D DISPLAY "COMMAND BODY ", R(1)
PERFORM HANDLE-COMMAND PERFORM HANDLE-COMMAND
ELSE IF TARGET OF IRC-STATE IS EQUAL TO NICK OF WOPO THEN ELSE IF TARGET OF IRC-STATE IS EQUAL TO NICK OF WOPO THEN
D DISPLAY "DIRECT MESSAGE DETECTED."
MOVE R(2) TO R(1) MOVE R(2) TO R(1)
PERFORM HANDLE-COMMAND PERFORM HANDLE-COMMAND
ELSE ELSE
D DISPLAY "ADDRESSED MESSAGE DETECTED."
MOVE 1 TO PTR(2) MOVE 1 TO PTR(2)
UNSTRING R(2) DELIMITED BY "$COLN$ " UNSTRING R(2) DELIMITED BY "$COLN$ "
INTO R(1) INTO R(1)
WITH POINTER PTR(2) WITH POINTER PTR(2)
D DISPLAY "NICK ADDRESSED. ", R(1)
IF R(1) IS EQUAL TO NICK OF WOPO THEN IF R(1) IS EQUAL TO NICK OF WOPO THEN
D DISPLAY "NICK MATCHED MINE."
UNSTRING R(2) UNSTRING R(2)
INTO R(1) INTO R(1)
WITH POINTER PTR(2) WITH POINTER PTR(2)
PERFORM HANDLE-COMMAND. PERFORM HANDLE-COMMAND
D ELSE
D DISPLAY "NOT TALKING TO ME. I AM ", NICK OF WOPO
.
HANDLE-SWITCHES. HANDLE-SWITCHES.
UNSTRING R(2) DELIMITED BY "/" UNSTRING R(2) DELIMITED BY "/"