Here is a more reduced version.
It crashes as soon as I engage internet lock.
-Anton
REBOL [
Author: "Giuseppe Chillemi"
Description: "read/lines BUG Catcher"
Notes: {modified by Anton Rolls}
]
logfile: %Activity.log
log: func [string /local ts][
write/append/lines logfile ts: reform [now/time string]
ts
]
write logfile "" ; create new logfile
log "start"
loop 100 [
my-url: http://www.google.com
log "Point 1"
print log "Looping..."
log "Point 2"
; read-page
bug?: no
until [
if error? set/any 'err try [
my-page: read/lines my-url
][
print log rejoin ["! Read Error on page: " my-url mold disarm
err]
bug?: yes
]
log "Point 3"
bug?
]
log "Point 4"
]
halt
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
