Fix the goddamn forgetting our own name bug. Yep.
This commit is contained in:
parent
e675cad49b
commit
c4197f2121
34
WOPO.COB
34
WOPO.COB
|
@ -401,27 +401,21 @@
|
||||||
BEGIN-REPLY.
|
BEGIN-REPLY.
|
||||||
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER.
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER.
|
||||||
MOVE 1 TO PTR(SRC).
|
MOVE 1 TO PTR(SRC).
|
||||||
STRING COMMAND OF OUTPUT-SPEC DELIMITED BY SPACES
|
STRING COMMAND OF OUTPUT-SPEC DELIMITED BY SPACES,
|
||||||
INTO MSG-BODY OF OUTPUT-BUFFER
|
" " DELIMITED BY SIZE,
|
||||||
WITH POINTER PTR(SRC).
|
TARGET OF OUTPUT-SPEC DELIMITED BY SPACES,
|
||||||
ADD 1 TO PTR(SRC).
|
" $COLN$" DELIMITED BY SIZE
|
||||||
STRING TARGET OF OUTPUT-SPEC DELIMITED BY SPACES
|
|
||||||
INTO MSG-BODY OF OUTPUT-BUFFER
|
|
||||||
WITH POINTER PTR(SRC).
|
|
||||||
STRING " $COLN$" DELIMITED BY SIZE
|
|
||||||
INTO MSG-BODY OF OUTPUT-BUFFER
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(SRC).
|
WITH POINTER PTR(SRC).
|
||||||
|
|
||||||
BEGIN-STANDARD-REPLY.
|
BEGIN-STANDARD-REPLY.
|
||||||
PERFORM BEGIN-REPLY.
|
PERFORM BEGIN-REPLY.
|
||||||
IF TARGET OF OUTPUT-SPEC IS NOT EQUAL TO NICK OF WOPO THEN
|
IF TARGET OF OUTPUT-SPEC IS NOT EQUAL TO NICK OF WOPO THEN
|
||||||
STRING "$226$$128$$139$"
|
STRING "$226$$128$$139$" DELIMITED BY SIZE,
|
||||||
|
NICK OF OUTPUT-SPEC DELIMITED BY SPACES,
|
||||||
|
". " DELIMITED BY SIZE
|
||||||
INTO MSG-BODY OF OUTPUT-BUFFER
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(SRC).
|
WITH POINTER PTR(SRC).
|
||||||
STRING NICK OF OUTPUT-SPEC DELIMITED BY SPACES
|
|
||||||
". " DELIMITED BY SIZE
|
|
||||||
INTO MSG-BODY OF OUTPUT-BUFFER
|
|
||||||
WITH POINTER PTR(SRC).
|
|
||||||
|
|
||||||
USAGE-REPLY.
|
USAGE-REPLY.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
|
@ -729,6 +723,7 @@
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM DO-OUTPUT.
|
||||||
|
|
||||||
HANDLE-JOIN.
|
HANDLE-JOIN.
|
||||||
|
MOVE 1 TO SRC.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
MOVE INPUT-SOURCE TO SRC.
|
MOVE INPUT-SOURCE TO SRC.
|
||||||
|
@ -752,6 +747,7 @@
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
|
|
||||||
HANDLE-PART.
|
HANDLE-PART.
|
||||||
|
MOVE 1 TO SRC.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
MOVE INPUT-SOURCE TO SRC.
|
MOVE INPUT-SOURCE TO SRC.
|
||||||
|
@ -788,6 +784,7 @@
|
||||||
WITH POINTER PTR(2).
|
WITH POINTER PTR(2).
|
||||||
|
|
||||||
HANDLE-VOICE.
|
HANDLE-VOICE.
|
||||||
|
MOVE 1 TO SRC.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
MOVE INPUT-SOURCE TO SRC.
|
MOVE INPUT-SOURCE TO SRC.
|
||||||
|
@ -823,6 +820,7 @@
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
|
|
||||||
HANDLE-DEVOICE.
|
HANDLE-DEVOICE.
|
||||||
|
MOVE 1 TO SRC.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
MOVE INPUT-SOURCE TO SRC.
|
MOVE INPUT-SOURCE TO SRC.
|
||||||
|
@ -862,6 +860,7 @@
|
||||||
WITH POINTER PTR(2).
|
WITH POINTER PTR(2).
|
||||||
|
|
||||||
HANDLE-OP.
|
HANDLE-OP.
|
||||||
|
MOVE 1 TO SRC.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
MOVE INPUT-SOURCE TO SRC.
|
MOVE INPUT-SOURCE TO SRC.
|
||||||
|
@ -897,6 +896,7 @@
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
|
|
||||||
HANDLE-DEOP.
|
HANDLE-DEOP.
|
||||||
|
MOVE 1 TO SRC.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
MOVE INPUT-SOURCE TO SRC.
|
MOVE INPUT-SOURCE TO SRC.
|
||||||
|
@ -932,6 +932,7 @@
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
|
|
||||||
HANDLE-QUIT.
|
HANDLE-QUIT.
|
||||||
|
MOVE 1 TO SRC.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
MOVE "QUIT-MESSAGE" TO CONFIG-KEY.
|
MOVE "QUIT-MESSAGE" TO CONFIG-KEY.
|
||||||
READ CONFIG RECORD
|
READ CONFIG RECORD
|
||||||
|
@ -948,6 +949,7 @@
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
|
|
||||||
HANDLE-SHOW-ESCAPES.
|
HANDLE-SHOW-ESCAPES.
|
||||||
|
MOVE 1 TO SRC.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 90 THEN
|
IF USER-LEVEL IS NOT LESS THAN 90 THEN
|
||||||
|
@ -976,6 +978,7 @@
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM DO-OUTPUT.
|
||||||
|
|
||||||
HANDLE-RELEVEL.
|
HANDLE-RELEVEL.
|
||||||
|
MOVE 1 TO SRC.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 99 THEN
|
IF USER-LEVEL IS NOT LESS THAN 99 THEN
|
||||||
|
@ -1018,6 +1021,7 @@
|
||||||
PERFORM BEGIN-STANDARD-REPLY
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
PERFORM DO-OUTPUT
|
PERFORM DO-OUTPUT
|
||||||
ELSE
|
ELSE
|
||||||
|
MOVE 1 TO SRC
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
PERFORM VALIDATE-USER
|
PERFORM VALIDATE-USER
|
||||||
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
||||||
|
@ -1040,6 +1044,7 @@
|
||||||
PERFORM BEGIN-STANDARD-REPLY
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
PERFORM DO-OUTPUT
|
PERFORM DO-OUTPUT
|
||||||
ELSE
|
ELSE
|
||||||
|
MOVE 1 TO SRC
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
PERFORM VALIDATE-USER
|
PERFORM VALIDATE-USER
|
||||||
IF USER-LEVEL IS NOT LESS THAN 50 THEN
|
IF USER-LEVEL IS NOT LESS THAN 50 THEN
|
||||||
|
@ -1061,7 +1066,8 @@
|
||||||
|
|
||||||
HANDLE-BF-RUN.
|
HANDLE-BF-RUN.
|
||||||
D DISPLAY "HANDLING BF-RUN".
|
D DISPLAY "HANDLING BF-RUN".
|
||||||
PERFORM REPLY-ACK
|
MOVE 1 TO SRC.
|
||||||
|
PERFORM REPLY-ACK.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 50 THEN
|
IF USER-LEVEL IS NOT LESS THAN 50 THEN
|
||||||
MOVE INPUT-SOURCE TO SRC
|
MOVE INPUT-SOURCE TO SRC
|
||||||
|
|
Loading…
Reference in New Issue