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" CHARSET="UTF-8"

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 = $_[1];
22) 	my $may_miss_dir = $_[2];

23) 	my %files;

24) 

25) 	my @warnings;

26) 	for my $lang (@LANGUAGES) {

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

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

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

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

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

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

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

37) 			} else {

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

39) 			};
40) 		};
41) 	};

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

50) 	push @priorities, 'none';

51) 

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

53) 

54) 	for my $priority (@priorities) {
55) 		for my $file (sort {$a cmp $b} keys %{$files{'en'}}) {
56) 			my $file_priority = $files{'en'}->{$file}->{'all'}->{'Translation-Priority'};
57) 			next if (defined $file_priority && $priority ne $file_priority);

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

59) 			my $path = ($dir eq '.' ? '' : $dir.'/') . $file;

60) 
61) 			my $obs = file_is_obsolete($dir, 'en', $file);
62) 			my $validatorlink = '';
63) 			my $htmlfile = $file;
64) 			if ($htmlfile =~ s/\.wml/.html/) {
65) 				$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.en">validator</a>',
66) 					$HTMLBASE, $htmlfile;

67) 			};
68) 

69) 			my $cell_path = sprintf '<th>%s</th>', $path;
70) 			my $cell_en = sprintf '<td%s>Revision %s%s<br>

71) 				<a href="https://svn.torproject.org/cgi-bin/viewvc.cgi/website/trunk/%sen/%s?root=Tor&amp;view=markup">HEAD</a>

72) 				%s',
73) 				($obs ? ' bgcolor="#D3D3D3"' : ''),
74) 				$files{'en'}->{$file}->{'rev'},
75) 				($obs ? ' (obsolete)' :''),
76) 				($dir eq '.' ? '' : $dir.'/'),
77) 				$file,
78) 				$validatorlink;

79) 

80) 			${$_[0]}{$priority}->{$path}->{'data'} = $cell_path . $cell_en;

81) 			# Assign high urgency if it's *.wmi, else init to 0

82) 			if ($file =~ /.wmi$/) {
83) 			  ${$_[0]}{$priority}->{$path}->{'urgency'} = 1000;
84) 			} else {
85) 			  ${$_[0]}{$priority}->{$path}->{'urgency'} = 0;
86) 			}

87) 

88) 			for my $lang (@LANGUAGES) {
89) 				next if $lang eq 'en';
90) 				my $color;
91) 				my $status;

92) 				#my $path = ($dir eq '.' ? '' : $dir.'/') . $file;

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

96) 				};

97) 				if (exists $files{$lang}->{$file}) {
98) 					my $all_info = '';
99) 					for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {

100) 						next if $key eq 'Translation-Priority';

101) 						$all_info .= sprintf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
102) 					};

103) 

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

108) 						$difflink='';

109) 					} else {
110) 						$status='not current';
111) 						if ($files{$lang}->{$file}->{'based'} ne 'unknown') {

112) 							$difflink=sprintf '<br><a href="https://svn.torproject.org/cgi-bin/viewvc.cgi/website/trunk/%sen/%s?root=Tor&amp;r1=%s&amp;r2=%s">changes in original</a>',

113) 								($dir eq '.' ? '' : $dir.'/'), $file, $files{$lang}->{$file}->{'based'}, $files{'en'}->{$file}->{'rev'};
114) 							$color='yellow';
115) 						} else {
116) 							$difflink='';
117) 							$color='#FFA500';
118) 						};

119) 
120) 						${$_[0]}{$priority}->{$path}->{'urgency'} += 1;

121) 					};

122) 
123) 					${$_[0]}{$priority}->{$path}->{'data'} .= sprintf '<td bgcolor="%s">%s<br>

124) 						<a href="https://svn.torproject.org/cgi-bin/viewvc.cgi/website/trunk/%s%s/%s?root=Tor&amp;view=markup">HEAD</a><br>

125) 						%s
126) 						%s
127) 						%s</td>',
128) 						$color,
129) 						$status,
130) 						($dir eq '.' ? '' : $dir.'/'),
131) 						$lang, $file,
132) 						$all_info,
133) 						$difflink,
134) 						$validatorlink;
135) 				} else {

136) 					#my $path = ($dir eq '.' ? '' : $dir.'/') . $file;

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

139) 					$status='missing';

140) 
141) 					${$_[0]}{$priority}->{$path}->{'data'} .= sprintf '<td bgcolor="%s">%s</td>', $color, $status;
142) 					${$_[0]}{$priority}->{$path}->{'urgency'} += ($obs or $priority eq 'none') ? 0 : 2;

143) 				};

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

145) 			};

146) 
147) 			${$_[0]}{$priority}->{$path}->{'data'} .= $cell_en . $cell_path;

148) 		};
149) 	};
150) 
151) 	for my $lang (@LANGUAGES) {
152) 		next if $lang eq 'en';
153) 		if (keys %{$files{$lang}} > 0) {

154) #			print "<p>";
155) 			print "<br><br>";

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

157) 
158) 			print "<table border=1>\n";
159) 			print "<tr>\n";
160) 			print "<th>File</th>\n";
161) 			print "<th>Based on Revision</th>\n";
162) 			print "</tr>\n";
163) 			for my $file (sort {$a cmp $b} keys %{$files{$lang}}) {
164) 				print "<tr>";

165) 				printf "<th>%s</th><td>", $file;
166) 				for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
167) 					printf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
168) 				};
169) 				printf "</td>";

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

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

172) 			};

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

174) 		};
175) 	};

176) };
177) 

178) sub sort_and_print(\%) {
179) 	my %rows = %{$_[0]};
180) 
181) 	for my $priority (sort {$a cmp $b} keys %rows) {
182) 		print "<h2>Translation priority: $priority</h2>\n";
183) 
184) 		print "<table border=1>\n";
185) 		print "<tr>\n";
186) 		print "<th>File</th>\n";

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

189) 		print "</tr>\n";
190) 
191) 		for my $row (sort {$rows{$priority}->{$b}->{'urgency'} <=> $rows{$priority}->{$a}->{'urgency'}} keys %{$rows{$priority}}) {
192) 			print "<tr>";
193) 			print $rows{$priority}->{$row}->{'data'};
194) 			delete ${$_[0]}{$priority}->{$row};
195) 			print "</tr>\n\n";
196) 		};
197) 
198) 		print "</table><br>\n\n\n";
199) 	};
200) };
201) 
202) # accumulate the table rows, then sort and print them
203) my %table_rows;
204) do_status(%table_rows, '.', 0);
205) do_status(%table_rows, 'docs', 1);
206) do_status(%table_rows, 'torbrowser', 1);

207) do_status(%table_rows, 'torbutton', 1);

208) do_status(%table_rows, 'tordnsel', 1);
209) do_status(%table_rows, 'projects', 1);

210) do_status(%table_rows, 'torvm', 1);

211) do_status(%table_rows, 'press', 1);

212) do_status(%table_rows, 'gettor', 1);

213) #do_status(%table_data, 'eff', 1);
214) #do_status(%table_data, 'gui', 1);
215) sort_and_print(%table_rows);
216) 

217)