#!/usr/bin/perl
# HoneyToken similar to old PHF
# Antonio Villalon, October 2000
#

$SECUREADDRESS="user\@e-mail.com";
$mailprog = '/usr/lib/sendmail';

print "Content-type: text/html\n\n";
	print "SERVER_SOFTWARE = Apache/1.3.12<br>";
	print "GATEWAY_INTERFACE = CGI/1.2<br>";
	print "DOCUMENT_ROOT = /web/docs<br>";
	print "REMOTE_ADDR = $ENV{REMOTE_ADDR}<br>";
	print "SERVER_PROTOCOL = $ENV{SERVER_PROTOCOL}<br>";
	print "SERVER_SIGNATURE = <br><i>Apache/1.3.12 Server at $ENV{SERVER_NAME}</i><br><br>";
	print "REQUEST_METHOD = GET<br>";
	print "QUERY_STRING = $ENV{QUERY_STRING}<br>";
	print "HTTP_USER_AGENT = $ENV{HTTP_USER_AGENT}<br>";
	print "PATH = /sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin<br>";
	print "HTTP_ACCEPT = image/gif, image/x-xbitmap, image/jpeg<br>";
	print "HTTP_CONNECTION = Keep-Alive<br>";
	print "REMOTE_PORT = $ENV{REMOTE_PORT}<br>";
	print "SERVER_ADDR = $ENV{SERVER_ADDR}<br>";
	print "HTTP_ACCEPT_LANGUAGE = en<br>";
	print "SCRIPT_NAME = /cgi-bin/printenv<br>";
	print "HTTP_ACCEPT_ENCODING = gzip<br>";
	print "SCRIPT_FILENAME = /web/cgi-bin/printenv<br>";
	print "SERVER_NAME = $ENV{SERVER_NAME}<br>";
	print "REQUEST_URI = /cgi-bin/printenv<br>";
	print "HTTP_ACCEPT_CHARSET = iso-8859-1, utf-8<br>";
	print "SERVER_PORT = $ENV{SERVER_PORT}<br>";
	print "HTTP_HOST = $ENV{HTTP_HOST}<br>";
	print "SERVER_ADMIN = webmaster\@e-mail.com<br>";

#
#Initalize mail message to secureaddres
#
open (MAIL, "|$mailprog $SECUREADDRESS") or die "Can't open $mailprog!\n";
print MAIL "To: $SECUREADDRESS\n";
print MAIL "From: PRINTENV Watcher <$SECUREADDRESS>\n";
print MAIL "Subject: [/CGI-BIN/PRINTENV] $ENV{'REMOTE_HOST'} $action\n\n";
print MAIL "\n";
print MAIL  "------------------------------------------------------------\n";
#
#Send basic information
#
print MAIL "Remote host: $ENV{'REMOTE_ADDR'}\n";
print MAIL "Server: $ENV{'SERVER_NAME'}\n";
print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
print MAIL "HTTP Referer: $ENV{'HTTP_REFERER'}\n";
print MAIL "Query String: $ENV{'QUERY_STRING'}\n";
print MAIL "\n------------------------------------------------------------\n";
print MAIL "ENV List:";
print MAIL "\n";
foreach $var (keys %ENV) {
        $ENV{$var} =~ s/\n//g;
        print MAIL "$var \t $ENV{$var}\n";
}
close(MAIL);

exit;