r8939 - /scripts/qa/qareport.cgi

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Nov  7 05:54:56 2007
New Revision: 8939

URL: http://svn.debian.org/wsvn/?sc=1&rev=8939
Log:
Supply cleaned-up date string to str2time

Modified:
    scripts/qa/qareport.cgi

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=8939&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Wed Nov  7 05:54:56 2007
@@ -29,13 +29,15 @@
 my $cgi = new CGI;
 
 my $data = read_cache(consolidated => "");
+my $script_date = '$Date$';
+$script_date = join( ' ', split(/ /, $script_date)[1..3]);
 my @modified = sort(
     map(
         {
             find_stamp($data, $_)
         } qw(svn watch archive bts pkglist),
     ),
-    Date::Parse::str2time('$Date$'),
+    Date::Parse::str2time($script_date),
 );
 my @pkglist = get_pkglist();