tor-webwml.git

1) ## translation metadata
2) # Based-On-Revision: 8267
3) # Last-Translator: bogdandr_at_op . pl
4) 

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

6) #use "functions.wmi"
7) 
8) <div class="main-column">
9) 

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

11) <hr />
12) 
13) <:
14) sub do_status($$) {
15) 	my ($dir, $may_miss_dir) = @_;
16) 
17) 	my %files;
18) 	my @warnings;
19) 	for my $lang (@LANGUAGES) {
20) 		opendir(DIR, "$dir/$lang") or
21) 			$may_miss_dir or die ("Cannot opendir $dir/$lang: $!\n");
22) 		my @files = grep { $_ ne '.' && $_ ne '..' && $_ =~ m/^[^.]/ && -f "$dir/$lang/$_"} readdir(DIR);
23) 		closedir DIR;
24) 
25) 		for my $file (@files) {
26) 			$files{$lang}->{$file}->{'all'} = getMetadata("$dir/$lang/$file");
27) 			if ($lang eq 'en') {
28) 				$files{$lang}->{$file}->{'rev'} = translation_get_masterrevision_file($dir, $file);
29) 			} else {
30) 				$files{$lang}->{$file}->{'based'} = translation_get_basedonrevision_langfile($dir, $lang, $file);
31) 			};
32) 		};
33) 	};
34) 
35) 	print "<h1>$dir</h1>\n";
36) 
37) 	print "<table border=1>\n";
38) 	print "<tr>\n";
39) 	print "<th>Plik</th>\n";
40) 	printf("<th>%s (%s)</th>\n", $_, $LANGUAGES{$_}) for ('en', grep { $_ ne 'en' } @LANGUAGES);
41) 	print "</tr>\n";
42) 	my $HTMLBASE = (defined $ENV{'HTMLBASE'} ? $ENV{'HTMLBASE'} : 'http://tor.eff.org/') . ($dir eq '.' ? '' : $dir.'/');
43) 
44) 	for my $file (sort {$a cmp $b} keys %{$files{'en'}}) {
45) 		my $obs = file_is_obsolete($dir, 'en', $file);
46) 		my $validatorlink = '';
47) 		my $htmlfile = $file;
48) 		if ($htmlfile =~ s/\.wml/.html/) {
49) 			$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.en">walidator</a>',
50) 				$HTMLBASE, $htmlfile;
51) 		}
52) 		print "<tr>";
53) 		printf "<th>%s</th>", $file;
54) 		printf '<td%s>Revision %s%s<br>

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

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

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

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

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

86) 							($dir eq '.' ? '' : $dir.'/'), $file, $files{$lang}->{$file}->{'based'}, $files{'en'}->{$file}->{'rev'};
87) 						$color='yellow';
88) 					} else {
89) 						$difflink='';
90) 						$color='orange'
91) 					};
92) 				};
93) 				printf '<td bgcolor="%s">%s<br>

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