r8936 - /scripts/qa/qareport.cgi

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Wed Nov 7 05:38:18 UTC 2007


Author: dmn
Date: Wed Nov  7 05:38:18 2007
New Revision: 8936

URL: http://svn.debian.org/wsvn/?sc=1&rev=8936
Log:
add "$Date$" to the list of modification stamps. When the script is changed, the output most probably changes too

Modified:
    scripts/qa/qareport.cgi   (contents, props changed)

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=8936&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Wed Nov  7 05:38:18 2007
@@ -19,6 +19,7 @@
 use CGI::Carp qw(fatalsToBrowser);
 use POSIX qw(locale_h);
 use Template ();
+use Date::Parse ();
 
 DebianQA::Config::read_config(
     $ENV{DEBIAN_QA_CONF}
@@ -28,8 +29,14 @@
 my $cgi = new CGI;
 
 my $data = read_cache(consolidated => "");
-my @modified = sort(map({ find_stamp($data, $_) }
-    (qw(svn watch archive bts pkglist))));
+my @modified = sort(
+    map(
+        {
+            find_stamp($data, $_)
+        } qw(svn watch archive bts pkglist),
+    ),
+    Date::Parse::str2time('$Date$'),
+);
 my @pkglist = get_pkglist();
 
 my( @for_upload, @for_upgrade, @waiting, @wip, @with_bugs );

Propchange: scripts/qa/qareport.cgi
------------------------------------------------------------------------------
--- svn:keywords (original)
+++ svn:keywords Wed Nov  7 05:38:18 2007
@@ -1,1 +1,2 @@
 Id
+Date




More information about the Pkg-perl-cvs-commits mailing list