Compaq AlphaServer GS80 User Manual page 223

#+
# Parse PCI/BPM SysEvents
# The 3 line entries look something like this, with the last
# line changing
# ~E~ PCI3/PBM13 SysEvent
# ~E~ PBM13 Error:
# ~E~ FAN1 FAIL - POWEROFF IN 30 SECONDS
#-
if ( $ARGV[1] eq /GS_PCI_PBM_SYSEVENT/ ) {
open (SC, $ARGV[3]) ||
die "Can not open event context file - $ARGV[3] $!";
while (<SC>) {
if (/^CONTEXT_BEGIN:/) {last};
}
while (<SC>) {
if ($_ eq /^CONTEXT_END:/) {last};
if ($_ =~ /^~E~/) {
if ($_ =~ /^~E~ PCI.\/PBM.. SysEvent/) {next;}
if ($_ =~ /^~E~ PBM.. Error:/) {next;}
#+
# Here is the real parsing, you may take other than mail
# actions or add other events than listed...
#-
if ($_ =~ /^~E~ FAN. FAIL - POWEROFF IN 30 SECONDS/)
{next;}
if ($_ =~ /^~E~ LM80 . TEMP FAIL/) {next;}
if ($_ =~ /^~E~ PS. POK DEASSERTED/) {next;}
# Other events are just ignored...
$domail = 0;
}
}
close(SC);
}
#+
# For other events we just mail the log file, no
# pre-processing.
#-
$subj = "Console $ARGV[0] has Encountered Event $ARGV[1]
(Sequence $ARGV[2])";
open (SC, $ARGV[3]) ||
die "Can not open event context file - $ARGV[3] $!";
while ($l=<SC>) {
push @msg, $l;
}
close(SC);
if ($domail) {
foreach $to (@tolist) {
smtpmail($to, $subj, $whoami, $mf, @msg);
}
}
Compaq-Supplied Configuration Files for ConsoleWorks B-11