Mercurial > pidgin
view po/stats.pl @ 10059:79fafe47d919
[gaim-migrate @ 11027]
" When using the radio_menu widgets and the "activate"
signal is called, it is called for the old value and
then the new value. In reading the callback code, I
couldn't find a good reason that anything should be
done with the previous account that was sending as (as
it didn't seem to call any other signals, it just sets
the active account). This patch makes it so that if the
callback is called and the widget that initiated the
signal is not active, the callback stops instead of
spending the cycles to set up something that's going to
be replaced in the next second anyway." --Dave West
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Wed, 22 Sep 2004 11:54:29 +0000 |
parents | 514768e1db90 |
children | e4868370c433 |
line wrap: on
line source
#!/usr/bin/perl # Copyright 2003-2004 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 # my $PACKAGE="gaim"; use Locale::Language; $lang{en_AU} = "English (Australian)"; $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 $PACKAGE.pot -o /dev/null 2>&1`; die "unable to get total: $!" unless (/(\d+) untranslated messages/); $total = $1; print "<html>\n"; print "<head><title>$PACKAGE i18n statistics</title></head>\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 $PACKAGE.pot -o $po.new 2>/dev/null"); $_ = `msgfmt --statistics $po.new -o /dev/null 2>&1`; chomp; if(/(\d+) translated message/) { $trans = $1; } if(/(\d+) fuzzy translation/) { $fuzz = $1; } if(/(\d+) untranslated message/) { $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 $PACKAGE.pot generated $now: <a href='$PACKAGE.pot'>$PACKAGE.pot</a><br />\n"; print "</body>\n"; print "</html>\n";