home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _75921e20a569bcc90c0cf5944b13ebc1 < prev    next >
Encoding:
Text File  |  2000-03-15  |  2.9 KB  |  80 lines
  1. <%@ LANGUAGE = PerlScript%>
  2.  
  3. <HTML>
  4. <HEAD>
  5. <!-- 
  6.     Copyright (c) 1996, Microsoft Corporation.  All rights reserved.
  7.     Developed by ActiveState Internet Corp., http://www.ActiveState.com
  8. -->
  9. <Title> Display ServerVariables from Request Object</TITLE>
  10. <BODY> <BODY BGCOLOR=#FFFFFF>
  11. <!-- 
  12.     ActiveState PerlScript sample 
  13.     PerlScript:  The coolest way to program custom web solutions. 
  14. -->
  15.  
  16. <!-- Masthead -->
  17. <TABLE CELLPADDING=3 BORDER=0 CELLSPACING=0>
  18. <TR VALIGN=TOP ><TD WIDTH=400>
  19. <A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="ActiveState PerlScript" BORDER=0></A><P>
  20. </TD></TR></TABLE>
  21.  
  22.  
  23. <H3>The following is a list of HTTP Variables</H3>
  24. <TABLE BORDER=1>
  25. <TR><TD>    AUTH_TYPE </TD> <TD>        
  26.         <%=$Request->ServerVariables('AUTH_TYPE')->item%>    </TD>
  27. <TR><TD>    AUTH_PASS </TD> <TD> 
  28.         <%=$Request->ServerVariables('AUTH_PASS')->item%>    </TD>
  29. <TR><TD>    CONTENT_LENGTH </TD> <TD> 
  30.         <%=$Request->ServerVariables('CONTENT_LENGTH')->item%> </TD>
  31. <TR><TD>    CONTENT_TYPE </TD> <TD> 
  32.         <%=$Request->ServerVariables('CONTENT_TYPE')->item%> </TD>
  33. <TR><TD>    GATEWAY_INTERFACE </TD> <TD> 
  34.         <%=$Request->ServerVariables('GATEWAY_INTERFACE')->item%>    </TD>
  35. <TR><TD>    PATH_INFO </TD> <TD> 
  36.         <%=$Request->ServerVariables('PATH_INFO')->item%>    </TD>
  37. <TR><TD>    PATH_TRANSLATED </TD> <TD> 
  38.         <%=$Request->ServerVariables('PATH_TRANSLATED')->item%> </TD>
  39. <TR><TD>    QUERY_STRING </TD> <TD> 
  40.         <%=$Request->ServerVariables('QUERY_STRING')->item%></TD>
  41. <TR><TD>    SCRIPT_NAME </TD> <TD> 
  42.         <%=$Request->ServerVariables('SCRIPT_NAME')->item%></TD>
  43. <TR><TD>    SERVER_NAME </TD> <TD> 
  44.         <%=$Request->ServerVariables('SERVER_NAME')->item%></TD>
  45. <TR><TD>    SERVER_PORT </TD> <TD> 
  46.         <%=$Request->ServerVariables('SERVER_PORT')->item%></TD>
  47. <TR><TD>    SERVER_PROTOCOL </TD> <TD> 
  48.         <%=$Request->ServerVariables('SERVER_PROTOCOL')->item%></TD>
  49. <TR><TD>    SERVER_SOFTWARE </TD> <TD> 
  50.         <%=$Request->ServerVariables('SERVER_SOFTWARE')->item%></TD>
  51. <TR><TD>    HTTP_ACCEPT </TD> <TD> 
  52.         <%=$Request->ServerVariables('HTTP_ACCEPT')->item%></TD>
  53. <TR><TD>    REMOTE_ADDR </TD> <TD> 
  54.         <%=$Request->ServerVariables('REMOTE_ADDR')->item%></TD>
  55. <TR><TD>    REMOTE_HOST </TD> <TD> 
  56.         <%=$Request->ServerVariables('REMOTE_HOST')->item%></TD>
  57. <TR><TD>    REMOTE_USER </TD> <TD>     
  58.         <%=$Request->ServerVariables('REMOTE_USER')->item%></TD>
  59. <TR><TD>    ALL_HTTP </TD> <TD>     
  60.         <%=$Request->ServerVariables('ALL_HTTP')->item%></TD>
  61.  
  62. </TABLE>
  63. <!-- +++++++++++++++++++++++++++++++++++++
  64. here is the standard showsource link - 
  65.     Note that PerlScript must be the default language --> <hr>
  66. <%
  67.     $url = $Request->ServerVariables('PATH_INFO')->item;
  68.     $_ = $Request->ServerVariables('PATH_TRANSLATED')->item;
  69.     s/[\/\\](\w*\.asp\Z)//m;
  70.     $params = 'filename='."$1".'&URL='."$url";
  71.     $params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg;
  72. %>
  73. <A HREF="index.htm"> Return </A>
  74. <A HREF="showsource.asp?<%=$params%>">
  75. <h4><i>view the source</i></h4></A>  
  76.  
  77. </BODY>
  78. </HTML>
  79.  
  80.