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

[Michael Stahl]

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

New commits:
commit cb66ccec290602a1bdd7e29444b98b6276fbf92c
Author: Michael Stahl <mstahl at redhat.com>
Date:   Fri Apr 25 18:29:06 2014 +0200

    esc-bug-stats: add all components containing LO code
    
    These comprise ~30% of open regression bugs.
    
    Change-Id: I11818a51edf17c923e28edd1a144ab78abd69be4
    Reviewed-on: https://gerrit.libreoffice.org/9165
    Reviewed-by: Michael Meeks <michael.meeks at collabora.com>
    Tested-by: Michael Meeks <michael.meeks at collabora.com>

diff --git a/scripts/esc-bug-stats.pl b/scripts/esc-bug-stats.pl
index 487bf1b..2be4240 100755
--- a/scripts/esc-bug-stats.pl
+++ b/scripts/esc-bug-stats.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+use URI::Escape qw(uri_escape);
+
 # Please take the time to check that the script still runs
 # before changing this to something else.
 my $bugserver = "bugs.freedesktop.org";
@@ -117,7 +119,10 @@ sub get_query($)
 	if ($line =~ m/<span class="bz_result_count">(\d+) bugs found./) {
 	    $bug_count = $1;
 	    last;
-	}
+    } else { if ($line =~ m/One bug found./) {
+	    $bug_count = 1;
+	    last;
+	} }
     }
     return $bug_count;
 }
@@ -253,9 +258,10 @@ $component_count{'Migration'} = get_deps("https://$bugserver/showdependencytree.
 $component_count{'Crashes'} = get_query("https://$bugserver/buglist.cgi?keywords=regression&keywords_type=allwords&list_id=296015&short_desc=crash&query_based_on=CrashRegressions&query_format=advanced&bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&bug_status=NEEDINFO&short_desc_type=allwordssubstr&product=LibreOffice&known_name=CrashRegressions");
 $component_count{'Borders'} = get_query("https://$bugserver/buglist.cgi?keywords=regression&keywords_type=allwords&list_id=296016&short_desc=border&query_based_on=BorderRegressions&query_format=advanced&bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&bug_status=NEEDINFO&short_desc_type=allwordssubstr&product=LibreOffice&known_name=BorderRegressions");
 
-my @reg_toquery = ( 'Spreadsheet', 'Presentation', 'Database', 'Drawing', 'Libreoffice', 'Writer', 'BASIC' );
+my @reg_toquery = ( 'Spreadsheet', 'Presentation', 'Database', 'Drawing', 'Libreoffice', 'Writer', 'BASIC', 'Chart', 'Extensions', 'Formula Editor', 'Impress Remote', 'Installation', 'Linguistic', 'Printing and PDF export', 'UI', 'filters and storage', 'framework', 'graphics stack', 'sdk' );
 for my $component (@reg_toquery) {
-    $component_count{$component} = get_query("https://$bugserver/buglist.cgi?keywords=regression&keywords_type=allwords&list_id=296025&query_format=advanced&bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&bug_status=NEEDINFO&bug_status=PLEASETEST&component=$component&product=LibreOffice");
+    $component_uri = uri_escape($component);
+    $component_count{$component} = get_query("https://$bugserver/buglist.cgi?keywords=regression&keywords_type=allwords&list_id=296025&query_format=advanced&bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&bug_status=NEEDINFO&bug_status=PLEASETEST&component=$component_uri&product=LibreOffice");
 }
 
 print STDERR "\t* ~Component   count net *\n";
@@ -437,7 +443,10 @@ EOF
 
 my @output_order = ( 'Spreadsheet', 'Presentation', 'Database', 'Drawing',
 		     'Libreoffice', 'Borders', 'Crashes', 'BASIC', 'Writer/RTF',
-		     'Writer', 'Migration' );
+		     'Writer', 'Migration',
+             'Chart', 'Extensions', 'Formula Editor', 'Impress Remote',
+             'Installation', 'Linguistic', 'Printing and PDF export', 'UI',
+             'filters and storage', 'framework', 'graphics stack', 'sdk' );
 
 for my $foo (@output_order) {
     print << "EOF"