stattrans.pl improvements

[Matt Kraai <kraai@debian.org>]

Howdy,

The first hunk of this patch calculates the percentages of
up-to-date and outdated pages relative to the number of pages
translated into that language, rather than the total number of
pages.

The first part of the second hunk inverts the colorization of the
outdated and untranslated pages so that they are green when things
are good (i.e., no outdated/untranslated page) and red when things
are bad.

The second part of second hunk eliminates the special case for
English so that its translation statistics are also displayed on
the index page.

You can see the results of these changes at
http://opensource.lineo.com/~kraai/stats/.  Are any/all of these
changes OK?

Unfixed by this patch, non-English originals with no English
translation are not included in any of the statistics.  I'm
planning to fix that.

Matt

Index: stattrans.pl
===================================================================
RCS file: /cvs/webwml/webwml/stattrans.pl,v
retrieving revision 1.25
diff -u -r1.25 stattrans.pl
--- stattrans.pl	2001/09/07 21:46:20	1.25
+++ stattrans.pl	2001/09/10 16:16:14
@@ -261,8 +261,8 @@
     $translated{$lang} = $translated{$lang} - $outdated{$lang};
 
     $percent_a{$lang} = $wml{$lang}/$wml{english} * 100;
-    $percent_t{$lang} = $translated{$lang}/$wml{english} * 100;
-    $percent_o{$lang} = $outdated{$lang}/$wml{english} * 100;
+    $percent_t{$lang} = $translated{$lang}/$wml{$lang} * 100;
+    $percent_o{$lang} = $outdated{$lang}/$wml{$lang} * 100;
     $percent_u{$lang} = $untranslated{$lang}/$wml{english} * 100;
 
     if (open (HTML, ">$config{'htmldir'}/$l.html")) {
@@ -331,19 +331,15 @@
 
     $color_a = get_color ($percent_a{$lang});
     $color_t = get_color ($percent_t{$lang});
-    $color_o = get_color ($percent_o{$lang});
-    $color_u = get_color ($percent_u{$lang});
+    $color_o = get_color (100 - $percent_o{$lang});
+    $color_u = get_color (100 - $percent_u{$lang});
 
     print HTML "<tr>";
     printf HTML "<td><a href=\"%s.html\">%s</a> (%s)</td>", $l, ucfirst $lang, $l;
     printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_a, $wml{$lang}, $percent_a{$lang};
-    if ($l ne "en") {
-      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_t, $translated{$lang}, $percent_t{$lang};
-      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_o, $outdated{$lang}, $percent_o{$lang};
-      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_u, $untranslated{$lang}, $percent_u{$lang};
-    } else {
-      print HTML "<td bgcolor=\"#00FF00\" align=right>-</td><td bgcolor=\"#00FF00\" align=right>-</td><td bgcolor=\"#FF0000\" align=right>-</td>";
-    }
+    printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_t, $translated{$lang}, $percent_t{$lang};
+    printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_o, $outdated{$lang}, $percent_o{$lang};
+    printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_u, $untranslated{$lang}, $percent_u{$lang};
     print HTML "</tr>\n",
 }