--- ossp_filelist.wml 2002/02/13 16:34:56 1.1
+++ ossp_filelist.wml 2002/02/14 16:48:12 1.2
@@ -11,9 +11,11 @@
<preserve directory>
<preserve files>
<set-var %attributes>
-<pre>
- Bytes Timestamp Filename
-________ ____________________ ____________________________
+<table width=100% cellspacing=1 cellpadding=0 border=0>
+<tr>
+ <td>File</td>
+ <td align=right>Bytes</td><td align=right>Timestamp</td>
+</tr>
<:
my $url = "<get-var url>";
$url =~ s|/+$||sg;
@@ -24,6 +26,11 @@
my @F = reverse sort { (stat($a))[9] <=> (stat($b))[9]; } (glob($files));
chdir($odir);
my $O = '';
+@COL = (
+ '#e5e5e0',
+ 'NONE',
+);
+$ncol = 1;
foreach my $f (@F) {
my @S = stat($f);
$f = "$f/" if (-d $f);
@@ -31,13 +38,18 @@
my @moy = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
$f = "<a href=\"".$url."/".$f."\">$f</a>";
- my $e = sprintf("%"."8d %"."s %"."2d %"."02d:%"."02d:%"."02d %"."d %"."s",
- $S[7], $moy[$T[4]], $T[3], $T[2], $T[1], $T[0], 1900+$T[5], $f);
+ $ncol = ($ncol + 1) % 2;
+ $col = $COL[$ncol];
+ my $e = ($col eq "NONE" ? "<tr>" : "<tr bgcolor=\"$col\">").
+ "<td width=100%>".$f." </td>" .
+ "<td align=right> ".$S[7]."</td>" .
+ "<td align=right> ".sprintf("%"."02d-%"."s-%"."04d", $T[3], $moy[$T[4]], 1900+$T[5]) . "</td>".
+ "</tr>";
$O .= $e . "\n";
}
print $O;
:>
-</pre>
+</table>
<restore url>
<restore directory>
<restore files>
|
