<%@ LANGUAGE = PerlScript%> Display ServerVariables from Request Object
ActiveState PerlScript

The following is a list of HTTP Variables

AUTH_TYPE <%=$Request->ServerVariables('AUTH_TYPE')->item%>
AUTH_PASS <%=$Request->ServerVariables('AUTH_PASS')->item%>
CONTENT_LENGTH <%=$Request->ServerVariables('CONTENT_LENGTH')->item%>
CONTENT_TYPE <%=$Request->ServerVariables('CONTENT_TYPE')->item%>
GATEWAY_INTERFACE <%=$Request->ServerVariables('GATEWAY_INTERFACE')->item%>
PATH_INFO <%=$Request->ServerVariables('PATH_INFO')->item%>
PATH_TRANSLATED <%=$Request->ServerVariables('PATH_TRANSLATED')->item%>
QUERY_STRING <%=$Request->ServerVariables('QUERY_STRING')->item%>
SCRIPT_NAME <%=$Request->ServerVariables('SCRIPT_NAME')->item%>
SERVER_NAME <%=$Request->ServerVariables('SERVER_NAME')->item%>
SERVER_PORT <%=$Request->ServerVariables('SERVER_PORT')->item%>
SERVER_PROTOCOL <%=$Request->ServerVariables('SERVER_PROTOCOL')->item%>
SERVER_SOFTWARE <%=$Request->ServerVariables('SERVER_SOFTWARE')->item%>
HTTP_ACCEPT <%=$Request->ServerVariables('HTTP_ACCEPT')->item%>
REMOTE_ADDR <%=$Request->ServerVariables('REMOTE_ADDR')->item%>
REMOTE_HOST <%=$Request->ServerVariables('REMOTE_HOST')->item%>
REMOTE_USER <%=$Request->ServerVariables('REMOTE_USER')->item%>
ALL_HTTP <%=$Request->ServerVariables('ALL_HTTP')->item%>
<% $url = $Request->ServerVariables('PATH_INFO')->item; $_ = $Request->ServerVariables('PATH_TRANSLATED')->item; s/[\/\\](\w*\.asp\Z)//m; $params = 'filename='."$1".'&URL='."$url"; $params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg; %> Return

view the source