Use path+ in file responder

darcs
slava 2006-10-19 21:34:38 +00:00
parent 364385bd6b
commit b189879cd5
1 changed files with 1 additions and 1 deletions

View File

@ -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).