#!/usr/bin/perl

##################################################################
#		     Copyright 1997 Jim Sauer			 #
# This script was written by Jim Sauer (jim@theaction.com).	 #
#								 #
# This software is covered by the GNU General Public License	 #
# (http://www.theaction.com/scripts/gnu.html)  			 #
# 								 #
# You have permission to do anything you want with this script.  #
# except restrict its further use or remove the GNU notice. 	 #
# 								 #
# I would appreciate it if you left this header and dropped me a #
# line to let me know how you used/modified the script. I would  #
# also appreciate a link to http://theaction/scripts. 		 #
# This script comes with no promise or quarantee including 	 #
# fitness for a particular purpose. Use it at your own risk.	 #
# I cannot be responsible for any unfortunate  	 		 #
# consequences resulting from the use of this script.		 #
#                                                                #
##################################################################
#								 #
# If you modify this script add documentation here		 #
#								 #
##################################################################
$heading="Thanks for visiting our site"; 
$datepath ="/bin/date";	#path to the unix date command	
########################################################


$date =`$datepath`;
chop($date);

$browser = "$ENV{'HTTP_USER_AGENT'}";
$address = "$ENV{'REMOTE_ADDR'}";
$referer = "$ENV{'HTTP_REFERER'}";
$ident = "$ENV{'REMOTE_IDENT'}";

$_ = `nslookup $address`;

 /(Name:.*\.\S{3}\s?)/;





print "Content-type: text/html\n\n";
print "<center>";
print "<h2>$heading</h2>";
print " $1 ";
print "<p>";
print "on $date";
print "<p>";

print "Your IP Address is: $address <p>";
print "You are using $browser to view these pages!\n <br>";
print "<br>referer: $referer <br>";


print "</body></html>";