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

Fix problem odd headers sent by Windows CE

db4
Slava Pestov 2008-10-01 03:13:56 -05:00
parent 8cb3c1eb5e
commit b546ad3c6d
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/http/server/static/static.factor
View File

@ -3,7 +3,7 @@
USING: calendar io io.files kernel math math.order USING: calendar io io.files kernel math math.order
math.parser namespaces parser sequences strings math.parser namespaces parser sequences strings
assocs hashtables debugger mime-types sorting logging assocs hashtables debugger mime-types sorting logging
calendar.format accessors calendar.format accessors splitting
io.encodings.binary fry xml.entities destructors urls io.encodings.binary fry xml.entities destructors urls
html.elements html.templates.fhtml html.elements html.templates.fhtml
http http
@ -14,9 +14,13 @@ IN: http.server.static
TUPLE: file-responder root hook special allow-listings ; TUPLE: file-responder root hook special allow-listings ;
: modified-since ( request -- date )
"if-modified-since" header ";" split1 drop
dup [ rfc822>timestamp ] when ;
: modified-since? ( filename -- ? ) : modified-since? ( filename -- ? )
request get "if-modified-since" header dup [ request get modified-since dup [
[ file-info modified>> ] [ rfc822>timestamp ] bi* after? [ file-info modified>> ] dip after?
] [ ] [
2drop t 2drop t
] if ; ] if ;