From mboxrd@z Thu Jan  1 00:00:00 1970
From: Peter =?utf-8?q?M=C3=BCller?= <peter.mueller@ipfire.org>
To: development@lists.ipfire.org
Subject: [PATCH] tor.cgi: fix calling Perl location module functions
Date: Fri, 09 Oct 2020 19:15:28 +0000
Message-ID: <5b187b8e-50d4-870f-4e1a-7309493b9261@ipfire.org>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============8038775659106364953=="
List-Id: <development.lists.ipfire.org>

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

Fixes: #12492

Cc: Stefan Schantl <stefan.schantl(a)ipfire.org>
Signed-off-by: Peter M=C3=BCller <peter.mueller(a)ipfire.org>
---
 html/cgi-bin/tor.cgi | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/html/cgi-bin/tor.cgi b/html/cgi-bin/tor.cgi
index 28dec6cf0..c1a9e509c 100644
--- a/html/cgi-bin/tor.cgi
+++ b/html/cgi-bin/tor.cgi
@@ -322,14 +322,14 @@ END
 					<select name=3D'TOR_EXIT_COUNTRY'>
 						<option value=3D''>- $Lang::tr{'tor exit country any'} -</option>
 END
-
-		my @country_codes =3D &Location::database_countries();
+		my $db_handle =3D &Location::Functions::init();
+		my @country_codes =3D &Location::database_countries($db_handle);
 		foreach my $country_code (@country_codes) {
 			# Convert country code into upper case format.
 			$country_code =3D uc($country_code);
=20
 			# Get country name.
-			my $country_name =3D &Location::Functions::get_country_name($country_code=
);
+			my $country_name =3D &Location::Functions::get_full_country_name($country=
_code);
=20
 			print "<option value=3D'$country_code'";
=20
--=20
2.26.2

--===============8038775659106364953==--