tor-webwml.git

1) #!wml
2) <:

3) 	# Change both.  The array is ordered (for pages like translation status, order of flags, etc).

4) 

5) 	my @LANGUAGES = qw{ar bms de en es et fa fi fr it ja ko nl no pl pt ru se tr zh-cn};

6) 	my %LANGUAGES = (

7) 		'ar' => "عربية (Arabiya)",
8) 		'bms' => "Burmese",

9) 		'de' => "Deutsch",

10) 		'en' => "English",

11) 		'es' => "español",

12) 		'et' => "Estonian",

13) 		'fa' => "فارسی (Fārsī)",

14) 		'fi' => "suomi",

15) 		'fr' => "français",

16) 		'it' => "Italiano",

17) 		'ja' => "日本語 (Nihongo)",

18) 		'ko' => "한국어 (Hangul)",

19) 		'nl' => "Nederlands",

20) 		'no' => "norsk",

21) 		'pl' => "polski",

22) 		'pt' => "Português",

23) 		'ru' => "Русский (Russkij)",

24) 		'se' => "svenska",

25) 		'tr' => "Türkçe",

26) 		'zh-cn' => "中文(简) (Simplified Chinese)",

27) 

28) 		);

29) 	our $WML_SRC_FILENAME;

30) 
31) 	# sanity check.
32) 	for my $lang (@LANGUAGES) {
33) 		die "Language $lang defined in \@LANGUAGES but not in \%LANGUAGES in perl-globals"
34) 			unless exists $LANGUAGES{$lang};
35) 	};
36) 	die "\@LANGUAGES and \%LANGUAGES have a different number of elements in perl-globals"
37) 		unless (scalar @LANGUAGES == scalar keys %LANGUAGES);