From: Stefan Schantl <stefan.schantl@ipfire.org>
Date: Sun, 8 Feb 2015 17:23:01 +0000 (+0100)
Subject: geoip-functions.pl: A collection of functions dealing with GeoIP.
X-Git-Tag: v2.17-core91~128^2~6^2~12^2~7
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1dcd87157d4b52ee304094a586674dcb4919c3ba;p=ipfire-2.x.git

geoip-functions.pl: A collection of functions dealing with GeoIP.
---

diff --git a/config/cfgroot/general-functions.pl b/config/cfgroot/general-functions.pl
index bd5ad0ac86..29f7e8c6b8 100644
--- a/config/cfgroot/general-functions.pl
+++ b/config/cfgroot/general-functions.pl
@@ -1124,30 +1124,4 @@ sub get_red_interface() {
 	return $interface;
 }
 
-# Function to get the county name by a given country code.
-sub get_full_country_name($) {
-	my ($input) = @_;
-	my $name;
-
-	# Remove whitespaces.
-	chomp($input);
-
-	# Convert input into lower case format.
-	my $code = lc($input);
-
-	# Handle country codes which are not in the list.
-	if ($code eq "a1") { $name = "Anonymous Proxy" }
-	elsif ($code eq "a2") { $name = "Satellite Provider" }
-	elsif ($code eq "o1") { $name = "Other Country" }
-	elsif ($code eq "ap") { $name = "Asia/Pacific Region" }
-	elsif ($code eq "eu") { $name = "Europe" }
-	elsif ($code eq "yu") { $name = "Yugoslavia" }
-	else {
-		# Use perl built-in module to get the country code.
-		$name = &Locale::Country::code2country($code);
-	}
-
-	return $name;
-}
-
 1;
diff --git a/config/cfgroot/geoip-functions.pl b/config/cfgroot/geoip-functions.pl
new file mode 100644
index 0000000000..68b6f503d7
--- /dev/null
+++ b/config/cfgroot/geoip-functions.pl
@@ -0,0 +1,90 @@
+#!/usr/bin/perl -w
+############################################################################
+#                                                                          #
+# This file is part of the IPFire Firewall.                                #
+#                                                                          #
+# IPFire is free software; you can redistribute it and/or modify           #
+# it under the terms of the GNU General Public License as published by     #
+# the Free Software Foundation; either version 2 of the License, or        #
+# (at your option) any later version.                                      #
+#                                                                          #
+# IPFire is distributed in the hope that it will be useful,                #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of           #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            #
+# GNU General Public License for more details.                             #
+#                                                                          #
+# You should have received a copy of the GNU General Public License        #
+# along with IPFire; if not, write to the Free Software                    #
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA #
+#                                                                          #
+# Copyright (C) 2015 IPFire Team <info@ipfire.org>.                        #
+#                                                                          #
+############################################################################
+
+package GeoIP;
+
+use Locale::Country;
+
+# Function to get the flag icon for a specified country code.
+sub get_flag_icon($) {
+	my ($input) = @_;
+
+	# Webserver's root dir. (Required for generating full path)
+	my $webroot = "/srv/web/ipfire/html";
+
+	# Directory which contains the flag icons.
+	my $flagdir = "/images/flags";
+
+	# File extension of the country flags.
+	my $ext = "png";
+
+	# Remove whitespaces.
+	chomp($input);
+
+	# Convert given country code to lower case.
+	my $ccode = lc($input);
+
+	# Generate filename, based on the contry code in lower case
+	# and the defined file extension.
+	my $file = join('.', $ccode,$ext);
+
+	# Generate path inside webroot to the previously generated file.
+	my $flag_icon = join('/', $flagdir,$file);
+
+	# Generate absolute path to the icon file.
+	my $absolute_path = join('', $webroot,$flag_icon);
+ 
+	# Check if the a icon file exists.
+	if (-e "$absolute_path") {
+		# Return content of flag_icon.
+		return $flag_icon;
+	}
+}
+
+# Function to get the county name by a given country code.
+sub get_full_country_name($) {
+	my ($input) = @_;
+	my $name;
+
+	# Remove whitespaces.
+	chomp($input);
+
+	# Convert input into lower case format.
+	my $code = lc($input);
+
+	# Handle country codes which are not in the list.
+	if ($code eq "a1") { $name = "Anonymous Proxy" }
+	elsif ($code eq "a2") { $name = "Satellite Provider" }
+	elsif ($code eq "o1") { $name = "Other Country" }
+	elsif ($code eq "ap") { $name = "Asia/Pacific Region" }
+	elsif ($code eq "eu") { $name = "Europe" }
+	elsif ($code eq "yu") { $name = "Yugoslavia" }
+	else {
+		# Use perl built-in module to get the country code.
+		$name = &Locale::Country::code2country($code);
+	}
+
+	return $name;
+}
+
+1;