Can someone explain why read-io cannot receive the ping reply from the
server. It seems to time out. I havenet received a good reason for this
and it has now brought me to a standstill.
Paul Tretter
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Sunday, September 10, 2000 8:59 PM
To: [EMAIL PROTECTED]
Subject: [REBOL] ACCESS ERROR
I get an Access Error message with this script and I am not sure why. Can
anyone help. I have pasted inline and attached. I just want it to connect
and join a channel and stay in the channel at this point.
Thanks for your help.
Paul Tretter
----------------------------------------------
REBOL[]
size: 1000
input-buffer: make string! size
output-buffer: make string! size
irc-port: [
scheme: 'tcp
host: "irc.mindspring.com"
port-id: 6667
]
port: open/direct irc-port
insert port "NICK tret^/"
insert port "USER tret rebol.dyndns.org irc.mindspring.com tret^/"
insert port "JOIN #REBOLGODS^/"
forever [
if 0 < length? input-buffer [clear input-buffer]
read-io port input-buffer size
if find input-buffer "PING" [
insert output-buffer "PONG irc.mindspring.com^/"
write-io port output-buffer size
]
print input-buffer
]
halt
rebol[]
size: 1000
input-buffer: make string! size
output-buffer: make string! size
irc-port: [
scheme: 'tcp
host: "irc.mindspring.com"
port-id: 6667
]
port: open/direct irc-port
insert port "NICK tret^/"
insert port "USER tret rebol.dyndns.org irc.mindspring.com tret^/"
insert port "JOIN #REBOLGODS^/"
forever [
if 0 < length? input-buffer [clear input-buffer]
read-io port input-buffer size
if find input-buffer "PING" [
insert output-buffer "PONG irc.mindspring.com^/"
write-io port output-buffer size
]
print input-buffer
]
halt
