From 1ff711e2b74ec362b77d7781f14bac82af935cbb Mon Sep 17 00:00:00 2001 From: William King Date: Mon, 11 Oct 1999 00:01:11 +0000 Subject: [PATCH] just a couple of little things ... --- bin/tests/b9tsummary.pl | 47 +++++++++++++---------------------------- 1 file changed, 15 insertions(+), 32 deletions(-) diff --git a/bin/tests/b9tsummary.pl b/bin/tests/b9tsummary.pl index 378f7898b3..00e9073f30 100755 --- a/bin/tests/b9tsummary.pl +++ b/bin/tests/b9tsummary.pl @@ -146,15 +146,6 @@ foreach $entry (@entries) { $when = `date`; chop $when; -#printf("\n"); -#printf("\n"); -#printf("bind9 status %s\n", $when); -#printf("\n"); -#printf("\n"); -#printf("\n"); -#printf("

\n"); -#printf("

\n"); - printf("\n"); printf("\n"); printf("\n"); @@ -189,11 +180,6 @@ printf("\n"); printf("\n"); printf("\n"); -#printf("\n"); -#printf("\n"); -#printf("\n"); -#printf("\n"); - close(DEBUG) if ($Debug); # @@ -245,20 +231,20 @@ sub doHost { } } else { - $tstatus = "not available (no journal)"; + $tstatus = "none (no journal)"; $tcolor = "red"; } } else { $bstatus = "broken"; - $tstatus = "not available (build status)"; + $tstatus = "none (build status)"; $bcolor = "red"; $tcolor = "black"; } } else { - $bstatus = "not available"; - $tstatus = "not available (build status)"; + $bstatus = "none"; + $tstatus = "none (build status)"; $bcolor = "red"; $tcolor = "black"; } @@ -267,7 +253,7 @@ sub doHost { printf("\t\n"); printf("\t\t%s\n", $hostid); - if ($bstatus =~ /not available/) { + if ($bstatus =~ /none/) { printf("\t\t%s\n", $bstatus); printf("\t\t \n"); } @@ -279,7 +265,7 @@ sub doHost { printf("%d/%d", $bcolor, $Nfbp, $Nobp); printf("\n"); } - if ($tstatus =~ /not available/) { + if ($tstatus =~ /none/) { printf("\t\t%s\n", $tcolor, $tstatus); } else { @@ -449,8 +435,10 @@ sub testCheck { open(XXX, "< $hostpath/$TestFile"); open(YYY, "> $B9HostPath/$hostid/$TestSummaryFile"); -# printf(YYY "\n\n"); -# printf(YYY "\n"); + + printf(YYY "\n"); + printf(YYY "\n"); + printf(YYY "\n"); while () { next unless ($_ =~ /^(S|I|T|A|R|E):/); @@ -534,7 +522,7 @@ sub testCheck { } } close(XXX); -# printf(YYY "\n\n"); + printf(YYY "\n"); close(YYY); if ($ntestsets == 0) { @@ -554,14 +542,10 @@ sub wbpf { local(@messageset, $message); open(XXX, "> $B9HostPath/$hostid/$BuildProblemsFile"); -# printf(XXX "\n\n"); -# printf(XXX "\n"); -# printf("\n"); -# printf("\n"); - - printf(XXX "bind9 %s build problems by filename\n", $hostid); - printf(XXX "\n\n"); + printf(XXX "\n"); + printf(XXX "\n"); + printf(XXX "\n"); foreach $prob (sort keys %buildprobs) { @@ -581,8 +565,7 @@ sub wbpf { $lastfilename = $filename; } -# printf(XXX "\n\n"); -# printf("\n"); + printf(XXX "\n"); close(XXX); }