#!/usr/bin/perl -w
use Socket;
print "content-type: text/html\n\n";
print "IP";
print "Dados da conexão:
\n";
print "IP:\ $ENV{'REMOTE_ADDR'} ($ENV{'HTTP_X_FORWARDED_FOR'})\n
";
print "Host:\ ".gethostbyaddr(inet_aton($ENV{'REMOTE_ADDR'}), AF_INET)."\n
";
#print "Navegador:\ $ENV{'HTTP_USER_AGENT'}\n
";
if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) { print "Navegador: Internet Explorer"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Chrome/) { print "Navegador: Chrome"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Firefox/) { print "Navegador: Firefox"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Konqueror/) { print "Navegador: Konqueror/"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Lynx/) { print "Navegador: Lynx/"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Opera/) { print "Navegador: Opera"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Safari/) { print "Navegador: Safari"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla/) { print "Navegador: Netscape"; }
else {print "Navegador: Desconhecido\n
"; }
if ($ENV{'HTTP_USER_AGENT'} =~ /iPhone/) { print "/iPhone\n
"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /iPad/) { print "/iPad\n
"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Android/) { print "/Android\n
"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Windows/) { print "/Windows\n
"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Macintosh/) { print "/Macintosh\n
"; }
elsif ($ENV{'HTTP_USER_AGENT'} =~ /Linux/) { print "/Linux\n
"; }
else {print "\n
"; }
$start_time = localtime(time());
print "
Gerado em $start_time\ (GMT)\n
";