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  &lt;tsuna(a)lrde.epita.fr&gt;

	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>


    