Mercurial > repos > rhope
annotate basicweb.rhope @ 47:6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Tue, 22 Dec 2009 01:22:09 -0500 |
| parents | 76568becd6d6 |
| children | 1f39e69446f9 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 Uses the webserver library to serve static files from the current directory | |
| 3 */ | |
| 4 | |
| 5 //Import the library that does all the hard work | |
| 6 Import webserver.rhope | |
| 7 | |
| 8 Main[] | |
| 9 { | |
| 10 Print["Starting webserver"] | |
| 11 //Since we're just serving static files we don't need to setup any handlers | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
12 handlers <- Dictionary[] |
| 0 | 13 //Start listening on port 80 |
| 14 Listen on Port[80,["Connection Start"]Set Input[1, handlers]] | |
| 15 Wait Forever[] | |
| 16 } |