#!/usr/bin/perl -w push @INC, "/mit/krbdev/testing"; require 'util.pl'; $verbose = 1; $always_rebuild = 0; @configs = <$dataroot/*/*>; # root/version/configname foreach $conf (@configs) { next if (! -d $conf); $cname = $conf; $cname =~ s,.*/,,; $version = $conf; $version =~ s,/[^/]*$,,; $version =~ s,.*/,,; my ($kdir); if ($version eq "current") { $kdir = "krb5-current"; } else { $kdir = "krb5-${version}-current"; } print STDERR "Processing $version $cname ...\n" if $verbose; foreach $date (<$conf/20*>) { next if (! -d $date); $d = $date; $d =~ s,.*/,,; # print STDERR "Processing $version $cname $d...\n" if $verbose; if ($always_rebuild || ! -r "$date/index.html") { print STDERR " (rebuilding index page for $d)\n" if $verbose; &make_status_page($version,$cname,$d); } my($s) = ""; if (-r "$date/status") { open STATUSFILE, "<$date/status"; while () { $s .= $_; } close STATUSFILE; chop $s; } if ($s eq "success" && ! -r "$date/$kdir/src/tests/dejagnu/dbg.log" && ! -r "$date/tests!dejagnu!dbg.log.txtgz") { $s .= "
(no dejagnu)"; } # print STDERR "\t& record_result($version, $cname, $d, $s);\n"; &record_result($version, $cname, $d, $s); } } # Now create indices: # per platform: date x release => status # top level: # one table per release: # platform x date => status # # In each index, each table, if a key (configuration, etc) has no values # associated, then leave it out. print STDERR "Processing per-configuration data...\n" if $verbose; foreach $conf (keys %result_by_cvd) { print STDERR " $conf ...\n" if $verbose; if (! -d "$dataroot/by_config") { mkdir "$dataroot/by_config"; } open CONFPAGE, ">$dataroot/by_config/$conf.html.new"; print CONFPAGE "\n\n\nKerberos snapshot build status page for $conf\n\n\n\n"; print CONFPAGE "

Kerberos snapshot build status page for $conf

\n"; @versions = sort keys %{$result_by_cvd{$conf}}; @dates = (); foreach $v (@versions) { push @dates, keys %{$result_by_cvd{$conf}{$v}}; } @dates = reverse sort &uniq(@dates); print CONFPAGE "

date"; foreach $v (@versions) { print CONFPAGE "	krb5-$v"; } print CONFPAGE "\n"; foreach $d (@dates) { print CONFPAGE "
$d"; foreach $v (@versions) { print CONFPAGE "	"; if (defined($result_by_cvd{$conf}{$v}{$d})) { $r = $result_by_cvd{$conf}{$v}{$d}; $p = $pathname{$v}{$conf}{$d}; print CONFPAGE "$r"; } } print CONFPAGE "\n"; } print CONFPAGE "

\n"; # &make_dir_page_link_table(\*CONFPAGE, "index.html", reverse sort @dates); close CONFPAGE; rename "$dataroot/by_config/$conf.html.new", "$dataroot/by_config/$conf.html"; } print STDERR "Processing new top page ($dataroot/index.html) ...\n" if $verbose; open TOPPAGE, ">$dataroot/index.html"; print TOPPAGE "Kerberos snapshot build status

Kerberos snapshot build status

\n"; foreach $v (reverse sort keys %result_by_vcd) { @dates = (); foreach $c (keys %{$result_by_vcd{$v}}) { push @dates, keys %{$result_by_vcd{$v}{$c}}; } @dates = reverse sort &uniq (@dates); if ($#dates > 5) { @dates = @dates[0..5]; } print TOPPAGE "

results for branch \"$v\":\n"; print TOPPAGE "\n"; print TOPPAGE "
Configuration"; foreach $d (@dates) { print TOPPAGE " $d"; } print TOPPAGE "\n"; foreach $c (sort keys %{$result_by_vcd{$v}}) { print TOPPAGE "
$c"; foreach $d (@dates) { if (defined $result_by_vcd{$v}{$c}{$d}) { $r = $result_by_vcd{$v}{$c}{$d}; $p = $pathname{$v}{$c}{$d}; print TOPPAGE "\n $r"; } else { print TOPPAGE " "; } } print TOPPAGE "\n"; } print TOPPAGE "
\n"; } # Now, tables of notes etc print TOPPAGE "

Configuration"; foreach $d (@dates) { print TOPPAGE "	$d"; } print TOPPAGE "\n"; foreach $c (sort keys %{$result_by_vcd{$v}}) { print TOPPAGE "
$c"; foreach $d (@dates) { if (defined $result_by_vcd{$v}{$c}{$d}) { $r = $result_by_vcd{$v}{$c}{$d}; $p = $pathname{$v}{$c}{$d}; print TOPPAGE "\n	$r"; } else { print TOPPAGE "	"; } } print TOPPAGE "\n"; } print TOPPAGE "

\n"; print TOPPAGE "
\n"; print TOPPAGE "\n"; print TOPPAGE "\n"; $last = ""; foreach $cname (sort keys %result_by_cvd) { my ($c) = $cname; $c =~ s/-[^-]*$//; if ($last ne $c) { print TOPPAGE "
Build status pages by platform
\n"; } print TOPPAGE "$cname\n"; $last = $c; } print TOPPAGE "
\n"; print TOPPAGE " \n"; print TOPPAGE "\n"; print TOPPAGE "\n"; print TOPPAGE "
Notes
trunk static builds not currently supported\n"; #print TOPPAGE "
trunk shared builds test suites broken after Novell updates\n"; #print TOPPAGE "
ia64-linux-redhat gcc-2.96 bug with structure passing\n"; #print TOPPAGE "
ia64-linux-debian using gcc-3.2\n"; print TOPPAGE "
dcl-sparcv9 using sunsoft v12 compiler\n"; #print TOPPAGE "
solaris-sparcv9 untested currently\n"; print TOPPAGE "
\n"; print TOPPAGE "
\n"; print TOPPAGE "\n"; close TOPPAGE;