scripts/esc-bug-stats.pl | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-)
New commits: commit a26bb7cc3f76968290c378b8406c9692cc5a63c3 Author: Michael Meeks <[email protected]> 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" _______________________________________________ Libreoffice-commits mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
