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

Move handling of "rest" argument colon to IRC-MSG, delete extra colon.

This commit is contained in:
Quinn Evans 2015-09-27 02:50:30 -06:00
parent bc6c250aa3
commit 4c26e61448
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
IRC-MSG.COB
View File

@ -3,7 +3,7 @@
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PREFIX-WORK PIC X(96).
01 WORK PIC X(480).
01 MSG-POINTER PIC 9(3).
LINKAGE SECTION.
@ -21,9 +21,11 @@
03 PARAMETERS.
05 TARGET PIC X(50).
05 REST PIC X(480).
05 REST-PREFIX REDEFINES REST PIC X.
88 REST-PARAM VALUE ":".
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
INITIALIZE IRC-MESSAGE, PREFIX-WORK, MSG-POINTER.
INITIALIZE IRC-MESSAGE, WORK, MSG-POINTER.
IF HAS-PREFIX THEN
PERFORM WITH-PREFIX
ELSE
@ -33,17 +35,22 @@
INTO COMMAND, TARGET
WITH POINTER MSG-POINTER.
UNSTRING MSG-BODY,
DELIMITED BY " ",
INTO REST,
WITH POINTER MSG-POINTER.
IF REST-PARAM THEN
MOVE REST TO WORK
MOVE 2 TO MSG-POINTER
UNSTRING WORK
INTO REST
WITH POINTER MSG-POINTER.
WITH-PREFIX.
MOVE 2 TO MSG-POINTER.
UNSTRING MSG-BODY,
DELIMITED BY SPACES,
INTO PREFIX-WORK,
INTO WORK,
WITH POINTER MSG-POINTER.
UNSTRING PREFIX-WORK,
UNSTRING WORK,
DELIMITED BY "!" OR "@",
INTO NICK,
IDENT,

5
WOPO.COB
View File

@ -55,7 +55,6 @@
03 WORK PIC X(50).
03 WORK-PREFIX REDEFINES WORK PIC X.
88 IS-COMMAND VALUE "$".
88 REST-PARAM VALUE ":".
03 PARAM PIC X(50) OCCURS 5 TIMES.
03 REG PIC X(50) OCCURS 5 TIMES.
@ -168,8 +167,6 @@
PARAM(4)
PARAM(5).
MOVE PARAM(1) TO WORK.
IF REST-PARAM THEN
UNSTRING WORK DELIMITED BY ":" INTO PARAM(1), PARAM(1).
VALIDATE-USER.
MOVE NICK TO USER-NAME.
@ -267,7 +264,7 @@
HANDLE-SOURCE.
PERFORM BEGIN-REPLY.
STRING ":HTTPS://GITHUB.COM/HEDDWCH/WOPO"
STRING "HTTPS://GITHUB.COM/HEDDWCH/WOPO"
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
PERFORM SEND-LINE.