scripts/esc-bug-stats.pl | 249 ++++++++++++++++++++++++++++++++++++++++++++---
1 file changed, 237 insertions(+), 12 deletions(-)
New commits:
commit 9ccb13333417e77bc8af353e4db281dfd2d69ea3
Author: Michael Meeks <michael.me...@suse.com>
Date: Sat Aug 10 10:25:39 2013 +0100
Improve flat ods.
diff --git a/scripts/esc-bug-stats.pl b/scripts/esc-bug-stats.pl
index 307964c..ea8c65d 100755
--- a/scripts/esc-bug-stats.pl
+++ b/scripts/esc-bug-stats.pl
@@ -117,7 +117,7 @@ $component_count{'Migration'} =
get_deps("https://bugs.freedesktop.org/showdepen
$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 = ( 'Spreadsheet', 'Presentation', 'Database', 'Drawing',
'LibreOffice', 'Writer', 'BASIC' );
+my @reg_toquery = ( 'Spreadsheet', 'Presentation', 'Database', 'Drawing',
'Libreoffice', 'Writer', '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";);
}
@@ -290,7 +290,7 @@ EOF
;
my @output_order = ( 'Spreadsheet', 'Presentation', 'Database', 'Drawing',
- 'LibreOffice', 'Borders', 'Crashes', 'BASIC', 'Writer/RTF',
+ 'Libreoffice', 'Borders', 'Crashes', 'BASIC', 'Writer/RTF',
'Writer', 'Migration' );
for my $foo (@output_order) {
commit 703a95af4f604e91bb70d7c20f1abdc56ddea169
Author: Michael Meeks <michael.me...@suse.com>
Date: Tue Aug 6 13:44:15 2013 +0200
Print out flat-ods to accelerate bug-metrics build.
diff --git a/scripts/esc-bug-stats.pl b/scripts/esc-bug-stats.pl
index 9604ece..307964c 100755
--- a/scripts/esc-bug-stats.pl
+++ b/scripts/esc-bug-stats.pl
@@ -1,5 +1,8 @@
#!/usr/bin/perl -w
+# use me for testing XML pretty printing etc.
+my $fast_debug = 0;
+
sub get_url($)
{
my $url = shift;
@@ -16,6 +19,9 @@ sub get_url($)
sub get_deps($)
{
my ($url) = @_;
+
+ return 42 if ($fast_debug);
+
my @bugs = get_url($url);
my $bug_count = -1;
@@ -42,6 +48,9 @@ sub get_deps($)
sub get_query($)
{
my ($url) = @_;
+
+ return 6 if ($fast_debug);
+
my @bugs = get_url($url);
my $bug_count = -1;
@@ -61,6 +70,9 @@ my %bug_to_ver = (
'3.6' => '44446'
);
+my %ver_open;
+my %ver_total;
+
print STDERR "Querying for open MABs:\n";
for my $ver (sort keys %bug_to_ver) {
my $bug = $bug_to_ver{$ver};
@@ -68,7 +80,9 @@ for my $ver (sort keys %bug_to_ver) {
my $all = get_deps($base_url);
my $open = get_deps($base_url . "&hide_resolved=1");
$percent = ($open * 100.0) / $all;
- print "$ver: $open/$all - $percent%\n";
+ print STDERR "$ver: $open/$all - $percent%\n";
+ $ver_open{$ver} = $open;
+ $ver_total{$ver} = $all;
}
my ($reg_all, $reg_open);
@@ -86,15 +100,15 @@ my $bibisect_open_query =
"https://bugs.freedesktop.org/buglist.cgi?n2=1&f1=stat
my ($all, $open);
$all = get_query($bibisect_query);
$open = get_query($bibisect_open_query);
-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 STDERR "\n";
+print STDERR "* Bibisected bugs open: whiteboard 'bibsected'\n";
+print STDERR "\t+ $open (of $all) older ?\n";
+print STDERR "\t\t+ http://bit.ly/VQfF3Q\n";;
+print STDERR "\n";
-print "* all bugs tagged with 'regression'\n";
-print "\t+ $reg_open(+?) bugs open of $reg_all(+?) total\n";
-print "\n";
+print STDERR "* all bugs tagged with 'regression'\n";
+print STDERR "\t+ $reg_open(+?) bugs open of $reg_all(+?) total\n";
+print STDERR "\n";
my %component_count;
@@ -103,13 +117,224 @@ $component_count{'Migration'} =
get_deps("https://bugs.freedesktop.org/showdepen
$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' );
+my @reg_toquery = ( 'Spreadsheet', 'Presentation', 'Database', 'Drawing',
'LibreOffice', 'Writer', '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";
+print STDERR "\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};
+ printf STDERR "\t %12s - %2d (+?)\n", $component,
$component_count{$component};
+}
+
+my $date_value = "2001-01-01";
+
+print << "EOF"
+<?xml version="1.0" encoding="UTF-8"?>
+<office:document
xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"
+ xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0"
+ xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0"
+ xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0"
+ xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0"
+
xmlns:calcext="urn:org:documentfoundation:names:experimental:calc:xmlns:calcext:1.0"
+
xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0"
+ xmlns:xlink="http://www.w3.org/1999/xlink";
+ xmlns:dc="http://purl.org/dc/elements/1.1/";
+ xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0"
+
xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0"
+
xmlns:presentation="urn:oasis:names:tc:opendocument:xmlns:presentation:1.0"
+
xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0"
+ xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0"
+ xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0"
+ xmlns:math="http://www.w3.org/1998/Math/MathML";
+ xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0"
+
xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0"
+
xmlns:config="urn:oasis:names:tc:opendocument:xmlns:config:1.0"
+ xmlns:ooo="http://openoffice.org/2004/office";
+ xmlns:ooow="http://openoffice.org/2004/writer";
+ xmlns:oooc="http://openoffice.org/2004/calc";
+ xmlns:dom="http://www.w3.org/2001/xml-events";
+ xmlns:xforms="http://www.w3.org/2002/xforms";
+ xmlns:xsd="http://www.w3.org/2001/XMLSchema";
+ xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";
+ xmlns:rpt="http://openoffice.org/2005/report";
+ xmlns:of="urn:oasis:names:tc:opendocument:xmlns:of:1.2"
+ xmlns:xhtml="http://www.w3.org/1999/xhtml";
+ xmlns:grddl="http://www.w3.org/2003/g/data-view#";
+ xmlns:tableooo="http://openoffice.org/2009/table";
+
xmlns:field="urn:openoffice:names:experimental:ooo-ms-interop:xmlns:field:1.0"
+
xmlns:formx="urn:openoffice:names:experimental:ooxml-odf-interop:xmlns:form:1.0"
+ xmlns:css3t="http://www.w3.org/TR/css3-text/";
+ office:version="1.2"
+
grddl:transformation="http://docs.oasis-open.org/office/1.2/xslt/odf2rdf.xsl";
+
office:mimetype="application/vnd.oasis.opendocument.spreadsheet">
+ <office:styles>
+ <style:style style:name="boldheader" style:family="table-cell"
style:parent-style-name="Default">
+ <style:text-properties fo:font-style="italic" fo:font-weight="bold"/>
+ </style:style>
+ <number:date-style style:name="isodatenum">
+ <number:year number:style="long"/>
+ <number:text>-</number:text>
+ <number:month number:style="long"/>
+ <number:text>-</number:text>
+ <number:day number:style="long"/>
+ </number:date-style>
+ <style:style style:name="isodate" style:family="table-cell"
style:parent-style-name="Default" style:data-style-name="isodatenum">
+ <style:text-properties style:text-position=""/>
+ </style:style>
+
+ </office:styles>
+ <office:body>
+ <office:spreadsheet>
+ <table:table table:name="Data">
+
+ <table:table-row>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Date</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Open 3.5</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Closed 3.5</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Open 3.6</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Closed 3.6</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Open 4.0</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Closed 4.0</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Open 4.1</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Closed 4.1</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Open 4.2</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Closed 4.2</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Total 3.5</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Total 3.6</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Total 4.0</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Total 4.1</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Total 4.2</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Total Open</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Total Closed</text:p>
+ </table:table-cell>
+ </table:table-row>
+
+ <table:table-row table:style-name="ro1">
+ <table:table-cell table:style-name="isodate" office:value-type="date"
office:date-value="$date_value" calcext:value-type="date">
+ <text:p>$date_value</text:p>
+ </table:table-cell>
+ <table:table-cell/>
+ <table:table-cell table:formula="of:=[.L2]-[.B2]"
office:value-type="float" calcext:value-type="float"/>
+ <table:table-cell office:value-type="float"
office:value="$ver_open{'3.6'}" calcext:value-type="float"/>
+ <table:table-cell table:formula="of:=[.M2]-[.D2]"
office:value-type="float" calcext:value-type="float"/>
+ <table:table-cell office:value-type="float"
office:value="$ver_open{'4.0'}" calcext:value-type="float"/>
+ <table:table-cell table:formula="of:=[.N2]-[.F2]"
office:value-type="float" calcext:value-type="float"/>
+ <table:table-cell office:value-type="float"
office:value="$ver_open{'4.1'}" calcext:value-type="float"/>
+ <table:table-cell table:formula="of:=[.O2]-[.H2]"
office:value-type="float" calcext:value-type="float"/>
+ <table:table-cell office:value-type="float"
office:value="$ver_open{'4.2'}" calcext:value-type="float"/>
+ <table:table-cell table:formula="of:=[.J2]-[.P2]"
office:value-type="float" calcext:value-type="float"/>
+ <table:table-cell office:value-type="float" office:value="221"
calcext:value-type="float"/>
+ <table:table-cell office:value-type="float"
office:value="$ver_total{'3.6'}" calcext:value-type="float"/>
+ <table:table-cell office:value-type="float"
office:value="$ver_total{'4.0'}" calcext:value-type="float"/>
+ <table:table-cell office:value-type="float"
office:value="$ver_total{'4.1'}" calcext:value-type="float"/>
+ <table:table-cell office:value-type="float"
office:value="$ver_total{'4.2'}" calcext:value-type="float"/>
+ <table:table-cell table:formula="of:=[.B2]+[.D2]+[.F2]+[.H2]"
office:value-type="float"/>
+ <table:table-cell table:formula="of:=[.C2]+[.E2]+[.G2]+[.I2]"
office:value-type="float"/>
+ </table:table-row>
+
+ <table:table-row/>
+ <table:table-row/>
+ <table:table-row>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Date</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Open</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Closed</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Total</text:p>
+ </table:table-cell>
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>Date</text:p>
+ </table:table-cell>
+EOF
+;
+
+my @output_order = ( 'Spreadsheet', 'Presentation', 'Database', 'Drawing',
+ 'LibreOffice', 'Borders', 'Crashes', 'BASIC', 'Writer/RTF',
+ 'Writer', 'Migration' );
+
+for my $foo (@output_order) {
+ print << "EOF"
+ <table:table-cell table:style-name="boldheader"
office:value-type="string" calcext:value-type="string">
+ <text:p>$foo</text:p>
+ </table:table-cell>
+EOF
+;
+}
+
+print << "EOF"
+ </table:table-row>
+ <table:table-row>
+EOF
+;
+
+print << "EOF"
+ <table:table-cell table:style-name="isodate" office:value-type="date"
office:date-value="$date_value" calcext:value-type="date">
+ <text:p>$date_value</text:p>
+ </table:table-cell>
+ <table:table-cell office:value-type="float" office:value="$reg_open"
calcext:value-type="float"/>
+ <table:table-cell table:formula="of:=[.D6]-[.B6]"
office:value-type="float"/>
+ <table:table-cell office:value-type="float" office:value="$reg_all"
calcext:value-type="float"/>
+ <table:table-cell table:style-name="isodate" table:formula="of:=[.A6]"
office:value-type="date" />
+EOF
+;
+
+for my $foo (@output_order) {
+ if (defined $component_count{$foo}) {
+ print << "EOF"
+ <table:table-cell office:value-type="float"
office:value="$component_count{$foo}" calcext:value-type="float"/>
+EOF
+;
+ } else {
+ print "<table:table-cell/>\n";
+ }
}
+print << "EOF"
+ </table:table-row>
+ </table:table>
+ </office:spreadsheet>
+ </office:body>
+</office:document>
+EOF
+;
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
