mirror of
https://github.com/isc-projects/bind9.git
synced 2026-02-25 10:59:35 -05:00
40f53fa8d9
own CVS tree will help minimize CVS conflicts. Maybe not. Blame Graff for getting me to trim all trailing whitespace.
524 lines
12 KiB
Raku
Executable file
524 lines
12 KiB
Raku
Executable file
# Copyright (C) 1999, 2000 Internet Software Consortium.
|
|
#
|
|
# Permission to use, copy, modify, and distribute this software for any
|
|
# purpose with or without fee is hereby granted, provided that the above
|
|
# copyright notice and this permission notice appear in all copies.
|
|
#
|
|
# THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM
|
|
# DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL
|
|
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
|
|
# INTERNET SOFTWARE CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT,
|
|
# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
|
|
# FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
|
|
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
|
|
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
# $Id: b8status.pl,v 1.7 2000/08/01 01:12:33 tale Exp $
|
|
|
|
#
|
|
# aggregate reports from all bind8 build environments
|
|
# write a summary of results in html format
|
|
#
|
|
|
|
$Debug = 0;
|
|
$Home = $ENV{"HOME"};
|
|
$DebugFile = "$Home/b8t/b8tsummary.dbg";
|
|
$HasTests = 0;
|
|
$NoPort = 0;
|
|
|
|
$HaltLevel = 2;
|
|
|
|
$ConfigFile = ".config";
|
|
$BuildFile = ".build";
|
|
$BstatusFile = "bstatus.html";
|
|
$TestFile = ".test";
|
|
$TstatusFile = "tstatus.html";
|
|
$WkbpFile = ".wkbp";
|
|
$WktpFile = ".wktp";
|
|
$RxFile = ".b8trx";
|
|
$UnameFile = "uname";
|
|
|
|
$Nfbp = 0;
|
|
$Nobp = 0;
|
|
$Nftp = 0;
|
|
$Notp = 0;
|
|
$BadTest = 0;
|
|
$BadTestReason = "";
|
|
|
|
$Module = "bind8";
|
|
$MasterDir = "$Home/b8t";
|
|
$DataDir = "/proj/build-reports/$Module";
|
|
$HttpHomeURL = "http://status.isc.org/$Module";
|
|
|
|
#
|
|
# initialize the host array
|
|
#
|
|
|
|
open(DEBUG, "> $DebugFile") if ($Debug);
|
|
|
|
opendir(HDIR, "$MasterDir/hosts");
|
|
@entries = readdir(HDIR);
|
|
closedir(HDIR);
|
|
|
|
foreach $entry (@entries) {
|
|
next if $entry =~ /^\.\.*$/;
|
|
next unless -d "$MasterDir/hosts/$entry";
|
|
push(hosts, $entry);
|
|
}
|
|
|
|
#
|
|
# put the page top
|
|
#
|
|
|
|
$when = `date`;
|
|
chop $when;
|
|
$Ncols = 3;
|
|
$Ncols = 4 if ($HasTests);
|
|
|
|
|
|
printf("<?php \$title = \"ISC Status Server\"; ?>\n");
|
|
printf("<?php include(\"status-isc-header.inc\") ?>\n");
|
|
printf("\n");
|
|
|
|
printf("<CENTER>\n");
|
|
printf("<TABLE BORDER=0>\n");
|
|
printf("\t<TR HEIGHT=36><TD COLSPAN=4> </TD></TR>\n");
|
|
printf("\t<TR><TD COLSPAN=%d ALIGN=CENTER><FONT SIZE=+1><EM>bind8 status %s</EM></FONT></TD></TR>\n", $Ncols, $when);
|
|
printf("\t<TR HEIGHT=36><TD COLSPAN=4> </TD></TR>\n");
|
|
printf("\t<TR>\n");
|
|
printf("\t\t<TD WIDTH=150 ALIGN=LEFT><B>host</B></TD>\n");
|
|
printf("\t\t<TD WIDTH=100 ALIGN=LEFT><B>build status</B></TD>\n");
|
|
printf("\t\t<TD WIDTH=100 ALIGN=LEFT><B>fatal/other</B></TD>\n");
|
|
printf("\t\t<TD WIDTH=100 ALIGN=LEFT><B>test status</B></TD>\n") if ($HasTests);
|
|
printf("\t</TR>\n");
|
|
printf("<TR><TD COLSPAN=%d><HR></TD></TR>\n", $Ncols);
|
|
|
|
|
|
#
|
|
# produce status info for each host
|
|
#
|
|
|
|
foreach $host (sort @hosts) {
|
|
&doHost($host);
|
|
}
|
|
|
|
#
|
|
# output end of page
|
|
#
|
|
|
|
printf("\n");
|
|
printf("</TABLE>\n");
|
|
printf("\n");
|
|
printf("<?php include(\"isc-footer.inc\") ?>\n");
|
|
|
|
close(DEBUG) if ($Debug);
|
|
|
|
#
|
|
# produce status for host @ $hostpath
|
|
#
|
|
|
|
sub doHost {
|
|
local($hostid) = @_;
|
|
local($entry, $prob, $line, $bstatus, $tstatus);
|
|
local(@junk, $junk, $hostname, $bcolor, $tcolor);
|
|
local(%buildprobs, %testprobs);
|
|
local($severity, $filename, $linenumber, $message, $lastfilename);
|
|
|
|
#
|
|
# get the host name
|
|
#
|
|
|
|
$hostname = "n/a";
|
|
if ((-r "$MasterDir/hosts/$hostid/$UnameFile") && (-s _)) {
|
|
open(XXX, "< $MasterDir/hosts/$hostid/$UnameFile");
|
|
$junk = <XXX>;
|
|
close(XXX);
|
|
@junk = split(/\s/, $junk);
|
|
($hostname = $junk[1]) =~ s/\..*//;
|
|
}
|
|
|
|
print DEBUG "Host: $hostid, Hostname: $hostname\n" if ($Debug);
|
|
|
|
#
|
|
# scan the build and test results files for problems
|
|
#
|
|
|
|
$Nfbp = 0;
|
|
$Nobp = 0;
|
|
$Nftp = 0;
|
|
$Notp = 0;
|
|
$BadTest = 0;
|
|
$BadTestReason = "";
|
|
|
|
if ((-r "$DataDir/hosts/$hostid/$BuildFile") && (-s _ )) {
|
|
%buildprobs = &buildCheck("$hostid");
|
|
if ($NoPort) {
|
|
$bstatus = "none (no port)";
|
|
$bcolor = "black";
|
|
}
|
|
elsif ($Nfbp == 0) {
|
|
$bstatus = "ok";
|
|
$bcolor = "green";
|
|
$tstatus = "n/a";
|
|
|
|
if ($HasTests) {
|
|
if ((-r "$DataDir/hosts/$hostid/$TestFile") && (-s _)) {
|
|
%testprobs = &testCheck("$hostid");
|
|
if ($BadTest) {
|
|
$tstatus = "inspect ($BadTestReason)";
|
|
$tcolor = "blue";
|
|
}
|
|
else {
|
|
if ($Nftp) {
|
|
$tstatus = "fail";
|
|
$tcolor = "red";
|
|
}
|
|
else {
|
|
$tstatus = "pass";
|
|
$tcolor = "green";
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
$tstatus = "none (no journal)";
|
|
$tcolor = "red";
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
$bstatus = "broken";
|
|
$tstatus = "none (build status)";
|
|
$bcolor = "red";
|
|
$tcolor = "black";
|
|
}
|
|
}
|
|
else {
|
|
$bstatus = "none";
|
|
$tstatus = "none (build status)";
|
|
$bcolor = "red";
|
|
$tcolor = "black";
|
|
}
|
|
|
|
printf(DEBUG "Host %s(%s) STATUS: bstatus %s, tstatus %s, badtest %d, reason %s\n", $hostid, $hostname, $bstatus, $tstatus, $BadTest, $BadTestReason) if ($Debug);
|
|
|
|
printf("\t<TR>\n");
|
|
printf("\t\t<TD><B>%s</B> %s</TD>\n", $hostid, $hostname);
|
|
if ($bstatus =~ /none/) {
|
|
printf("\t\t<TD>%s</TD>\n", $bstatus);
|
|
printf("\t\t<TD> </TD>\n");
|
|
}
|
|
else {
|
|
printf("\t\t<TD>");
|
|
printf("<A HREF=\"$HttpHomeURL/hosts/$hostid/$BuildFile\"><FONT COLOR=\"%s\">%s</FONT></A>", $bcolor, $bstatus);
|
|
printf("</TD>\n");
|
|
printf("\t\t<TD>");
|
|
printf("<A HREF=\"$HttpHomeURL/hosts/$hostid/$BstatusFile\"><FONT COLOR=\"%s\">%d/%d</FONT></A>", $bcolor, $Nfbp, $Nobp);
|
|
printf("</TD>\n");
|
|
}
|
|
if ($HasTests) {
|
|
if ($tstatus =~ /none/) {
|
|
printf("\t\t<TD><FONT COLOR=\"%s\">%s</FONT></TD>\n", $tcolor, $tstatus);
|
|
}
|
|
else {
|
|
printf("\t\t<TD><A HREF=\"$HttpHomeURL/hosts/$hostid/$TstatusFile\"><FONT COLOR=\"%s\">%s</FONT></A></TD>\n", $tcolor, $tstatus);
|
|
}
|
|
}
|
|
printf("\t</TR>\n");
|
|
|
|
|
|
#
|
|
# write the build problems file
|
|
#
|
|
|
|
&wbpf($hostid, %buildprobs);
|
|
}
|
|
|
|
#
|
|
# scan the build results file for hostid for build problems
|
|
# return %probs
|
|
# format key == filename:linenumber:severity, content == text of problem line
|
|
# set $Nfbp and $Nobp as a side effect
|
|
#
|
|
|
|
sub buildCheck {
|
|
local($hostid) = @_;
|
|
local($filename, $linenumber, $severity);
|
|
local(%probs, %wkbp, @rxset);
|
|
local($matched, $exp, $entry, $ccrx);
|
|
|
|
$NoPort = 0;
|
|
|
|
# initialize the well known build problems array, if available
|
|
if (-r "$MasterDir/hosts/$hostid/$WkbpFile") {
|
|
open(XXX, "< _");
|
|
while(<XXX>) {
|
|
next if /^\#/; # skip comments
|
|
next if /^\s*$/; # and blank lines
|
|
chop;
|
|
($filename, $linenumber) = split;
|
|
$wkbp{"$filename:$linenumber"} = 1;
|
|
}
|
|
close(XXX);
|
|
}
|
|
|
|
# initialize the host specific regex array, if available
|
|
if (-r "$MasterDir/hosts/$hostid/$RxFile") {
|
|
open(XXX, "< _");
|
|
while(<XXX>) {
|
|
next if /^\#/; # skip comments
|
|
next if /^\s*$/; # and blank lines
|
|
chop;
|
|
printf(DEBUG "RX: <%s>\n", $_) if ($Debug);
|
|
push(@rxset, $_);
|
|
}
|
|
close(XXX);
|
|
}
|
|
|
|
# scan stdout/stderr of make all for problems
|
|
open(XXX, "< $DataDir/hosts/$hostid/$BuildFile");
|
|
while (<XXX>) {
|
|
|
|
undef $filename;
|
|
undef $linenumber;
|
|
undef $severity;
|
|
undef $1;
|
|
undef $2;
|
|
|
|
$matched = 0;
|
|
|
|
chop;
|
|
|
|
if (/no BIND port/) {
|
|
$NoPort = 1;
|
|
last;
|
|
}
|
|
|
|
foreach $entry (@rxset) {
|
|
($severity, $exp) = split(/\s/, $entry, 2);
|
|
if (/$exp/) {
|
|
$filename = $1 if defined($1);
|
|
$linenumber = $2 if defined($2);
|
|
$matched = 1;
|
|
|
|
last;
|
|
}
|
|
}
|
|
|
|
|
|
next unless $matched;
|
|
|
|
if ($Debug) {
|
|
printf(DEBUG "LINE %d: %s\n", $., $_);
|
|
printf(DEBUG "MATCHES: exp<%s>\tfn<%s>\tln<%s>\tsev<%s>\n", $exp, $filename, $linenumber, $severity);
|
|
}
|
|
|
|
if (length($filename) && length($linenumber)) {
|
|
|
|
$filename = $1 if ($filename =~ /.*(bind.*)/);
|
|
|
|
# ignore it if its in the well known build problems list
|
|
if (defined($wkbp{"$filename:$linenumber"})) {
|
|
print DEBUG "IGNORED\n" if ($Debug);
|
|
# by convention, ignore all severity 0 problems
|
|
$severity = 0;
|
|
}
|
|
}
|
|
else {
|
|
$filename = "MISC";
|
|
$linenumber = "0";
|
|
}
|
|
|
|
# avoid duplicates
|
|
next if (index($probs{"$filename:$linenumber:$severity"}, $_) >= 0);
|
|
|
|
$probs{"$filename:$linenumber:$severity"} .= "$_\n";
|
|
if ($severity >= $HaltLevel) {
|
|
++$Nfbp;
|
|
}
|
|
else {
|
|
++$Nobp;
|
|
}
|
|
printf(DEBUG "PROBLEM: fn<%s>\tln<%s>\tsev<%s>\n\n", $filename, $linenumber, $severity) if ($Debug);
|
|
}
|
|
close(XXX);
|
|
return(%probs);
|
|
}
|
|
|
|
#
|
|
# run thru the test results file for hostid
|
|
# write the test results file
|
|
# return %probs
|
|
# format key == funcname:assertion_number, value == test_result
|
|
# set $Nftp and $Notp as a side effect
|
|
#
|
|
|
|
sub testCheck {
|
|
local($hostid) = @_;
|
|
local($funcname, $anum, $atext);
|
|
local(%probs, @junk, $junk);
|
|
local($intest, $intestcase, $inassert, $ininfo, $inresult, $ntestsets);
|
|
|
|
# initialize the well known test problems array
|
|
if (-f "$MasterDir/hosts/$hostid/$WktpFile") {
|
|
open(XXX, "< _");
|
|
while(<XXX>) {
|
|
next if /^\#/; # skip comments
|
|
chop;
|
|
($funcname, $anum) = split;
|
|
$wktp{"$funcname:$anum"} = 1;
|
|
}
|
|
close(XXX);
|
|
}
|
|
|
|
if (! -r "$MasterDir/hosts/$hostid/$TestFile") {
|
|
$BadTest = 1;
|
|
$BadTestReason = "no journal file";
|
|
printf(DEBUG "No test journal at %s\n", "$hostpath/$TestFile") if ($Debug);
|
|
return;
|
|
}
|
|
|
|
$intest = 0;
|
|
|
|
open(XXX, "< $DataDir/hosts/$hostid/$TestFile");
|
|
open(YYY, "> $DataDir/hosts/$hostid/$TstatusFile");
|
|
|
|
printf(YYY "<?php \$title = \"ISC Status Server $hostid Bind8 Test Results\"; ?>\n");
|
|
printf(YYY "<?php include(\"status-isc-header.inc\") ?>\n");
|
|
printf(YYY "\n");
|
|
|
|
while (<XXX>) {
|
|
next unless ($_ =~ /^(S|I|T|A|R|E):/);
|
|
chop;
|
|
|
|
if (/^S:([^:]*):(Mon|Tue|Wed|Thu|Fri|Sat|Sun)/) {
|
|
$intest = 1;
|
|
$testname = $1;
|
|
++$ntestsets;
|
|
printf(YYY "%s\n<BR>\n", $_);
|
|
next;
|
|
}
|
|
|
|
if (/^E:(Mon|Tue|Wed|Thu|Fri|Sat|Sun)/) {
|
|
$intest = 0;
|
|
printf(YYY "%s\n<BR>\n", $_);
|
|
next;
|
|
}
|
|
|
|
if (/^T:([^:]*):([^:]*):/) {
|
|
if ($intest == 0) {
|
|
$BadTest = 1;
|
|
$BadTestReason = "T$.";
|
|
}
|
|
$funcname = $1;
|
|
$anum = $2;
|
|
$intestcase = 1;
|
|
$inassert = 0;
|
|
$ininfo = 0;
|
|
$inresult = 0;
|
|
($junk = $funcname) =~ s/\//\\\//g;
|
|
s/$junk/<B>$1<\/B>/;
|
|
printf(YYY "%s\n<BR>\n", $_);
|
|
next;
|
|
}
|
|
if (/^A:(.*)$/) {
|
|
if (($intest == 0) || ($intestcase == 0) || ($inresult == 1)) {
|
|
$BadTest = 1;
|
|
$BadTestReason = "A$.";
|
|
}
|
|
$atext = $1;
|
|
$inassert = 1;
|
|
s/A:(.*)/A:<FONT COLOR=\"blue\">$1<\/FONT>/;
|
|
printf(YYY "%s\n<BR>\n", $_);
|
|
next;
|
|
}
|
|
if (/^I:(.*)$/) {
|
|
if (($intest == 0) || ($intestcase == 0) || ($inassert == 0)) {
|
|
$BadTest = 1;
|
|
$BadTestReason = "I$.";
|
|
}
|
|
$ininfo = 1;
|
|
s/</\</g;
|
|
s/>/\>/g;
|
|
printf(YYY "%s\n<BR>\n", $_);
|
|
next;
|
|
}
|
|
if (/^R:(.*)$/) {
|
|
if (($intest == 0) || ($intestcase == 0) || ($inassert == 0)) {
|
|
$BadTest = 1;
|
|
$BadTestReason = "R:$intest:$intestcase:$inassert:$.";
|
|
}
|
|
$result = $1;
|
|
$inresult = 1;
|
|
if ($result =~ /FAIL|UNRESOLVED|UNINITIATED/) {
|
|
#
|
|
# skip if in the (ignorable) well known test problems list
|
|
#
|
|
if (defined($wktp{"$funcname:$anum"})) {
|
|
++$Notp;
|
|
}
|
|
else {
|
|
$probs{"$funcname:$anum"} = $result;
|
|
++$Nftp;
|
|
s/(FAIL|UNINITIATED)/<FONT COLOR=\"red\">$1<\/FONT>/;
|
|
s/(UNRESOLVED)/<FONT COLOR=\"yellow\">$1<\/FONT>/;
|
|
|
|
}
|
|
}
|
|
elsif ($result =~ /PASS|UNTESTED/) {
|
|
s/(PASS|UNTESTED)/<FONT COLOR=\"green\">$1<\/FONT>/;
|
|
}
|
|
printf(YYY "%s\n<BR>\n", $_);
|
|
next;
|
|
}
|
|
}
|
|
close(XXX);
|
|
printf(YYY "<?php include(\"isc-footer.inc\") ?>\n");
|
|
close(YYY);
|
|
|
|
if ($ntestsets == 0) {
|
|
$BadTest = 1;
|
|
$BadTestReason = "no tests";
|
|
}
|
|
return(%probs);
|
|
}
|
|
|
|
#
|
|
# write the build problems file
|
|
#
|
|
|
|
sub wbpf {
|
|
local($hostid, %buildprobs) = @_;
|
|
local($prob, $filename, $lastfilename, $linenumber, $severity);
|
|
local(@messageset, $message);
|
|
|
|
open(XXX, "> $DataDir/hosts/$hostid/$BstatusFile");
|
|
|
|
printf(XXX "<?php \$title = \"ISC Status Server $hostid Bind8 Build Problems\"; ?>\n");
|
|
printf(XXX "<?php include(\"status-isc-header.inc\") ?>\n");
|
|
printf(XXX "\n");
|
|
|
|
foreach $prob (sort keys %buildprobs) {
|
|
|
|
($filename, $linenumber, $severity) = split(/\:/, $prob);
|
|
|
|
printf(XXX "<P><B>%s</B>\n<BR>\n", $filename) if ($filename ne $lastfilename);
|
|
|
|
@messageset = split(/\n/, $buildprobs{$prob});
|
|
foreach $message (@messageset) {
|
|
if ($severity >= $HaltLevel) {
|
|
printf(XXX "<FONT COLOR=\"red\">%s</FONT>\n<BR>\n", $message);
|
|
}
|
|
elsif ($severity == 0) {
|
|
printf(XXX "<FONT COLOR=\"yellow\">%s</FONT>\n<BR>\n", $message);
|
|
}
|
|
else {
|
|
printf(XXX "%s\n<BR>\n", $message);
|
|
}
|
|
}
|
|
$lastfilename = $filename;
|
|
}
|
|
|
|
printf(XXX "<?php include(\"isc-footer.inc\") ?>\n");
|
|
close(XXX);
|
|
}
|
|
|