Может быть

Забыл 16.12.2010 21:44

@location[address][_request;_base]
$_request[$request:uri]
#use $env:SERVER_NAME if "UseCanonicalName" is "Off"
$_base[^getServerProtocol[]://$env:SERVER_NAME]
#stop recursion redirect
^if(def $address){
	^if($_request ne $address || $env:REQUEST_METHOD eq "POST"){
		$response:location[${_base}^taint[as-is][$address]]
	}
}

@getServerProtocol[][s]
$s[^env:SERVER_PROTOCOL.mid(0;5)]
$s[^s.lower[]]
$s[^s.trim[right;/]]
$result[^if(def $s){$s}{http}]