22 Feb
2008
22 Feb
'08
3:09 p.m.
URL: https://svn.lrde.epita.fr/svn/lrde-tools/trunk/buildbot/masters
ChangeLog:
2008-02-22 Benoit Sigoure <tsuna(a)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>