X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=hobby-http.lsp;h=78adbba76be3424022e6704881bc63962ba0363c;hb=a5a86f99ca13f80aff66b43cc13f9ed2d3301d50;hp=3b6be62a354f573a07cb21794e654d79a06d6ba1;hpb=7128019500210a725211101fa7c700c4ee8e8d45;p=rrq%2Fnewlisp-ftw.git diff --git a/hobby-http.lsp b/hobby-http.lsp index 3b6be62..78adbba 100755 --- a/hobby-http.lsp +++ b/hobby-http.lsp @@ -2,8 +2,15 @@ # # Simple HTTP service for a directory tree. Start with: # -# newlisp hobby-http.lsp -c -d $PORT -w $TREE +# newlisp hobby-http.lsp -c -http -d $PORT -w $TREE # +# Note that it does not make automatic file indexes of directories, +# and it only shows the files that are there. Some files are handled +# by their file extension, such as: .avi, .cgi, .css, .gif, .htm, +# .html, .jpg, .js, .mov, .mp3,.mpg, .pdf, .png, .wav, .zip. Those +# files are served with appropriate mime types, except .cgi which if +# executable will be executed as a near CGI 1.1 script. Other files +# are served with type "text/plain". ; Exit on ^C -- not cleanly (signal 2 (fn (x) (write-line 2 "Exiting") (close 3) (exit 0)))