[REBOL] weblib.r
From: jackseay::sbcglobal::net at: 21-Mar-2003 21:12
I downloaded and ran the weblib.r file that is supposed to retreive all
the rebol programs in the library. It is at:
http://www.reboltech.com/library/files/weblib.r
It didn't work, so after some trial and error, I got the following
modified example to work (almost). It stalled when it reached a file
called "temp". How should it be modified to get only files ending in
.r
?
Here are the error messages:
** User Error: Error. Target url:
http://www.reboltech.com/library/files/temp could not be retrieved.
Server response: HTTP/1.1 404 Not Found
** Near: write file read library/files/:file
-------------
REBOL [
Title: "Get All Library Scripts"
Date: 20-May-1999
File: %weblib.r
Purpose: "Downloads all scripts from the REBOL script library"
Category: [web file net util 2]
]
library: http://www.reboltech.com/library
scripts: load library/scripts.r
print [{This program will download all example files
to your current directory. (} what-dir {)}]
if find/match ask "Ready to download? " "y" [
foreach file scripts [
print ["Downloading: " library/files/:file]
write file read library/files/:file
]
]
