projects / working / random.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3fda3bb)
list open qaproject bugs
authorJason Etheridge <jason@equinoxinitiative.org>
Wed, 13 Feb 2019 19:52:14 +0000 (14:52 -0500)
committerJason Etheridge <jason@equinoxinitiative.org>
Wed, 13 Feb 2019 19:52:14 +0000 (14:52 -0500)
Signed-off-by: Jason Etheridge <jason@equinoxinitiative.org>
qa/test_output_webifier.pl patch | blob | history

diff --git a/qa/test_output_webifier.pl b/qa/test_output_webifier.pl
index 9891fd3..1b67bf5 100755 (executable)
--- a/qa/test_output_webifier.pl
+++ b/qa/test_output_webifier.pl
@@ -26,6 +26,16 @@ print MAIN_PAGE qq^[<a href="$ARGV[0]">installer_installer.sh output</a>]\n^;
 print MAIN_PAGE qq^[<a href="archive/">Previous Runs</a>]\n^;
 print MAIN_PAGE qq^[<a href="http://git.evergreen-ils.org/?p=working/random.git;a=shortlog;h=refs/heads/collab/phasefx/eg_live_tests">Git</a>]\n^;
 print MAIN_PAGE qq^[<a href="#first_failure">First Failure</a>]\n^;
+
+print MAIN_PAGE "<h1>Open QA Bugs</h1>\n";
+use LWP::Simple; use HTML::DOM;
+my $content = get "https://bugs.launchpad.net/evergreen/+bugs?field.searchtext=&orderby=-importance&field.status%3Alist=NEW&field.status%3Alist=CONFIRMED&field.status%3Alist=TRIAGED&field.status%3Alist=INPROGRESS&field.status%3Alist=INCOMPLETE_WITH_RESPONSE&field.status%3Alist=INCOMPLETE_WITHOUT_RESPONSE&assignee_option=any&field.assignee=&field.bug_reporter=&field.bug_commenter=&field.subscriber=&field.structural_subscriber=&field.tag=qaproject&field.tags_combinator=ANY&field.has_cve.used=&field.omit_dupes.used=&field.omit_dupes=on&field.affects_me.used=&field.has_patch.used=&field.has_branches.used=&field.has_branches=on&field.has_no_branches.used=&field.has_no_branches=on&field.has_blueprints.used=&field.has_blueprints=on&field.has_no_blueprints.used=&field.has_no_blueprints=on&search=Search";
+my $dom_tree = new HTML::DOM; $dom_tree->write($content); $dom_tree->close;
+my $bugs = $dom_tree->getElementsByClassName('buginfo');
+for (my $i = 0; $i < $bugs->length; $i++) {
+    print MAIN_PAGE "<div>" . $bugs->item($i)->innerHTML . "</div>\n";
+}
+
 print MAIN_PAGE "<h1>Test Output Summary</h1>\n";
 print MAIN_PAGE '<p>HTML generated on ' . `date` . "</p>\n";
 print MAIN_PAGE "<p>XXxxXX</p>\n";
@@ -186,8 +196,8 @@ sub html_header {
     <head>
         <meta charset="utf-8">
         <title>$title</title>
-        <link rel="stylesheet" type="text/css" href="test_output.css">
-        <link rel="alternate" title="Test RSS" href="http://testing.evergreen-ils.org/~live/test_rss.xml" type="application/rss+xml">
+        <link rel="stylesheet" type="text/css" href="test_output.css" />
+        <link rel="alternate" title="Test RSS" href="http://testing.evergreen-ils.org/~live/test_rss.xml" type="application/rss+xml" />
     </head>
     <body>
     ^;
Random Contribs