CGI Environment

#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); local $SIG{__WARN__} = \&Carp::cluck; ##
##

#!/usr/bin/perl  

# Don't buffer output
$| = 1;

# Ask for server name and information
chomp($hostname = `hostname`);
chomp($uname = `uname -a`);

# Ask system for user name
chomp($user = `/usr/bin/whoami`);

# Ask system for user id and group id for this user
($uid, $gid) = (getpwnam($user))[2, 3];

# Get path for sendmail program
chomp($sendmail = `which sendmail`);

#
# Generate the complete form
#
print "Content-type: text/html\n\n";

print qq(


CGI Environment




Host name is $hostname.

CGI programs execute as user $user ($uid, $gid).

System description is $uname.




CGI Environment



SERVER_SOFTWARE = $ENV{'SERVER_SOFTWARE'}

SERVER_NAME = $ENV{'SERVER_NAME'}

GATEWAY_INTERFACE = $ENV{'GATEWAY_INTERFACE'}

SERVER_PROTOCOL = $ENV{'SERVER_PROTOCOL'}

SERVER_PORT = $ENV{'SERVER_PORT'}

REQUEST_METHOD = $ENV{'REQUEST_METHOD'}

HTTP_FROM = $ENV{'HTTP_FROM'}

HTTP_ACCEPT = $ENV{'HTTP_ACCEPT'}

HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'}

HTTP_REFERER = $ENV{'HTTP_REFERER'}

PATH_INFO = $ENV{'PATH_INFO'}

PATH_TRANSLATED = $ENV{'PATH_TRANSLATED'}

SCRIPT_NAME = $ENV{'SCRIPT_NAME'}

QUERY_STRING = $ENV{'QUERY_STRING'}

REMOTE_HOST = $ENV{'REMOTE_HOST'}

REMOTE_ADDR = $ENV{'REMOTE_ADDR'}

REMOTE_USER = $ENV{'REMOTE_USER'}

REMOTE_IDENT = $ENV{'REMOTE_IDENT'}

AUTH_TYPE = $ENV{'AUTH_TYPE'}

CONTENT_TYPE = $ENV{'CONTENT_TYPE'}

CONTENT_LENGTH = $ENV{'CONTENT_LENGTH'}




Complete Environment
);

foreach $key (sort keys %ENV)
{
	print "$key = $ENV{$key}
\n";
}

print qq(
System Programs
Sendmail program path : $sendmail



);