Mercurial > pidgin.yaz

diff po/stats.pl @ 11472:6aa833b18a05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13713] more translation stats goodness committer: Tailor Script <tailor@pidgin.im>
author Nathan Walp <nwalp@pidgin.im>
date Fri, 09 Sep 2005 03:07:15 +0000
parents eaa10266cd96
children 87d9db90bf6e
line wrap: on
line diff
--- a/po/stats.pl	Fri Sep 09 03:01:07 2005 +0000
+++ b/po/stats.pl	Fri Sep 09 03:07:15 2005 +0000
@@ -28,6 +28,7 @@
 $lang{en_AU} = "English (Australian)";
 $lang{en_CA} = "English (Canadian)";
 $lang{en_GB} = "English (British)";
+$lang{my_MM} = "Burmese (Myanmar)";
 $lang{pt_BR} = "Portuguese (Brazilian)";
 $lang{'sr@Latn'} = "Serbian (Latin)";
 $lang{zh_CN} = "Chinese (Simplified)";
@@ -67,7 +68,12 @@
 	if(/(\d+) untranslated message/) { $untrans = $1; }
 	unlink("$po.new");
 
-	print "<lang code='$po' translated='$trans' fuzzy='$fuzz' />\n";
+	$name = "";
+	$name = $lang{$po};
+	$name = code2language($po) unless $name ne "";
+	$name = "???" unless $name ne "";
+
+	print "<lang code='$po' name='$name' translated='$trans' fuzzy='$fuzz' />\n";
 	print STDERR "done ($untrans untranslated strings).\n" if($ARGV[0] eq '-v');
 }