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

Add handling of commands via NOTICE, replies via non-channel.

This commit is contained in:
Quinn Evans 2015-09-27 02:22:35 -06:00
parent 59f780e08e
commit fca97f9d52
2 changed files with 34 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
WOPO.COB
View File

@ -36,6 +36,8 @@
01 BUFFER.
03 MSG-LENGTH PIC 9(3).
03 MSG-BODY PIC X(512).
01 WOPO.
03 WOPO-NICK PIC X(16).
01 IRC-MESSAGE.
03 PREFIX.
05 NICK PIC X(16).
@ -44,6 +46,7 @@
03 COMMAND PIC X(16).
88 PING VALUE "PING".
88 PRIVMSG VALUE "PRIVMSG".
88 NOTICE VALUE "NOTICE".
03 PARAMETERS.
05 TARGET PIC X(50).
05 REST PIC X(480).
@ -75,13 +78,14 @@
GO TO DIE.
MOVE "NICK" TO CONFIG-KEY.
PERFORM READ-CONFIG-ENTRY.
MOVE CONFIG-VALUE TO WOPO-NICK.
MOVE 1 TO MSG-LENGTH.
INITIALIZE MSG-BODY.
STRING "NICK"
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
ADD 1 TO MSG-LENGTH.
STRING CONFIG-VALUE DELIMITED BY SPACE,
STRING WOPO-NICK DELIMITED BY SPACE,
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
PERFORM SEND-LINE.
@ -202,7 +206,29 @@
IF PING THEN
PERFORM PONG
ELSE IF PRIVMSG THEN
PERFORM HANDLE-PRIVMSG.
PERFORM HANDLE-MESSAGE
ELSE IF NOTICE THEN
PERFORM HANDLE-MESSAGE.
BEGIN-REPLY.
INITIALIZE MSG-BODY.
MOVE 1 TO MSG-LENGTH.
STRING COMMAND
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
ADD 1 TO MSG-LENGTH.
IF TARGET IS EQUAL TO WOPO-NICK THEN
STRING NICK
INTO MSG-BODY
WITH POINTER MSG-LENGTH
ELSE
STRING TARGET
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
ADD 1 TO MSG-LENGTH.
STRING ":"
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
PONG.
STRING "PONG"
@ -210,7 +236,7 @@
WITH POINTER MSG-LENGTH.
PERFORM SEND-LINE.
HANDLE-PRIVMSG.
HANDLE-MESSAGE.
PERFORM GET-PARAMS.
MOVE PARAM(1) TO WORK.
IF IS-COMMAND THEN
@ -233,26 +259,14 @@
PERFORM HANDLE-RELEVEL.
HANDLE-HELP.
INITIALIZE MSG-BODY.
MOVE 1 TO MSG-LENGTH.
STRING "PRIVMSG "
TARGET
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
ADD 1 TO MSG-LENGTH.
STRING ":$HELP $LEVEL $OP $JOIN $PART $QUIT $RELEVEL"
PERFORM BEGIN-REPLY.
STRING "$HELP $LEVEL $OP $JOIN $PART $QUIT $RELEVEL"
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
PERFORM SEND-LINE.
HANDLE-SOURCE.
INITIALIZE MSG-BODY.
MOVE 1 TO MSG-LENGTH.
STRING "PRIVMSG "
TARGET
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
ADD 1 TO MSG-LENGTH.
PERFORM BEGIN-REPLY.
STRING ":HTTPS://GITHUB.COM/HEDDWCH/WOPO"
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
@ -265,15 +279,8 @@
MOVE NICK TO USER-NAME.
READ USERS RECORD
INVALID KEY MOVE 0 TO USER-LEVEL.
INITIALIZE MSG-BODY.
MOVE 1 TO MSG-LENGTH.
STRING "PRIVMSG " DELIMITED BY SIZE
TARGET DELIMITED BY SPACE
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
ADD 1 TO MSG-LENGTH
STRING ":"
USER-RECORD
PERFORM BEGIN-REPLY
STRING USER-RECORD
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
PERFORM SEND-LINE.

1
channel.c
View File

@ -90,7 +90,6 @@ void CHANNEL__INIT(char *buffer)
int CHANNEL__OPEN(void)
{
channel_from_cobol();
printf("Connecting to: %s\n", msg_body);
if(!strlen(msg_body)) {
channel_string_to_cobol("No host specified");
return EBADDEST;