#!/usr/bin/perl
# #################################################################
#
# Project: CGI-Programming
#
# Filename: about_www.cgi
#
# Version: 1.0
#
# Autor: Akadia AG, Martin Zahn 26.12.1999
#
# Purpose: Show environment of HTTP Server
#
# #################################################################
#
use strict;
my $var;
print ("Content-type: text/html\n\n");
print ("\n");
print ("HTTP Server $ENV{SERVER_NAME}\n");
print ("\n");
print ("HTTP Server: $ENV{SERVER_NAME}
\n");
print ("\n");
print ("| Environment Variable | \n");
print ("Contents | \n");
foreach $var (sort keys(%ENV)) {
if ($ENV{$var} eq '') {
print ("| $var | |
\n");
} else {
print ("| $var | $ENV{$var} |
\n");
}
}
print ("
\n");
print ("
\n");
print ("$ENV{SERVER_SIGNATURE}\n");
print ("Show source
\n");
print ("\n");
print ("\n");