From mboxrd@z Thu Jan  1 00:00:00 1970
From: Peter =?utf-8?q?M=C3=BCller?= <peter.mueller@link38.eu>
To: development@lists.ipfire.org
Subject: [PATCH] display GeoIP information for hosts blocked by Guardian
Date: Sat, 02 Dec 2017 19:39:40 +0100
Message-ID: <20171202193940.0fa7006d.peter.mueller@link38.eu>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============6368980682738097146=="
List-Id: <development.lists.ipfire.org>

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

Display GeoIP flag for blocked hosts at guardian.cgi in the WebUI.

This makes spotting blocked local IPs (grey flag with question mark)
easier. Enumerating the rDNS entry, unfortunately, takes way too
long.

Signed-off-by: Peter M=C3=BCller <peter.mueller(a)link38.eu>
---
 html/cgi-bin/guardian.cgi | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/html/cgi-bin/guardian.cgi b/html/cgi-bin/guardian.cgi
index e15501ef5..3bfa1b522 100644
--- a/html/cgi-bin/guardian.cgi
+++ b/html/cgi-bin/guardian.cgi
@@ -30,6 +30,7 @@ use Guardian::Socket;
 require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
 require "${General::swroot}/header.pl";
+require "${General::swroot}/geoip-functions.pl";
=20
 #workaround to suppress a warning when a variable is used only once
 my @dummy =3D (
@@ -791,7 +792,10 @@ sub showBlockedBox() {
 	print <<END;
 	<table width=3D'60%'>
 		<tr>
-			<td colspan=3D'2' class=3D'base' bgcolor=3D'$color{'color20'}'><b>$Lang::=
tr{'guardian blocked hosts'}</b></td>
+			<td class=3D'base' bgcolor=3D'$color{'color20'}'><b>$Lang::tr{'ip address=
'}</b></td>
+			<td class=3D'base' align=3D'center' bgcolor=3D'$color{'color20'}'><b>$Lan=
g::tr{'country'}</b></td>
+			<td class=3D'base' bgcolor=3D'$color{'color20'}'></td>
+			<td class=3D'base' align=3D'center' bgcolor=3D'$color{'color20'}'><b>$Lan=
g::tr{'unblock'}</b></td>
 		</tr>
 END
=20
@@ -814,9 +818,17 @@ END
 				$col=3D"bgcolor=3D'$color{'color20'}'";
 			}
=20
+			# enumerate GeoIP information for blocked host...
+			my $ccode =3D &GeoIP::lookup($blocked_host);
+			my $flag_icon =3D &GeoIP::get_flag_icon($ccode);
+
 			print <<END;
 			<tr>
-				<td width=3D'80%' class=3D'base' $col><a href=3D'/cgi-bin/ipinfo.cgi?ip=
=3D$blocked_host'>$blocked_host</a></td>
+				<td width=3D'20%' class=3D'base' $col><a href=3D'/cgi-bin/ipinfo.cgi?ip=
=3D$blocked_host'>$blocked_host</a></td>
+				<td width=3D'20%' class=3D'base' align=3D'center' $col>
+						<a href=3D'/cgi-bin/country.cgi#$ccode'><img src=3D'$flag_icon' border=
=3D'0' align=3D'absmiddle' alt=3D'$ccode' title=3D'$ccode' /></a>
+				</td>
+				<td width=3D'30%' class=3D'base' $col></td>
 				<td width=3D'20%' align=3D'center' $col>
 					<form method=3D'post' name=3D'frmb$id' action=3D'$ENV{'SCRIPT_NAME'}'>
 						<input type=3D'image' name=3D'$Lang::tr{'unblock'}' src=3D'/images/del=
ete.gif' title=3D'$Lang::tr{'unblock'}' alt=3D'$Lang::tr{'unblock'}'>
@@ -834,7 +846,7 @@ END
=20
 		# Print notice that currently no hosts are blocked.
 		print "<tr>\n";
-		print "<td class=3D'base' colspan=3D'2'>$Lang::tr{'guardian no entries'}</=
td>\n";
+		print "<td class=3D'base' colspan=3D'4'>$Lang::tr{'guardian no entries'}</=
td>\n";
 		print "</tr>\n";
 	}
=20
--=20
2.13.6



--===============6368980682738097146==--