tor-webwml.git

1) #!wml
2) <:

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

4) 	my @LANGUAGES = qw{de en es fr it ja pl pt ru se};

5) 	my %LANGUAGES = (
6) 		'en' => "English",
7) 		'de' => "Deutsch",

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

9) 		'it' => "Italiano",

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

11) 		'fr' => "français",
12) 		'pl' => "polski",

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

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

15) 		'se' => "svenska",

16) 		);

17) 	our $WML_SRC_FILENAME;

18) 
19) 	# sanity check.
20) 	for my $lang (@LANGUAGES) {
21) 		die "Language $lang defined in \@LANGUAGES but not in \%LANGUAGES in perl-globals"
22) 			unless exists $LANGUAGES{$lang};
23) 	};
24) 	die "\@LANGUAGES and \%LANGUAGES have a different number of elements in perl-globals"
25) 		unless (scalar @LANGUAGES == scalar keys %LANGUAGES);