From 2e6f0016d12000d7b8d8f5094d66e65ef618045b Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Tue, 11 Sep 2007 23:53:25 +0000
Subject: r25110: Show environment variables in HTML output. (This used to be
 commit 62e770ace32f0e38863d4020773562e74117fc65)

---
 source4/selftest/output/html.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'source4/selftest/output')

diff --git a/source4/selftest/output/html.pm b/source4/selftest/output/html.pm
index 7f5d128983..52fe241156 100644
--- a/source4/selftest/output/html.pm
+++ b/source4/selftest/output/html.pm
@@ -91,6 +91,27 @@ sub start_testsuite($$)
 
 	$self->print_html_header("Test Results for $state->{NAME}",
 		                     *TEST);
+
+	print TEST "<h2>Environment settings</h2>\n";
+
+	print TEST "  <table>\n";
+	print TEST "    <tr><td><b>Variable name</b></td><td><b>Variable value</b></td></tr>\n";
+	foreach (keys %{$state->{ENVVARS}}) {
+		print TEST "    <tr><td>$_</td><td>";
+		my $val = $state->{ENVVARS}->{$_};
+		if ($val =~ /^\.\// and -r $val) { 
+			print TEST "<a href=\"../$val\">$val</a>"; 
+		} elsif (-r $val) {
+			print TEST "<a href=\"$val\">$val</a>"; 
+		} else { 
+			print TEST $val; 
+		}
+		print TEST "</td></tr>\n";
+	}
+	print TEST "  </table>\n";
+
+	print TEST "<h2>Tests</h2>\n";
+
 	print TEST "  <table>\n";
 }
 
-- 
cgit