webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-19 23:43:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

tor.cgi: Use own location functions.

Browse Source 
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Stefan Schantl
2020-09-22 20:25:03 +02:00
committed by Michael Tremer
parent b05028da4b
commit 8b45257326
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
html/cgi-bin/tor.cgi
View File

@@ -20,7 +20,6 @@
###############################################################################
use strict;
use Locale::Codes::Country;
# enable only the following on debugging purpose
#use warnings;
@@ -31,6 +30,9 @@ require "${General::swroot}/location-functions.pl";
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
# Init libloc database connection.
my $db_handle = &Location::Functions::init();
#workaround to suppress a warning when a variable is used only once
my @dummy = ( ${Header::colouryellow} );
undef (@dummy);
@@ -321,10 +323,14 @@ END
<option value=''>- $Lang::tr{'tor exit country any'} -</option>
END
my @country_names = Locale::Codes::Country::all_country_names();
foreach my $country_name (sort @country_names) {
my $country_code = Locale::Codes::Country::country2code($country_name);
my @country_codes = &Location::database_countries();
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);
print "<option value='$country_code'";
if ($settings{'TOR_EXIT_COUNTRY'} eq $country_code) {