Mercurial > pidgin.yaz
view po/stats.pl @ 8984:4623d24347d8
[gaim-migrate @ 9759]
Oops, forgot about this. This keeps us from telling the other side
to connect to us when we can't connect to them when the reason we were
connecting to them in the first place was because they couldn't connect
to us.
committer: Tailor Script <tailor@pidgin.im>
author | Tim Ringenbach <marv@pidgin.im> |
---|---|
date | Thu, 20 May 2004 02:24:17 +0000 |
parents | a11807af171e |
children | 3cabcdc36a73 |
line wrap: on
line source
#!/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{en_CA} = "English (Canadian)"; $lang{en_GB} = "English (British)"; $lang{pt_BR} = "Portuguese (Brazilian)"; $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> </th></tr>\n"; foreach $index (0 .. $#pos) { $trans = $fuzz = $untrans = 0; $po = $pos[$index]; print STDERR "$po..." if($ARGV[0] eq '-v'); system("msgmerge $po.po gaim.pot -o $po.new 2>/dev/null"); $_ = `msgfmt --statistics $po.new -o /dev/null 2>&1`; chomp; if(/(\d+) translated messages/) { $trans = $1; } if(/(\d+) fuzzy translations/) { $fuzz = $1; } if(/(\d+) untranslated messages/) { $untrans = $1; } $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>", $name, $po, $trans, $transp, $fuzz, $fuzzp, $untrans, $untransp; printf "<img src='bar_g.gif' height='15' width='%0.0f' />", $transp*2 unless $transp*2 < 0.5; printf "<img src='bar_b.gif' height='15' width='%0.0f' />", $fuzzp*2 unless $fuzzp*2 < 0.5; printf "<img src='bar_r.gif' height='15' width='%0.0f' />", $untransp*2 unless $untransp*2 < 0.5; print "</tr>\n"; unlink("$po.new"); print STDERR "done ($untrans untranslated strings).\n" if($ARGV[0] eq '-v'); } 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";