[REBOL] Re: - Old Hippy Needs Help With Clouds
From: gchiu:compkarori at: 4-Jun-2001 20:19
> This has got to be what? Maybe 5 to 10 lines of code...
> The only problem is it's 5 or 10 lines of code I don't
> know and I looking for a quick fix.
Try this, a very specific solution ( watch for line wrap)
Rebol []
root: http://wwwghcc.msfc.nasa.gov
url: http://wwwghcc.msfc.nasa.gov/cgi-bin/get-goes?satellite=Global Composite&x=0&y=0&map=none&zoom=1&width=1000&height=500&quality=100
forever [
page: read url
if parse page [ thru "IMG SRC=^"" copy imageurl to {"} to
end ] [
jpeg: join root imageurl
filename: to-file last parse/all image "/"
write/binary filename read/binary jpeg
print [ "downloaded " filename ]
]
wait 00:30:00
]
--
Graham Chiu
