Mercurial > pidgin.yaz
annotate po/stats.pl @ 13664:4132d997ccec
[gaim-migrate @ 16066]
Fix Coverity CID 45: Check to make sure a channel 2 ICBM actually
contains an IP address TLV before attempting to use it. This
avoids a crash when the server sends us an abnormal channel 2
ICBM. I'm not sure if that ever happens.
Fix Coverity CID 204: Don't attempt to send data over a FLAP
BOS connection that doesn't exist. This should never happen
because the account should get disconnected first.
Fix Coverity CID 205: Don't check that a variable 'od' which
we know is valid is not equal to NULL in aim_search_address()
in family_userlookup.c
Fix Coverity CID 206: Don't check that the variable 'od' which
we know is valid is not equal to NULL in aim_chat_join() in
family_oservice.c
Fix Coverity CID 207: I neglected to remove a "return;" line from
aim_admin_setnick() in family_admin.c which caused setting your
AIM screen name formatting to not work.
Fix Coverity CID 208: Remove a duplicate call to
gaim_connection_get_account() in peer_connection_propose() in peer.c.
Fix Coverity CID 209: Remove the unused variable "username" from
incomingim_chan2() in oscar.c.
Fix Coverity CID 210: Remove the unused variable "account"
from peer_connection_listen_cb() in peer.c.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Thu, 20 Apr 2006 04:45:06 +0000 |
parents | 87d9db90bf6e |
children | c9ce13a3d934 |
rev | line source |
---|---|
7202 | 1 #!/usr/bin/perl |
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 | |
17 # Foundation, Inc., 50 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
18 # | |
19 | |
11466 | 20 use POSIX qw(strftime); |
21 | |
7202 | 22 |
9413 | 23 my $PACKAGE="gaim"; |
9412 | 24 |
25 | |
7202 | 26 use Locale::Language; |
27 | |
10058 | 28 $lang{en_AU} = "English (Australian)"; |
8860 | 29 $lang{en_CA} = "English (Canadian)"; |
8033 | 30 $lang{en_GB} = "English (British)"; |
11472 | 31 $lang{my_MM} = "Burmese (Myanmar)"; |
7548 | 32 $lang{pt_BR} = "Portuguese (Brazilian)"; |
7202 | 33 $lang{'sr@Latn'} = "Serbian (Latin)"; |
34 $lang{zh_CN} = "Chinese (Simplified)"; | |
35 $lang{zh_TW} = "Chinese (Traditional)"; | |
36 | |
37 opendir(DIR, ".") || die "can't open directory: $!"; | |
38 @pos = grep { /\.po$/ && -f } readdir(DIR); | |
39 foreach (@pos) { s/\.po$//; }; | |
40 closedir DIR; | |
41 | |
42 @pos = sort @pos; | |
43 | |
44 $now = `date`; | |
45 | |
13185
87d9db90bf6e
[gaim-migrate @ 15548]
Richard Laager <rlaager@wiktel.com>
parents:
11472
diff
changeset
|
46 system("intltool-update --pot > /dev/null"); |
7202 | 47 |
9412 | 48 $_ = `msgfmt --statistics $PACKAGE.pot -o /dev/null 2>&1`; |
7202 | 49 |
50 die "unable to get total: $!" unless (/(\d+) untranslated messages/); | |
51 | |
52 $total = $1; | |
11466 | 53 $generated = strftime "%Y-%m-%d %H:%M:%S", gmtime; |
7202 | 54 |
11361 | 55 print "<?xml version='1.0'?>\n"; |
56 print "<?xml-stylesheet type='text/xsl' href='l10n.xsl'?>\n"; | |
11466 | 57 print "<project version='1.0' xmlns:l10n='http://faceprint.com/code/l10n' name='$PACKAGE' pofile='$PACKAGE.pot' strings='$total' generated='$generated'>\n"; |
7202 | 58 |
59 foreach $index (0 .. $#pos) { | |
60 $trans = $fuzz = $untrans = 0; | |
61 $po = $pos[$index]; | |
7739 | 62 print STDERR "$po..." if($ARGV[0] eq '-v'); |
9412 | 63 system("msgmerge $po.po $PACKAGE.pot -o $po.new 2>/dev/null"); |
7739 | 64 $_ = `msgfmt --statistics $po.new -o /dev/null 2>&1`; |
7202 | 65 chomp; |
9765 | 66 if(/(\d+) translated message/) { $trans = $1; } |
67 if(/(\d+) fuzzy translation/) { $fuzz = $1; } | |
68 if(/(\d+) untranslated message/) { $untrans = $1; } | |
7739 | 69 unlink("$po.new"); |
11361 | 70 |
11472 | 71 $name = ""; |
72 $name = $lang{$po}; | |
73 $name = code2language($po) unless $name ne ""; | |
74 $name = "???" unless $name ne ""; | |
75 | |
76 print "<lang code='$po' name='$name' translated='$trans' fuzzy='$fuzz' />\n"; | |
8060 | 77 print STDERR "done ($untrans untranslated strings).\n" if($ARGV[0] eq '-v'); |
7202 | 78 } |
79 | |
11361 | 80 print "</project>\n"; |
81 |