#!wml <: # Change both. The array is ordered (for pages like translation status, order of flags, etc). my @LANGUAGES = qw{de en es fi fr it ja nl no pl pt ru se zh-cn}; my %LANGUAGES = ( 'en' => "English", 'de' => "Deutsch", 'es' => "español", 'fi' => "suomi", 'fr' => "français", 'it' => "Italiano", 'ja' => "日本語 (Nihongo)", 'nl' => "Nederlands", 'no' => "norsk", 'pl' => "polski", 'pt' => "Português", 'ru' => "Русский (Russkij)", 'se' => "svenska", '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); :>