From 7a83d2798cb2aa32550bbcbf699d37ae96cfdbc6 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 22 Sep 2008 16:54:34 -0500 Subject: [PATCH] Messing with port remapping --- basis/http/server/server.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/basis/http/server/server.factor b/basis/http/server/server.factor index 64331cfd21..3acae8d927 100755 --- a/basis/http/server/server.factor +++ b/basis/http/server/server.factor @@ -189,7 +189,7 @@ LOG: httpd-header NOTICE "/" split harvest ; : init-request ( request -- ) - [ request set ] [ url>> [ remap-port ] change-port url set ] bi + [ request set ] [ url>> url set ] bi V{ } clone responder-nesting set ; : dispatch-request ( request -- response ) @@ -199,19 +199,20 @@ LOG: httpd-header NOTICE [ local-address get [ secure? "https" "http" ? >>protocol ] - [ port>> '[ _ or ] change-port ] + [ port>> remap-port '[ _ or ] change-port ] bi ] change-url drop ; : valid-request? ( request -- ? ) - url>> port>> local-address get port>> = ; + url>> port>> remap-port + local-address get port>> remap-port = ; : do-request ( request -- response ) '[ _ { - [ init-request ] [ prepare-request ] + [ init-request ] [ log-request ] [ dup valid-request? [ dispatch-request ] [ drop <400> ] if ] } cleave