#!/usr/bin/perl
#browser scanner
$remotehost = $ENV{'REMOTE_HOST'};
$remoteaddress = $ENV{'REMOTE_ADDR'};
$refer = $ENV{'HTTP_REFERER'};
$agent = $ENV{'HTTP_USER_AGENT'};
$srvsoftware = $ENV{'SERVER_SOFTWARE'};
$ptrans = $ENV{'PATH_TRANSLATED'};
$script = $ENV{'SCRIPT_NAME'};
$mimelikes = $ENV{'HTTP_ACCEPT'};
print <
Have you ever wondered what Your Address in Cyberspace was? How
about your Location Relative to the rest of Cyberverse? Well here it is for
better or worse all courtesy of your friendly browser. The Plus side is that
if you ever need to know this information for networking reasons it is here easy as pie.
The downside is that this very same information can be used to infringe on your privacy
perhaps tracking your shopping habits and the like. Don't worry this particular demonstration
was to prove a point and as a public service for those that need to know what their browser
advertises about them.
You are currently connected from: $remotehost
Your Remote Computer's Internet Protocol Address is: $remoteaddress
Your Previous point on the Internet was: $refer
Currently you are using this browser $agent one of my favorite.
Your pet browser currently likes $mimelikes graphic image files which I for one prefer.
To be Fair Here is some extra information you might find exciting:
This Server is running $srvsoftware as it's Server Software
You are currently Viewing my page called $script
Hop - Skip - and - Jump Back to DREAMWVR.COM