Removed debugging junk, added source link.
This commit is contained in:
parent
671b0cc8dd
commit
cce7b292f2
4
WOPO.COB
4
WOPO.COB
|
@ -103,8 +103,8 @@
|
||||||
CONFIG-VALUE DELIMITED BY " ",
|
CONFIG-VALUE DELIMITED BY " ",
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER MSG-LENGTH.
|
WITH POINTER MSG-LENGTH.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
MOVE "NICKSERV-PASSWORD" TO CONFIG-KEY.
|
MOVE "NICKSERV" TO CONFIG-KEY.
|
||||||
READ CONFIG RECORD
|
READ CONFIG RECORD
|
||||||
INVALID KEY MOVE SPACES TO CONFIG-KEY.
|
INVALID KEY MOVE SPACES TO CONFIG-KEY.
|
||||||
IF CONFIG-KEY IS NOT EQUAL TO SPACES THEN
|
IF CONFIG-KEY IS NOT EQUAL TO SPACES THEN
|
||||||
|
|
|
@ -147,7 +147,6 @@ int CHANNEL__SEND(void)
|
||||||
char *msg;
|
char *msg;
|
||||||
int sent, total;
|
int sent, total;
|
||||||
channel_from_cobol();
|
channel_from_cobol();
|
||||||
printf("Sending: %s\n", msg_body);
|
|
||||||
sent = 0;
|
sent = 0;
|
||||||
total = strlen(msg_body);
|
total = strlen(msg_body);
|
||||||
msg_body[total++] = '\n';
|
msg_body[total++] = '\n';
|
||||||
|
@ -183,7 +182,6 @@ int CHANNEL__RECV(void)
|
||||||
for(size_t i = 0; i < recv_buf_pos; i++) {
|
for(size_t i = 0; i < recv_buf_pos; i++) {
|
||||||
recv_buf[i] = message_end[i];
|
recv_buf[i] = message_end[i];
|
||||||
}
|
}
|
||||||
printf("Received: %s\n", msg_body);
|
|
||||||
channel_to_cobol();
|
channel_to_cobol();
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue