tor-webwml.git

1) ## translation metadata
2) # Revision: $Revision$
3) 
4) #include "head.wmi" TITLE="Translation status"

5) #use "functions.wmi"

6) 
7) <div class="main-column">
8) 
9) <h2>Tor: Translation status</h2>
10) <hr />
11) 
12) <:

13) sub do_status($$) {
14) 	my ($dir, $may_miss_dir) = @_;
15) 

16) 	my %files;

17) 	my @warnings;

18) 	for my $lang (@LANGUAGES) {

19) 		opendir(DIR, "$dir/$lang") or
20) 			$may_miss_dir or die ("Cannot opendir $dir/$lang: $!\n");
21) 		my @files = grep { $_ ne '.' && $_ ne '..' && $_ =~ m/^[^.]/ && -f "$dir/$lang/$_"} readdir(DIR);

22) 		closedir DIR;
23) 
24) 		for my $file (@files) {

25) 			$files{$lang}->{$file}->{'all'} = getMetadata("$dir/$lang/$file");

26) 			if ($lang eq 'en') {

27) 				$files{$lang}->{$file}->{'rev'} = translation_get_masterrevision_file($dir, $file);

28) 			} else {

29) 				$files{$lang}->{$file}->{'based'} = translation_get_basedonrevision_langfile($dir, $lang, $file);

30) 			};
31) 		};
32) 	};
33) 

34) 	print "<h1>$dir</h1>\n";
35) 

36) 	print "<table border=1>\n";
37) 	print "<tr>\n";
38) 	print "<th>File</th>\n";

39) 	printf("<th>%s (%s)</th>\n", $_, $LANGUAGES{$_}) for ('en', grep { $_ ne 'en' } @LANGUAGES);

40) 	print "</tr>\n";

41) 	my $HTMLBASE = (defined $ENV{'HTMLBASE'} ? $ENV{'HTMLBASE'} : 'http://tor.eff.org/') . ($dir eq '.' ? '' : $dir.'/');
42) 	

43) 	for my $file (sort {$a cmp $b} keys %{$files{'en'}}) {

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

45) 		my $validatorlink = '';
46) 		my $htmlfile = $file;
47) 		if ($htmlfile =~ s/\.wml/.html/) {
48) 			$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.en">validator</a>',
49) 				$HTMLBASE, $htmlfile;
50) 		}

51) 		print "<tr>";
52) 		printf "<th>%s</th>", $file;

53) 		printf '<td%s>Revision %s%s<br>

54) 		        <a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/%sen/%s?root=tor&amp;view=markup">HEAD</a>

55) 			%s',

56) 			($obs ? ' bgcolor="lightgrey"' : ''),
57) 			$files{'en'}->{$file}->{'rev'},
58) 			($obs ? ' (obsolete)' :''),

59) 			($dir eq '.' ? '' : $dir.'/'),

60) 			$file,
61) 			$validatorlink;

62) 		for my $lang (@LANGUAGES) {
63) 			next if $lang eq 'en';

64) 			my $color;
65) 			my $status;

66) 			if ($validatorlink) {
67) 				$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.%s">validator</a>',
68) 					$HTMLBASE, $htmlfile, $lang;
69) 			};

70) 			if (exists $files{$lang}->{$file}) {

71) 				my $all_info = '';
72) 				for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
73) 					$all_info .= sprintf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
74) 				};
75) 
76) 				my $difflink;
77) 				if ($files{$lang}->{$file}->{'based'}  eq  $files{'en'}->{$file}->{'rev'}) {
78) 					$color='lightgreen';
79) 					$status='current';
80) 					$difflink='';

81) 				} else {

82) 					$status='not current';

83) 					if ($files{$lang}->{$file}->{'based'} ne 'unknown') {

84) 						$difflink=sprintf '<br><a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/%sen/%s?root=tor&amp;r1=%s&amp;r2=%s">changes in original</a>',
85) 							($dir eq '.' ? '' : $dir.'/'), $file, $files{$lang}->{$file}->{'based'}, $files{'en'}->{$file}->{'rev'};

86) 						$color='yellow';
87) 					} else {
88) 						$difflink='';
89) 						$color='orange'

90) 					};

91) 				};

92) 				printf '<td bgcolor="%s">%s<br>

93) 					<a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/%s%s/%s?root=tor&amp;view=markup">HEAD</a><br>

94) 					%s

95) 					%s
96) 					%s</td>',
97) 					$color,
98) 					$status,

99) 					($dir eq '.' ? '' : $dir.'/'),

100) 					$lang, $file,
101) 					$all_info,

102) 					$difflink,
103) 					$validatorlink;

104) 			} else {

105) 				$color=($obs ? 'lightgreen' : 'red');
106) 				$status='missing';
107) 				printf '<td bgcolor="%s">%s</td>', $color, $status;

108) 			};

109) 			delete $files{$lang}->{$file};

110) 		};

111) 		print "</tr>\n\n";

112) 	};

113) 	print "</table>\n\n\n";

114) 
115) 	for my $lang (@LANGUAGES) {
116) 		next if $lang eq 'en';
117) 		if (keys %{$files{$lang}} > 0) {

118) 			print "<p>";
119) 			printf "<h2>Additional files in %s (%s)</h2>\n", $lang, $LANGUAGES{$lang};

120) 
121) 			print "<table border=1>\n";
122) 			print "<tr>\n";
123) 			print "<th>File</th>\n";
124) 			print "<th>Based on Revision</th>\n";
125) 			print "</tr>\n";
126) 			for my $file (sort {$a cmp $b} keys %{$files{$lang}}) {
127) 				print "<tr>";

128) 				printf "<th>%s</th><td>", $file;
129) 				for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
130) 					printf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
131) 				};
132) 				printf "</td>";

133) 				delete $files{$lang}->{$file};

134) 				print "</tr>\n";

135) 			};

136) 			print "</table>\n\n";

137) 		};
138) 	};

139) };
140) 
141) do_status('.', 0);

142) do_status('docs', 1);

143) do_status('eff', 1);
144) do_status('gui', 1);
145)