Mercurial > pidgin
diff po/stats.pl @ 7202:25e78bf033be
[gaim-migrate @ 7771]
might as well stick this ugly code in cvs for all to shame me for ;-)
committer: Tailor Script <tailor@pidgin.im>
| author | Nathan Walp <nwalp@pidgin.im> |
|---|---|
| date | Thu, 09 Oct 2003 05:57:12 +0000 |
| parents | |
| children | 136daef154f6 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/po/stats.pl Thu Oct 09 05:57:12 2003 +0000 @@ -0,0 +1,81 @@ +#!/usr/bin/perl + +# Copyright 2003 Nathan Walp <faceprint@faceprint.com> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 50 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# + + +use Locale::Language; + +$lang{pt_BR} = "Portuguese (Brizillian)"; +$lang{pt_PT} = "Portuguese (Portugal)"; +$lang{'sr@Latn'} = "Serbian (Latin)"; +$lang{zh_CN} = "Chinese (Simplified)"; +$lang{zh_TW} = "Chinese (Traditional)"; + +opendir(DIR, ".") || die "can't open directory: $!"; +@pos = grep { /\.po$/ && -f } readdir(DIR); +foreach (@pos) { s/\.po$//; }; +closedir DIR; + +@pos = sort @pos; + +$now = `date`; + +system("./update.pl --pot > /dev/null"); + +$_ = `msgfmt --statistics gaim.pot -o /dev/null 2>&1`; + +die "unable to get total: $!" unless (/(\d+) untranslated messages/); + +$total = $1; + +print "<html>\n"; +print "<body>\n"; +print "<table cellspacing='0' cellpadding='0' border='0' bgcolor='#888888' width='100%'><tr><td><table cellspacing='1' cellpadding='2' border='0' width='100%'>\n"; + +print"<tr bgcolor='#e0e0e0'><th>language</th><th style='background: #339933;'>trans</th><th style='background: #339933;'>%</th><th style='background: #333399;'>fuzzy</th><th style='background: #333399;'>%</th><th style='background: #dd3333;'>untrans</th><th style='background: #dd3333;'>%</th><th style='background: yellow;'>missing</th><th style='background: yellow;'>%</th><th> </th></tr>\n"; + +foreach $index (0 .. $#pos) { + $trans = $fuzz = $untrans = 0; + $po = $pos[$index]; + $_ = `msgfmt --statistics $po -o /dev/null 2>&1`; + chomp; + if(/(\d+) translated messages/) { $trans = $1; } + if(/(\d+) fuzzy translations/) { $fuzz = $1; } + if(/(\d+) untranslated messages/) { $untrans = $1; } + $gone = $total - $trans - $fuzz - $untrans; + $gonep = 100 * $gone / $total; + $transp = 100 * $trans / $total; + $fuzzp = 100 * $fuzz / $total; + $untransp = 100 * $untrans / $total; + if($index % 2) { + $color = " bgcolor='#e0e0e0'"; + } else { + $color = " bgcolor='#d0e0ff'"; + } + $name = ""; + $name = $lang{$po}; + $name = code2language($po) unless $name ne ""; + $name = "???" unless $name ne ""; + printf "<tr$color><td>%s(%s.po)</td><td>%d</td><td>%0.2f</td><td>%d</td><td>%0.2f</td><td>%d</td><td>%0.2f</td><td>%d</td><td>%0.2f</td><td><img src='bar_g.gif' height='15' width='%0.0f' /><img src='bar_b.gif' height='15' width='%0.0f' /><img src='bar_r.gif' height='15' width='%0.0f' /><img src='bar_y.gif' height='15' width='%0.0f' /></tr>\n", + $name, $po, $trans, $transp, $fuzz, $fuzzp, $untrans, $untransp, $gone, $gonep, $transp*2, $fuzzp*2, $untransp*2, $gonep*2; +} +print "</table></td></tr></table>\n"; +print "Latest gaim.pot generated $now: <a href='gaim.pot'>gaim.pot</a><br />\n"; +print "</body>\n"; +print "</html>\n"; +