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

[Michael Meeks]

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

New commits:
commit a26bb7cc3f76968290c378b8406c9692cc5a63c3
Author: Michael Meeks <michael.meeks at collabora.com>
Date:   Tue Nov 5 09:18:29 2013 +0000

    misc. fixes.

diff --git a/scripts/esc-bug-stats.pl b/scripts/esc-bug-stats.pl
index 4984f0c..c8210b0 100755
--- a/scripts/esc-bug-stats.pl
+++ b/scripts/esc-bug-stats.pl
@@ -97,20 +97,16 @@ sub extract_number($)
     return $line;
 }
 
-sub crunch_bugstat_lines()
+sub crunch_bugstat_lines(@)
 {
-    print STDERR "Querying overall / top bug stats\n";
-    my $url = 'https://bugs.freedesktop.org/page.cgi?id=weekly-bug-summary.html';
     my @lines = @_;
 
     my $region = 'header';
     my $closer_name;
     my %closed_stats;
 
-    print STDERR "  + $url\n";
-
     while ((my $line = shift @lines) && $region ne 'end') {
-	print "$region -> $line";
+#	print "$region -> $line";
 	if ($region eq 'header' && $line =~ /<h2>Top .* modules<\/h2>/) {
 	    $region = 'top-modules';
 
@@ -176,6 +172,8 @@ my %bug_to_ver = (
 my %ver_open;
 my %ver_total;
 
+build_overall_bugstats();
+
 print STDERR "Querying for open MABs:\n";
 for my $ver (sort keys %bug_to_ver) {
     my $bug = $bug_to_ver{$ver};
@@ -230,8 +228,6 @@ for my $component (sort { $component_count{$b} <=> $component_count{$a} } keys %
     printf STDERR "\t  %12s - %2d (+?)\n", $component, $component_count{$component};
 }
 
-build_overall_bugstats();
-
 print << "EOF"
 <?xml version="1.0" encoding="UTF-8"?>
 <office:document xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"