mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-30 14:07:59 +00:00
Code Issues Releases Wiki Activity

just a couple of little things ...

Browse Source
This commit is contained in:
William King
1999-10-11 00:01:11 +00:00
parent a8cd7b78f5
commit 1ff711e2b7
1 changed files with 15 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
bin/tests/b9tsummary.pl
View File

@@ -146,15 +146,6 @@ foreach $entry (@entries) {
$when = `date`; $when = `date`;
chop $when; chop $when;
#printf("<HTML>\n");
#printf("<HEAD>\n");
#printf("<TITLE>bind9 status %s</TITLE>\n", $when);
#printf("<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n");
#printf("</HEAD>\n");
#printf("<BODY BGCOLOR=\"white\">\n");
#printf("<P>\n");
#printf("<P>\n");
printf("<?php \$title = \"ISC Status Server\"; ?>\n"); printf("<?php \$title = \"ISC Status Server\"; ?>\n");
printf("<?php include(\"status-isc-header.inc\") ?>\n"); printf("<?php include(\"status-isc-header.inc\") ?>\n");
printf("\n"); printf("\n");
@@ -189,11 +180,6 @@ printf("</TABLE>\n");
printf("\n"); printf("\n");
printf("<?php include(\"isc-footer.inc\") ?>\n"); printf("<?php include(\"isc-footer.inc\") ?>\n");
#printf("</TABLE>\n");
#printf("</CENTER>\n");
#printf("</BODY>\n");
#printf("</HTML>\n");
close(DEBUG) if ($Debug); close(DEBUG) if ($Debug);
# #
@@ -245,20 +231,20 @@ sub doHost {
} }
} }
else { else {
$tstatus = "not available (no journal)"; $tstatus = "none (no journal)";
$tcolor = "red"; $tcolor = "red";
} }
} }
else { else {
$bstatus = "broken"; $bstatus = "broken";
$tstatus = "not available (build status)"; $tstatus = "none (build status)";
$bcolor = "red"; $bcolor = "red";
$tcolor = "black"; $tcolor = "black";
} }
} }
else { else {
$bstatus = "not available"; $bstatus = "none";
$tstatus = "not available (build status)"; $tstatus = "none (build status)";
$bcolor = "red"; $bcolor = "red";
$tcolor = "black"; $tcolor = "black";
} }
@@ -267,7 +253,7 @@ sub doHost {
printf("\t<TR>\n"); printf("\t<TR>\n");
printf("\t\t<TD>%s</TD>\n", $hostid); printf("\t\t<TD>%s</TD>\n", $hostid);
if ($bstatus =~ /not available/) { if ($bstatus =~ /none/) {
printf("\t\t<TD>%s</TD>\n", $bstatus); printf("\t\t<TD>%s</TD>\n", $bstatus);
printf("\t\t<TD>&nbsp</TD>\n"); printf("\t\t<TD>&nbsp</TD>\n");
} }
@@ -279,7 +265,7 @@ sub doHost {
printf("<A HREF=\"$B9HostURL/$hostid/$BuildProblemsFile\"><FONT COLOR=\"%s\">%d/%d</FONT></A>", $bcolor, $Nfbp, $Nobp); printf("<A HREF=\"$B9HostURL/$hostid/$BuildProblemsFile\"><FONT COLOR=\"%s\">%d/%d</FONT></A>", $bcolor, $Nfbp, $Nobp);
printf("</TD>\n"); printf("</TD>\n");
} }
if ($tstatus =~ /not available/) { if ($tstatus =~ /none/) {
printf("\t\t<TD><FONT COLOR=\"%s\">%s</FONT></TD>\n", $tcolor, $tstatus); printf("\t\t<TD><FONT COLOR=\"%s\">%s</FONT></TD>\n", $tcolor, $tstatus);
} }
else { else {
@@ -449,8 +435,10 @@ sub testCheck {
open(XXX, "< $hostpath/$TestFile"); open(XXX, "< $hostpath/$TestFile");
open(YYY, "> $B9HostPath/$hostid/$TestSummaryFile"); open(YYY, "> $B9HostPath/$hostid/$TestSummaryFile");
# printf(YYY "<HTML>\n<HEAD>\n");
# printf(YYY "<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n"); printf(YYY "<?php \$title = \"ISC Status Server $hostid Bind9 Test Results\"; ?>\n");
printf(YYY "<?php include(\"status-isc-header.inc\") ?>\n");
printf(YYY "\n");
while (<XXX>) { while (<XXX>) {
next unless ($_ =~ /^(S|I|T|A|R|E):/); next unless ($_ =~ /^(S|I|T|A|R|E):/);
@@ -534,7 +522,7 @@ sub testCheck {
} }
} }
close(XXX); close(XXX);
# printf(YYY "</BODY>\n</HTML>\n"); printf(YYY "<?php include(\"isc-footer.inc\") ?>\n");
close(YYY); close(YYY);
if ($ntestsets == 0) { if ($ntestsets == 0) {
@@ -554,14 +542,10 @@ sub wbpf {
local(@messageset, $message); local(@messageset, $message);
open(XXX, "> $B9HostPath/$hostid/$BuildProblemsFile"); open(XXX, "> $B9HostPath/$hostid/$BuildProblemsFile");
# printf(XXX "<HTML>\n<HEAD>\n");
# printf(XXX "<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n");
# printf("<?php $title = \"IEI Internal Web\"; ?>\n"); printf(XXX "<?php \$title = \"ISC Status Server $hostid Bind9 Build Problems\"; ?>\n");
# printf("<?php include(\"isc-header.inc\") ?>\n"); printf(XXX "<?php include(\"status-isc-header.inc\") ?>\n");
printf(XXX "\n");
printf(XXX "<TITLE>bind9 %s build problems by filename</TITLE>\n", $hostid);
printf(XXX "</HEAD>\n<BODY BGCOLOR=\"white\">\n");
foreach $prob (sort keys %buildprobs) { foreach $prob (sort keys %buildprobs) {
@@ -581,8 +565,7 @@ sub wbpf {
$lastfilename = $filename; $lastfilename = $filename;
} }
# printf(XXX "</BODY>\n</HTML>\n"); printf(XXX "<?php include(\"isc-footer.inc\") ?>\n");
# printf("<?php include(\"isc-footer.inc\") ?>\n");
close(XXX); close(XXX);
} }