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

Fix file responder

db4
Slava Pestov 2008-03-13 18:56:33 -05:00
parent 31e15e3204
commit 753fa3824e
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,12 +10,8 @@ IN: http.server.static
! special maps mime types to quots with effect ( path -- ) ! special maps mime types to quots with effect ( path -- )
TUPLE: file-responder root hook special ; TUPLE: file-responder root hook special ;
: unix-time>timestamp ( n -- timestamp )
>r unix-1970 r> seconds time+ ;
: file-http-date ( filename -- string ) : file-http-date ( filename -- string )
file-info file-info-modified file-info file-info-modified timestamp>http-string ;
unix-time>timestamp timestamp>http-string ;
: last-modified-matches? ( filename -- ? ) : last-modified-matches? ( filename -- ? )
file-http-date dup [ file-http-date dup [