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

geoip-functions: Adjust for new flag-icons and usage of "unknown" icon.

Browse Source
This commit is contained in:
Stefan Schantl
2015-05-04 20:13:52 +02:00
parent 3ea01fe042
commit dfbee171cc
1 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
config/cfgroot/geoip-functions.pl
View File

@@ -41,8 +41,8 @@ sub get_flag_icon($) {
# Remove whitespaces. # Remove whitespaces.
chomp($input); chomp($input);
# Convert given country code to lower case. # Convert given country code to upper case.
my $ccode = lc($input); my $ccode = uc($input);
# Generate filename, based on the contry code in lower case # Generate filename, based on the contry code in lower case
# and the defined file extension. # and the defined file extension.
@@ -58,6 +58,21 @@ sub get_flag_icon($) {
if (-e "$absolute_path") { if (-e "$absolute_path") {
# Return content of flag_icon. # Return content of flag_icon.
return $flag_icon; return $flag_icon;
} else {
# If no icon for the specified country exists, try to use
# the icon for "unknown".
my $ccode = "unknown";
# Redoing all the stuff from abouve for the "unknown" icon.
my $file = join('.', $ccode,$ext);
my $flag_icon = join('/', $flagdir,$file);
my $absolute_path = join('', $webroot,$flag_icon);
# Check if the icon is present.
if (-e "$absolute_path") {
# Return "unknown" icon.
return $flag_icon;
}
} }
} }