Mercurial > pidgin.yaz

comparison po/stats.pl @ 11466:eaa10266cd96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13706] translation stats update (http://gaim.sf.net/l10n/ now points to statistics from HEAD instead of oldstatus) yes, I'll make the XSL prettier later. It's "good enough" for the moment committer: Tailor Script <tailor@pidgin.im>
author Nathan Walp <nwalp@pidgin.im>
date Thu, 08 Sep 2005 05:11:07 +0000
parents e4868370c433
children 6aa833b18a05
comparison
equal deleted inserted replaced
11465:448bc3b8eb63 11466:eaa10266cd96
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 2
3 # Copyright 2003-2004 Nathan Walp <faceprint@faceprint.com> 3 # Copyright 2003-2005 Nathan Walp <faceprint@faceprint.com>
4 # 4 #
5 # This program is free software; you can redistribute it and/or modify 5 # This program is free software; you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by 6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 2 of the License, or 7 # the Free Software Foundation; either version 2 of the License, or
8 # (at your option) any later version. 8 # (at your option) any later version.
14 # 14 #
15 # You should have received a copy of the GNU General Public License 15 # You should have received a copy of the GNU General Public License
16 # along with this program; if not, write to the Free Software 16 # along with this program; if not, write to the Free Software
17 # Foundation, Inc., 50 Temple Place, Suite 330, Boston, MA 02111-1307 USA 17 # Foundation, Inc., 50 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18 # 18 #
19
20 use POSIX qw(strftime);
19 21
20 22
21 my $PACKAGE="gaim"; 23 my $PACKAGE="gaim";
22 24
23 25
45 $_ = `msgfmt --statistics $PACKAGE.pot -o /dev/null 2>&1`; 47 $_ = `msgfmt --statistics $PACKAGE.pot -o /dev/null 2>&1`;
46 48
47 die "unable to get total: $!" unless (/(\d+) untranslated messages/); 49 die "unable to get total: $!" unless (/(\d+) untranslated messages/);
48 50
49 $total = $1; 51 $total = $1;
52 $generated = strftime "%Y-%m-%d %H:%M:%S", gmtime;
50 53
51 print "<?xml version='1.0'?>\n"; 54 print "<?xml version='1.0'?>\n";
52 print "<?xml-stylesheet type='text/xsl' href='l10n.xsl'?>\n"; 55 print "<?xml-stylesheet type='text/xsl' href='l10n.xsl'?>\n";
53 print "<project version='1.0' xmlns:l10n='http://faceprint.com/code/l10n' name='$PACKAGE' pofile='$PACKAGE.pot' strings='$total'>\n"; 56 print "<project version='1.0' xmlns:l10n='http://faceprint.com/code/l10n' name='$PACKAGE' pofile='$PACKAGE.pot' strings='$total' generated='$generated'>\n";
54 57
55 foreach $index (0 .. $#pos) { 58 foreach $index (0 .. $#pos) {
56 $trans = $fuzz = $untrans = 0; 59 $trans = $fuzz = $untrans = 0;
57 $po = $pos[$index]; 60 $po = $pos[$index];
58 print STDERR "$po..." if($ARGV[0] eq '-v'); 61 print STDERR "$po..." if($ARGV[0] eq '-v');