2009-03-19 12:02:43 +00:00
#!/usr/bin/perl
use strict ;
use Locale::Language ;
use Locale::Country ;
2009-03-20 22:21:10 +00:00
my @ lang ;
2012-04-14 15:10:00 +02:00
# 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' ,
2012-04-14 15:30:29 +02:00
da_DK = > 'Henriette Roued' ,
2012-04-14 15:10:00 +02:00
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' ,
2012-04-15 19:40:46 +02:00
et_EE = > 'Veiko Viil' ,
2012-04-14 15:10:00 +02:00
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' ,
2012-04-21 21:34:42 +02:00
gl_ES = > 'Xan Vieiro' ,
2012-04-14 15:10:00 +02:00
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' ,
2012-04-18 08:42:16 +02:00
ko_KR = > 'BJ Jang' ,
2012-04-14 15:10:00 +02:00
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' ,
} ;
2009-03-19 12:02:43 +00:00
for my $ i ( <i18n/qgis_*.ts> ) {
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 ( <F> ) {
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 ;
2012-04-14 15:10:00 +02:00
push @ lang , { code = > $ langcode , name = > $ name , n = > $ n , translations = > $ translations , finished = > $ finished , unfinished = > $ unfinished , untranslated = > $ untranslated , percentage = > ( $ n - $ untranslated ) / $ n * 100 } ;
2009-03-20 22:21:10 +00:00
}
2012-04-14 15:10:00 +02:00
if ( $ ARGV [ 0 ] eq "site" ) {
print "<html><body>" ;
print "<head>" ;
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\"/>" ;
print "<style>" ;
print "body{font-family:sans-serif;}" ;
print "table {font-size:80%;border-collapse: collapse;}" ;
print "td {border-left:solid 1px #aaaaaa;border-right:solid 1px #aaaaaa;padding:1px 10px;}" ;
print ".bartodo{ background-color:red;width:100px;height:20px;}" ;
print ".bardone{ background-color:green;width:80px;height:20px;font-size:80%;text-align:center;padding-top:4px;height:16px;color:white;}" ;
print "</style></head>" ;
print "<table>" ;
print "<tr><td colspan=\"2\" style=\"width:250px;\">Language</td><td>Count</td><td>Finished</td><td>Unfinished</td><td>Untranslated</td><td>Percentage</td><td>Translators</td></tr>\n" ;
for my $ l ( sort { $ b - > { percentage } <=> $ a - > { percentage } } @ lang ) {
print "\n<tr><td><img src=\"flags/" , $ l - > { code } , ".png\">" , "</td><td>" , $ l - > { name } , "</td><td>" , join ( "</td><td>" , $ l - > { n } , $ l - > { finished } , $ l - > { unfinished } , $ l - > { untranslated } , sprintf ( "<div class=\"bartodo\"><div class=\"bardone\" style=\"width:%.1fpx\">%.1f</div></div>" , ( $ l - > { percentage } , $ l - > { percentage } ) ) ) , "</td><td>" , $ translators - > { $ l - > { code } } , "</tr></tr>" ;
}
print "</table></body></html>" ;
}
else {
print "<style>" ;
print "table {font-size:80%;}" ;
print "th {text-align:left; }" ;
print ".bartodo{ background-color:red;width:100px;height:20px;}" ;
print ".bardone{ background-color:green;width:80px;height:20px;font-size:80%;text-align:center;padding-top:4px;height:16px;color:white;}" ;
print "</style>" ;
print "<table>" ;
print "<tr><th colspan=\"2\" style=\"width:250px;\">Language</th><th>Finished %</th><th>Translators</th></tr>\n" ;
for my $ l ( sort { $ b - > { percentage } <=> $ a - > { percentage } } @ lang ) {
print "\n<tr><td><img src=\"qrc:/images/flags/" , $ l - > { code } , ".png\">" , "</td><td>" , $ l - > { name } , "</td><td>" , join ( "</td><td>" , sprintf ( "<div class=\"bartodo\"><div class=\"bardone\" style=\"width:%.1fpx\">%.1f</div></div>" , ( $ l - > { percentage } , $ l - > { percentage } ) ) ) , "</td><td>" , $ translators - > { $ l - > { code } } , "</tr></tr>" ;
}
print "</table>" ;
2009-03-19 12:02:43 +00:00
}
