#!/usr/bin/perl
############################################################
# sendmail.cgi
############################################################
#use strict;
use CGI qw(:standard);



my $cgi = new CGI;


my $hostname = $ENV{HTTP_HOST};

$CSSROOT = "../htdocs/css";  # ubervoid.com
$CSSROOT = "/css";           # localhost


print qq(Content-type: text/html

<html>
 <head>
  <link rel="stylesheet" href="${CSSROOT}/generic.css" type="text/css">
 </head>
 <body>
  <table align="center" border="1"><tr><td>
     <br><br>
     <div class="title" align="center">Test Page</div>
     <br>
     <table align="center" border="1">
      <tr><td>DOCUMENT_ROOT</td><td>$ENV{DOCUMENT_ROOT}</td><td>The root directory of your server</td></tr>
      <tr><td>HTTP_COOKIE</td><td>$ENV{HTTP_COOKIE}</td><td>The visitor's cookie, if one is set</td></tr>
      <tr><td>HTTP_HOST</td><td>$ENV{HTTP_HOST}</td><td>The hostname of the page being attempted</td></tr>
      <tr><td>HTTP_REFERER</td><td>$ENV{HTTP_REFERER}</td><td>The URL of the page that called your program</td></tr>
      <tr><td>HTTP_USER_AGENT</td><td>$ENV{HTTP_USER_AGENT}</td><td>The browser type of the visitor</td></tr>
      <tr><td>HTTPS</td><td>$ENV{HTTPS}</td><td>"on" if the program is being called through a secure server</td></tr>
      <tr><td>PATH</td><td>$ENV{PATH}</td><td>The system path your server is running under</td></tr>
      <tr><td>QUERY_STRING</td><td>$ENV{QUERY_STRING}</td><td>The query string (see GET, below)</td></tr>
      <tr><td>REMOTE_ADDR</td><td>$ENV{REMOTE_ADDR}</td><td>The IP address of the visitor</td></tr>
      <tr><td>REMOTE_HOST</td><td>$ENV{REMOTE_HOST}</td><td>The hostname of the visitor (if your server has reverse-name-lookups on; otherwise this is the IP address again)</td></tr>
      <tr><td>REMOTE_PORT</td><td>$ENV{REMOTE_PORT}</td><td>The port the visitor is connected to on the web server</td></tr>
      <tr><td>REMOTE_USER</td><td>$ENV{REMOTE_USER}</td><td>The visitor's username (for .htaccess-protected pages)</td></tr>
      <tr><td>REQUEST_METHOD</td><td>$ENV{REQUEST_METHOD}</td><td>GET or POST</td></tr>
      <tr><td>REQUEST_URI</td><td>$ENV{REQUEST_URI}</td><td>The interpreted pathname of the requested document or CGI (relative to the document root)</td></tr>
      <tr><td>SCRIPT_FILENAME</td><td>$ENV{SCRIPT_FILENAME}</td><td>The full pathname of the current CGI</td></tr>
      <tr><td>SCRIPT_NAME</td><td>$ENV{SCRIPT_NAME}</td><td>The interpreted pathname of the current CGI (relative to the document root)</td></tr>
      <tr><td>SERVER_ADMIN</td><td>$ENV{SERVER_ADMIN}</td><td>The email address for your server's webmaster</td></tr>
      <tr><td>SERVER_NAME</td><td>$ENV{SERVER_NAME}</td><td>Your server's fully qualified domain name (e.g. www.cgi101.com)</td></tr>
      <tr><td>SERVER_PORT</td><td>$ENV{SERVER_PORT}</td><td>The port number your server is listening on</td></tr>
      <tr><td>SERVER_SOFTWARE</td><td>$ENV{SERVER_SOFTWARE}</td><td>The server software you're using (e.g. Apache 1.3)</td></tr>
     </table>    
     <br clear="all">
     <div class="copyright"> <a href="http://www.ubervoid.com">www.ubervoid.com</a></div>
  </td></tr></table>
 </body>
</html>
);


exit(0);

############################################################
