# HG changeset patch # User Nathan Walp # Date 1075064355 0 # Node ID 3d3c2dd280682eff3cac051bf6cf1fe72a90ac81 # Parent b55b70aef314a5f5fec3dda5e714bd1b2df3d064 [gaim-migrate @ 8881] no more need for this committer: Tailor Script diff -r b55b70aef314 -r 3d3c2dd28068 po/stats.pl --- a/po/stats.pl Sun Jan 25 19:12:58 2004 +0000 +++ b/po/stats.pl Sun Jan 25 20:59:15 2004 +0000 @@ -47,7 +47,7 @@ print "\n"; print "
\n"; -print"\n"; +print"\n"; foreach $index (0 .. $#pos) { $trans = $fuzz = $untrans = 0; @@ -59,8 +59,6 @@ if(/(\d+) translated messages/) { $trans = $1; } if(/(\d+) fuzzy translations/) { $fuzz = $1; } if(/(\d+) untranslated messages/) { $untrans = $1; } - $gone = $total - $trans - $fuzz - $untrans; - $gonep = 100 * $gone / $total; $transp = 100 * $trans / $total; $fuzzp = 100 * $fuzz / $total; $untransp = 100 * $untrans / $total; @@ -73,16 +71,14 @@ $name = $lang{$po}; $name = code2language($po) unless $name ne ""; $name = "???" unless $name ne ""; - printf "\n"; unlink("$po.new"); print STDERR "done ($untrans untranslated strings).\n" if($ARGV[0] eq '-v');
languagetrans%fuzzy%untrans%missing% 
languagetrans%fuzzy%untrans% 
%s(%s.po)%d%0.2f%d%0.2f%d%0.2f%d%0.2f", - $name, $po, $trans, $transp, $fuzz, $fuzzp, $untrans, $untransp, $gone, $gonep; + printf "%s(%s.po)%d%0.2f%d%0.2f%d%0.2f", + $name, $po, $trans, $transp, $fuzz, $fuzzp, $untrans, $untransp; printf "", $transp*2 unless $transp*2 < 0.5; printf "", $fuzzp*2 unless $fuzzp*2 < 0.5; printf "", $untransp*2 unless $untransp*2 < 0.5; - printf "", $gonep*2 - unless $gonep*2 < 0.5; print "