Forgot to remap port

db4
Slava Pestov 2008-09-22 17:01:41 -05:00
parent b81325dfbc
commit bbdc843122
1 changed files with 3 additions and 2 deletions

View File

@ -4,7 +4,7 @@ USING: namespaces make assocs sequences kernel classes splitting
vocabs.loader accessors strings combinators arrays
continuations present fry
urls html.elements
http http.server http.server.redirection ;
http http.server http.server.redirection http.server.remapping ;
IN: furnace
: nested-responders ( -- seq )
@ -91,7 +91,8 @@ M: object modify-form drop ;
: referrer ( -- referrer )
#! Typo is intentional, its in the HTTP spec!
"referer" request get header>> at >url ;
"referer" request get header>> at
>url [ remap-port ] change-port ;
: user-agent ( -- user-agent )
"user-agent" request get header>> at "" or ;