buildfarm r488: Clean buildfarm web page - Projects

22 Feb 2008

URL: https://svn.lrde.epita.fr/svn/lrde-tools/trunk/buildbot/masters
ChangeLog:
2008-02-22  Benoit Sigoure  tsuna@lrde.epita.fr
Clean buildfarm web page.
    * www/index.php: Update latest builds.
---
 index.php |   68 ++++++--------------------------------------------------------
 1 file changed, 7 insertions(+), 61 deletions(-)
Index: trunk/buildbot/masters/www/index.php
===================================================================

--- trunk/buildbot/masters/www/index.php	(revision 487)
+++ trunk/buildbot/masters/www/index.php	(revision 488)
@@ -8,75 +8,21 @@
 </head>
 <body>
 <h2>BuildFarms</h2>
-  <ul>
+  <Ul>
     <li><a href="buildfarm/oln/">Olena (trunk)</a></li>
     <li><a href="buildfarm/vaucanson/">Vaucanson (trunk)</a></li>
     <li><a href="buildfarm/vaucanson-bmi/">Vaucanson (bmi)</a></li>
     <li><a href="buildfarm/spot/">Spot</a></li>
   </ul>
-<h2>Latest builds</h2>
-  <a href="/releases/"><strong>All releases</strong></a>
-  -- Total number of files: <span style="color:green"><?php
-  echo `find /work/build/releases -type f | wc -l`; ?></span>
-(<span style="color:green"><?php
-  echo rtrim(`du -hs /work/build/releases | awk '{print $1}'`)
-     . rtrim(`df -h | awk '$1 == "/dev/hda1" { print " / " $2 }'`)
-     . '</span>)';
-  ?><br>
-Latest releases:
-<table>
-  <tbody>
-<?php
-echo `export LANG=C; exec 2>&1; find /work/build/releases -type f \
-      | perl -w -e '
-use strict;
-use File::stat;
-use POSIX qw(strftime);
-my @files;
+<H2>Latest builds</h2>
-sub human_readable_size($)
-{
-  my $n = shift;
-  if ($n < 1024) { return $n }
-  elsif ($n < 1024 * 1024) { return sprintf "%.1fK", ($n / 1024) }
-  elsif ($n < 1024 * 1024 * 1024) { return sprintf "%.1fM", ($n / 1024 / 1024) }
-  else { return sprintf "%.2fG", ($n / 1024 / 1024 / 1024) }
-}
-
-push(@files, $_) while(<>);
-
-@files = sort { chomp($a);
-                chomp($b);
-                my $stat_a = stat($a) || return 1;
-                my $stat_b = stat($b) || return -1;
-                return $stat_b->mtime - $stat_a->mtime; } @files;
-for (0..24) # Number of releases to print.
-{
-  my @path = split(///, $files[$_]);
-  my $st = stat($files[$_]);
-  my $date = strftime("%Y-%m-%d %H:%M:%S", localtime $st->mtime);
-  my $size = human_readable_size $st->size;
-  my $project = my $file = my $basename = "";
-  my $has_project = 0;
-  for (0..$#path)
-  {
-    if ($path[$_] eq "releases" and !$has_project)
-    {
-      $project = $path[$_ + 1];
-      $has_project = 1;
-    }
-    $file = $file . "/" . $path[$_] if ($has_project);
-    $basename = $path[$_];
-  }
-  print "<tr><td class="proj">$project</td><td>$date</td>",
-  "<td><a href="$file">$basename</a> ($size)</td></tr>\n";
-}'`;
-?>
-  </tbody>
-</table>
+  <Ul>
+    <li><a href="http://lrde.epita.fr/dload/vaucanson/snapshot">Vaucanson (trunk)</a></li>
+    <li><a href="http://lrde.epita.fr/dload/spot">Spot</a></li>
+  </ul>
 <h4><a href="http://validator.w3.org/check?uri=referer">
 <img src="http://www.w3.org/Icons/valid-xhtml10"
      alt="Valid XHTML 1.0 Transitional" height="31" width="88"/></a>
-This page was generated by PHP and Perl ... with some help of Sh and Awk!</h4>
+</h4>
 </body>
 </html>

    