From mboxrd@z Thu Jan  1 00:00:00 1970
From: Horace Michael <horace.michael@gmx.com>
To: development@lists.ipfire.org
Subject:
 [[PATCH] 1/2] ipinfo.cgi - added country flag and IP reputational links
Date: Thu, 03 Nov 2016 01:50:06 +0200
Message-ID: <1478130607-1063-1-git-send-email-horace.michael@gmx.com>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============4621419233843813449=="
List-Id: <development.lists.ipfire.org>

--===============4621419233843813449==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

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


--===============4621419233843813449==--