Fix an ancient off-by-one on user levels.
This commit is contained in:
parent
a8df769a1f
commit
043c8e4883
12
WOPO.COB
12
WOPO.COB
|
@ -467,7 +467,7 @@
|
||||||
|
|
||||||
HANDLE-JOIN.
|
HANDLE-JOIN.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS GREATER THAN 80 AND
|
IF USER-LEVEL IS NOT LESS THAN 80 AND
|
||||||
PARAM(2) IS NOT EQUAL TO "0" THEN
|
PARAM(2) IS NOT EQUAL TO "0" THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
STRING "JOIN ", DELIMITED BY SIZE,
|
STRING "JOIN ", DELIMITED BY SIZE,
|
||||||
|
@ -483,7 +483,7 @@
|
||||||
ELSE
|
ELSE
|
||||||
MOVE PARAM(2) TO WORK
|
MOVE PARAM(2) TO WORK
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS GREATER THAN 80 THEN
|
IF USER-LEVEL IS NOT LESS THAN 80 THEN
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
STRING "PART " DELIMITED BY SIZE,
|
STRING "PART " DELIMITED BY SIZE,
|
||||||
|
@ -506,7 +506,7 @@
|
||||||
IF WOPO-PARAMS IS LESS THAN 2 THEN
|
IF WOPO-PARAMS IS LESS THAN 2 THEN
|
||||||
MOVE NICK TO PARAM(2)
|
MOVE NICK TO PARAM(2)
|
||||||
MOVE 2 TO WOPO-PARAMS.
|
MOVE 2 TO WOPO-PARAMS.
|
||||||
IF USER-LEVEL IS GREATER THAN 70 THEN
|
IF USER-LEVEL IS NOT LESS THAN 70 THEN
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
MOVE 1 TO WORK-PTR
|
MOVE 1 TO WORK-PTR
|
||||||
|
@ -534,7 +534,7 @@
|
||||||
IF WOPO-PARAMS IS LESS THAN 2 THEN
|
IF WOPO-PARAMS IS LESS THAN 2 THEN
|
||||||
MOVE NICK TO PARAM(2)
|
MOVE NICK TO PARAM(2)
|
||||||
MOVE 2 TO WOPO-PARAMS.
|
MOVE 2 TO WOPO-PARAMS.
|
||||||
IF USER-LEVEL IS GREATER THAN 70 THEN
|
IF USER-LEVEL IS NOT LESS THAN 70 THEN
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
MOVE 1 TO WORK-PTR
|
MOVE 1 TO WORK-PTR
|
||||||
|
@ -562,7 +562,7 @@
|
||||||
READ CONFIG RECORD
|
READ CONFIG RECORD
|
||||||
INVALID KEY MOVE SPACES TO CONFIG-VALUE.
|
INVALID KEY MOVE SPACES TO CONFIG-VALUE.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS GREATER THAN 90 THEN
|
IF USER-LEVEL IS NOT LESS THAN 90 THEN
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
STRING "QUIT $COLN$" DELIMITED BY SIZE,
|
STRING "QUIT $COLN$" DELIMITED BY SIZE,
|
||||||
|
@ -574,7 +574,7 @@
|
||||||
HANDLE-RELEVEL.
|
HANDLE-RELEVEL.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
MOVE PARAM(2) TO USER-NAME.
|
MOVE PARAM(2) TO USER-NAME.
|
||||||
IF USER-LEVEL IS EQUAL TO 99 THEN
|
IF USER-LEVEL IS NOT LESS THAN 99 THEN
|
||||||
MOVE PARAM(3) TO USER-LEVEL
|
MOVE PARAM(3) TO USER-LEVEL
|
||||||
REWRITE USER-RECORD
|
REWRITE USER-RECORD
|
||||||
INVALID KEY WRITE USER-RECORD.
|
INVALID KEY WRITE USER-RECORD.
|
||||||
|
|
Loading…
Reference in New Issue