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="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 '..' && $_ =~ m/^[^.]/ && -f "$dir/$lang/$_"} readdir(DIR);

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

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

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

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

35) 			} else {

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

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

41) 	print "<h1>$dir</h1>\n";
42) 

43) 	print "<table border=1>\n";
44) 	print "<tr>\n";
45) 	print "<th>File</th>\n";

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

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

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

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

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

52) 		my $validatorlink = '';
53) 		my $htmlfile = $file;
54) 		if ($htmlfile =~ s/\.wml/.html/) {
55) 			$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.en">validator</a>',
56) 				$HTMLBASE, $htmlfile;
57) 		}

58) 		print "<tr>";
59) 		printf "<th>%s</th>", $file;

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

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

62) 			%s',

63) 			($obs ? ' bgcolor="lightgrey"' : ''),
64) 			$files{'en'}->{$file}->{'rev'},
65) 			($obs ? ' (obsolete)' :''),

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

67) 			$file,
68) 			$validatorlink;

69) 		for my $lang (@LANGUAGES) {
70) 			next if $lang eq 'en';

71) 			my $color;
72) 			my $status;

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

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

78) 				my $all_info = '';
79) 				for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
80) 					$all_info .= sprintf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
81) 				};
82) 
83) 				my $difflink;
84) 				if ($files{$lang}->{$file}->{'based'}  eq  $files{'en'}->{$file}->{'rev'}) {
85) 					$color='lightgreen';
86) 					$status='current';
87) 					$difflink='';

88) 				} else {

89) 					$status='not current';

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

91) 						$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>',

92) 							($dir eq '.' ? '' : $dir.'/'), $file, $files{$lang}->{$file}->{'based'}, $files{'en'}->{$file}->{'rev'};

93) 						$color='yellow';
94) 					} else {
95) 						$difflink='';
96) 						$color='orange'

97) 					};

98) 				};

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

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

101) 					%s

102) 					%s
103) 					%s</td>',
104) 					$color,
105) 					$status,

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

107) 					$lang, $file,
108) 					$all_info,

109) 					$difflink,
110) 					$validatorlink;

111) 			} else {

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

115) 			};

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

117) 		};

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

119) 	};

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

121) 
122) 	for my $lang (@LANGUAGES) {
123) 		next if $lang eq 'en';
124) 		if (keys %{$files{$lang}} > 0) {

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

127) 
128) 			print "<table border=1>\n";
129) 			print "<tr>\n";
130) 			print "<th>File</th>\n";
131) 			print "<th>Based on Revision</th>\n";
132) 			print "</tr>\n";
133) 			for my $file (sort {$a cmp $b} keys %{$files{$lang}}) {
134) 				print "<tr>";

135) 				printf "<th>%s</th><td>", $file;
136) 				for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
137) 					printf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
138) 				};
139) 				printf "</td>";

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

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

142) 			};

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

144) 		};
145) 	};

146) };
147) 
148) do_status('.', 0);

149) do_status('docs', 1);

150) do_status('eff', 1);
151) do_status('gui', 1);
152)