[REBOL] ACCESS ERROR
From: ptretter::charter::net at: 10-Sep-2000 20:59
This is a multi-part message in MIME format.
------=_NextPart_000_0000_01C01B69.F3F4DA00
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
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
------=_NextPart_000_0000_01C01B69.F3F4DA00
Content-Type: text/x-rebol;
name="irc.r"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename="irc.r"
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
------=_NextPart_000_0000_01C01B69.F3F4DA00--
