diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2007-09-11 23:53:25 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 15:06:41 -0500 |
| commit | 2e6f0016d12000d7b8d8f5094d66e65ef618045b (patch) | |
| tree | fb5325d378f3edbe3bf6b5a665a3f1783bc9671e /source4/selftest/output/html.pm | |
| parent | 97f25fe522d71ad99a7a664e35422911de0af4e5 (diff) | |
| download | samba-2e6f0016d12000d7b8d8f5094d66e65ef618045b.tar.gz samba-2e6f0016d12000d7b8d8f5094d66e65ef618045b.tar.bz2 samba-2e6f0016d12000d7b8d8f5094d66e65ef618045b.zip | |
r25110: Show environment variables in HTML output.
(This used to be commit 62e770ace32f0e38863d4020773562e74117fc65)
Diffstat (limited to 'source4/selftest/output/html.pm')
| -rw-r--r-- | source4/selftest/output/html.pm | 21 |
1 files changed, 21 insertions, 0 deletions
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"; } |