[Debian-l10n-commits] r1796 - in /dl10n/trunk: Changelog dl10n-pts

Wed Jul 22 08:56:24 UTC 2009

Author: nekral-guest
Date: Wed Jul 22 08:56:23 2009
New Revision: 1796

URL: http://svn.debian.org/wsvn/?sc=1&rev=1796
Log:
	* dl10n-pts: Generate more fancy pages.

Modified:
    dl10n/trunk/Changelog
    dl10n/trunk/dl10n-pts

Modified: dl10n/trunk/Changelog
URL: http://svn.debian.org/wsvn/dl10n/trunk/Changelog?rev=1796&op=diff
==============================================================================

--- dl10n/trunk/Changelog (original)
+++ dl10n/trunk/Changelog Wed Jul 22 08:56:23 2009
@@ -1,3 +1,7 @@
+2009-07-22  Nicolas FranÃ§ois  <nicolas.francois at centraliens.net>
+
+	* dl10n-pts: Generate more fancy pages.
+
 2009-07-22  Nicolas FranÃ§ois  <nicolas.francois at centraliens.net>
 
 	* lib/Debian/L10n/Utils.pm: Do not recode with a broken encoding.

Modified: dl10n/trunk/dl10n-pts
URL: http://svn.debian.org/wsvn/dl10n/trunk/dl10n-pts?rev=1796&op=diff
==============================================================================
--- dl10n/trunk/dl10n-pts (original)
+++ dl10n/trunk/dl10n-pts Wed Jul 22 08:56:23 2009
@@ -179,7 +179,14 @@
 }
 open PKGLIST, ">$GENDIR/pkglist"
     or die "Cannot open $GENDIR/pkglist: $!";
-print PKGLIST "# <package> <version> (<comma sperated scores>) <link>\n";
+print PKGLIST <<EOF;
+# <package> <version> (<comma sperated scores>) <link>
+# The scores are:
+#   - debian translations: po-debconf and po4a translation
+#   - non debian translations: other PO files.
+# Scores are currently the percentage of translated strings in the existing PO
+# files.
+EOF
 foreach my $pkg (keys %global_score) {
     my $pkgstatus = pkg_letter($pkg)."/$pkg.html";
     next unless (   (    (defined $global_score{$pkg}{debian})
@@ -201,11 +208,20 @@
     }
     open PKGSTATUS,">$pkgstatus"
         or die "Cannot open $pkgstatus: $!";
-    print PKGSTATUS
-    "<html><body><table><tr><th>Language</th><th>podebconf</th><th>po</th><th>po4a</th></tr>\n";
+    print PKGSTATUS <<EOF;
+<html>
+  <head>
+    <title>Translation status of package $pkg</title>
+  </head>
+  <body>
+    <h1>Translation status of package $pkg</h1>
+    <table>
+      <tr><th>Language</th><th>podebconf</th><th>po</th><th>po4a</th></tr>
+EOF
     foreach my $lang (sort keys %{$score{$pkg}}) {
         if ($lang ne "_" and $lang ne "__") {
-            print PKGSTATUS "<tr><td>$lang</td><td>".
+            print PKGSTATUS "      ".
+                            "<tr><td>$lang</td><td>".
                             graph_stats($score{$pkg}{$lang}{"podebconf"}).
                             "</td><td>".
                             graph_stats($score{$pkg}{$lang}{"po"}).
@@ -214,7 +230,11 @@
                             "</td></tr>\n";
         }
     }
-    print PKGSTATUS "</table></body></html>";
+    print PKGSTATUS <<EOF;
+    </table>
+  </body>
+</html>
+EOF
     close PKGSTATUS
         or die "Cannot close $pkgstatus: $!";
 }


