Signed-off-by: Horace Michael horace.michael@gmx.com --- html/cgi-bin/ipinfo.cgi | 45 +++++++++++++++++++++++++++++++++++++++++---- 1 file changed, 41 insertions(+), 4 deletions(-) mode change 100644 => 100755 html/cgi-bin/ipinfo.cgi
diff --git a/html/cgi-bin/ipinfo.cgi b/html/cgi-bin/ipinfo.cgi old mode 100644 new mode 100755 index 8cefe6e853ff..8bcad8662107 --- a/html/cgi-bin/ipinfo.cgi +++ b/html/cgi-bin/ipinfo.cgi @@ -22,20 +22,25 @@ use CGI; use IO::Socket; use strict; +use Geo::IP::PurePerl;
# enable only the following on debugging purpose -#use warnings; -#use CGI::Carp 'fatalsToBrowser'; +use warnings; +use CGI::Carp 'fatalsToBrowser';
require '/var/ipfire/general-functions.pl'; require "${General::swroot}/lang.pl"; require "${General::swroot}/header.pl"; +require "${General::swroot}/geoip-functions.pl";
my %cgiparams=(); +my $s; +my @key;
&Header::showhttpheaders();
&Header::openpage($Lang::tr{'ip info'}, 1, ''); + &Header::openbigbox('100%', 'left'); my @lines=(); my $extraquery=''; @@ -50,6 +55,13 @@ if (&General::validip($addr)) { my $hostname = gethostbyaddr($iaddr, AF_INET); if (!$hostname) { $hostname = $Lang::tr{'lookup failed'}; }
+ # geoip lookup + my $geoaddr = Geo::IP::PurePerl->new(); + my $ccode = $geoaddr->country_code_by_name($addr); + my $fcode = lc($ccode); + # Get flag icon for of the country. + my $flag_icon = &GeoIP::get_flag_icon($ccode); + my $sock = new IO::Socket::INET ( PeerAddr => $whoisname, PeerPort => 43, Proto => 'tcp'); if ($sock) { @@ -80,8 +92,33 @@ if (&General::validip($addr)) { { @lines = ( "$Lang::tr{'unable to contact'} $whoisname" ); } - - &Header::openbox('100%', 'left', $addr . ' (' . $hostname . ') : '.$whoisname); + # include geoip information here + &Header::openbox('100%', 'left', $addr . + ' <a href='/cgi-bin/country.cgi#' . $fcode . ''><img src='' . $flag_icon . '' border='0' align='absmiddle' alt='' .$ccode .'' title='' . $ccode . ''></a> + (' . $hostname . ') : '. $whoisname . + '; + + <form method='post' action='http://www.ipvoid.com/scan/' . $addr . '/' target=_blank> + IP Reputational info: + <a href='http://www.ipvoid.com/scan/' . $addr . '/' target=_blank>IpVoid + <input type='image' title=IPVoid src='/images/ipvoid.ico'> + </a>; + <a href='https://www.virustotal.com/en/ip-address/' . $addr . '/information' target=_blank>VirusTotal + <img src='/images/virustotal.ico' title=VirusTotal border='0' /> + </a>; + <a href='http://whois.domaintools.com/' . $addr . '' target=_blank>DomainTools + <img src='/images/domaintools.ico' title=DomainTools border='0' /> + </a>; + <a href='http://multirbl.valli.org/lookup/' . $addr . '.html' target=_blank>MultiRBL + <img src='/images/rbl.jpg' title=MultiRBL border='0' /> + </a> + </form> + + ' + + + ); + print "<pre>\n"; foreach my $line (@lines) { print &Header::cleanhtml($line,"y");