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

Fix an ancient off-by-one on user levels.

This commit is contained in:
Quinn Evans 2015-10-13 13:52:47 -06:00
parent a8df769a1f
commit 043c8e4883
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
WOPO.COB
View File

@ -467,7 +467,7 @@
HANDLE-JOIN.
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
MOVE SPACES TO MSG-BODY
STRING "JOIN ", DELIMITED BY SIZE,
@ -483,7 +483,7 @@
ELSE
MOVE PARAM(2) TO WORK
PERFORM VALIDATE-USER.
IF USER-LEVEL IS GREATER THAN 80 THEN
IF USER-LEVEL IS NOT LESS THAN 80 THEN
PERFORM REPLY-ACK
MOVE SPACES TO MSG-BODY
STRING "PART " DELIMITED BY SIZE,
@ -506,7 +506,7 @@
IF WOPO-PARAMS IS LESS THAN 2 THEN
MOVE NICK TO PARAM(2)
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
MOVE SPACES TO MSG-BODY
MOVE 1 TO WORK-PTR
@ -534,7 +534,7 @@
IF WOPO-PARAMS IS LESS THAN 2 THEN
MOVE NICK TO PARAM(2)
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
MOVE SPACES TO MSG-BODY
MOVE 1 TO WORK-PTR
@ -562,7 +562,7 @@
READ CONFIG RECORD
INVALID KEY MOVE SPACES TO CONFIG-VALUE.
PERFORM VALIDATE-USER.
IF USER-LEVEL IS GREATER THAN 90 THEN
IF USER-LEVEL IS NOT LESS THAN 90 THEN
PERFORM REPLY-ACK
MOVE SPACES TO MSG-BODY
STRING "QUIT $COLN$" DELIMITED BY SIZE,
@ -574,7 +574,7 @@
HANDLE-RELEVEL.
PERFORM VALIDATE-USER.
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
REWRITE USER-RECORD
INVALID KEY WRITE USER-RECORD.