# /* $Id: bcnulib.pl,v 1.17 2000/05/05 13:06:44 jap Exp $
#
# * Copyright (c) 1998 John Phillips
# *
# * You may distribute under the terms of the Artistic License
# *
# */
#
############################################################################
sub header {
local ($title,$errlevel,$refmins)=@_;
$refresh=($refmins*60);
$BCNUHOST=$ALTHOST if $ALTHOST;
if ($errlevel == 9) {
$HEADING="| Errors detected - ";
$SOUND=$SIREN if $sound;
$DEFBG=$RED
}
elsif ($errlevel == 5 || $errlevel == 6 ) {
$HEADING=" | Warning - ";
$SOUND=$WARNSND if $sound;
$DEFBG=$ORANGE
}
elsif ($errlevel == 2) {
$HEADING=" | Errors Ignored - ";
$DEFBG=$VIOLET
}
else {
$HEADING=" | No problems reported - ";
$SOUND="";
$DEFBG=$GREEN
}
$hd1 = <<"Endofhd";
BCNU($BCNUHOST) monitor @ $now
$SOUND
|