|
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
|
|
|
46 system("./update.pl --pot > /dev/null");
|
|
|
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
|
