en/translation-status.wml (20cb78bfc) - tor-webwml.git

translation-status.wml

## translation metadata
# Revision: $Revision$

#include "head.wmi" TITLE="Translation status"
#use "functions.wmi"

<h2>Tor: Translation status</h2>
<hr />

<:
	my %files;
	my @warnings;
	for my $lang (@LANGUAGES) {
		opendir(DIR, $lang) or die ("Cannot opendir $lang: $!\n");
		my @files = grep { $_ ne '.' && $_ ne '..' && $_ =~ m/^[^.]/ && -f $lang.'/'.$_} readdir(DIR);
		closedir DIR;

for my $file (@files) {
			$files{$lang}->{$file}->{'all'} = getMetadata($lang.'/'.$file);
			if ($lang eq 'en') {
				$files{$lang}->{$file}->{'rev'} = translation_get_masterrevision_file($file);
			} else {
				$files{$lang}->{$file}->{'based'} = translation_get_basedonrevision_langfile($lang, $file);
			};
		};
	};

print "<table border=1>\n";
	print "<tr>\n";
	print "<th>File</th>\n";
	printf("<th>%s (%s)</th>\n", $_, $LANGUAGES{$_}) for (@LANGUAGES);
	print "</tr>\n";
	for my $file (sort {$a cmp $b} keys %{$files{'en'}}) {
		my $obs = file_is_obsolete('en', $file);
		print "<tr>";
		printf "<th>%s</th>", $file;
		printf '<td%s>Revision %s%s<br>
		        <a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/en/%s?root=tor&view=markup">HEAD</a></td>',
			($obs ? ' bgcolor="lightgrey"' : ''),
			$files{'en'}->{$file}->{'rev'},
			($obs ? ' (obsolete)' :''),
			$file;
		for my $lang (@LANGUAGES) {
			next if $lang eq 'en';
			my $color;
			my $status;
			if (exists $files{$lang}->{$file}) {
				my $all_info = '';
				for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
					$all_info .= sprintf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
				};

my $difflink;
				if ($files{$lang}->{$file}->{'based'}  eq  $files{'en'}->{$file}->{'rev'}) {
					$color='lightgreen';
					$status='current';
					$difflink='';
				} else {
					$color='yellow';
					$status='not current';
					if ($files{$lang}->{$file} ne 'unknown') {
						$difflink=sprintf '<br><a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/en/%s?root=tor&r1=%s&r2=%s">changes in original</a>',
							$file, $files{$lang}->{$file}->{'based'}, $files{'en'}->{$file}->{'rev'};
					};
				};
				printf '<td bgcolor="%s">%s<br>
					<a href="http://cvs.seul.org/viewcvs/viewcvs.cgi/website/%s/%s?root=tor&view=markup">HEAD</a><br>
					%s
					%s</td>',
					$color,
					$status,
					$lang, $file,
					$all_info,
					$difflink;
			} else {
				$color=($obs ? 'lightgreen' : 'red');
				$status='missing';
				printf '<td bgcolor="%s">%s</td>', $color, $status;
			};
			delete $files{$lang}->{$file};
		};
		print "</tr>";
	};
	print "</table>\n";

for my $lang (@LANGUAGES) {
		next if $lang eq 'en';
		if (keys %{$files{$lang}} > 0) {
			print "<p>";
			printf "<h2>Additional files in %s (%s)</h2>\n", $lang, $LANGUAGES{$lang};

print "<table border=1>\n";
			print "<tr>\n";
			print "<th>File</th>\n";
			print "<th>Based on Revision</th>\n";
			print "</tr>\n";
			for my $file (sort {$a cmp $b} keys %{$files{$lang}}) {
				print "<tr>";
				printf "<th>%s</th><td>", $file;
				for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
					printf "%s: %s<br>", $key, $files{$lang}->{$file}->{'all'}->{$key};
				};
				printf "</td>";
				delete $files{$lang}->{$file};
			};
			print "</table>\n";
		};
	};
:>

</div>

#include <foot.wmi>

tor-webwml.git

also use "use warnings"