Move handling of "rest" argument colon to IRC-MSG, delete extra colon.
This commit is contained in:
parent
bc6c250aa3
commit
4c26e61448
2 changed files with 13 additions and 9 deletions
17
IRC-MSG.COB
17
IRC-MSG.COB
|
@ -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
5
WOPO.COB
|
@ -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.
|
||||
|
|
Loading…
Reference in a new issue