home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / WEBSERVE / SAMBAR / DATA.1 / environ.pl < prev    next >
Text File  |  1997-07-28  |  1KB  |  19 lines
  1. print "Sambar Server CGI Environment Variables<P>";
  2. print "<table border=0 cellpadding=4>";
  3. print "<tr><td>CONTENT_LENGTH:   </td><td>", $ENV{'CONTENT_LENGTH'},    "</td></tr>";
  4. print "<tr><td>GATEWAY_INTERFACE:</td><td>", $ENV{'GATEWAY_INTERFACE'}, "</td></tr>";
  5. print "<tr><td>PATH_INFO:        </td><td>", $ENV{'PATH_INFO'},         "</td></tr>";
  6. print "<tr><td>PATH_TRANSLATED:  </td><td>", $ENV{'PATH_TRANSLATED'},   "</td></tr>";
  7. print "<tr><td>QUERY_STRING:     </td><td>", $ENV{'QUERY_STRING'},      "</td></tr>";
  8. print "<tr><td>REMOTE_ADDR:      </td><td>", $ENV{'REMOTE_ADDR'},       "</td></tr>";
  9. print "<tr><td>REMOTE_HOST:      </td><td>", $ENV{'REMOTE_HOST'},       "</td></tr>";
  10. print "<tr><td>REMOTE_USER:      </td><td>", $ENV{'REMOTE_USER'},       "</td></tr>";
  11. print "<tr><td>REQUEST_METHOD:   </td><td>", $ENV{'REQUEST_METHOD'},    "</td></tr>";
  12. print "<tr><td>SCRIPT_NAME:      </td><td>", $ENV{'SCRIPT_NAME'},       "</td></tr>";
  13. print "<tr><td>SCRIPT_FILENAME:  </td><td>", $ENV{'SCRIPT_FILENAME'},   "</td></tr>";
  14. print "<tr><td>SERVER_NAME:      </td><td>", $ENV{'SERVER_NAME'},       "</td></tr>";
  15. print "<tr><td>SERVER_PORT:      </td><td>", $ENV{'SERVER_PORT'},       "</td></tr>";
  16. print "<tr><td>SERVER_PROTOCOL:  </td><td>", $ENV{'SERVER_PROTOCOL'},   "</td></tr>";
  17. print "<tr><td>SERVER_SOFTWARE:  </td><td>", $ENV{'SERVER_SOFTWARE'},   "</td></tr>";
  18. print "</table>";
  19.