#!wml
<:
# Change both. The array is ordered (for pages like translation status, order of flags, etc).
my @LANGUAGES = qw{ar bms de en es et fa fi fr it ja ko nl no pl pt ru se tr zh-cn};
my %LANGUAGES = (
'ar' => "عربية (Arabiya)",
'bms' => "Burmese",
'de' => "Deutsch",
'en' => "English",
'es' => "español",
'et' => "Estonian",
'fa' => "فارسی (Fārsī)",
'fi' => "suomi",
'fr' => "français",
'it' => "Italiano",
'ja' => "日本語 (Nihongo)",
'ko' => "한국어 (Hangul)",
'nl' => "Nederlands",
'no' => "norsk",
'pl' => "polski",
'pt' => "Português",
'ru' => "Русский (Russkij)",
'se' => "svenska",
'tr' => "Türkçe",
'zh-cn' => "中文(简) (Simplified Chinese)",
);
our $WML_SRC_FILENAME;
# sanity check.
for my $lang (@LANGUAGES) {
die "Language $lang defined in \@LANGUAGES but not in \%LANGUAGES in perl-globals"
unless exists $LANGUAGES{$lang};
};
die "\@LANGUAGES and \%LANGUAGES have a different number of elements in perl-globals"
unless (scalar @LANGUAGES == scalar keys %LANGUAGES);
:>