Thanks Anton
I did try adding:
recycle/off immediately after forever [
recycle/on immediately after clear result_blk
and a recycle immediately after that
but it didn't seem to make any difference. Perhaps I didn't put the code in
the right place?
The url's I'm looking at are internal, behind a firewall, so not available
for public access but they are just static html pages served from an IBM
http server on a Windows NT machine. I don't think the html content is the
issue.
Nigel
----- Original Message -----
From: "Anton" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, January 15, 2001 1:27 PM
Subject: [REBOL] Re: Rebol - core dump
> I vaguely remember an earlier post like this.
> Someone suggested at the time to occasionally do a 'recycle.
> Try recycling, say, every 50 iterations and see how it goes.
> I'm running your script here to try it out and see if I get
> the same problem foreach version
> ["REBOL/Core 2.3.0.3.1 24-Jun-2000"
> "REBOL/View 0.10.38.3.1 28-Nov-2000"
> ]
>
> Is your list of urls private? (consider posting [to me]).
>
> Anton.
>
> > I'm trying to run the script below on rebol/core (also tried view).
> >
> > The script continually reads http pages from a web server and reports
any
> > difference in subsequent reads to a log file. The script works fine but
> > crashes after 3-4 hrs hours with a segmentation fault or core dump - I'm
> > running Mandrake 6.1 Linux & Rebol/core 2.3.0.4.2.
> >
> > Any ideas about how I can solve the problem - I should be testing the
web
> > server for a crash problem & all I can get is Rebol crashing :-((
>
> REBOL []
>
> urls_to_check: make block! read %stress_urls.txt
> result_blk: []
> old_result_blk: []
> secure [file allow]
>
> forever [
> foreach [url description] urls_to_check [
>
> if error? url_result: try
> [checksum read make url! url]
> [url_result: disarm :url_result]
>
> switch type?/word url_result [
> integer! [
> url_result: join "Checksum = " [to-string url_result]
> ]
> object! [
> url_result: join "Access Error = " [to-string url_result/code]
> ]
> ]
> print url_result
> print newline
> append result_blk join url [" " description " " url_result newline]
> ]
>
> if result_blk <> old_result_blk [
> write/append %results.txt join now [newline result_blk newline]
> ]
>
> old_result_blk: copy result_blk
> clear result_blk
> ]
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
