Mercurial > pidgin.yaz
view po/stats.pl @ 13022:228b1f95e5b4
[gaim-migrate @ 15375]
Here's my "I'm staying up all night anyway so I might as well take a stab at
the connection error buttons" work on the connection error buttons. I left
Mark's comment in since I don't think this is finished. I also left a couple
warnings in place because I'm too tired to try to follow failure
characteristics and recovery mechanisms for the stuff I'm doing. It works for
me.
I saturated the prpl icons mostly because it made the error overlay stand out
better, but once I saw it I think it works well, and also fits well with our
use of saturation in other places to indicate offline. I'm currently using the
default status image blocked.png, if that's what we end up wanting to keep we
should put a copy of it somewhere else as pulling it from status/default is
silly.
I had originally tried to get the blocked circle to be larger than the prpl
icon, with the prpl icon centered, but couldn't come up with a good way to do
that given the gdk functions I had at hand. I'll probably give it a shot again
at some other point unless we decide we don't want it or someone else does it
before me.
I'm done rambling now, I'm tired.
committer: Tailor Script <tailor@pidgin.im>
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Mon, 23 Jan 2006 15:15:01 +0000 |
parents | 6aa833b18a05 |
children | 87d9db90bf6e |
line wrap: on
line source
#!/usr/bin/perl # Copyright 2003-2005 Nathan Walp <faceprint@faceprint.com> # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 50 Temple Place, Suite 330, Boston, MA 02111-1307 USA # use POSIX qw(strftime); my $PACKAGE="gaim"; use Locale::Language; $lang{en_AU} = "English (Australian)"; $lang{en_CA} = "English (Canadian)"; $lang{en_GB} = "English (British)"; $lang{my_MM} = "Burmese (Myanmar)"; $lang{pt_BR} = "Portuguese (Brazilian)"; $lang{'sr@Latn'} = "Serbian (Latin)"; $lang{zh_CN} = "Chinese (Simplified)"; $lang{zh_TW} = "Chinese (Traditional)"; opendir(DIR, ".") || die "can't open directory: $!"; @pos = grep { /\.po$/ && -f } readdir(DIR); foreach (@pos) { s/\.po$//; }; closedir DIR; @pos = sort @pos; $now = `date`; system("./update.pl --pot > /dev/null"); $_ = `msgfmt --statistics $PACKAGE.pot -o /dev/null 2>&1`; die "unable to get total: $!" unless (/(\d+) untranslated messages/); $total = $1; $generated = strftime "%Y-%m-%d %H:%M:%S", gmtime; print "<?xml version='1.0'?>\n"; print "<?xml-stylesheet type='text/xsl' href='l10n.xsl'?>\n"; print "<project version='1.0' xmlns:l10n='http://faceprint.com/code/l10n' name='$PACKAGE' pofile='$PACKAGE.pot' strings='$total' generated='$generated'>\n"; foreach $index (0 .. $#pos) { $trans = $fuzz = $untrans = 0; $po = $pos[$index]; print STDERR "$po..." if($ARGV[0] eq '-v'); system("msgmerge $po.po $PACKAGE.pot -o $po.new 2>/dev/null"); $_ = `msgfmt --statistics $po.new -o /dev/null 2>&1`; chomp; if(/(\d+) translated message/) { $trans = $1; } if(/(\d+) fuzzy translation/) { $fuzz = $1; } if(/(\d+) untranslated message/) { $untrans = $1; } unlink("$po.new"); $name = ""; $name = $lang{$po}; $name = code2language($po) unless $name ne ""; $name = "???" unless $name ne ""; print "<lang code='$po' name='$name' translated='$trans' fuzzy='$fuzz' />\n"; print STDERR "done ($untrans untranslated strings).\n" if($ARGV[0] eq '-v'); } print "</project>\n";