steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

file-server: allow serving CGI using --cgi.

db4
John Benediktsson 2015-04-20 17:37:25 -07:00
parent 2db2cab09d
commit 7c2d4ad4ea
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/file-server/file-server.factor
View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors command-line concurrency.messaging http.server USING: accessors command-line concurrency.messaging http.server
http.server.static io io.pathnames io.servers kernel http.server.cgi http.server.static io io.pathnames io.servers
logging.server namespaces sequences threads ; kernel logging.server namespaces sequences threads ;
IN: file-server IN: file-server
@ -23,11 +23,16 @@ IN: file-server
call call
] with-variable ; inline ] with-variable ; inline
: file-server-args ( command-line -- cgi? path/f )
"--cgi" swap [ member? ] [ remove ?first ] 2bi ;
: file-server-main ( -- ) : file-server-main ( -- )
[ [
command-line get ?first current-directory get or command-line get file-server-args
current-directory get or
<static> <static>
t >>allow-listings t >>allow-listings
swap [ enable-cgi ] when
main-responder set-global main-responder set-global
8080 httpd wait-for-server 8080 httpd wait-for-server
] file-server-logging ; ] file-server-logging ;