#!wml
<:
# Change both. The array is ordered (for pages like translation status, order of flags, etc).
my @LANGUAGES = qw{ar bms cy da de en es et fa fi fr hu id it ja ko nl no pl pt pt-br ru se tr vn zh-cn};
my %LANGUAGES = (
'ar' => "عربية (Arabiya)",
'bms' => "Burmese",
'cy' => "Welsh",
'da' => "Danish",
'de' => "Deutsch",
'en' => "English",
'es' => "español",
'et' => "Estonian",
'fa' => "فارسی (Fārsī)",
'fi' => "suomi",
'fr' => "français",
'hu' => "Hungarian",
'id' => "Bahasa Indonesia",
'it' => "Italiano",
'ja' => "日本語 (Nihongo)",
'ko' => "한국어 (Hangul)",
'nl' => "Nederlands",
'no' => "norsk",
'pl' => "polski",
'pt' => "Português",
'pt-br' => "Portuguese (Brazil)",
'ru' => "Русский (Russkij)",
'se' => "svenska",
'tr' => "Türkçe",
'vn' => "Vietnamese",
'zh-cn' => "中文(简) (Simplified Chinese)",
);
our $WML_SRC_FILENAME;
our $WML_SRC_BASENAME;
our $WML_SRC_DIRNAME;
# 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);
:>