]> git.ipfire.org Git - ipfire-2.x.git/blame - html/cgi-bin/country.cgi
Merge remote-tracking branch 'origin/master' into next
[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
24use Locale::Country;
25
95fb58a3 26my $flagdir = '/srv/web/ipfire/html/images/flags';
dace10b5
MT
27my $lines = '1';
28my $lines2 = '';
29my @flaglist=();
30my @flaglistfiles=();
31my $flag = '';
32
df8c7810 33require '/var/ipfire/general-functions.pl';
dace10b5
MT
34require "${General::swroot}/lang.pl";
35require "${General::swroot}/header.pl";
36
37&Header::showhttpheaders();
38
326a764d
AH
39&Header::openpage($Lang::tr{'countries'}, 1, '');
40&Header::openbigbox('100%', 'left');
41
42&Header::openbox('100%', 'left', $Lang::tr{'country codes and flags'});
43print "<table class='tbl'>";
44print "<tr><th style='width=5%;'><b>$Lang::tr{'flag'}</b></th>";
45print "<th style='width=5%;'><b>$Lang::tr{'countrycode'}</b></th>";
46print "<th style='width=40%; text-align:left;'><b>$Lang::tr{'country'}</b></th>";
47print "<th>&nbsp;</th>";
48print "<th style='width=5%;'><b>$Lang::tr{'flag'}</b></th>";
49print "<th style='width=5%;'><b>$Lang::tr{'countrycode'}</b></th>";
50print "<th style='width=40%; text-align:left;'><b>$Lang::tr{'country'}</b></th></tr>";
dace10b5
MT
51
52@flaglist = <$flagdir/*>;
53
54undef @flaglistfiles;
55
56foreach (@flaglist)
57{
58 if (!-d) { push(@flaglistfiles,substr($_,rindex($_,"/")+1)); }
59}
4250f386 60my $col="";
dace10b5
MT
61foreach $flag (@flaglistfiles)
62{
63 $lines++;
4250f386
AM
64
65 my $flagcode = uc(substr($flag, 0, 2));
66 my $fcode = lc($flagcode);
dace10b5 67 my $country = Locale::Country::code2country($fcode);
4250f386
AM
68 if($fcode eq 'eu') { $country = 'Europe'; }
69 if($fcode eq 'tp') { $country = 'East Timor'; }
70 if($fcode eq 'yu') { $country = 'Yugoslavia'; }
71 if ($lines % 2) {
326a764d 72 print "<td $col><a id='$fcode'><img src='/images/flags/$fcode.png' alt='$flagcode' title='$flagcode'/></a></td>";
4250f386
AM
73 print "<td $col>$flagcode</td>";
74 print "<td $col>$country</td></tr>\n";
4250f386 75 }
326a764d
AH
76 else {
77 $lines2++;
78 if($lines2 % 2) {
79 $col="style='background-color:${Header::table2colour};'";
80 } else {
81 $col="style='background-color:${Header::table1colour};'";
82 }
83 print "<tr>";
84 print "<td $col><a id='$fcode'><img src='/images/flags/$fcode.png' alt='$flagcode' title='$flagcode'/></a></td>";
85 print "<td $col>$flagcode</td>";
86 print "<td $col>$country</td>";
87 print "<td $col>&nbsp;</td>";
dace10b5 88 }
dace10b5
MT
89}
90
91
326a764d 92print "</table>";
dace10b5
MT
93&Header::closebox();
94
95&Header::closebigbox();
96
97print <<END
326a764d
AH
98<div style='text-align:center'>
99<a href='$ENV{'HTTP_REFERER'}'>$Lang::tr{'back'}</a>
dace10b5
MT
100</div>
101END
102;
103
104&Header::closepage();
105
106