2011-12-16 [paul] 3.8.0cvs1

[claws.git] / tools / claws.i18n.status.pl

diff --git a/tools/claws.i18n.status.pl b/tools/claws.i18n.status.pl
index e75aedf92e6c81300a5c670daf139aa7f29c90a3..9c4a8769a0f5d74fade697296b859c9c7e61a9e2 100644 (file)
--- a/tools/claws.i18n.status.pl
+++ b/tools/claws.i18n.status.pl
@@ -11,40 +11,50 @@
 %langname = (
        'bg.po' => 'Bulgarian',
        'ca.po' => 'Catalan',
+       'cs.po' => 'Czech',
        'de.po' => 'German',
        'en_GB.po' => 'British English',
        'es.po' => 'Spanish',
        'fi.po' => 'Finnish',
        'fr.po' => 'French',
        'hu.po' => 'Hungarian',
+       'id_ID.po' => 'Indonesian',
        'it.po' => 'Italian',
+       'ja.po' => 'Japanese',
+       'lt.po' => 'Lithuanian',
        'nl.po' => 'Dutch',
        'pl.po' => 'Polish',
        'pt_BR.po' => 'Brazilian Portuguese',
+       'pt_PT.po' => 'Portuguese',
        'ru.po' => 'Russian',
        'sk.po' => 'Slovak',
-       'sr.po' => 'Serbian',
        'sv.po' => 'Swedish',
-       'zh_CN.po' => 'Simpilified Chinese',
+       'uk.po' => 'Ukrainian',
+       'zh_CN.po' => 'Simplified Chinese',
 );
 
 %lasttranslator = (
        'bg.po' => 'Yasen Pramatarov <yasen@lindeas.com>',
        'ca.po' => 'Miquel Oliete <ktalanet@yahoo.es>',
+       'cs.po' => 'David Vachulka <david@konstrukce-cad.com>',
        'de.po' => 'Stephan Sachse <white@dev-zero.com>',
        'en_GB.po' => 'Paul Mangan <paul@claws-mail.org>',
        'es.po' => 'Ricardo Mones Lastra <ricardo@mones.org>',
        'fi.po' => 'Flammie Pirinen <flammie@iki.fi>',
        'fr.po' => 'Tristan Chabredier <wwp@claws-mail.org>',
        'hu.po' => 'P&aacute;der Rezs&#337; <rezso@rezso.net>',
+       'id_ID.po' => 'MSulchan Darmawan <bleketux@gmail.com>',
        'it.po' => 'Andrea Spadaccini <a.spadaccini@catania.linux.it>',
+       'ja.po' => 'kazken3 <kazken3@gmail.com>',
+       'lt.po' => 'Mindaugas Baranauskas <embar@super.lt>',
        'nl.po' => 'Marcel Pol <mpol@gmx.net>',
        'pl.po' => 'Emilian Nowak <emil5@go2.pl>',
+       'pt_PT.po' => 'Tiago Faria <gouki@goukihq.org>',
        'pt_BR.po' => 'Frederico Goncalves Guimaraes <fggdebian@yahoo.com.br>',
        'ru.po' => 'Aleksei Miheev <aleksei@miheev.info>',
-       'sk.po' => 'Andrej Kacian <andrej@kacian.sk>',
-       'sr.po' => 'Aleksandar Urosevic <urke@users.sf.net>',
+       'sk.po' => 'Slavko <slavino@slavino.sk>',
        'sv.po' => 'Lars Persson Fink <lars.p.fink@gmail.com>',
+       'uk.po' => 'YUP <yupadmin@gmail.com>',
        'zh_CN.po' => 'Ralgh Young <bamanzi@gmail.com>',
 );
 
@@ -69,7 +79,7 @@
 $barwidth = 500; # pixels
 $barheight = 12; # pixels
 
-$transolddays = 90;    # days to consider a translation is old, so probably unmaintained.
+$transolddays = 120;   # days to consider a translation is old, so probably unmaintained.
 $transoldmonths = $transolddays / 30;
 $transneedthresold = 0.75; # percent/100
 
@@ -129,7 +139,6 @@ sub print_lang {
        $barlen3 = $barwidth - $barlen2 - $barlen;
        print "<td style='width:$barlen3", "px' bgcolor=\"$$barcolor{default}\"></td>\n";
        print "</tr>\n</table>\n</td>\n\n<td style='text-align: right'>", int(($trans / $total) * 10000) / 100,  "%</td>\n";
-       if (($lang eq $langname{'en_GB.po'}) or ($lang eq $averagestr)) { $trans = $total; } # hack for en_GB and average results
        $transtatus = (($trans / $total) < $transneedthresold)? '<font size="+1" color="red"> * </font>': '';
        print "<td>$transtatus</td>\n</tr>\n";
 }
@@ -196,9 +205,16 @@ foreach $pofile (@sorted_pofiles) {
                $atran += $tran;
                $afuzz += $fuzz;
                $auntr += $untr;
-               $_ = `grep 'PO-Revision-Date:' $pofile | cut -f2 -d:`;
-               if (/\s+(\d+)\-(\d+)\-(\d+)/) { 
-                       $transage = get_trans_age($1,$2,$3); 
+               if ($pofile eq "en_GB.po") {
+                       $tran = $tran+$fuzz;
+                       $untr = "0";
+                       $fuzz = "0";
+                       $transage = $cage;
+               } else {
+                       $_ = `grep 'PO-Revision-Date:' $pofile | cut -f2 -d:`;
+                       if (/\s+(\d+)\-(\d+)\-(\d+)/) { 
+                               $transage = get_trans_age($1,$2,$3); 
+                       }
                }
                print_lang($langname{$pofile},$lasttranslator{$pofile},$tran,$fuzz,$untr,$transage, $oddeven);
                if ($oddeven == 1) { $oddeven = 0 } else { $oddeven++; }