tor-webwml.git

1) ## translation metadata

2) # Based-On-Revision: 8749

3) # Last-Translator: bogdandr_at_op . pl
4) 

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

12) #include "head.wmi" TITLE="Stan tłumaczenia" CHARSET="UTF-8"

13) #use "functions.wmi"
14) 
15) <div class="main-column">
16) 

17) <h2>Tor: Stan tłumaczenia</h2>

18) <hr />
19) 
20) <:
21) sub do_status($$) {
22) 	my ($dir, $may_miss_dir) = @_;
23) 
24) 	my %files;
25) 	my @warnings;
26) 	for my $lang (@LANGUAGES) {
27) 		opendir(DIR, "$dir/$lang") or

28) 			$may_miss_dir or die ("Nie mogę wykonać opendir $dir/$lang: $!\n");

29) 		my @files = grep { $_ ne '.' && $_ ne '..' && $_ =~ 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) 
42) 	print "<h1>$dir</h1>\n";
43) 
44) 	print "<table border=1>\n";
45) 	print "<tr>\n";
46) 	print "<th>Plik</th>\n";
47) 	printf("<th>%s (%s)</th>\n", $_, $LANGUAGES{$_}) for ('en', grep { $_ ne 'en' } @LANGUAGES);
48) 	print "</tr>\n";
49) 	my $HTMLBASE = (defined $ENV{'HTMLBASE'} ? $ENV{'HTMLBASE'} : 'http://tor.eff.org/') . ($dir eq '.' ? '' : $dir.'/');
50) 
51) 	for my $file (sort {$a cmp $b} keys %{$files{'en'}}) {
52) 		my $obs = file_is_obsolete($dir, 'en', $file);
53) 		my $validatorlink = '';
54) 		my $htmlfile = $file;
55) 		if ($htmlfile =~ s/\.wml/.html/) {
56) 			$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.en">walidator</a>',
57) 				$HTMLBASE, $htmlfile;
58) 		}
59) 		print "<tr>";
60) 		printf "<th>%s</th>", $file;
61) 		printf '<td%s>Revision %s%s<br>

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

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

66) 			($obs ? ' (przestarzały)' :''),

67) 			($dir eq '.' ? '' : $dir.'/'),
68) 			$file,
69) 			$validatorlink;
70) 		for my $lang (@LANGUAGES) {
71) 			next if $lang eq 'en';
72) 			my $color;
73) 			my $status;
74) 			if ($validatorlink) {
75) 				$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.%s">walidator</a>',
76) 					$HTMLBASE, $htmlfile, $lang;
77) 			};
78) 			if (exists $files{$lang}->{$file}) {
79) 				my $all_info = '';
80) 				for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
81) 					$all_info .= sprintf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
82) 				};
83) 
84) 				my $difflink;
85) 				if ($files{$lang}->{$file}->{'based'}  eq  $files{'en'}->{$file}->{'rev'}) {
86) 					$color='lightgreen';
87) 					$status='aktualny';
88) 					$difflink='';
89) 				} else {
90) 					$status='nieaktualny';
91) 					if ($files{$lang}->{$file}->{'based'} ne 'unknown') {

92) 						$difflink=sprintf '<br><a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/trunk/%sen/%s?root=tor&amp;r1=%s&amp;r2=%s">zmiany względem oryginału</a>',

93) 							($dir eq '.' ? '' : $dir.'/'), $file, $files{$lang}->{$file}->{'based'}, $files{'en'}->{$file}->{'rev'};
94) 						$color='yellow';
95) 					} else {
96) 						$difflink='';
97) 						$color='orange'
98) 					};
99) 				};
100) 				printf '<td bgcolor="%s">%s<br>

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