OSSP CVS Repository

ossp - Difference in ossp-web/SHARE/ossp_filelist.wml versions 1.1 and 1.2
Not logged in
[Honeypot]  [Browse]  [Home]  [Login]  [Reports
[Search]  [Ticket]  [Timeline
  [History

ossp-web/SHARE/ossp_filelist.wml 1.1 -> 1.2

--- 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."&nbsp;&nbsp;</td>" .
+                      "<td align=right>&nbsp;&nbsp;".$S[7]."</td>" .
+                  "<td align=right>&nbsp;&nbsp;".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>

CVSTrac 2.0.1