|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/ventex/cgi-bin/ |
Upload File : |
#!/usr/bin/perl
# quack.pl
#
# your server environment doctor. The only thing you need to set
# is the path to Perl above.
#
# CGI Magic March 1997.
%list = ('SERVER_SOFTWARE', 'The server software is: ',
'SERVER_NAME', 'The server hostname, DNS alias, or IP address is: ',
'GATEWAY_INTERFACE', 'The CGI specification revision is: ',
'SERVER_PROTOCOL', 'The name and revision of info protocol is: ',
'SERVER_PORT', 'The port number for the server is: ',
'REQUEST_METHOD', 'The info request method is: ',
'PATH_INFO', 'The extra path info is: ',
'PATH_TRANSLATED', 'The translated PATH_INFO is: ',
'DOCUMENT_ROOT', 'The server document root directory is: ',
'SCRIPT_NAME', 'The script name is: ',
'QUERY_STRING', 'The query string is (FORM GET): ',
'REMOTE_HOST', 'The hostname making the request is: ',
'REMOTE_ADDR', 'The IP address of the remote host is: ',
'AUTH_TYPE', 'The authentication method is: ',
'REMOTE_USER', 'The authenticated user is: ',
'REMOTE_IDENT', 'The remote user is (RFC 931): ',
'CONTENT_TYPE', 'The content type of the data is (POST, PUT): ',
'CONTENT_LENGTH', 'The length of the content is: ',
'HTTP_ACCEPT', 'The MIME types the client will accept are: ',
'HTTP_USER_AGENT', 'The browser of the client is: ',
'HTTP_REFERER', 'The URL of the referer is: ');
print "Content-type: text/html","\n\n";
print "<html>", "\n";
print "<head><title>" + $SERVER_NAME + " Server Environment Variables</title></head>", "\n";
print "<body bgcolor='#0000a0' text='#ffffff'>", "\n";
print "<center><table width ='90%'>", "\n";
print "<tr><td colspan=2 nowrap><h2><center>Businessounds Server Environment Checker</center></h2></td></tr>", "\n";
while ( ($env_var, $info) = each %list ) {
if ($ENV{$env_var}) {
print "<tr><td nowrap>", $info, "</td>", "<td><b>", $ENV{$env_var}, "</b></td>", "\n";
} else {
print "<tr><td nowrap>", $info, "</td>", "<td> </td>", "\n";
}
}
print "</table></center>","\n";
print "</body>", "</html>", "\n";
exit (0);