Whoa!! Watch out! That's 1.0.3 you're still playing with there!
You need to update to a new version.
It's good to see that you were with us back then and even better to
know that you're back... lot's of things have changed while you were
gone... or you're accidentally running a really old REBOL. Check out
2.2 from our website.
It should look more like this:
REBOL 2.2.0.4.2
Copyright (C) 1998-1999 REBOL Technologies
REBOL is a Trademark of REBOL Technologies
All rights reserved.
Finger protocol loaded
Whois protocol loaded
Daytime protocol loaded
SMTP protocol loaded
POP protocol loaded
HTTP protocol loaded
FTP protocol loaded
NNTP protocol loaded
There is also a list archive residing at http://www.rebol.org.
Sterling
> IS there a list archive? I have been lookiing for one.
>
> I think this question may have already been answerd.
>
> I get the following error:
>
> REBOL
> 1.0.3.3 (Win32 x86)
> TM & Copyright 1998 REBOL Technologies Inc. All rights reserved.
> Send bugs to [EMAIL PROTECTED]
> Loading C:/Downloads/rebol-1_0_3_3/rebol-1.0.3/rebol.r...
> Loading script C:/DOWNLO~1/REBOL-~1/REBOL-~1.3/BS.R
>
> ERROR discovered in function do:
> Word (open) (line 17) has no value
> REBOL top level.
> >>
>
> With the following code:
>
> REBOL [
> Title: "Micro Web Server"
> Date: 24-June-1999
> Purpose: "A tiny web server for HTML and images."
> File: %webserver.r
> Notes: {
> Here is a simple little web server that works quite
> well. It's also small and easy to enhance and
> maintain. Set the web-dir to point to the file
> directory that contains your web site files, such as
> index.html.
> }
> ]
>
> web-dir: %. ; the path to where you store your web files
>
> listen-port: open/lines tcp://:80 ; port used for web connections
>
> errors: [
> 400 "Forbidden" "No permission to access:"
> 404 "Not Found" "File was not found:"
> ]
>
> send-error: function [err-num file] [err] [
> err: find errors err-num
> insert http-port join "HTTP/1.0 " [
> err-num " " err/2 "^/Content-type: text/html^/^/"
> <HTML> <TITLE> err/2 </TITLE>
> "<BODY><H1>SERVER-ERROR</H1><P>REBOL Webserver Error:"
> err/3 " " file newline <P> </BODY> </HTML>
> ]
> ]
>
> send-page: func [data mime] [
> insert data rejoin ["HTTP/1.0 200 OK^/Content-type: " mime "^/^/"]
> write-io http-port data length? data
> ]
>
> while [on] [
> http-port: first wait listen-port
> request: first http-port
> file: "index.html"
> mime: "text/plain"
> parse request ["get" ["http" | "/ " | copy file to " "]]
> parse file [thru "." [
> "html" (mime: "text/html") |
> "gif" (mime: "image/gif") |
> "jpg" (mime: "image/jpeg")
> ]
> ]
> print ["retrieving:" file]
> any [
> if not exists? web-dir/:file [send-error 404 file]
> if error? try [data: read/binary web-dir/:file] [send-error 400
> file]
> send-page data mime
> ]
> close http-port
> ]
>
>
> Regards,
>
> Richard Hughes
