Author: jelmer Date: 2007-09-13 12:22:08 +0000 (Thu, 13 Sep 2007) New Revision: 25124
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=25124 Log: Include link to summary page, hide environment variables for 'none' environment. Modified: branches/SAMBA_4_0/ branches/SAMBA_4_0/source/selftest/output/html.pm Changeset: Property changes on: branches/SAMBA_4_0 ___________________________________________________________________ Name: bzr:revision-info ...skipped... Name: bzr:revision-id:v3-trunk0 ...skipped... Modified: branches/SAMBA_4_0/source/selftest/output/html.pm =================================================================== --- branches/SAMBA_4_0/source/selftest/output/html.pm 2007-09-13 10:53:35 UTC (rev 25123) +++ branches/SAMBA_4_0/source/selftest/output/html.pm 2007-09-13 12:22:08 UTC (rev 25124) @@ -92,23 +92,25 @@ $self->print_html_header("Test Results for $state->{NAME}", *TEST); - print TEST "<h2>Environment settings</h2>\n"; + if ($state->{ENVNAME} ne "none") { + 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 " <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 "</td></tr>\n"; + print TEST " </table>\n"; } - print TEST " </table>\n"; print TEST "<h2>Tests</h2>\n"; @@ -285,6 +287,7 @@ print INDEX "</tr>\n"; print INDEX "</table>\n"; + print INDEX "<a href=\"summary.html\">Summary</a>\n"; print INDEX "</center>\n"; $self->print_html_footer(*INDEX); close(INDEX);