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 " ",
|
||||
INTO MSG-BODY
|
||||
WITH POINTER MSG-LENGTH.
|
||||
PERFORM SEND-LINE.
|
||||
MOVE "NICKSERV-PASSWORD" TO CONFIG-KEY.
|
||||
PERFORM SEND-LINE.
|
||||
MOVE "NICKSERV" TO CONFIG-KEY.
|
||||
READ CONFIG RECORD
|
||||
INVALID KEY MOVE SPACES TO CONFIG-KEY.
|
||||
IF CONFIG-KEY IS NOT EQUAL TO SPACES THEN
|
||||
|
|
|
@ -147,7 +147,6 @@ int CHANNEL__SEND(void)
|
|||
char *msg;
|
||||
int sent, total;
|
||||
channel_from_cobol();
|
||||
printf("Sending: %s\n", msg_body);
|
||||
sent = 0;
|
||||
total = strlen(msg_body);
|
||||
msg_body[total++] = '\n';
|
||||
|
@ -183,7 +182,6 @@ int CHANNEL__RECV(void)
|
|||
for(size_t i = 0; i < recv_buf_pos; i++) {
|
||||
recv_buf[i] = message_end[i];
|
||||
}
|
||||
printf("Received: %s\n", msg_body);
|
||||
channel_to_cobol();
|
||||
return 0;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue