From 2997e070d001c2448baad643e1d00560bd7a82f2 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Wed, 13 Feb 2019 14:52:14 -0500 Subject: [PATCH] list open qaproject bugs Signed-off-by: Jason Etheridge --- qa/test_output_webifier.pl | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/qa/test_output_webifier.pl b/qa/test_output_webifier.pl index 9891fd3ea..1b67bf5a8 100755 --- a/qa/test_output_webifier.pl +++ b/qa/test_output_webifier.pl @@ -26,6 +26,16 @@ print MAIN_PAGE qq^[installer_installer.sh output]\n^; print MAIN_PAGE qq^[Previous Runs]\n^; print MAIN_PAGE qq^[Git]\n^; print MAIN_PAGE qq^[First Failure]\n^; + +print MAIN_PAGE "

Open QA Bugs

\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 "

" . $bugs->item($i)->innerHTML . "

\n"; +} + print MAIN_PAGE "

Test Output Summary

\n"; print MAIN_PAGE '

HTML generated on ' . `date` . "

\n"; print MAIN_PAGE "

XXxxXX

\n"; @@ -186,8 +196,8 @@ sub html_header { $title - - + + ^; -- 2.11.0