tor-webwml.git

1) ## translation metadata
2) # Revision: $Revision$
3) 

4) # Note to translators:
5) # translating this page is probably not a good idea, and it never was intended to be translated.
6) # it contains lots of programming logic, which you would have to duplicate, and it's probably
7) # useful only to other translators which most likely will know a bit of english.
8) #
9) # Thanks for your hard work, improve the other pages instead. :)   -- weasel
10) 

11) #include "head.wmi" TITLE="Tor: Translation status"

12) #use "functions.wmi"

13) 
14) <div class="main-column">
15) 
16) <h2>Tor: Translation status</h2>
17) <hr />
18) 
19) <:

20) sub do_status($$) {
21) 	my ($dir, $may_miss_dir) = @_;
22) 

23) 	my %files;

24) 	my @warnings;

25) 	for my $lang (@LANGUAGES) {

26) 		opendir(DIR, "$dir/$lang") or
27) 			$may_miss_dir or die ("Cannot opendir $dir/$lang: $!\n");

28) 		my @files = grep { $_ ne '.' && $_ ne '..' &&

29) 			$_ !~ /tor-manual/i && $_ !~ /translation/i && $_ =~ m/^[^.]/ && -f "$dir/$lang/$_"} readdir(DIR);

30) 		closedir DIR;
31) 
32) 		for my $file (@files) {

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

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

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

36) 			} else {

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

38) 			};
39) 		};
40) 	};

41) 	my %priorities;
42) 	for my $file (keys %{$files{'en'}}) {
43) 		my $p = $files{'en'}->{$file}->{'all'}->{'Translation-Priority'};
44) 		if (defined $p) {
45) 			$priorities{$p} = 1;
46) 		};
47) 	};
48) 	my @priorities = sort {$a cmp $b} keys %priorities;

49) 	push @priorities, 'none';

50) 

51) 	my $HTMLBASE = (defined $ENV{'HTMLBASE'} ? $ENV{'HTMLBASE'} : 'https://www.torproject.org/') . ($dir eq '.' ? '' : $dir.'/');

52) 

53) 

54) 	print "<a id=\"$dir\"></a>\n";
55) 	print "<h1><a class=\"anchor\" href=\"#$dir\">$dir</a></h1>\n";

56) 
57) 	for my $priority (@priorities) {

58) 		print "<h2>Translation priority: $priority</h2>\n";

59) 		print "<table border=1>\n";
60) 		print "<tr>\n";
61) 		print "<th>File</th>\n";
62) 		printf("<th>%s (%s)</th>\n", $_, $LANGUAGES{$_}) for ('en', grep { $_ ne 'en' } @LANGUAGES);
63) 		print "</tr>\n";
64) 
65) 		for my $file (sort {$a cmp $b} keys %{$files{'en'}}) {
66) 			my $file_priority = $files{'en'}->{$file}->{'all'}->{'Translation-Priority'};
67) 			next if (defined $file_priority && $priority ne $file_priority);

68) 			next if (!defined $file_priority && $priority ne 'none');

69) 
70) 			my $obs = file_is_obsolete($dir, 'en', $file);
71) 			my $validatorlink = '';
72) 			my $htmlfile = $file;
73) 			if ($htmlfile =~ s/\.wml/.html/) {
74) 				$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.en">validator</a>',
75) 					$HTMLBASE, $htmlfile;
76) 			}
77) 			print "<tr>";
78) 			printf "<th>%s</th>", $file;
79) 			printf '<td%s>Revision %s%s<br>
80) 				<a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/trunk/%sen/%s?root=Tor&amp;view=markup">HEAD</a>
81) 				%s',
82) 				($obs ? ' bgcolor="#D3D3D3"' : ''),
83) 				$files{'en'}->{$file}->{'rev'},
84) 				($obs ? ' (obsolete)' :''),
85) 				($dir eq '.' ? '' : $dir.'/'),
86) 				$file,
87) 				$validatorlink;
88) 			for my $lang (@LANGUAGES) {
89) 				next if $lang eq 'en';
90) 				my $color;
91) 				my $status;
92) 				if ($validatorlink) {
93) 					$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.%s">validator</a>',
94) 						$HTMLBASE, $htmlfile, $lang;

95) 				};

96) 				if (exists $files{$lang}->{$file}) {
97) 					my $all_info = '';
98) 					for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
99) 						$all_info .= sprintf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
100) 					};

101) 

102) 					my $difflink;
103) 					if ($files{$lang}->{$file}->{'based'}  eq  $files{'en'}->{$file}->{'rev'}) {
104) 						$color='#90EE90';
105) 						$status='current';

106) 						$difflink='';

107) 					} else {
108) 						$status='not current';
109) 						if ($files{$lang}->{$file}->{'based'} ne 'unknown') {
110) 							$difflink=sprintf '<br><a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/trunk/%sen/%s?root=Tor&amp;r1=%s&amp;r2=%s">changes in original</a>',
111) 								($dir eq '.' ? '' : $dir.'/'), $file, $files{$lang}->{$file}->{'based'}, $files{'en'}->{$file}->{'rev'};
112) 							$color='yellow';
113) 						} else {
114) 							$difflink='';
115) 							$color='#FFA500';
116) 						};

117) 					};

118) 					printf '<td bgcolor="%s">%s<br>
119) 						<a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/trunk/%s%s/%s?root=Tor&amp;view=markup">HEAD</a><br>
120) 						%s
121) 						%s
122) 						%s</td>',
123) 						$color,
124) 						$status,
125) 						($dir eq '.' ? '' : $dir.'/'),
126) 						$lang, $file,
127) 						$all_info,
128) 						$difflink,
129) 						$validatorlink;
130) 				} else {

131) 					$color=(($obs or $priority eq 'none') ?
132) 						'#90EE90' : 'red');

133) 					$status='missing';
134) 					printf '<td bgcolor="%s">%s</td>', $color, $status;

135) 				};

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

137) 			};

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

139) 		};

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

141) 	};
142) 
143) 	for my $lang (@LANGUAGES) {
144) 		next if $lang eq 'en';
145) 		if (keys %{$files{$lang}} > 0) {

146) #			print "<p>";
147) 			print "<br><br>";

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

149) 
150) 			print "<table border=1>\n";
151) 			print "<tr>\n";
152) 			print "<th>File</th>\n";
153) 			print "<th>Based on Revision</th>\n";
154) 			print "</tr>\n";
155) 			for my $file (sort {$a cmp $b} keys %{$files{$lang}}) {
156) 				print "<tr>";

157) 				printf "<th>%s</th><td>", $file;
158) 				for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
159) 					printf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
160) 				};
161) 				printf "</td>";

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

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

164) 			};

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

166) 		};
167) 	};

168) };
169) 
170) do_status('.', 0);

171) do_status('docs', 1);

172) do_status('torbrowser', 1);

173) #do_status('eff', 1);
174) #do_status('gui', 1);

175)