Mercurial > pidgin
annotate po/stats.pl @ 28482:da5f35ec5785
This feels hacky to me, so if someone has a better idea, go for it. This change
makes it so the global "Use remote DNS with SOCKS4 proxies" pref checkbox stays
visible when the proxy type pref changes. Etan, Paul, and I noticed this the
other day when discussing the previous changes.
author | John Bailey <rekkanoryo@rekkanoryo.org> |
---|---|
date | Mon, 02 Nov 2009 02:58:17 +0000 |
parents | f79b6c9b82a5 |
children | f5e31099a351 |
rev | line source |
---|---|
22015
72f90ea7ae34
Don't assume perl is at /usr/bin/perl, use /usr/bin/env instead. This is not
Richard Laager <rlaager@wiktel.com>
parents:
20738
diff
changeset
|
1 #!/usr/bin/env perl |
7202 | 2 |
11466 | 3 # Copyright 2003-2005 Nathan Walp <faceprint@faceprint.com> |
7202 | 4 # |
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 | |
7 # the Free Software Foundation; either version 2 of the License, or | |
8 # (at your option) any later version. | |
9 # | |
10 # This program is distributed in the hope that it will be useful, | |
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 # GNU General Public License for more details. | |
14 # | |
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 | |
19681
44b4e8bd759b
The FSF changed its address a while ago; our files were out of date.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
17598
diff
changeset
|
17 # Foundation, Inc., 50 Temple Place, Suite 330, Boston, MA 02111-1301 USA |
7202 | 18 # |
19 | |
11466 | 20 use POSIX qw(strftime); |
21 | |
7202 | 22 |
15767 | 23 my $PACKAGE="pidgin"; |
9412 | 24 |
25 | |
7202 | 26 use Locale::Language; |
27 | |
13799 | 28 $lang{'ca@valencia'} = "Catalan (Valencian)"; |
20235
6d15c55ef3cd
applied changes from f6deeedd3d31f0863466fff4c81816aee12122a6
Richard Laager <rlaager@wiktel.com>
parents:
20234
diff
changeset
|
29 $lang{'be@latin'} = "Belarusian (Latin)"; |
10058 | 30 $lang{en_AU} = "English (Australian)"; |
8860 | 31 $lang{en_CA} = "English (Canadian)"; |
8033 | 32 $lang{en_GB} = "English (British)"; |
11472 | 33 $lang{my_MM} = "Burmese (Myanmar)"; |
7548 | 34 $lang{pt_BR} = "Portuguese (Brazilian)"; |
20738
54fa708ba54f
sr@Latn changed to sr@latin
Luke Schierer <lschiere@pidgin.im>
parents:
20237
diff
changeset
|
35 $lang{'sr@latin'} = "Serbian (Latin)"; |
7202 | 36 $lang{zh_CN} = "Chinese (Simplified)"; |
17598
ae3c3de19ba8
Teach stats.pl about zh_HK
Stu Tomlinson <stu@nosnilmot.com>
parents:
15767
diff
changeset
|
37 $lang{zh_HK} = "Chinese (Hong Kong)"; |
7202 | 38 $lang{zh_TW} = "Chinese (Traditional)"; |
39 | |
40 opendir(DIR, ".") || die "can't open directory: $!"; | |
41 @pos = grep { /\.po$/ && -f } readdir(DIR); | |
42 foreach (@pos) { s/\.po$//; }; | |
43 closedir DIR; | |
44 | |
45 @pos = sort @pos; | |
46 | |
47 $now = `date`; | |
48 | |
13185
87d9db90bf6e
[gaim-migrate @ 15548]
Richard Laager <rlaager@wiktel.com>
parents:
11472
diff
changeset
|
49 system("intltool-update --pot > /dev/null"); |
7202 | 50 |
9412 | 51 $_ = `msgfmt --statistics $PACKAGE.pot -o /dev/null 2>&1`; |
7202 | 52 |
53 die "unable to get total: $!" unless (/(\d+) untranslated messages/); | |
54 | |
55 $total = $1; | |
11466 | 56 $generated = strftime "%Y-%m-%d %H:%M:%S", gmtime; |
7202 | 57 |
11361 | 58 print "<?xml version='1.0'?>\n"; |
59 print "<?xml-stylesheet type='text/xsl' href='l10n.xsl'?>\n"; | |
11466 | 60 print "<project version='1.0' xmlns:l10n='http://faceprint.com/code/l10n' name='$PACKAGE' pofile='$PACKAGE.pot' strings='$total' generated='$generated'>\n"; |
7202 | 61 |
62 foreach $index (0 .. $#pos) { | |
63 $trans = $fuzz = $untrans = 0; | |
64 $po = $pos[$index]; | |
7739 | 65 print STDERR "$po..." if($ARGV[0] eq '-v'); |
24230
f79b6c9b82a5
Pass --no-location to msgmerge when generating the stats at
Mark Doliner <mark@kingant.net>
parents:
22015
diff
changeset
|
66 system("msgmerge --no-location -U $po.po $PACKAGE.pot 2>/dev/null"); |
20234
a02994afdb43
applied changes from 4dd446ee59f869036e9065d0f45270444f319f1d
Richard Laager <rlaager@wiktel.com>
parents:
19681
diff
changeset
|
67 if (($? & 127) == 2) { |
a02994afdb43
applied changes from 4dd446ee59f869036e9065d0f45270444f319f1d
Richard Laager <rlaager@wiktel.com>
parents:
19681
diff
changeset
|
68 printf STDERR "Caught keyboard interrupt--exiting\n"; |
a02994afdb43
applied changes from 4dd446ee59f869036e9065d0f45270444f319f1d
Richard Laager <rlaager@wiktel.com>
parents:
19681
diff
changeset
|
69 exit |
a02994afdb43
applied changes from 4dd446ee59f869036e9065d0f45270444f319f1d
Richard Laager <rlaager@wiktel.com>
parents:
19681
diff
changeset
|
70 } |
20237
b1d14929fda1
applied changes from 71a27720e49364f4f24fc09309442fc3a2c17bc9
Richard Laager <rlaager@wiktel.com>
parents:
20235
diff
changeset
|
71 $_ = `msgfmt --statistics $po -o /dev/null 2>&1`; |
7202 | 72 chomp; |
9765 | 73 if(/(\d+) translated message/) { $trans = $1; } |
74 if(/(\d+) fuzzy translation/) { $fuzz = $1; } | |
75 if(/(\d+) untranslated message/) { $untrans = $1; } | |
11361 | 76 |
11472 | 77 $name = ""; |
78 $name = $lang{$po}; | |
79 $name = code2language($po) unless $name ne ""; | |
80 $name = "???" unless $name ne ""; | |
81 | |
82 print "<lang code='$po' name='$name' translated='$trans' fuzzy='$fuzz' />\n"; | |
8060 | 83 print STDERR "done ($untrans untranslated strings).\n" if($ARGV[0] eq '-v'); |
7202 | 84 } |
85 | |
11361 | 86 print "</project>\n"; |
87 |