getinvolved/en/translation-status.wml (2a9aaa802) - tor-webwml.git

translation-status.wml

## translation metadata
# Revision: $Revision: 21313 $

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

#include "head.wmi" TITLE="Tor Projecdt: Translation status" CHARSET="UTF-8"
#use "functions.wmi"

<div id="content" class="clearfix">
  <div id="breadcrumbs">
    <a href="<page home>">Home &raquo; </a>
    <a href="<page getinvolved/getinvolved>">Get Involved &raquo; </a>
    <a href="<page getinvolved/translation-status>">Translation Status</a>
  </div>
  <div id="maincol"> 
    <h1>Tor: Translation status</h1>
    <hr />
    
    <:
    sub do_status(\%$$) {
    	my $dir = $_[1];
    	my $may_miss_dir = $_[2];
    	my %files;
    
    	my @warnings;
    	for my $lang (@LANGUAGES) {
    		my $dir_opened = opendir(DIR, "$dir/$lang");
    
    		if (! $dir_opened) {
    			$may_miss_dir or die ("Cannot opendir $dir/$lang: $!\n");
    			next;
    		}
    
    		my @files = grep { $_ ne '.' && $_ ne '..' &&
    			$_ !~ /tor-manual/i && $_ !~ /translation-status/i && $_ =~ m/^[^.]/ && -f "$dir/$lang/$_"} readdir(DIR);
    		closedir DIR;
    
    		for my $file (@files) {
    			$files{$lang}->{$file}->{'all'} = getMetadata("$dir/$lang/$file");
    			if ($lang eq 'en') {
    				$files{$lang}->{$file}->{'rev'} = translation_get_masterrevision_file($dir, $file);
    			} else {
    				$files{$lang}->{$file}->{'based'} = translation_get_basedonrevision_langfile($dir, $lang, $file);
    			};
    		};
    	};
    	my %priorities;
    	for my $file (keys %{$files{'en'}}) {
    		my $p = $files{'en'}->{$file}->{'all'}->{'Translation-Priority'};
    		if (defined $p) {
    			$priorities{$p} = 1;
    		};
    	};
    	my @priorities = sort {$a cmp $b} keys %priorities;
    	push @priorities, 'none';
    
    	my $HTMLBASE = (defined $ENV{'HTMLBASE'} ? $ENV{'HTMLBASE'} : 'https://www.torproject.org/') . ($dir eq '.' ? '' : $dir.'/');
    
    	for my $priority (@priorities) {
    		for my $file (sort {$a cmp $b} keys %{$files{'en'}}) {
    			my $file_priority = $files{'en'}->{$file}->{'all'}->{'Translation-Priority'};
    			next if (defined $file_priority && $priority ne $file_priority);
    			next if (!defined $file_priority && $priority ne 'none');
    			my $path = ($dir eq '.' ? '' : $dir.'/') . $file;
    
    			my $obs = file_is_obsolete($dir, 'en', $file);
    			my $validatorlink = '';
    			my $htmlfile = $file;
    			if ($htmlfile =~ s/\.wml/.html/) {
    				$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.en">validator</a>',
    					$HTMLBASE, $htmlfile;
    			};
    
    			my $cell_path = sprintf '<th>%s</th>', $path;
    			my $cell_en = sprintf '<td%s>Revision %s%s<br>
    				<a href="https://svn.torproject.org/cgi-bin/viewvc.cgi/website/trunk/%sen/%s?root=Tor&amp;view=markup">HEAD</a>
    				%s',
    				($obs ? ' bgcolor="#D3D3D3"' : ''),
    				$files{'en'}->{$file}->{'rev'},
    				($obs ? ' (obsolete)' :''),
    				($dir eq '.' ? '' : $dir.'/'),
    				$file,
    				$validatorlink;
    
    			${$_[0]}{$priority}->{$path}->{'data'} = $cell_path . $cell_en;
    			# Assign high urgency if it's *.wmi, else init to 0
    			if ($file =~ /.wmi$/) {
    			  ${$_[0]}{$priority}->{$path}->{'urgency'} = 1000;
    			} else {
    			  ${$_[0]}{$priority}->{$path}->{'urgency'} = 0;
    			}
    
    			for my $lang (@LANGUAGES) {
    				next if $lang eq 'en';
    				my $color;
    				my $status;
    				#my $path = ($dir eq '.' ? '' : $dir.'/') . $file;
    				if ($validatorlink) {
    					$validatorlink = sprintf '<br><a href="http://validator.w3.org/check?uri=%s%s.%s">validator</a>',
    						$HTMLBASE, $htmlfile, $lang;
    				};
    				if (exists $files{$lang}->{$file}) {
    					my $all_info = '';
    					for my $key (sort {$a cmp $b} keys %{$files{$lang}->{$file}->{'all'}}) {
    						next if $key eq 'Translation-Priority';
    						$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='#90EE90';
    						$status='current';
    						$difflink='';
    					} else {
    						$status='not current';
    						if ($files{$lang}->{$file}->{'based'} ne 'unknown') {
    							$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>',
    								($dir eq '.' ? '' : $dir.'/'), $file, $files{$lang}->{$file}->{'based'}, $files{'en'}->{$file}->{'rev'};
    							$color='yellow';
    						} else {
    							$difflink='';
    							$color='#FFA500';
    						};
    
    						${$_[0]}{$priority}->{$path}->{'urgency'} += 1;
    					};
    
    					${$_[0]}{$priority}->{$path}->{'data'} .= sprintf '<td bgcolor="%s">%s<br>
    						<a href="https://svn.torproject.org/cgi-bin/viewvc.cgi/website/trunk/%s%s/%s?root=Tor&amp;view=markup">HEAD</a><br>
    						%s
    						%s
    						%s</td>',
    						$color,
    						$status,
    						($dir eq '.' ? '' : $dir.'/'),
    						$lang, $file,
    						$all_info,
    						$difflink,
    						$validatorlink;
    				} else {
    					#my $path = ($dir eq '.' ? '' : $dir.'/') . $file;
    					$color=(($obs or $priority eq 'none') ?
    						'#90EE90' : 'red');
    					$status='missing';
    
    					${$_[0]}{$priority}->{$path}->{'data'} .= sprintf '<td bgcolor="%s">%s</td>', $color, $status;
    					${$_[0]}{$priority}->{$path}->{'urgency'} += ($obs or $priority eq 'none') ? 0 : 2;
    				};
    				delete $files{$lang}->{$file};
    			};
    
    			${$_[0]}{$priority}->{$path}->{'data'} .= $cell_en . $cell_path;
    		};
    	};
    
    	for my $lang (@LANGUAGES) {
    		next if $lang eq 'en';
    		if (keys %{$files{$lang}} > 0) {
    #			print "<p>";
    			print "<br><br>";
    			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 "</tr>\n";
    			};
    			print "</table>\n\n";
    		};
    	};
    };
    
    sub sort_and_print(\%) {
    	my %rows = %{$_[0]};
    
    	for my $priority (sort {$a cmp $b} keys %rows) {
    		print "<h2>Translation priority: $priority</h2>\n";
    
    		print "<table border=1>\n";
    		print "<tr>\n";
    		print "<th>File</th>\n";
    		printf("<th>%s (%s)</th>\n", $_, $LANGUAGES{$_}) for ('en', grep({ $_ ne 'en' } @LANGUAGES), 'en');
    		print "<th>File</th>\n";
    		print "</tr>\n";
    
    		for my $row (sort {$rows{$priority}->{$b}->{'urgency'} <=> $rows{$priority}->{$a}->{'urgency'}} keys %{$rows{$priority}}) {
    			print "<tr>";
    			print $rows{$priority}->{$row}->{'data'};
    			delete ${$_[0]}{$priority}->{$row};
    			print "</tr>\n\n";
    		};
    
    		print "</table><br>\n\n\n";
    	};
    };
    
    # accumulate the table rows, then sort and print them
    my %table_rows;
    do_status(%table_rows, '.', 0);
    do_status(%table_rows, 'docs', 1);
    do_status(%table_rows, 'torbrowser', 1);
    do_status(%table_rows, 'torbutton', 1);
    do_status(%table_rows, 'tordnsel', 1);
    do_status(%table_rows, 'projects', 1);
    do_status(%table_rows, 'torvm', 1);
    do_status(%table_rows, 'press', 1);
    #do_status(%table_rows, 'gettor', 1);
    do_status(%table_rows, 'vidalia', 1);
    #do_status(%table_data, 'eff', 1);
    #do_status(%table_data, 'gui', 1);
    sort_and_print(%table_rows);
    
    
    :>
  </div>
  
  <div id = "sidecol">
#include "side.wmi"
#include "info.wmi"
  </div>
  
</div>

#include <foot.wmi>

tor-webwml.git

first cut of the new, shiny tor website as wml.