2012-09-16 [mones] 3.8.1cvs60

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

diff --git a/tools/claws.i18n.status.pl b/tools/claws.i18n.status.pl
index 58dbbc1a78fcc953745cd6f1e147431687d9f6b0..d7cd83c4aca7f1da5be89fc1421d47d2731a052e 100644 (file)
--- a/tools/claws.i18n.status.pl
+++ b/tools/claws.i18n.status.pl
@@ -10,7 +10,7 @@
 
 %langname = (
        'bg.po' => 'Bulgarian',
-       'ca.po' => 'Catalan',
+#      'ca.po' => 'Catalan',
        'cs.po' => 'Czech',
        'de.po' => 'German',
        'en_GB.po' => 'British English',
@@ -18,34 +18,46 @@
        'fi.po' => 'Finnish',
        'fr.po' => 'French',
        'hu.po' => 'Hungarian',
-       'it.po' => 'Italian',
-       'ja.po' => 'Japanese',
-       'nl.po' => 'Dutch',
-       'pl.po' => 'Polish',
+       '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',
        'sv.po' => 'Swedish',
-       'zh_CN.po' => 'Simpilified Chinese',
+#      'uk.po' => 'Ukrainian',
+       'zh_CN.po' => 'Simplified Chinese',
+       'zh_TW.po' => 'Traditional Chinese',
 );
 
 %lasttranslator = (
        'bg.po' => 'Yasen Pramatarov <yasen@lindeas.com>',
-       'ca.po' => 'Miquel Oliete <ktalanet@yahoo.es>',
+#      'ca.po' => 'Miquel Oliete <ktalanet@yahoo.es>',
        'cs.po' => 'David Vachulka <david@konstrukce-cad.com>',
-       'de.po' => 'Stephan Sachse <white@dev-zero.com>',
+       'de.po' => 'Thomas Bellmann <ThomasBellmann@gmx.net>',
        '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>',
-       'it.po' => 'Andrea Spadaccini <a.spadaccini@catania.linux.it>',
-       'ja.po' => 'kazken3 <kazken3@gmail.com>',
-       'nl.po' => 'Marcel Pol <mpol@gmx.net>',
-       'pl.po' => 'Emilian Nowak <emil5@go2.pl>',
+       '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_BR.po' => 'Frederico Goncalves Guimaraes <fggdebian@yahoo.com.br>',
+#      'pt_PT.po' => 'Tiago Faria <gouki@goukihq.org>',
        'ru.po' => 'Aleksei Miheev <aleksei@miheev.info>',
-       'sv.po' => 'Lars Persson Fink <lars.p.fink@gmail.com>',
-       'zh_CN.po' => 'Ralgh Young <bamanzi@gmail.com>',
+       'sk.po' => 'Slavko <slavino@slavino.sk>',
+       'sv.po' => 'Andreas Rönnquist <gusnan@gusnan.se>',
+#      'uk.po' => 'YUP <yupadmin@gmail.com>',
+       'zh_CN.po' => 'Rob <rbnwmk@gmail.com>',
+       'zh_TW.po' => 'Rob <rbnwmk@gmail.com>',
 );
 
 %barcolornorm = (
@@ -69,7 +81,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 +141,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 +207,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++; }