tor.cgi: fix calling Perl location module functions

The second version of this patch avoids re-defining $db_handle.

Fixes: #12492

Cc: Stefan Schantl <stefan.schantl@ipfire.org
Signed-off-by: Peter Müller <peter.mueller@ipfire.org>
Acked-By: Stefan Schantl <stefan.schantl@ipfire.org>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Peter Müller
2020-10-09 19:20:32 +00:00
committed by Michael Tremer
parent add03100a5
commit 5fe798b52f

View File

@@ -322,14 +322,13 @@ END
<select name='TOR_EXIT_COUNTRY'>
<option value=''>- $Lang::tr{'tor exit country any'} -</option>
END
my @country_codes = &Location::database_countries();
my @country_codes = &Location::database_countries($db_handle);
foreach my $country_code (@country_codes) {
# Convert country code into upper case format.
$country_code = uc($country_code);
# Get country name.
my $country_name = &Location::Functions::get_country_name($country_code);
my $country_name = &Location::Functions::get_full_country_name($country_code);
print "<option value='$country_code'";