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

Fix HTTP server

db4
Slava Pestov 2008-03-27 05:18:07 -05:00
parent febcd88459
commit 65bfc09265
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/http/server/static/static.factor
View File

@ -39,7 +39,9 @@ TUPLE: file-responder root hook special ;
[ 2drop <304> ] [ file-responder get hook>> call ] if ; [ 2drop <304> ] [ file-responder get hook>> call ] if ;
: serving-path ( filename -- filename ) : serving-path ( filename -- filename )
"" or file-responder get root>> prepend-path ; file-responder get root>> right-trim-separators
"/"
rot "" or left-trim-separators 3append ;
: serve-file ( filename -- response ) : serve-file ( filename -- response )
dup mime-type dup mime-type