tor-webwml.git

1) ## translation metadata
2) # Revision: $Revision$
3) 
4) #include "head.wmi" TITLE="Translation status"
5) 
6) <div class="main-column">
7) 
8) <h2>Tor: Translation status</h2>
9) <hr />
10) 
11) <:
12) 	my %files;
13) 	for my $lang (@LANGUAGES) {
14) 		opendir(DIR, $lang) or die ("Cannot opendir $lang: $!\n");
15) 		my @files = grep { $_ ne '.' && $_ ne '..' && $_ =~ m/^[^.]/ && -f $lang.'/'.$_} readdir(DIR);
16) 		closedir DIR;
17) 
18) 		for my $file (@files) {
19) 			if ($lang eq 'en') {
20) 				$files{$lang}->{$file} = translation_get_masterrevision_file($file);
21) 			} else {
22) 				$files{$lang}->{$file} = translation_get_basedonrevision_langfile($lang, $file);
23) 			};
24) 		};
25) 	};
26) 
27) 	print "<table border=1>\n";
28) 	print "<tr>\n";
29) 	print "<th>File</th>\n";
30) 	printf("<th>%s</th>\n", $LANGUAGES{$_}) for (@LANGUAGES);
31) 	print "</tr>\n";
32) 	for my $file (sort {$a cmp $b} keys %{$files{'en'}}) {

33) 		my $obs = file_is_obsolete('en', $file);

34) 		print "<tr>";
35) 		printf "<th>%s</th>", $file;

36) 		printf "<td%s>%s%s</td>", ($obs ? ' bgcolor="grey"' : ''), $files{'en'}->{$file}, ($obs ? ' (obsolete)' :'');

37) 		for my $lang (@LANGUAGES) {
38) 			next if $lang eq 'en';
39) 			if (exists $files{$lang}->{$file}) {
40) 				if ($files{$lang}->{$file}  eq  $files{'en'}->{$file}) {

41) 					printf '<td bgcolor="lightgreen">current</td>';

42) 				} else {
43) 					printf '<td bgcolor="yellow">%s</td>', $files{$lang}->{$file};
44) 				};
45) 				delete $files{$lang}->{$file};
46) 			} else {

47) 				printf '<td bgcolor="%s">missing</td>', ($obs ? 'lightgreen' : 'red')