changeset 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 35f92559a4a1
children 97f5f4b65911
files po/stats.pl
diffstat 1 files changed, 81 insertions(+), 0 deletions(-) [+]
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>&nbsp;</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";
+