Mercurial > pidgin.yaz
annotate po/stats.pl @ 26553:91583903b478
Migrate googleinfo:jabber handlers and add some safety checks.
Do not parse STUN servers from anyone, enforce that they must come from our
bare JID (i.e. our server on behalf of us).
author | Paul Aurich <paul@darkrain42.org> |
---|---|
date | Fri, 03 Apr 2009 17:15:40 +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 | |
19680
44b4e8bd759b
The FSF changed its address a while ago; our files were out of date.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
17836
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 |
15768 | 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)"; |
17836
ae3c3de19ba8
Teach stats.pl about zh_HK
Stu Tomlinson <stu@nosnilmot.com>
parents:
15768
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'); |
24169
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:
19680
diff
changeset
|
67 if (($? & 127) == 2) { |
a02994afdb43
applied changes from 4dd446ee59f869036e9065d0f45270444f319f1d
Richard Laager <rlaager@wiktel.com>
parents:
19680
diff
changeset
|
68 printf STDERR "Caught keyboard interrupt--exiting\n"; |
a02994afdb43
applied changes from 4dd446ee59f869036e9065d0f45270444f319f1d
Richard Laager <rlaager@wiktel.com>
parents:
19680
diff
changeset
|
69 exit |
a02994afdb43
applied changes from 4dd446ee59f869036e9065d0f45270444f319f1d
Richard Laager <rlaager@wiktel.com>
parents:
19680
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 |