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

[Robinson Tryon]

 scripts/esc-bug-stats.pl |   37 ++++++++++++++++++-------------------
 1 file changed, 18 insertions(+), 19 deletions(-)

New commits:
commit 2f859f9921c1befbbf12dd1b472663d13c9ae084
Author: Robinson Tryon <qubit at runcibility.com>
Date:   Thu Sep 17 08:58:16 2015 -0500

    esc-bug-stats: Update MAB queries to use Priority:highest
    
    We've replaced MAB trackers with Priority:highest, so we need to
    update our stats queries to use the new mechanisms. The distribution
    of bugs might shift by release series, but the overall numbers should
    remain the same.

diff --git a/scripts/esc-bug-stats.pl b/scripts/esc-bug-stats.pl
index 4c0241f..b926cb6 100755
--- a/scripts/esc-bug-stats.pl
+++ b/scripts/esc-bug-stats.pl
@@ -46,31 +46,30 @@ sub print_component_counts($$$)
     printf STDERR "\n";
 }
 
-my %bug_to_ver = (
-    '5.0' => '86696',
-    '4.4' => '79641',
-    '4.3' => '75025',
-    '4.2' => '65675',
-    '4.1' => '60270',
-    '4.0' => '54157',
-    '3.6' => '44446',
-);
-
 my %ver_open;
 my %ver_total;
 
 build_overall_bugstats();
 
-print STDERR "Querying for open MABs:\n";
-for my $ver (reverse sort keys %bug_to_ver) {
-    my $bug = $bug_to_ver{$ver};
-    my $base_url = "https://$Bugzilla::bugserver/showdependencytree.cgi?id=" . $bug;
-    my $all = Bugzilla::get_deps($base_url);
-    my $open = Bugzilla::get_deps($base_url . "&hide_resolved=1");
+my @rseries = ('5.0', '4.5',
+               '4.4', '4.3', '4.2', '4.1', '4.0',
+               '3.6', '3.5', '3.4', '3.3',
+               'Inherited from OOo',
+               'PreBibisect',
+               'unspecified',
+);
+
+print STDERR "Querying for open, highest-Priority bugs (aka \"MABs\"):\n";
+for my $rs (@rseries) {
+    my $highest = "https://$Bugzilla::bugserver/buglist.cgi?f1=version&o1=regexp&priority=highest&product=LibreOffice&v1=^" . $rs . ".*";
+
+    my $all = Bugzilla::get_query($highest);
+    my $open = Bugzilla::get_query($highest . "&resolution=---");
+
     my $percent = sprintf("%2d", (($open * 100.0) / $all));
-    print STDERR "$ver: $open/$all - $percent%\n";
-    $ver_open{$ver} = $open;
-    $ver_total{$ver} = $all;
+    print STDERR "$rs: $open/$all - $percent%\n";
+    $ver_open{$rs} = $open;
+    $ver_total{$rs} = $all;
 }
 
 my ($reg_all, $reg_open, $reg_high);