Use path+ in file responder
parent
364385bd6b
commit
b189879cd5
|
@ -5,7 +5,7 @@ USING: calendar embedded errors html httpd io kernel math namespaces parser
|
||||||
sequences strings hashtables ;
|
sequences strings hashtables ;
|
||||||
|
|
||||||
: serving-path ( filename -- filename )
|
: serving-path ( filename -- filename )
|
||||||
[ "" ] unless* "doc-root" get swap append ;
|
[ "" ] unless* "doc-root" get swap path+ ;
|
||||||
|
|
||||||
: file-http-date ( filename -- string )
|
: file-http-date ( filename -- string )
|
||||||
#! Return the date in HTTP Date format (see RFC 2616).
|
#! Return the date in HTTP Date format (see RFC 2616).
|
||||||
|
|
Loading…
Reference in New Issue