2008-12-21 [paul] 3.7.0cvs3

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

diff --git a/tools/claws.i18n.status.pl b/tools/claws.i18n.status.pl
index 6d6b810ab20bc67fe37c5e83cbf22345f354ffec..f8bceb079c999ca40fb63882d676a870822259ea 100644 (file)
--- a/tools/claws.i18n.status.pl
+++ b/tools/claws.i18n.status.pl
@@ -1,8 +1,9 @@
 #!/usr/bin/perl -w
 #
-# claws.i18n.stats.pl - Generate statistics for Sylpheed Claws po directory.
+# claws.i18n.stats.pl - Generate statistics for Claws Mail po directory.
 # 
-# (c) 2003 by Ricardo Mones Lastra <mones@aic.uniovi.es>
+# Copyright (C) 2003-2008 by Ricardo Mones <ricardo@mones.org>, 
+#                            Paul Mangan <paul@claws-mail.org>
 # This program is released under the GNU General Public License.
 #
 # constants -----------------------------------------------------------------
@@ -10,55 +11,39 @@
 %langname = (
        'bg.po' => 'Bulgarian',
        'ca.po' => 'Catalan',
-       'cs.po' => 'Czech',
+       'cs.po' => 'Czech',
        'de.po' => 'German',
-       'el.po' => 'Greek',
        'en_GB.po' => 'British English',
        'es.po' => 'Spanish',
        'fi.po' => 'Finnish',
        'fr.po' => 'French',
-       'hr.po' => 'Croatian',
        'hu.po' => 'Hungarian',
        'it.po' => 'Italian',
-       'ja.po' => 'Japanese',
-       'ko.po' => 'Korean',
-       'nb.po' => 'Norwegian',
        'nl.po' => 'Dutch',
        'pl.po' => 'Polish',
        'pt_BR.po' => 'Brazilian Portuguese',
        'ru.po' => 'Russian',
-       'sk.po' => 'Slovak',
-       'sr.po' => 'Serbian',
        'sv.po' => 'Swedish',
        'zh_CN.po' => 'Simpilified Chinese',
-       'zh_TW.po' => 'Taiwanese',
 );
 
 %lasttranslator = (
-       'bg.po' => 'George Danchev <danchev@spnet.net>',
+       'bg.po' => 'Yasen Pramatarov <yasen@lindeas.com>',
        'ca.po' => 'Miquel Oliete <ktalanet@yahoo.es>',
-       'cs.po' => 'Radek Vybíral <Radek.Vybiral@vsb.cz>',
-       'de.po' => 'Thomas Gilgin <thg1@karate-muellheim.de>',
-       'el.po' => 'Michalis Kabrianis <Michalis@bigfoot.com>',
-       'en_GB.po' => 'Paul Mangan <claws@thewildbeast.co.uk>',
-       'es.po' => 'Ricardo Mones Lastra <mones@aic.uniovi.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' => 'Fabien Vantard <fzzzzz@gmail.com>',
-       'hr.po' => 'Dragan Leskovar <drleskov@inet.hr>',
-       'hu.po' => 'Gál Zoltán <galzoli@hu.inter.net>',
+       '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' => 'Rui Hirokawa <rui_hirokawa@ybb.ne.jp>',
-       'ko.po' => 'ChiDeok, Hwang <hwang@mizi.co.kr>',
-       'nb.po' => 'Geir Helland <pjallabais@users.sourceforge.net>',
-       'nl.po' => 'Wilbert Berendsen <wbsoft@xs4all.nl>',
-       'pl.po' => 'Emilian Nowak <eminowbl@posejdon.wpk.p.lodz.pl>',
+       'nl.po' => 'Marcel Pol <mpol@gmx.net>',
+       'pl.po' => 'Emilian Nowak <emil5@go2.pl>',
        'pt_BR.po' => 'Frederico Goncalves Guimaraes <fggdebian@yahoo.com.br>',
-       'ru.po' => 'Pavlo Bohmat <bohm@ukr.net>',
-       'sk.po' => 'Andrej Kacian <andrej@kacian.sk>',
-       'sr.po' => 'urke <urke@users.sourceforge.net>',
-       'sv.po' => 'Joakim Andreasson <joakim.andreasson@gmx.net>',
-       'zh_CN.po' => 'Hansom Young <glyoung@users.sourceforge.net>',
-       'zh_TW.po' => 'Wei-Lun Chao <chaoweilun@pcmail.com.tw>',
+       '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>',
 );
 
 %barcolornorm = (
@@ -191,7 +176,7 @@ closedir(PODIR);
 $alang = $atran = $afuzz = $auntr = $oddeven = 0;
 foreach $pofile (@sorted_pofiles) {
        $_ = $pofile;
-       if (/.+\.po$/) {
+       if (/.+\.po$/ && defined($langname{$pofile}) ) {
                print STDERR "Processing $_\n"; # be a little informative
                ++$alang;
                $transage = $tran = $fuzz = $untr = 0;