#!/usr/bin/perl ################################################################## # # # This script was written by Jim Sauer (jim@theaction.com). # # # # It requires ctime.pl, found with all recent distributions of # # Perl, to get the date and time on NT servers. # # # # 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. # # # # 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 warrantee 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. # # # ################################################################## print "HTTP/1.0 200 OK\n"; print "Content-Type: text/html \n\n"; do 'ctime.pl'; $Date = &ctime(time); $browser = "$ENV{'HTTP_USER_AGENT'}"; $address = "$ENV{'REMOTE_ADDR'}"; $referer = "$ENV{'HTTP_REFERER'}"; $ident = "$ENV{'REMOTE_IDENT'}"; $_ = `nslookup $address`; /(Name:.*\.\S{3}\s?)/; print ""; print ""; print "

Thanks for visiting our site

"; print "on $Date"; print "

"; print " $1

"; print "Your IP Address is: $address

"; print "You are using $browser to view these pages!\n
"; print "";