#!/usr/bin/perl ############################################################################### # # # IPFire.org - A linux based firewall # # Copyright (C) 2007 Michael Tremer & Christian Schmidt # # # # This program 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 3 of the License, or # # (at your option) any later version. # # # # This program 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 this program. If not, see . # # # ############################################################################### use strict; use Locale::Country; my $flagdir = '/srv/web/ipfire/html/images/flags'; my $lines = '1'; my $lines2 = ''; my @flaglist=(); my @flaglistfiles=(); my $flag = ''; require '/var/ipfire/general-functions.pl'; require "${General::swroot}/lang.pl"; require "${General::swroot}/header.pl"; &Header::showhttpheaders(); &Header::openpage($Lang::tr{'countries'}, 1, ''); &Header::openbigbox('100%', 'left'); &Header::openbox('100%', 'left', $Lang::tr{'country codes and flags'}); print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; @flaglist = <$flagdir/*>; undef @flaglistfiles; foreach (@flaglist) { if (!-d) { push(@flaglistfiles,substr($_,rindex($_,"/")+1)); } } my $col=""; foreach $flag (@flaglistfiles) { $lines++; my $flagcode = uc(substr($flag, 0, 2)); my $fcode = lc($flagcode); my $country = Locale::Country::code2country($fcode); if($fcode eq 'eu') { $country = 'Europe'; } if($fcode eq 'tp') { $country = 'East Timor'; } if($fcode eq 'yu') { $country = 'Yugoslavia'; } if ($lines % 2) { print ""; print ""; print "\n"; } else { $lines2++; if($lines2 % 2) { $col="style='background-color:${Header::table2colour};'"; } else { $col="style='background-color:${Header::table1colour};'"; } print ""; print ""; print ""; print ""; print ""; } } print "
$Lang::tr{'flag'}$Lang::tr{'countrycode'}$Lang::tr{'country'} $Lang::tr{'flag'}$Lang::tr{'countrycode'}$Lang::tr{'country'}
$flagcode$flagcode$country
$flagcode$flagcode$country 
"; &Header::closebox(); &Header::closebigbox(); print < $Lang::tr{'back'} END ; &Header::closepage();