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

Increase USER-NAME width, change WOPO-CNF to batch

This commit is contained in:
Quinn Evans 2015-12-10 18:49:24 -07:00
parent 6c6f7c8531
commit 9c71098c0f
3 changed files with 35 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PRINTCNF.COB
View File

@ -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
View File

@ -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

61
WOPO.COB
View File

@ -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,36 +260,31 @@
* 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 MOVE SPACES TO MSG-BODY
INVALID KEY MOVE 0 TO USER-LEVEL. STRING "PRIVMSG NICKSERV $COLN$ACC " DELIMITED BY SIZE
D DISPLAY "SUPPOSED USER LEVEL ", USER-LEVEL. NICK DELIMITED BY SPACE
IF USER-LEVEL IS GREATER THAN 0 THEN " *$NUL$"
MOVE SPACES TO MSG-BODY INTO MSG-BODY
STRING "PRIVMSG NICKSERV $COLN$ACC " DELIMITED BY SIZE PERFORM SEND-LINE
NICK DELIMITED BY SPACE MOVE "NOTICE" TO WAITING-COMMAND
"$NUL$" MOVE 0 TO STATE
INTO MSG-BODY D DISPLAY "WAITING FOR ACC."
PERFORM SEND-LINE PERFORM WAIT-FOR-ACC UNTIL DONE
MOVE "NOTICE" TO WAITING-COMMAND * RESTORE AND REPARSE MESSAGE.
MOVE 0 TO STATE MOVE MSG-BODY-TMP TO MSG-BODY.
D DISPLAY "WAITING FOR ACC." PERFORM GET-IRC-STATE.
PERFORM WAIT-FOR-ACC UNTIL DONE PERFORM GET-PARAMS.
D DISPLAY "USER VALIDATED."
D ELSE
D DISPLAY "USER NOT VALIDATED."
.
* RESTORE AND REPARSE MESSAGE.
MOVE MSG-BODY-TMP TO MSG-BODY.
PERFORM GET-IRC-STATE.
PERFORM GET-PARAMS.
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,8 +714,12 @@
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
REWRITE USER-RECORD IF USER-LEVEL IS NOT GREATER THAN ZERO THEN
INVALID KEY WRITE USER-RECORD. DELETE USERS RECORD
INVALID KEY NEXT SENTENCE
ELSE
REWRITE USER-RECORD
INVALID KEY WRITE USER-RECORD.
READ USERS RECORD READ USERS RECORD
INVALID KEY MOVE 0 TO USER-LEVEL. INVALID KEY MOVE 0 TO USER-LEVEL.
PERFORM BEGIN-REPLY. PERFORM BEGIN-REPLY.