tor-webwml.git

1) #!wml
2) <:

3) 	# Change both.  The array is ordered (for pages like translation status).

4) 	# The order of flags in header is based on sort order of language name.

5) 	my @LANGUAGES = qw{en de it fr se};

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

9) 		'it' => "Italiano",

10) 		'fr' => "Français",

11) 		'se' => "Svenska",

12) 		);

13) 	our $WML_SRC_FILENAME;

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