X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=results2html;h=4bf398d35c49b9734d92578e3abdc4a6c71f37d2;hb=ce89fa1471dad1b99a8b8f6bff68c74bf27299b0;hp=abc520d3db5033cad7701e7725f29a09c7113adf;hpb=38fb5346628a7b16e9f2a3d066059539037498bf;p=pspp
diff --git a/results2html b/results2html
index abc520d3db..4bf398d35c 100755
--- a/results2html
+++ b/results2html
@@ -3,6 +3,7 @@
use strict;
use warnings;
+use File::Spec;
use HTML::Entities;
open (LOG, '<', "LOG");
@@ -36,16 +37,24 @@ my (@products);
my (@steps);
my ($new_page) = 0;
my ($result) = "failure";
+my @dirstack;
while ( {DIAGNOSTIC}\">";
print INDEX "{LN}\">";
print INDEX encode_entities ($c->{MESSAGE});
- print INDEX "\n";
next;
}
+ if (/Entering directory `(.*)'$/) {
+ push (@dirstack, $1);
+ } elsif (/Leaving directory `(.*)'$/) {
+ pop (@dirstack);
+ }
+
my $log_class;
if ($new_page) {
$new_page = 0;
@@ -74,6 +83,21 @@ while (
→ {HREF}), "\">"; print INDEX encode_entities ($c->{PRODUCT});