14 lines
316 B
Plaintext
14 lines
316 B
Plaintext
{
|
|
(* get the request info *)
|
|
argv shatter
|
|
|
|
(* check to see if we have the root route, if so return index.html *)
|
|
dup "/" streq?
|
|
choose
|
|
{ exch pop "index.html" exch } ifyes
|
|
{ "." exch strtie } ifno
|
|
|
|
(* now read the requested file and return it *)
|
|
readall disp
|
|
} ":3333" servehttp
|