diff --git a/tools/tools/tinderbox/www/index.cgi b/tools/tools/tinderbox/www/index.cgi index 86346aab5944..6f1e38c558ee 100644 --- a/tools/tools/tinderbox/www/index.cgi +++ b/tools/tools/tinderbox/www/index.cgi @@ -1,157 +1,158 @@ #!/usr/bin/perl -Tw #- # Copyright (c) 2003 Dag-Erling Coïdan Smørgrav # All rights reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer # in this position and unchanged. # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in the # documentation and/or other materials provided with the distribution. # 3. The name of the author may not be used to endorse or promote products # derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES # OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # # $FreeBSD$ # use 5.006_001; use strict; use POSIX qw(strftime); my @BRANCHES = ( 'RELENG_4', 'CURRENT' ); my %ARCHES = ( 'alpha' => [ 'alpha' ], 'amd64' => [ 'amd64' ], 'i386' => [ 'i386', 'pc98' ], 'ia64' => [ 'ia64' ], 'powerpc' => [ 'powerpc' ], 'sparc64' => [ 'sparc64' ], ); +my $DIR = "."; + sub success($) { my $log = shift; local *FILE; if (open(FILE, "<", $log)) { while () { if (m/tinderbox run completed/) { close(FILE); return 1; } } close(FILE); } return undef; } MAIN:{ if ($ENV{'GATEWAY_INTERFACE'}) { $| = 1; print "Content-Type: text/html\n\n"; } else { - my $fn = "index.html"; if ($0 =~ m|^(/[\w/._-]+)/[^/]+$|) { - $fn = "$1/$fn"; + $DIR = $1; } - open(STDOUT, ">", $fn) + open(STDOUT, ">", "$DIR/index.html") or die("index.html: $!\n"); } print " FreeBSD tinderbox logs

FreeBSD tinderbox logs

"; foreach my $branch (@BRANCHES) { print(" \n"); } print " \n"; foreach my $arch (sort(keys(%ARCHES))) { foreach my $machine (sort(@{$ARCHES{$arch}})) { my $have_logs = 0; my $html = " "; foreach my $branch (@BRANCHES) { my $log = "tinderbox-$branch-$arch-$machine"; my $links = ""; - if (-f "$log.brief") { - my @stat = stat("$log.brief"); - my $class = success("$log.brief") ? "ok" : "fail"; + if (-f "$DIR/$log.brief") { + my @stat = stat("$DIR/$log.brief"); + my $class = success("$DIR/$log.brief") ? "ok" : "fail"; $links .= "" . strftime("%Y-%m-%d %H:%M", gmtime($stat[9])) . "
"; my $size = sprintf("[%.1f kB]", $stat[7] / 1024); $links .= " " . "summary $size" . "
"; } - if (-f "$log.full") { - my @stat = stat("$log.full"); + if (-f "$DIR/$log.full") { + my @stat = stat("$DIR/$log.full"); my $size = sprintf("[%.1f MB]", $stat[7] / 1048576); $links .= " " . "full log $size" . "
"; } if ($links eq "") { $html .= " \n"; } else { $html .= " \n"; $have_logs++; } } $html .= " \n"; print $html if $have_logs > 0; } } my $date = strftime("%Y-%m-%d %H:%M GMT", gmtime()); print "

Architecture	Machine	$branch
$arch	$machine	n/a	$links

Last updated: $date

$\"Valid$ $\"Valid$

"; exit(0); }