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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/furnace/furnace.factor
View File

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