13 lines
320 B
Factor
13 lines
320 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: namespaces assocs kernel io.servers ;
|
|
IN: http.server.remapping
|
|
|
|
SYMBOL: port-remapping
|
|
|
|
: remap-addr ( addr -- addr' )
|
|
[ port-remapping get at ] keep or ;
|
|
|
|
: secure-http-port ( -- addr )
|
|
secure-addr remap-addr ;
|