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 on active network connections in WebUI
Date: Tue, 07 Nov 2017 20:42:42 +0100
Message-ID: <20171107204242.15257272.peter.mueller@link38.eu>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============3657925290923927651=="
List-Id: <development.lists.ipfire.org>

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

Display the GeoIP flag for source and destination IP address
on the connection tracking table in WebUI.

This could possibly make network or firewall rule debugging easier.

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

diff --git a/html/cgi-bin/connections.cgi b/html/cgi-bin/connections.cgi
index 96f09012b..06dc74877 100644
--- a/html/cgi-bin/connections.cgi
+++ b/html/cgi-bin/connections.cgi
@@ -23,6 +23,7 @@ use strict;
=20
 use Net::IPv4Addr qw( :all );
 use Switch;
+use Geo::IP::PurePerl;
=20
 # enable only the following on debugging purpose
 #use warnings;
@@ -31,6 +32,7 @@ use Switch;
 require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
 require "${General::swroot}/header.pl";
+require "${General::swroot}/geoip-functions.pl";
=20
 my $colour_multicast =3D "#A0A0A0";
=20
@@ -372,6 +374,7 @@ print <<END;
 				<a href=3D"?sort_field=3D5&amp;sort_order=3Dd"><img style=3D"width:10px"=
 src=3D"/images/up.gif" alt=3D""></a>
 				<a href=3D"?sort_field=3D5&amp;sort_order=3Da"><img style=3D"width:10px"=
 src=3D"/images/down.gif" alt=3D""></a>
 			</th>
+			<th>&nbsp;</th>
 			<th style=3D'text-align:center' colspan=3D'2'>
 				<a href=3D"?sort_field=3D1&amp;sort_order=3Dd"><img style=3D"width:10px"=
 src=3D"/images/up.gif" alt=3D""></a>
 				<a href=3D"?sort_field=3D1&amp;sort_order=3Da"><img style=3D"width:10px"=
 src=3D"/images/down.gif" alt=3D""></a>
@@ -386,6 +389,7 @@ print <<END;
 				<a href=3D"?sort_field=3D4&amp;sort_order=3Dd"><img style=3D"width:10px"=
 src=3D"/images/up.gif" alt=3D""></a>
 				<a href=3D"?sort_field=3D4&amp;sort_order=3Da"><img style=3D"width:10px"=
 src=3D"/images/down.gif" alt=3D""></a>
 			</th>
+			<th>&nbsp;</th>
 			<th style=3D'text-align:center'>
 				<a href=3D"?sort_field=3D8&amp;sort_order=3Dd"><img style=3D"width:10px"=
 src=3D"/images/up.gif" alt=3D""></a>
 				<a href=3D"?sort_field=3D8&amp;sort_order=3Da"><img style=3D"width:10px"=
 src=3D"/images/down.gif" alt=3D""></a>
@@ -409,10 +413,16 @@ print <<END;
 			<th style=3D'text-align:center' colspan=3D'2'>
 				$Lang::tr{'source ip and port'}
 			</th>
+			<th style=3D'text-align:center'>
+				$Lang::tr{'country'}
+			</th>
 			<th style=3D'text-align:center' colspan=3D'2'>
 				$Lang::tr{'dest ip and port'}
 			</th>
 			<th style=3D'text-align:center'>
+				$Lang::tr{'country'}
+			</th>
+			<th style=3D'text-align:center'>
 				$Lang::tr{'download'} /
 				<br>$Lang::tr{'upload'}
 			</th>
@@ -540,6 +550,16 @@ foreach my $line (@conntrack) {
 	my $bytes_in =3D format_bytes($bytes[0]);
 	my $bytes_out =3D format_bytes($bytes[1]);
=20
+	my $gi1 =3D Geo::IP::PurePerl->new();
+	my $ccode1 =3D $gi1->country_code_by_name($sip_ret);
+	my $fcode1 =3D lc($ccode1);
+	my $flag_icon1 =3D &GeoIP::get_flag_icon($fcode1);
+
+	my $gi2 =3D Geo::IP::PurePerl->new();
+	my $ccode2 =3D $gi2->country_code_by_name($dip_ret);
+	my $fcode2 =3D lc($ccode2);
+	my $flag_icon2 =3D &GeoIP::get_flag_icon($fcode2);
+=09
 	# Format TTL
 	$ttl =3D format_time($ttl);
=20
@@ -601,6 +621,9 @@ foreach my $line (@conntrack) {
 			</a>
 			$sport_extra
 		</td>
+		<td style=3D'text-align:center; background-color:$sip_colour;'>
+			<a href=3D'country.cgi#$fcode1'><img src=3D'$flag_icon1' border=3D'0' ali=
gn=3D'absmiddle' title=3D'$ccode1'></a>
+		</td>
 		<td style=3D'text-align:center; background-color:$dip_colour;'>
 			<a href=3D'/cgi-bin/ipinfo.cgi?ip=3D$dip'>
 				<span style=3D'color:#FFFFFF;'>$dip</span>
@@ -613,6 +636,9 @@ foreach my $line (@conntrack) {
 			</a>
 			$dport_extra
 		</td>
+		<td style=3D'text-align:center; background-color:$dip_colour;'>
+			<a href=3D'country.cgi#$fcode2'><img src=3D'$flag_icon2' border=3D'0' ali=
gn=3D'absmiddle' title=3D'$ccode2'></a>
+		</td>
 		<td style=3D'text-align:center'>
 			$bytes_in / $bytes_out
 		</td>
--=20
2.13.6


--===============3657925290923927651==--