#$dataroot = "/mit/raeburn/batch2/data"; #$dataroot = "/var/https/htdocs/nightly"; $dataroot = "/mit/raeburn/www/nightly"; $h = `hostname`; chop $h; if ($h eq "krbdev.mit.edu") { $dataroot = "/var/www/nightly"; } elsif (defined $ENV{TOPDIR}) { $dataroot = $ENV{TOPDIR}; } sub uniq { my($i, %z); foreach $i (@_) { $z{$i} = 0; } return keys %z; } sub nicedate { my($n) = @_; $n =~ s/(20[0-9][0-9])([0-9][0-9])([0-9][0-9])\.[0-9][0-9][0-9][0-9]/$1-$2-$3/; return $n; } sub record_result { # args: version configname datestamp status my($v, $cname, $date, $status) = @_; my($n) = &nicedate($date); $result_by_vcd{$v}{$cname}{$n} = $status; $result_by_cvd{$cname}{$v}{$n} = $status; $result_by_dcv{$n}{$cname}{$v} = $status; $pathname{$v}{$cname}{$n} = "$v/$cname/$date"; } sub make_link_table() { # args: outfileref, attr, list of filenames local($fh, $attr, @files) = @_; local($f); print $fh "\n"; foreach $f (@files) { my ($displayname); $displayname = $f; $displayname =~ s,!,/,g; $displayname =~ s,\.txtgz$,,; print $fh "
$displayname\n"; } print $fh "
\n"; } sub make_dir_page_link_table() { # args: outfileref, pagename, list of filenames local($fh, $page, @files) = @_; local($f); print $fh "\n"; foreach $f (@files) { print $fh "
$f\n"; } print $fh "
\n"; } sub look_for_logs() { # args: outfileref, tablelabel, basedir, logfilename # returns list: files found (possibly empty) local($fh, $label, $dir, $fname) = @_; local($_, $f); local(@files) = (); local($cmd); if (-r "$dir/config.cache.txtgz") { $fname .= ".txtgz"; } open FIND, "(cd $dir && find . -name $fname -print)|"; if (1) { while () { chop; s/^\.\///; push @files, $_; } } close FIND; if ($#files >= 0) { print $fh "

\n$label:\n"; &make_link_table($fh, "align=center", sort @files); } else { print $fh "

\n$label:\nNone.\n"; } } sub make_status_page() { # args: configname, datename local($version, $cname, $date) = @_; local($d) = "$dataroot/$version/$cname/$date"; local($kdir); if ($version eq "current") { $kdir = "krb5-current"; } else { $kdir = "krb5-${version}-current"; } open DPAGE, ">$d/index.html.new"; print DPAGE "\n"; print DPAGE "\n"; print DPAGE "Snapshot build results for $cname ($version, $date)\n"; print DPAGE "\n"; print DPAGE "\n"; print DPAGE "

Snapshot build results for $cname

\n"; print DPAGE "
branch: $version
build date stamp: $date
\n"; # print DPAGE "

(in directory $d)

\n"; if (-r "$d/status") { print DPAGE "

status: "; open DSTAT, "<$d/status"; while () { print DPAGE; } close DSTAT; print DPAGE "
\n

\n"; } print DPAGE "\n"; if (-r "$d/env-info.txtgz") { print DPAGE "
Environment info\n"; } elsif (-r "$d/env-info") { print DPAGE "
Environment info\n"; } else { print DPAGE "
No environment info available\n"; } if (-r "$d/config-log.txtgz") { print DPAGE "
Configuration log\n"; } elsif (-r "$d/config-log") { print DPAGE "
Configuration log\n"; } else { print DPAGE "
No configuration log available\n"; } if (-r "$d/config.cache.txtgz") { print DPAGE "
Configure cache\n"; } elsif (-r "$d/$kdir/src/config.cache") { print DPAGE "
Configure cache\n"; } else { print DPAGE "
No config.cache available\n"; } if (-r "$d/build-log.txtgz") { print DPAGE "
Build log\n"; } elsif (-r "$d/build-log") { print DPAGE "
Build log\n"; } else { print DPAGE "
No build log available\n"; } if (-r "$d/install-log.txtgz") { print DPAGE "
Installation log\n"; } elsif (-r "$d/install-log") { print DPAGE "
Installation log\n"; } else { print DPAGE "
No installation log available\n"; } if (-r "$d/check-log.txtgz") { print DPAGE "
Check log\n"; } elsif (-r "$d/check-log") { print DPAGE "
Check log\n"; } else { print DPAGE "
No check log available\n"; } print DPAGE "
\n"; &look_for_logs(\*DPAGE, "DejaGNU summaries", $d, "\\*.sum"); &look_for_logs(\*DPAGE, "DejaGNU debug logs", $d, "\\*dbg.log"); &look_for_logs(\*DPAGE, "Python test logs", $d, "\\*testlog"); print DPAGE "\n\n"; close DPAGE; rename "$d/index.html.new", "$d/index.html"; }