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

[nekral-guest at users.alioth.debian.org]

Author: nekral-guest
Date: Thu Jul 23 09:28:58 2009
New Revision: 1807

URL: http://svn.debian.org/wsvn/?sc=1&rev=1807
Log:
	* dl10n-pts: Add the generation time.
	* dl10n-pts: Sort the packages.

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

Modified: dl10n/trunk/Changelog
URL: http://svn.debian.org/wsvn/dl10n/trunk/Changelog?rev=1807&op=diff
==============================================================================
--- dl10n/trunk/Changelog (original)
+++ dl10n/trunk/Changelog Thu Jul 23 09:28:58 2009
@@ -1,3 +1,8 @@
+2009-07-23  Nicolas François  <nicolas.francois at centraliens.net>
+
+	* dl10n-pts: Add the generation time.
+	* dl10n-pts: Sort the packages.
+
 2009-07-23  Nicolas François  <nicolas.francois at centraliens.net>
 
 	* dl10n-pts: Differentiate between no translations (-) and no

Modified: dl10n/trunk/dl10n-pts
URL: http://svn.debian.org/wsvn/dl10n/trunk/dl10n-pts?rev=1807&op=diff
==============================================================================
--- dl10n/trunk/dl10n-pts (original)
+++ dl10n/trunk/dl10n-pts Thu Jul 23 09:28:58 2009
@@ -15,6 +15,8 @@
 
 use strict;
 use Getopt::Long; #to parse the args
+use Time::gmtime;
+use POSIX qw(strftime);
 
 my $progname= $0; $progname= $& if $progname =~ m,[^/]+$,;
 
@@ -194,8 +196,11 @@
 # Scores are currently the percentage of translated strings in the existing PO
 # files.
 # <todo> indicates if some work is needed on the translations
+#
 EOF
-foreach my $pkg (keys %global_score) {
+my $gmt = gmtime;
+print PKGLIST "# Generated on: ".(POSIX::strftime "%Y-%m-%d %H:%M:%S", @$gmt)." UTC\n";
+foreach my $pkg (sort keys %global_score) {
     my $pkgstatus = pkg_letter($pkg)."/$pkg.html";
     next unless (   (    (defined $global_score{$pkg}{debian})
                      and ($global_score{$pkg}{debian} ne "0t0f0u"))