Impressum form.pl   Sprache: unbekannt

#! /usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.


print "Content-type: text/html\n\n";
print "Server Name: ", $ENV{'SERVER_NAME'}, "
", "\n";
print "Server Port: ", $ENV{'SERVER_PORT'}, "
", "\n";
print "Server Software: ", $ENV{'SERVER_SOFTWARE'}, "
", "\n";
print "Server Protocol: ", $ENV{'SERVER_PROTOCOL'}, "
", "\n";
print "CGI Revision: ", $ENV{'GATEWAY_INTERFACE'}, "
", "\n";
print "Browser: ", $ENV{'HTTP_USER_AGENT'}, "
", "\n";
print "Remote Address: ", $ENV{'REMOTE_ADDR'}, "
", "\n";
print "Remote Host: ", $ENV{'REMOTE_HOST'}, "
", "\n";
print "Remote User: ", $ENV{'REMOTE_USER'}, "
", "\n";
print "You typed:\n";

while( $_ = <STDIN>) {
  print "$_";
}