[Libreoffice-commits] dev-tools.git: scripts/esc-bug-stats.pl

[Michael Meeks]

 scripts/esc-bug-stats.pl |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

New commits:
commit 7b44464d459c826fbb93beab1573111a4c489209
Author: Michael Meeks <michael.meeks at suse.com>
Date:   Tue Aug 20 11:25:50 2013 +0100

    Use the current date.

diff --git a/scripts/esc-bug-stats.pl b/scripts/esc-bug-stats.pl
index ea8c65d..c17d960 100755
--- a/scripts/esc-bug-stats.pl
+++ b/scripts/esc-bug-stats.pl
@@ -3,6 +3,12 @@
 # use me for testing XML pretty printing etc.
 my $fast_debug = 0;
 
+my @time = localtime;
+$time[5] += 1900;
+$time[4]++;
+
+my $date_value = sprintf "%04d-%02d-%02d", @time[5,4,3];
+
 sub get_url($)
 {
     my $url = shift;
@@ -127,8 +133,6 @@ for my $component (sort { $component_count{$b} <=> $component_count{$a} } keys %
     printf STDERR "\t  %12s - %2d (+?)\n", $component, $component_count{$component};
 }
 
-my $date_value = "2001-01-01";
-
 print << "EOF"
 <?xml version="1.0" encoding="UTF-8"?>
 <office:document xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"