| 1 |
#!/usr/bin/perl
|
| 2 |
# This program downloads summary log files for the automatic d-i install
|
| 3 |
# tests, and constructs a web page overview. If you run an automatic test,
|
| 4 |
# add the info for your build to the list.
|
| 5 |
#
|
| 6 |
# The url field points to the url info about your test can be downloaded
|
| 7 |
# from, the email address is a contact address, the description is a breif
|
| 8 |
# description of the test. The logurl points to wherever log files are.
|
| 9 |
# The logext is an extention that is appended to the log filename.
|
| 10 |
#
|
| 11 |
# In the log directory you should have a summary$logext file, that contains
|
| 12 |
# lines in the following format:
|
| 13 |
# arch (date) user@host ident status [notes]
|
| 14 |
#
|
| 15 |
# Where ident describes the test, arch is the architecture that is being
|
| 16 |
# tested, date is the output of the date command at the end of the test
|
| 17 |
# (in the C locale), user@host is who did the test, and status describes
|
| 18 |
# how it went (usually "success" or "failed"). A log file for the test
|
| 19 |
# should in in the file named ident$logext in the log directory.
|
| 20 |
#
|
| 21 |
# Example:
|
| 22 |
# i386 (Thu Apr 22 21:08:03 EDT 2004) joey@home elephant-d-i success
|
| 23 |
|
| 24 |
my @buildlist = (
|
| 25 |
{
|
| 26 |
url => 'http://dilab.debian.net:800/~joey/d-i/logs/alpha/',
|
| 27 |
logurl => 'http://dilab.debian.net:800/~joey/d-i/logs/alpha/',
|
| 28 |
email => 'joeyh@debian.org',
|
| 29 |
description => 'Joey\'s daily alpha tests',
|
| 30 |
logext => ".log",
|
| 31 |
frequency => 1,
|
| 32 |
},
|
| 33 |
{
|
| 34 |
url => 'http://dilab.debian.net:800/~joey/d-i/logs/hppa/',
|
| 35 |
logurl => 'http://dilab.debian.net:800/~joey/d-i/logs/hppa/',
|
| 36 |
email => 'joeyh@debian.org',
|
| 37 |
description => 'Joey\'s daily hppa tests',
|
| 38 |
logext => ".log",
|
| 39 |
frequency => 1,
|
| 40 |
},
|
| 41 |
{
|
| 42 |
url => 'http://dilab.debian.net:800/~joey/d-i/logs/i386/',
|
| 43 |
logurl => 'http://dilab.debian.net:800/~joey/d-i/logs/i386/',
|
| 44 |
email => 'joeyh@debian.org',
|
| 45 |
description => 'Joey\'s daily i386 tests',
|
| 46 |
logext => ".log",
|
| 47 |
frequency => 1,
|
| 48 |
},
|
| 49 |
{
|
| 50 |
url => 'http://dilab.debian.net:800/~joey/d-i/logs/ia64/',
|
| 51 |
logurl => 'http://dilab.debian.net:800/~joey/d-i/logs/ia64/',
|
| 52 |
email => 'joeyh@debian.org',
|
| 53 |
description => 'Joey\'s daily ia64 tests',
|
| 54 |
logext => ".log",
|
| 55 |
frequency => 1,
|
| 56 |
},
|
| 57 |
{
|
| 58 |
url => 'http://dilab.debian.net:800/~joey/d-i/logs/mipsel/',
|
| 59 |
logurl => 'http://dilab.debian.net:800/~joey/d-i/logs/mipsel/',
|
| 60 |
email => 'joeyh@debian.org',
|
| 61 |
description => 'Joey\'s daily mipsel tests',
|
| 62 |
logext => ".log",
|
| 63 |
frequency => 1,
|
| 64 |
},
|
| 65 |
{
|
| 66 |
url => 'http://dilab.debian.net:800/~joey/d-i/logs/sparc/',
|
| 67 |
logurl => 'http://dilab.debian.net:800/~joey/d-i/logs/sparc/',
|
| 68 |
email => 'joeyh@debian.org',
|
| 69 |
description => 'Joey\'s daily sparc tests',
|
| 70 |
logext => ".log",
|
| 71 |
frequency => 1,
|
| 72 |
},
|
| 73 |
{
|
| 74 |
url => 'http://dilab.debian.net:800/~joey/d-i/logs/s390/',
|
| 75 |
logurl => 'http://dilab.debian.net:800/~joey/d-i/logs/s390/',
|
| 76 |
email => 'joeyh@debian.org',
|
| 77 |
description => 'Joey\'s daily s390 tests',
|
| 78 |
logext => ".log",
|
| 79 |
frequency => 1,
|
| 80 |
},
|
| 81 |
|
| 82 |
# {
|
| 83 |
# url => 'http://somehost/',
|
| 84 |
# logurl => 'http://somehost/',
|
| 85 |
# email => 'you@debian.org',
|
| 86 |
# description => 'put something informative here',
|
| 87 |
# logext => ".log",
|
| 88 |
# frequency => 1,
|
| 89 |
# },
|
| 90 |
);
|
| 91 |
|
| 92 |
use warnings;
|
| 93 |
use strict;
|
| 94 |
require "aggregator.pl";
|
| 95 |
|
| 96 |
print <<EOS;
|
| 97 |
<html>
|
| 98 |
<head>
|
| 99 |
<title>debian-installer test overview</title>
|
| 100 |
</head>
|
| 101 |
<body>
|
| 102 |
<ul>
|
| 103 |
EOS
|
| 104 |
|
| 105 |
my ($total, $failed, $success, $old) = aggregate(@buildlist);
|
| 106 |
|
| 107 |
my $date=`LANG=C TZ=GMT date`;
|
| 108 |
chomp $date;
|
| 109 |
print <<"EOS"
|
| 110 |
</ul>
|
| 111 |
|
| 112 |
Totals: $total tests ($failed failed, $old old)
|
| 113 |
|
| 114 |
<hr>
|
| 115 |
$date
|
| 116 |
</body>
|
| 117 |
</html>
|
| 118 |
EOS
|
Parent Directory
| 
Revision Log