info.cgi

 


#!/usr/bin/perl

print "Content-type: text/html", "\n";

print "<html>", "\n";
print "<head><title>About This Server</title></head>", "\n";
print "<body><h1>About This Server</h1>", "\n";
print "<hr><pre>";
print "Server Name", $ENV{'SERVER_NAME'}, "<br>", "\n";
print "Running on Port", $ENV{'SERVER_PORT'}, "<br>", "\n";
print "Server Software", $ENV{'SERVER_SOFTWARE'}, "<br>", "\n";
print "Server Protocol", $ENV{'SERVER_PROTOCOL'}, "<br>", "\n";
print "CGI Revision", $ENV{'GATEWAY_INTERFACE'}, "<br>", "\n";
print "<hr></pre>";
print "</body></html>";