#!/usr/bin/perl
#################################################################
# Title	: User Identification CGI
# Author	: Walter Moore aperson@aperson.com
# Created 	: 2/07/97
# Version 	: 1.0
# Comments	: This CGI determines the users system, then displays
#		: the detected information to them. It can alternately
#		: link to HTML pages to provide more information for
#		: both Netscape and Microsoft browsers. 
# 		: Copyright,1997 Aperson.Com.
################################################################
###################
# Define Variables and set to default values. Do not change these
###################
$browser = " $ENV{'HTTP_USER_AGENT'}";	# Browser name, version, OS. 
$lastsite = " $ENV{'HTTP_REFERER'}";	# Last visited site 
$yoursite = " $ENV{'REMOTE_HOST'}";		# The e-mail address(sort of)
$yourip = " $ENV{'REMOTE_ADDR'}";		# The IP address
$yourid = " $ENV{'REMOTE_IDENT'}";		# Identity if any
$realos = " Windows 3";				# the Operating System(OS)
$realone = " $ENV{'HTTP_USER_AGENT'}";	# the browser name
$realver = " 2";					# the browser version.
$javalive = " Yes";				# Does OS support Java? Default yes.
##################
# If you want to link to different pages for each browser browsercheck should be "Y".
# If "Y" then change the URL links accordingly.
# our_url should reference your home page regardless if browsercheck is used.
#################
$browsercheck = "Y";				# change to N if no HTML checks wanted
$microsoft_url = "/r.cgi?F=checkem";		# where to go if Microsoft V3+
$netscape_url = "/r.cgi?F=checknn";			# where to go if Netscape V2+ 
$our_url = "http://aperson.com";			# where to go for other browsers
##################
# Some variables may be blank after default setting. Handle them
# You should change these values.
##################
if ($yourid = " ") {$yourid = " Not Available";}
if ($lastsite = " ") {$lastsite = " Not Available";} 
##################
# Detect and handle Anonymizer...says sorry.
# anyone else has to remove this. It goes to secure services
##################
if ($yoursite =~ /infonex.com/) {
	print "Content-type: text/html\n\n";
	print "<font size=5><b><center>Sorry - I detected you are using Anonymizer<br> \n";
	print "You can not use this Aperson.Com function from there<br>";
	print "Well, technically you could, I just won't let you!<br>";
	print "Try accessing directly.<br>";
	print "See, I could still see something";  
	exit;
}
if ($realos =~ /THE ANONYMIZER/) {
	print "Content-type: text/html\n\n";
	print "<font size=5><b><center>Sorry - I detected you are using Anonymizer<br> \n";
	print "You can not use this Aperson.Com function from there.<br>";
	print "Well, technically you could, I just won't let you!<br>";
	print "Anonymizer is getting better.<br>";
	print "Try accessing directly.<br>";
	print "See, I could still see something.";  
	exit;
}
##################
# Start real work.
# Detect browser, version and platform.
##################
if ($browser =~ /MSIE/) {   			# They are using microsoft browser
	$realone = " Internet Explorer";
	($junk1, $temp1)=split(/MSIE /, $browser);
	($realver, $junk2)=split(/; /, $temp1);
	$realos = substr($junk2,$[,length($junk2)-1);
	##################
	# Java is not available on Windows3.1 using version 2. available in version 3. 
	##################
	if ($realos =~ /Win3/ || $realos =~ /Win16/ || $realos =~ /Win 16/ || $realos =~ /Windows 3/) {
		if ($realver =~ /2./){
			$javalive = " No";
		}
	}
}
else{
 if ($browser =~ /Mozilla/) {  		# They are using Netscape browser
	$realone = " Netscape Navigator";
	$_ = $browser;
	while (m#\((.*?)\)#g ) {		# get stuff inside brackets. needs perl5
		($realos, $junk1)=split(/;/,$1);
	}
	$realver = substr($browser,$[+9,4);
	##################
	# Java is not available on Windows3.1 using Netscape 
	##################
	if ($realos =~ /Win3/ || $realos =~ /Win16/ || $realos =~ /Win 16/ || $realos =~ /Windows 3/) {
		$javalive = " No";
	}
 }
}
##################
# Completed detection. Now write out results in form.
# first print out header information
# Can be modified/deleted
##################
  print "Content-type: text/html\n\n";
  print "<html><head><title>Server Detected Information</title>";
# Define Variables
$thesheet = "/r.cgi?F=basestyle";
$thebackground = "/r.cgi?P=background";
$thebgcolor = "#FFFFFF";
$thelink = "#df0000";
$thevlink = "#6f6f7f";
$browser = " $ENV{'HTTP_USER_AGENT'}";	
$setup1 = "3";
$justme = 'aperson@aperson.com';
if ($browser =~ /Mozilla\/1/) { 
	$setup1 = "3";
}
if ($browser =~ /Mozilla\/2/) { 
	$setup1 = "2";
}
if ($browser =~ /Mozilla\/3/) { 
	$setup1 = "2";
}
if ($browser =~ /Mozilla\/4/) {
 	$setup1 = "2";
}
if ($browser =~ /MSIE 3/) { 
	$setup1 = "1";
}
if ($browser =~ /MSIE 4/) { 
	$setup1 = "1";
}
print "<!-- This page dynamically written with CGI -->\n";
print "<META http-equiv=\"Description\" content=\"Aperson.Com provides Web Hosting, custom developments and numerous other Internet related solutions. We use the latest in technology including JAVA, JavaScript, VBScript, ActiveX, CGI, HTML3.2+, and others. We also develop basic web pages!\">\n";
print "<META http-equiv=\"Keywords\" content=\"java javascript jscript script vbscript CGI HTML HTML1 HTML2 HTML3 web hosting web site hosting web development internet programming solutions internet activex programming netscape software microsoft free stuff consulting consult consultant technician technical profesional experienced sexy advanced interactive complex cool hot leading edge dynamic bleading edge latest technology programmers techy way cool alx css style sheets cascading style sheets graphics coding layouts newest new standards experienced  \">\n";
print "<META http-equiv=\"Author\" content=\"Walter Moore\">\n";
print "<META http-equiv=\"PICS-Label\" content='(PICS-1.1 \"http://www.rsac.org/ratingsv01.html\" l gen true comment \"RSACi North America Server\" by \"$justme\" for \"http://Aperson.Com\" on \"1997.02.04T19:38-0500\" r (n 0 s 0 v 0 l 0))'>\n"; 
print "<META http-equiv=\"Expires\" content=\"20\">\n";
print "<META http-equiv=\"Page-Enter\" content=\"RevealTrans(Duration=2,Transition=1)\">\n";
print "<META http-equiv=\"Page-Exit\" content=\"RevealTrans(Duration=2,Transition=6)\">\n";
print "<!-- This page is copyright 1996-1998 of Aperson.Com.\n";
print "   You are authorized to use this code as an example for non-commercial use\n";
print "   providing you display the appropriate recognition/link on your site. \n";
print "   You are not authorized to use this in any form for commercial use without\n";
print "   written authorization from Aperson.Com. Send me mail at $justme\n";
print "   or visit my site at http://Aperson.Com. I am sure we can work something out.\n";
print "   Under no circumstance is this message to be removed -->  \n";

if ($setup1 == "2") {
print "<LINK REL=STYLESHEET HREF=\"$thesheet\" TYPE=\"text/css\">\n";
print "<script language=\"JAVASCRIPT\">\n";
print "function setdefault() {\n";
print "   window.defaultStatus = \"Aperson.Com provides complete solutions for your business!\"\n";
print "}\n";
print "</script>\n";
print "</head>\n";
print "<body bgcolor=\"$thebgcolor\" link=\"$thelink\" vlink=\"$thevlink\" onLoad=\"setdefault()\"  background=\"$thebackground\">\n";
print "<script language=\"JavaScript\">\n";
print "if (parent.frames.length < 2) {\n";
print "	document.write('<center><img width=465 height=55 src=\"/r.cgi?P=logo\" alt=\"Aperson.Com Logo\"><br><br></center>');\n";
print "}\n";
print "</script>\n";
}

if ($setup1 == "1") {
print "<LINK REL=STYLESHEET HREF=\"$thesheet\" TYPE=\"text/css\">\n";
print "</head>\n";
print "<body bgcolor=\"$thebgcolor\" background=\"$thebackground\">\n";
print "<script language=\"JavaScript\">\n";
print "if (parent.frames.length < 2) {\n";
print "	document.write('<center><img width=465 height=55 src=\"/r.cgi?P=logo\" alt=\"Aperson.Com Logo\"><br><br></center>');\n";
print "}\n";
print "</script>\n";
}

if ($setup1 == "3") {
print "</head>\n";
print "<body bgcolor=\"$thebgcolor\" link=\"$thelink\" vlink=\"$thevlink\" background=\"$thebackground\">\n";
print "<p align=\"center\">\n<img width=465 height=55 src=\"/r.cgi?P=logo\" alt=\"Aperson.Com provides complete solutions\">\n<br><br>\n";
}
  print "<div class=Effect1><h1>Server Detected</h1></div>\n";
  print "<blockquote>";
  print "Below you will find information about you that can be detected by a server.";
  print " This is not my fault! Any server can detect(or record) this stuff.";
  print " There are sections for Server and Browser detected information.<br><br>";
  print "<br><b>WARNING</b><br>\n";
  print "If your 'User ID' below is your e-mail address(without the '\@') you are not surfing";
  print " anonymously. That is not good, see Solutions below! "; 
  print " As long as you are anonymous, who cares....But if your not you should!<br><br> ";
##################
# now the actual form to display.
# This should not be modified.
##################
  print "<form name=serverside>\n"; 
  print "<table border=0 width=99%>\n";
  print "<tr><th colspan=2><b>Server Detected Information</b><br></th></tr>\n";
  print "<tr><td valign=top align=right width=35%>Your User ID:</td>\n";
  print "<td valign=top><input name=yoursite type=text size=45 value=\"$yoursite\"><br></td></tr>\n";
  print "<tr><td valign=top align=right width=35%>Your Identity:</td>\n";
  print "<td valign=top><input name=yourid type=text size=45 value=\"$yourid\"><br></td></tr>\n";
  print "<tr><td valign=top align=right width=35%>Your IP Address:</td>\n";
  print "<td valign=top><input name=yoursite type=text size=16 value=\"$yourip\"><br></td></tr>\n";
  print "<tr><td valign=top align=right width=35%>Your Operating System:</td>\n";
  print "<td valign=top><input name=realos type=text size=25 value=\" $realos\">\n";
  print "Java Capable:<input name=javalive type=text size=4 value=\"$javalive\"><br></td></tr>\n";
  print "<tr><td valign=top align=right width=35%>Your Browser:</td>\n";
  print "<td valign=top><input name=browser type=text size=30 value=\"$realone\">\n";
  print "Version:<input name=brover type=text size=6 value=\"$realver\"><br></td></tr>\n";
  print "<tr><td valign=top align=right width=35%>You Came From:</td>\n";
  print "<td valign=top><input name=lastsite type=text size=45 value=\"$lastsite\"><br></td></tr>\n";
  print "</table></form><br><br>\n";
##################
# end of form. Now if they have Netscape or Microsoft show more checking options.
# This section links to HTML page for each browser to display  their info options.    
# Can be removed/modified or choose "N" for browsercheck in variables above.
##################
 if ($browsercheck =~ "Y") {
  if ($realone =~ "Explorer") {
	if (substr($realver,$[,1) > 2) {
	print "Internet Explorer can detect most of the above plus much more.<br>\n";
	print "<a href=\"/r.cgi?F=checkem\" target=checker";
	print "    onMouseOver=\"window.status='Go here to see what Microsoft browser can detect';return true\">";
	print "Want to detect even more information?</a><br>\n"; 
	print "I detect if you have JavaScript, VBScript, Activex, Layouts, and other";
	print " functions enabled and report this to you.<br>\n";
	}	
  }		
  else {
	if ($realone =~ "Netscape") {
		if (substr($realver,$[,1) >= 2) {
		print "Netscape Navigator can detect most of the above plus more.<br>\n";
		print "<a href=\"/r.cgi?F=checknn\" target=checker";
		print "    onMouseOver=\"window.status='Go here to see what Netscape browser can detect';return true\">";
		print "Want to detect even more information?</a><br>\n"; 
		print "I can detect if you have JavaScript, Frames and other";
		print " functions enabled. ";
		}
	}	
	else {		# neither Netscape v2+ or Microsoft V3+ browser 
		print " Browser information is only available with Microsoft V3+ or ";
		print "Netscape V2+ browsers. Sorry.<br>\n";
	}
  }		
}		#end of browsercheck
##################
# display the trailer information
# modify/delete this for your display
##################
  print "<br><b>Solutions</b><br>\n";
  print " If your 'User ID' is your e-mail address you have a 'static' IP address. Talk to your";
  print " service provider(ISP) and request a 'dynamic' IP address. This will ensure you don't get any more";
  print " servers(we don't do that here) grabbing your email address. You still have to watch out for Newsgroups but that is another issue.<br>";
  print " Remember, this information can be recorded without your knowledge!<br>";
  print " This might explain some of those mail lists you are on.<br>"; 	
  print " Another solution is to go to a site like <a href=http://www.anonymizer.com>www.anonymizer.com</a>";
  print " to hide this info. Unfortunately, many sites will think you";
  print " have Netscape V2 on an unknown system and may send you to the wrong pages(not good) and";   
  print "  errors may occur when visiting some sites(try this page).<br>";
  print "  I am sure that anonymizer will eventually give the client options, just not yet.";
  print "  They provide an excellent service for those that are concerned about this info.<br>\n";
  print "<br>\n";
print "<hr width=100%>\n<center><font size=2><div class=\"smallone\">\n";
$homepage = "http://aperson.com";					# default homepage
if ($browser =~ /MSIE/) {   			# They are using microsoft browser
	if (substr($browser,$[+8,1) >= 3){
		$homepage = "/r.cgi?F=intro"
	}
}
else {
	if (substr($browser,$[+8,1) >= 2){
		$homepage = "/r.cgi?F=intro"
	}
}
print "<a href=\"$homepage\"\n";
print "	onMouseOver=\"window.status='Back to my home page';return true\">\n";
print "	Home</a> | \n";
print "<a href=\"/r.cgi?F=searchsite\"\n";
print "	onMouseOver=\"window.status='Search my site for information';return true\">\n";
print "	Site Search</a> | \n";
print "<a href=\"/r.cgi?F=searchweb\"\n";
print "	onMouseOver=\"window.status='Search the web the cool way. You have to try it.';return true\">\n";
print "	Web Search</a> | \n";
print "<a href=\"/r.cgi?F=guest\"\n";
print "	onMouseOver=\"window.status='Read my guestbook. Optionally add your comments';return true\">\n";
print "	GuestBook</a> | \n";
print "<a href=\"/r.cgi?F=changes\"\n";
print "	onMouseOver=\"window.status='These documents record changes to this site since early 1996';return true\">\n";
print "	Changes</a> | \n";
print "<a href=\"/r.cgi?F=contact\"\n";
print "	onMouseOver=\"window.status='Various ways you can contact me';return true\">\n";
print "	Contact Me</a>\n";
  $mailme = 'webmaster@aperson.com';
  $date = `/bin/date`; chop($date);
  print "<hr width=100%>\n<font size=2>\n";
  print "<div class=\"smallone\">\n<center>\n";
  print "This document created on $date<br>\n";   
  print "Copyright &#169 1996,1997 Aperson.Com<br>\n";
  print "For problems with this site please e-mail \n"; 
  print "<a href=\"mailto:$mailme\">$mailme</a><br>\n";  
  print "</center>\n</div>\n</font>\n";
  print "</BODY>\n</HTML>\n";