svn commit: samba r25124 - in branches/SAMBA_4_0: .
source/selftest/output
jelmer at samba.org
jelmer at samba.org
Thu Sep 13 12:22:12 GMT 2007
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);
More information about the samba-cvs
mailing list