GeoIP: Add lookup function for convenience
[ipfire-2.x.git] / html / cgi-bin / country.cgi
CommitLineData
dace10b5 1#!/usr/bin/perl
70df8302
MT
2###############################################################################
3# #
4# IPFire.org - A linux based firewall #
5# Copyright (C) 2007 Michael Tremer & Christian Schmidt #
6# #
7# This program is free software: you can redistribute it and/or modify #
8# it under the terms of the GNU General Public License as published by #
9# the Free Software Foundation, either version 3 of the License, or #
10# (at your option) any later version. #
11# #
12# This program is distributed in the hope that it will be useful, #
13# but WITHOUT ANY WARRANTY; without even the implied warranty of #
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
15# GNU General Public License for more details. #
16# #
17# You should have received a copy of the GNU General Public License #
18# along with this program. If not, see <http://www.gnu.org/licenses/>. #
19# #
20###############################################################################
dace10b5
MT
21
22use strict;
23
b013822b 24use Locale::Codes::Country;
dace10b5 25
8fba24ec 26my $col;
dace10b5
MT
27my $lines = '1';
28my $lines2 = '';
dace10b5 29
df8c7810 30require '/var/ipfire/general-functions.pl';
3ea01fe0 31require "${General::swroot}/geoip-functions.pl";
dace10b5
MT
32require "${General::swroot}/lang.pl";
33require "${General::swroot}/header.pl";
34
35&Header::showhttpheaders();
36
326a764d
AH
37&Header::openpage($Lang::tr{'countries'}, 1, '');
38&Header::openbigbox('100%', 'left');
39
40&Header::openbox('100%', 'left', $Lang::tr{'country codes and flags'});
8fba24ec
SS
41
42print<<END;
43<table class='tbl'>
44 <tr>
45 <th style='width=5%'><b>$Lang::tr{'flag'}</b></th>
46 <th style='width=5%'><b>$Lang::tr{'countrycode'}</b></th>
47 <th style='width=40% text-align:left'><b>$Lang::tr{'country'}</b></th>
48 <th>&nbsp;</th>
49 <th style='width=5%'><b>$Lang::tr{'flag'}</b></th>
50 <th style='width=5%;'><b>$Lang::tr{'countrycode'}</b></th>
51 <th style='width=40% text-align:left;'><b>$Lang::tr{'country'}</b></th>
52 </tr>
53END
54
55# Get a list of all supported country codes.
56my @countries = Locale::Codes::Country::all_country_codes();
57
58# Loop through whole country list.
59foreach my $country (@countries) {
dace10b5 60 $lines++;
4250f386 61
8fba24ec 62 # Convert country code into upper case.
00793c27 63 $country = uc($country);
3ea01fe0
SS
64
65 # Get flag icon for of the country.
8fba24ec
SS
66 my $flag_icon = &GeoIP::get_flag_icon($country);
67
68 # Get country name.
69 my $name = &GeoIP::get_full_country_name($country);
3ea01fe0 70
4250f386 71 if ($lines % 2) {
00793c27
MT
72 print "<td $col><a id='$country'><img src='$flag_icon' alt='$country' title='$country'/></a></td>";
73 print "<td $col>$country</td>";
8fba24ec
SS
74 print "<td $col>$name</td></tr>\n";
75 } else {
326a764d
AH
76 $lines2++;
77 if($lines2 % 2) {
78 $col="style='background-color:${Header::table2colour};'";
79 } else {
80 $col="style='background-color:${Header::table1colour};'";
81 }
82 print "<tr>";
00793c27
MT
83 print "<td $col><a id='$country'><img src='$flag_icon' alt='$country' title='$country'/></a></td>";
84 print "<td $col>$country</td>";
8fba24ec 85 print "<td $col>$name</td>";
326a764d 86 print "<td $col>&nbsp;</td>";
8fba24ec
SS
87
88 # Finish column when the last element in the array has passed and we have an uneven amount of items.
89 if ( $country eq $countries[-1] ) {
90 print "<td $col>&nbsp;</td>\n";
91 print "<td $col>&nbsp;</td>\n";
92 print "<td $col>&nbsp;</td></tr>\n";
93 }
dace10b5 94 }
dace10b5 95}
326a764d 96print "</table>";
dace10b5
MT
97&Header::closebox();
98
99&Header::closebigbox();
100
8fba24ec 101print "<div style='text-align:center'><a href='$ENV{'HTTP_REFERER'}'>$Lang::tr{'back'}</a></div>\n";
dace10b5
MT
102
103&Header::closepage();
104
105