From: Peter Müller <peter.mueller@link38.eu>
Date: Sun, 7 Jan 2018 12:52:11 +0000 (+0100)
Subject: fix GeoIP lookup in showrequestfromcountry.dat
X-Git-Tag: v2.19-core118~3^2~65
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d894ef3615b1f3d2a4ed8f78c8fb24083dc9cc57;p=ipfire-2.x.git

fix GeoIP lookup in showrequestfromcountry.dat

This issue was caused by the rewrite of the perl GeoIP
library.

Fixes #11571.

Signed-off-by: Peter Müller <peter.mueller@link38.eu>
Tested-by: Matthias Fischer <matthias.fischer@ipfire.org>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
---

diff --git a/html/cgi-bin/logs.cgi/showrequestfromcountry.dat b/html/cgi-bin/logs.cgi/showrequestfromcountry.dat
index 605873ac00..69835370b1 100644
--- a/html/cgi-bin/logs.cgi/showrequestfromcountry.dat
+++ b/html/cgi-bin/logs.cgi/showrequestfromcountry.dat
@@ -349,7 +349,7 @@ foreach $_ (@slice)
 	if($iface eq $country || $srcaddr ne '') {
 		my $ccode='';
 		if($iface ne $country) {
-			$ccode = $gi->country_code_by_name($srcaddr);
+			$ccode = &GeoIP::lookup($srcaddr);
 		}
 		if($iface eq $country || $ccode eq uc($country)) {
 			my $chain = '';