Re: 2.8 release notes stats

[danilo gnome org (Danilo Åegan)]

Hi Murray,

Yesterday at 17:26, Murray Cumming wrote:

> Some time next week, could someone send the usual stats to the
> release-team for the 2.8 release notes, please, so we can proudly list all
> the supported languages?
>
> Just point us to a web page if that's accurate at the time.

I can do this, or, I can even provide you with the exact XML-marked-up
document (so you need not sed/grep and awk around stats ;-), like I
did for some of the RNs.  Of course, I'd need to know what kind of
markup do you expect (I'll attach a hack^H^H^H^Hscript here which parses
essential.html [see below] to produce somewhat DocBook-marked list of
languages; I used it around Gnome 2.4 time for release notes, and it
seems to work fine now â note that we haven't so far included list of
partially supported languages in RN, just the supported ones, and
a number of partially supported ones).

If someone decides to go with this, she should note that some
languages need to be added manually, such as en_US.

Along with general-purpose stats at
http://l10n-status.gnome.org/gnome-2.8/essential.html (developer-libs
and desktop categories), I parse this daily to keep track of progress
in Gnome D&DP (no other categories), and results are available sorted
at: 
      http://kvota.net/gnom/stats28.php 
(Second date is what you care about, first one is what it is compared
to â basically sorted essential.html but with more data [check HTML
source to see message count etc])

Cheers,
Danilo

#!/usr/bin/perl
($current) = @ARGV; # use the previous and current essential.html filename (to compare)

$TEAMS=0; $TOTALCHANGE=0;
$langs{supported}=0;
$langs{unsupported}=0;
$langs{partial}=0;
open CURR,$current;
$langset=0;
while (<CURR>) {
    if ($langset) {
	if (/teamerror\">([0-9]{1,3}\.[0-9]{2})%<\/font>/) {
	    $number++;
	    $percent=$1;
	    if ($number==3) { # we're looking for the third occurence of this same string
		$percentages{$langset}=$percent;
		if ($percent>=80.0) {
		    $support{$langset}=$percent;
		    $langs{supported}++;
		} elsif ($percent>=50.0) {
		    $part{$langset}=$percent;
		    $langs{partial}++;
		} else {
		    $unsup{$langset}=$percent;
		    $langs{unsupported}++;
		}
		$langset=0;
		$number=0;
		$TEAMS++;
	    }
	}
    } elsif (/<a .*>([A-Za-z&; ]+)\(([^)]+)\)<\/a>/) {
	$langset=$2;
	$fullnames{$langset}=$1;
	$number=0;
    }
}
close CURR;

print "$langs{supported} supported languages (over 80% strings translated):\n\n";
foreach $lang (keys %support) {
    push @podrzani,$fullnames{$lang};#print "$lang $fullnames{$lang}\n";
}

foreach $jez (sort @podrzani) {
    print "      <listitem>\n	<para>\n	  $jez\n	</para>\n      </listitem>\n";
}

print "\n\n$langs{partial} partially supported (over 50%, less than 80%):\n\n";
foreach $lang (keys %part) {
    push @polupodrzani,$fullnames{$lang};
}

foreach $jez (sort @polupodrzani) {
    print "      <listitem>\n	<para>\n	  $jez\n	</para>\n      </listitem>\n";
}