Increase USER-NAME width, change WOPO-CNF to batch
This commit is contained in:
parent
6c6f7c8531
commit
9c71098c0f
|
@ -26,7 +26,7 @@
|
||||||
03 CONFIG-VALUE PIC X(64).
|
03 CONFIG-VALUE PIC X(64).
|
||||||
FD USERS.
|
FD USERS.
|
||||||
01 USER-RECORD.
|
01 USER-RECORD.
|
||||||
03 USER-NAME PIC X(16).
|
03 USER-NAME PIC X(40).
|
||||||
03 USER-LEVEL PIC 9(2).
|
03 USER-LEVEL PIC 9(2).
|
||||||
FD CHANNELS.
|
FD CHANNELS.
|
||||||
01 CHANNEL-RECORD.
|
01 CHANNEL-RECORD.
|
||||||
|
|
15
WOPO-CNF.COB
15
WOPO-CNF.COB
|
@ -26,7 +26,7 @@
|
||||||
03 CONFIG-VALUE PIC X(64).
|
03 CONFIG-VALUE PIC X(64).
|
||||||
FD USERS.
|
FD USERS.
|
||||||
01 USER-RECORD.
|
01 USER-RECORD.
|
||||||
03 USER-NAME PIC X(16).
|
03 USER-NAME PIC X(40).
|
||||||
03 USER-LEVEL PIC 9(2).
|
03 USER-LEVEL PIC 9(2).
|
||||||
FD CHANNELS.
|
FD CHANNELS.
|
||||||
01 CHANNEL-RECORD.
|
01 CHANNEL-RECORD.
|
||||||
|
@ -58,25 +58,18 @@
|
||||||
STOP RUN.
|
STOP RUN.
|
||||||
|
|
||||||
WRITE-CONFIG-ENTRY.
|
WRITE-CONFIG-ENTRY.
|
||||||
DISPLAY "KEY?"
|
ACCEPT CONFIG-RECORD.
|
||||||
ACCEPT CONFIG-KEY.
|
IF CONFIG-RECORD IS EQUAL TO SPACES
|
||||||
DISPLAY "VALUE?"
|
|
||||||
ACCEPT CONFIG-VALUE.
|
|
||||||
IF CONFIG-KEY EQUALS SPACES OR CONFIG-VALUE EQUALS SPACES
|
|
||||||
THEN MOVE 10 TO STATE
|
THEN MOVE 10 TO STATE
|
||||||
ELSE WRITE CONFIG-RECORD.
|
ELSE WRITE CONFIG-RECORD.
|
||||||
|
|
||||||
WRITE-USER-ENTRY.
|
WRITE-USER-ENTRY.
|
||||||
DISPLAY "USER?"
|
ACCEPT USER-RECORD.
|
||||||
ACCEPT USER-NAME.
|
|
||||||
DISPLAY "LEVEL?"
|
|
||||||
ACCEPT USER-LEVEL.
|
|
||||||
IF USER-NAME EQUALS SPACES OR USER-LEVEL EQUALS 0
|
IF USER-NAME EQUALS SPACES OR USER-LEVEL EQUALS 0
|
||||||
THEN MOVE 10 TO STATE
|
THEN MOVE 10 TO STATE
|
||||||
ELSE WRITE USER-RECORD.
|
ELSE WRITE USER-RECORD.
|
||||||
|
|
||||||
WRITE-CHANNEL-ENTRY.
|
WRITE-CHANNEL-ENTRY.
|
||||||
DISPLAY "CHANNEL?"
|
|
||||||
ACCEPT CHANNEL-NAME.
|
ACCEPT CHANNEL-NAME.
|
||||||
IF CHANNEL-NAME EQUALS SPACES
|
IF CHANNEL-NAME EQUALS SPACES
|
||||||
THEN MOVE 10 TO STATE
|
THEN MOVE 10 TO STATE
|
||||||
|
|
31
WOPO.COB
31
WOPO.COB
|
@ -31,7 +31,7 @@
|
||||||
03 CONFIG-VALUE PIC X(64).
|
03 CONFIG-VALUE PIC X(64).
|
||||||
FD USERS.
|
FD USERS.
|
||||||
01 USER-RECORD.
|
01 USER-RECORD.
|
||||||
03 USER-NAME PIC X(16).
|
03 USER-NAME PIC X(40).
|
||||||
03 USER-LEVEL PIC 9(2).
|
03 USER-LEVEL PIC 9(2).
|
||||||
FD CHANNELS.
|
FD CHANNELS.
|
||||||
01 CHANNEL-RECORD.
|
01 CHANNEL-RECORD.
|
||||||
|
@ -48,7 +48,7 @@
|
||||||
03 ASCII-TABLE.
|
03 ASCII-TABLE.
|
||||||
05 ASCII-CELL PIC 999 OCCURS 999 TIMES.
|
05 ASCII-CELL PIC 999 OCCURS 999 TIMES.
|
||||||
01 WOPO.
|
01 WOPO.
|
||||||
03 WOPO-NICK PIC X(16).
|
03 WOPO-NICK PIC X(40).
|
||||||
03 WORK PIC X(999).
|
03 WORK PIC X(999).
|
||||||
03 WORK-PREFIX REDEFINES WORK PIC XX.
|
03 WORK-PREFIX REDEFINES WORK PIC XX.
|
||||||
88 IS-COMMAND VALUE "$$".
|
88 IS-COMMAND VALUE "$$".
|
||||||
|
@ -61,7 +61,7 @@
|
||||||
03 MSG-BODY-TMP PIC X(999).
|
03 MSG-BODY-TMP PIC X(999).
|
||||||
|
|
||||||
01 USERS-HEADER.
|
01 USERS-HEADER.
|
||||||
03 FILLER PIC X(16) VALUE "USER NAME.".
|
03 FILLER PIC X(40) VALUE "USER NAME.".
|
||||||
03 FILLER PIC X(6) VALUE "LEVEL.".
|
03 FILLER PIC X(6) VALUE "LEVEL.".
|
||||||
|
|
||||||
01 IRC-PARAMETERS.
|
01 IRC-PARAMETERS.
|
||||||
|
@ -76,7 +76,7 @@
|
||||||
05 PARAM-PTR PIC 999 OCCURS 15 TIMES.
|
05 PARAM-PTR PIC 999 OCCURS 15 TIMES.
|
||||||
|
|
||||||
01 IRC-STATE.
|
01 IRC-STATE.
|
||||||
03 NICK PIC X(16).
|
03 NICK PIC X(40).
|
||||||
03 COMMAND PIC X(16).
|
03 COMMAND PIC X(16).
|
||||||
88 KICK VALUE "KICK".
|
88 KICK VALUE "KICK".
|
||||||
88 PING VALUE "PING".
|
88 PING VALUE "PING".
|
||||||
|
@ -260,24 +260,16 @@
|
||||||
* SAVE MESSAGE.
|
* SAVE MESSAGE.
|
||||||
MOVE MSG-BODY TO MSG-BODY-TMP.
|
MOVE MSG-BODY TO MSG-BODY-TMP.
|
||||||
MOVE NICK TO USER-NAME.
|
MOVE NICK TO USER-NAME.
|
||||||
READ USERS RECORD
|
|
||||||
INVALID KEY MOVE 0 TO USER-LEVEL.
|
|
||||||
D DISPLAY "SUPPOSED USER LEVEL ", USER-LEVEL.
|
|
||||||
IF USER-LEVEL IS GREATER THAN 0 THEN
|
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
STRING "PRIVMSG NICKSERV $COLN$ACC " DELIMITED BY SIZE
|
STRING "PRIVMSG NICKSERV $COLN$ACC " DELIMITED BY SIZE
|
||||||
NICK DELIMITED BY SPACE
|
NICK DELIMITED BY SPACE
|
||||||
"$NUL$"
|
" *$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
MOVE "NOTICE" TO WAITING-COMMAND
|
MOVE "NOTICE" TO WAITING-COMMAND
|
||||||
MOVE 0 TO STATE
|
MOVE 0 TO STATE
|
||||||
D DISPLAY "WAITING FOR ACC."
|
D DISPLAY "WAITING FOR ACC."
|
||||||
PERFORM WAIT-FOR-ACC UNTIL DONE
|
PERFORM WAIT-FOR-ACC UNTIL DONE
|
||||||
D DISPLAY "USER VALIDATED."
|
|
||||||
D ELSE
|
|
||||||
D DISPLAY "USER NOT VALIDATED."
|
|
||||||
.
|
|
||||||
* RESTORE AND REPARSE MESSAGE.
|
* RESTORE AND REPARSE MESSAGE.
|
||||||
MOVE MSG-BODY-TMP TO MSG-BODY.
|
MOVE MSG-BODY-TMP TO MSG-BODY.
|
||||||
PERFORM GET-IRC-STATE.
|
PERFORM GET-IRC-STATE.
|
||||||
|
@ -285,11 +277,14 @@
|
||||||
|
|
||||||
WAIT-FOR-ACC.
|
WAIT-FOR-ACC.
|
||||||
PERFORM WAIT-FOR-COMMAND.
|
PERFORM WAIT-FOR-COMMAND.
|
||||||
IF PARAM(1) EQUALS USER-NAME AND PARAM(2) EQUALS "ACC" THEN
|
IF PARAM(1) EQUALS USER-NAME AND PARAM(4) EQUALS "ACC" THEN
|
||||||
MOVE 99 TO STATE
|
MOVE 99 TO STATE
|
||||||
IF PARAM(3) IS NOT EQUAL TO "3" THEN
|
IF PARAM(5) IS NOT EQUAL TO "3" THEN
|
||||||
MOVE 0 TO USER-LEVEL
|
MOVE 0 TO USER-LEVEL
|
||||||
ELSE NEXT SENTENCE
|
ELSE
|
||||||
|
MOVE PARAM(3) TO USER-NAME
|
||||||
|
READ USERS RECORD
|
||||||
|
INVALID KEY MOVE 0 TO USER-LEVEL
|
||||||
ELSE MOVE SPACES TO COMMAND OF IRC-STATE.
|
ELSE MOVE SPACES TO COMMAND OF IRC-STATE.
|
||||||
|
|
||||||
MAIN.
|
MAIN.
|
||||||
|
@ -719,6 +714,10 @@
|
||||||
MOVE PARAM(2) TO USER-NAME.
|
MOVE PARAM(2) TO USER-NAME.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 99 THEN
|
IF USER-LEVEL IS NOT LESS THAN 99 THEN
|
||||||
MOVE PARAM(3) TO USER-LEVEL
|
MOVE PARAM(3) TO USER-LEVEL
|
||||||
|
IF USER-LEVEL IS NOT GREATER THAN ZERO THEN
|
||||||
|
DELETE USERS RECORD
|
||||||
|
INVALID KEY NEXT SENTENCE
|
||||||
|
ELSE
|
||||||
REWRITE USER-RECORD
|
REWRITE USER-RECORD
|
||||||
INVALID KEY WRITE USER-RECORD.
|
INVALID KEY WRITE USER-RECORD.
|
||||||
READ USERS RECORD
|
READ USERS RECORD
|
||||||
|
|
Loading…
Reference in New Issue