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

[Michael Meeks]

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

New commits:
commit ef176103cee3a24981f6f6fa74e96e3fddae9227
Author: Michael Meeks <michael.meeks at suse.com>
Date:   Wed Jun 12 14:06:55 2013 +0100

    add 4.2 MAB tracker.

diff --git a/scripts/esc-bug-stats.pl b/scripts/esc-bug-stats.pl
index 772ee7b..9604ece 100755
--- a/scripts/esc-bug-stats.pl
+++ b/scripts/esc-bug-stats.pl
@@ -55,6 +55,7 @@ sub get_query($)
 }
 
 my %bug_to_ver = (
+    '4.2' => '65675',
     '4.1' => '60270',
     '4.0' => '54157',
     '3.6' => '44446'
commit da559c284479eef84c596444e8b5a43a95fea847
Author: Michael Meeks <michael.meeks at suse.com>
Date:   Tue Apr 30 14:28:52 2013 +0100

    more completeness / fidelity improvements for esc bug stat generation.

diff --git a/scripts/esc-bug-stats.pl b/scripts/esc-bug-stats.pl
index 9a7a152..772ee7b 100755
--- a/scripts/esc-bug-stats.pl
+++ b/scripts/esc-bug-stats.pl
@@ -60,7 +60,7 @@ my %bug_to_ver = (
     '3.6' => '44446'
 );
 
-print "Querying for open MABs:\n";
+print STDERR "Querying for open MABs:\n";
 for my $ver (sort keys %bug_to_ver) {
     my $bug = $bug_to_ver{$ver};
     my $base_url = "https://bugs.freedesktop.org/showdependencytree.cgi?id=" . $bug;
@@ -70,21 +70,45 @@ for my $ver (sort keys %bug_to_ver) {
     print "$ver: $open/$all - $percent%\n";
 }
 
-my ($all, $open);
+my ($reg_all, $reg_open);
 
-print "Querying for regressions:\n";
+print STDERR "Querying for regressions:\n";
 my $regression_query="https://bugs.freedesktop.org/buglist.cgi?columnlist=bug_severity%2Cpriority%2Ccomponent%2Cop_sys%2Cassigned_to%2Cbug_status%2Cresolution%2Cshort_desc&keywords=regression%2C%20&keywords_type=allwords&list_id=267671&product=LibreOffice&query_format=advanced&order=bug_id&limit=0";
 my $regression_open_query="https://bugs.freedesktop.org/buglist.cgi?keywords=regression%2C%20&keywords_type=allwords&list_id=267687&columnlist=bug_severity%2Cpriority%2Ccomponent%2Cop_sys%2Cassigned_to%2Cbug_status%2Cresolution%2Cshort_desc&resolution=---&query_based_on=Regressions&query_format=advanced&product=LibreOffice&known_name=Regressions&limit=0";
-$all = get_query($regression_query);
-$open = get_query($regression_open_query);
-print "$open/$all\n";
+$reg_all = get_query($regression_query);
+$reg_open = get_query($regression_open_query);
 
-print "Querying for bibisection:\n";
+print STDERR "Querying for bibisection:\n";
 my $bibisect_query = "https://bugs.freedesktop.org/buglist.cgi?n2=1&f1=status_whiteboard&list_id=267679&o1=substring&resolution=---&resolution=FIXED&resolution=INVALID&resolution=WONTFIX&resolution=DUPLICATE&resolution=WORKSFORME&resolution=MOVED&resolution=NOTABUG&resolution=NOTOURBUG&query_based_on=BibisectedAll&o2=substring&query_format=advanced&f2=status_whiteboard&v1=bibisected&v2=bibisected35older&product=LibreOffice&known_name=BibisectedAll&limit=0";
 my $bibisect_open_query = "https://bugs.freedesktop.org/buglist.cgi?n2=1&f1=status_whiteboard&list_id=267685&o1=substring&resolution=---&query_based_on=Bibisected&o2=substring&query_format=advanced&f2=status_whiteboard&v1=bibisected&v2=bibisected35older&product=LibreOffice&known_name=Bibisected&limit=0";
 
+my ($all, $open);
 $all = get_query($bibisect_query);
 $open = get_query($bibisect_open_query);
-print "$open/$all\n";
+print "\n";
+print "* Bibisected bugs open: whiteboard 'bibsected'\n";
+print "\t+ $open (of $all) older ?\n";
+print "\t\t+ http://bit.ly/VQfF3Q\n";
+print "\n";
+
+print "* all bugs tagged with 'regression'\n";
+print "\t+ $reg_open(+?) bugs open of $reg_all(+?) total\n";
+print "\n";
+
+my %component_count;
 
+# custom pieces
+$component_count{'Migration'} = get_deps("https://bugs.freedesktop.org/showdependencytree.cgi?id=43489&hide_resolved=1");
+$component_count{'Crashes'} = get_query("https://bugs.freedesktop.org/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://bugs.freedesktop.org/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 = ( 'Writer', 'Spreadsheet', 'Libreoffice', 'Presentation', 'Database', 'Drawing', 'BASIC' );
+for my $component (@reg_toquery) {
+    $component_count{$component} = get_query("https://bugs.freedesktop.org/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");
+}
+
+print "\t* ~Component   count net *\n";
+for my $component (sort { $component_count{$b} <=> $component_count{$a} } keys %component_count) {
+    printf "\t  %12s - %2d (+?)\n", $component, $component_count{$component};
+}