factor/basis/http/server/remapping/remapping.factor

! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors namespaces assocs kernel io.servers ;
IN: http.server.remapping

SYMBOL: port-remapping

: remap-port ( n -- n' )
    [ port-remapping get at ] keep or ;

: secure-http-port ( -- n )
    secure-addr port>> remap-port ;
Various cleanups for Doug's recent socket addressing change - urls: now have a host/port slots again, add a new set-url-addr word - http.server: fix host header parsing for IPv6 addresses 2010-10-07 02:00:38 -04:00			`! Copyright (C) 2008, 2010 Slava Pestov.`
Implement port remapping 2008-09-22 17:49:50 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
Various cleanups for Doug's recent socket addressing change - urls: now have a host/port slots again, add a new set-url-addr word - http.server: fix host header parsing for IPv6 addresses 2010-10-07 02:00:38 -04:00			`USING: accessors namespaces assocs kernel io.servers ;`
Implement port remapping 2008-09-22 17:49:50 -04:00			`IN: http.server.remapping`

			`SYMBOL: port-remapping`

Various cleanups for Doug's recent socket addressing change - urls: now have a host/port slots again, add a new set-url-addr word - http.server: fix host header parsing for IPv6 addresses 2010-10-07 02:00:38 -04:00			`: remap-port ( n -- n' )`
Implement port remapping 2008-09-22 17:49:50 -04:00			`[ port-remapping get at ] keep or ;`

Various cleanups for Doug's recent socket addressing change - urls: now have a host/port slots again, add a new set-url-addr word - http.server: fix host header parsing for IPv6 addresses 2010-10-07 02:00:38 -04:00			`: secure-http-port ( -- n )`
			`secure-addr port>> remap-port ;`