From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Wed, 21 Jun 2017 12:21:54 +0000 (+0100)
Subject: sg-report-flight: Make logfile list into table, with more info
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=924e4d22a4e76b22dadaffb93121de480b914c82;p=people%2Fliuw%2Fosstest.git

sg-report-flight: Make logfile list into table, with more info

Also print the mtime and the size.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---
v2: New patch.
---

diff --git a/sg-report-flight b/sg-report-flight
index b7cd03a..f7150a0 100755
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -1026,7 +1026,13 @@ END
 <p>
 <h2>Logfiles etc.</h2>
 For main test script logfiles, see entries in steps table.
-<ul>
+<p>
+<table>
+<tr>
+<th>modified/fetched</th>
+<th align="right">size</th>
+<th align="left">filename</th>
+</tr>
 END
     opendir LOGS, "$htmldir/$job" or die "$htmldir/$job $!";
     my @dents= sort readdir LOGS;
@@ -1035,14 +1041,23 @@ END
         next if $dent eq "$htmlleaf.new" or $dent eq $htmlleaf
             or $dent eq '..' or $dent eq '.' or $issteplog{$dent};
         stat("$htmldir/$job/$dent") or die "$dent $!";
-        print H "<li><a href=\"".encode_entities(uri_escape($dent))."\">".
+	printf H "<tr><td>%s</td>", show_abs_time((stat _)[9]);
+	if (-f _) {
+	    my $size = (stat _)[7];
+	    printf H "<td align=\"right\">&nbsp;%s</td>", $size;
+	} else {
+	    print H "<td align=\"right\">dir</td>";
+	}
+	print H "<td>";
+        print H "<a href=\"".encode_entities(uri_escape($dent))."\">".
             encode_entities($dent).(-d _ ? "/" : "")."</a>\n";
         if ($dent eq 'build') {
             print H " (outputs from build)";
         }
+	print H "</td></tr>\n";
     }
     print H <<END;
-</ul>
+</table>
 <h2>Test control variables</h2>
 <table rules=all><tr><th>Name</th><th>Value</th><th>Source</th></tr>
 END