or $dent eq '..' or $dent eq '.' or $issteplog{$dent};
stat("$htmldir/$job/$dent") or die "$dent $!";
printf H "<tr><td>%s</td>", show_abs_time((stat _)[9]);
+ my $nolink = 0;
if (-f _) {
my $size = (stat _)[7];
printf H "<td align=\"right\"> %s</td>", $size;
+ $nolink = !$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";
+ print H "<a href=\"".encode_entities(uri_escape($dent))."\">"
+ unless $nolink;
+ print H encode_entities($dent).(-d _ ? "/" : "");
+ print H "</a>" unless $nolink;
if ($dent eq 'build') {
print H " (outputs from build)";
}