#!/usr/bin/perl use strict; use Locale::Language; use Locale::Country; my @lang; # script to generate a html list of the qgis application translatons # showing the percentage finished and the names of the translators # without argument it generates html which is used in the about-dialog of the application # output to std-out, to be piped to doc/TRANSLATORS so it can be used in dialog # scripts/tsstat.pl > doc/TRANSLATORS # this version needs flag images from the resources # with argument 'site' a more complete html page is create to be used on a website # scripts/tsstat.pl site > page.html # this version needs flag images in a directory 'flags' # translator names here as a hash where the key is the lang_country code used for the ts file name my $translators= { af => 'Hendrik Bosman', ar => 'Assem Kamal, Latif Jalil', bg => 'Захари Савов, Jordan Tzvetkov', ca_ES => 'Xavi', cs_CZ => 'Martin Landa, Peter Antolik, Martin Dzurov, Jan Helebrant', da_DK => 'Henriette Roued', de => 'Jürgen E. Fischer, Stephan Holl, Otto Dassau, Werner Macho', es => 'Carlos Dávila, Javier César Aldariz, Gabriela Awad, Edwin Amado, Mayeul Kauffmann', el_GR => 'Evripidis Argyropoulos, Mike Pegnigiannis, Nikos Ves', et_EE => 'Veiko Viil', fa => 'Mola Pahnadayan', fi => 'Marko Jarvenpaa', fr => 'Eve Rousseau, Marc Monnerat, Lionel Roubeyrie, Jean Roc Morreale, Benjamin Bohard, Jeremy Garniaux, Yves Jacolin, Benjamin Lerre, Stéphane Morel, Marie Silvestre, Tahir Tamba, Xavier M, Mayeul Kauffmann, Mehdi Semchaoui', hu => 'Zoltan Siki', hr_HR => 'Zoran Jankovic', is => 'Thordur Ivarsson', id => 'Januar V. Simarmata, I Made Anombawa', it => 'Paolo Cavallini, Flavio Rigolon, Maurizio Napolitano, Roberto Angeletti, Alessandro Fanna, Michele Beneventi, Marco Braida, Luca Casagrande, Luca Delucchi, Anne Gishla', ja => 'BABA Yoshihiko, Yoichi Kayama', ka_GE => 'Shota Murtskhvaladze, George Machitidze', ko_KR => 'BJ Jang', lo => 'Anousak Souphavanh', lv => 'Maris Nartiss, Pēteris Brūns', lt => 'Kestas M', nl => 'Richard Duivenvoorde, Raymond Nijssen, Carlo van Rijswijk', mn => 'Bayarmaa Enkhtur', pl_PL => 'Robert Szczepanek, Milena Nowotarska, Borys Jurgiel, Mateusz Loskot, Tomasz Paul, Andrzej Swiader ', pt_BR => 'Arthur Nanni, Christian Ferreira, Leandro Kaut', pt_PT => 'Giovanni Manghi, Joana Simoes, Duarte Carreira, Alexandre Neto, Pedro Pereira', ro => 'Lonut Losifescu-Enescu', ru => 'Artem Popov', sk => 'Lubos Balazovic', sl_SI => 'Jože Detečnik, Dejan Gregor', sv => 'Lars Luthman, Magnus Homann', sq_AL => '', th => 'Man Chao', tr => 'Osman Yilmaz', uk => 'Сергей Якунин', vi => 'Bùi Hữu Mạnh', zh_CN => 'Zhang Jun', zh_TW => 'Nungyao Lin', }; for my $i () { my ($langcode) = $i =~ /i18n\/qgis_(.*).ts/; my $name; if($langcode =~ /(.*)_(.*)/) { my $lang = code2language(lc $1); my $country = code2country(lc $2); $name = "$lang ($country)"; } else { $name = code2language(lc $langcode); } open F, "lrelease $i|"; my($translations,$finished,$unfinished,$untranslated); while() { if(/Generated (\d+) translation$s$ $(\d+) finished and (\d+) unfinished$/) { $translations=$1; $finished=$2; $unfinished=$3; } elsif(/Ignored (\d+) untranslated source text$s$/) { $untranslated=$1; } } close F; my $n = $translations+$untranslated; push @lang, { code=>$langcode, name=>$name, n=>$n, translations=>$translations, finished=>$finished, unfinished=>$unfinished, untranslated=>$untranslated, percentage=>($n-$untranslated)/$n*100 }; } if ($ARGV[0] eq "site"){ print ""; print ""; print ""; print ""; print ""; print "\n"; for my $l (sort { $b->{percentage} <=> $a->{percentage} } @lang) { print "\n"; } print "

Language	Count	Finished	Unfinished	Untranslated	Percentage	Translators
{code}, ".png\">", "	", $l->{name}, "	", join("	", $l->{n}, $l->{finished}, $l->{unfinished}, $l->{untranslated}, sprintf(" %.1f ", ($l->{percentage}, $l->{percentage})) ), "	", $translators->{$l->{code}} ,"

"; } else { print ""; print ""; print "\n"; for my $l (sort { $b->{percentage} <=> $a->{percentage} } @lang) { print "\n"; } print "

Language	Finished %	Translators
{code}, ".png\">", "	", $l->{name}, "	", join("	", sprintf(" %.1f ", ($l->{percentage}, $l->{percentage})) ), "	", $translators->{$l->{code}} ,"

"; }