r26548: Remove remaining variables from state hash.

(This used to be commit 84f5b3e257241f699f3e51d8f282fa00cfd1000a)

1 files changed, 2 insertions, 21 deletions

diff --git a/source4/selftest/output/html.pm b/source4/selftest/output/html.pm
index 7f3cfac8cd..13d2f10938 100644
--- a/source4/selftest/output/html.pm
+++ b/source4/selftest/output/html.pm
@@ -84,6 +84,7 @@ sub start_testsuite($$$)
 		failure => 0
 	};
 
+	$state->{NAME} = $name;
 	$state->{HTMLFILE} = "$name.html";
 	$state->{HTMLFILE} =~ s/[:\t\n \/]/_/g;
 
@@ -91,26 +92,6 @@ sub start_testsuite($$$)
 
 	$self->print_html_header("Test Results for $name", *TEST);
 
-	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 "</td></tr>\n";
-		}
-		print TEST "  </table>\n";
-	}
-
 	print TEST "<h2>Tests</h2>\n";
 
 	print TEST "  <table>\n";
@@ -140,7 +121,6 @@ sub end_testsuite($$$$$)
 
 	print TEST "</table>\n";
 
-	print TEST "<div class=\"command\">$state->{CMD}</div>\n";
 	print TEST "<div class=\"duration\">Duration: " . (time() - $state->{START_TIME}) . "s</div>\n";
 
 	$self->print_html_footer(*TEST);
@@ -200,6 +180,7 @@ sub start_test($$$)
 	my ($self, $state, $parents, $testname) = @_;
 
 	if ($#$parents == -1) {
+		$state->{START_TIME} = time();
 		$self->start_testsuite($testname, $state);
 		return;
 	}