49f00fb072433a6ceb79715e633cb02a8d665229
Peter Palfrader Oops, forgot to checkin thi...

Peter Palfrader authored 18 years ago

1) #!wml
2) <:
Peter Palfrader Add sanity check for define...

Peter Palfrader authored 18 years ago

3) 	# Change both.  The array is ordered (for pages like translation status).
4) 	# The order of flasg in head is based on sort order of language name.
Roger Dingledine whoops, need to actually ad...

Roger Dingledine authored 18 years ago

5) 	my @LANGUAGES = qw{en de it fr};
Peter Palfrader Oops, forgot to checkin thi...

Peter Palfrader authored 18 years ago

6) 	my %LANGUAGES = (
7) 		'en' => "English",
8) 		'de' => "Deutsch",
Roger Dingledine tell the wmi engine about F...

Roger Dingledine authored 18 years ago

9) 		'it' => "Italiano",
Peter Palfrader Add sanity check for define...

Peter Palfrader authored 18 years ago

10) 		'fr' => "Fran&ccedil;ais",
Peter Palfrader Oops, forgot to checkin thi...

Peter Palfrader authored 18 years ago

11) 		);
Peter Palfrader Make translation status mor...

Peter Palfrader authored 18 years ago

12) 	our $WML_SRC_FILENAME;
Peter Palfrader Add sanity check for define...

Peter Palfrader authored 18 years ago

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