#!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); :>