e66af64ba9
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@644 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
251 lines
6.6 KiB
Perl
Executable File
251 lines
6.6 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
BEGIN
|
|
{
|
|
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
|
|
}
|
|
use lib "$::XCATROOT/lib/perl";
|
|
use Sys::Syslog;
|
|
use xCAT::Table;
|
|
use xCAT_plugin::ipmi;
|
|
|
|
# admin needs to create a mail aliase called alerts
|
|
# put "alerts: emailadd,emailaddr.." to /etc/aliases file
|
|
# then run newaliases command
|
|
my $MAILTO="alerts";
|
|
|
|
my $message;
|
|
my $briefmsg;
|
|
my $pair;
|
|
my $node1;
|
|
my $info;
|
|
my $severity_type;
|
|
my $severity;
|
|
|
|
# read host name
|
|
my $host=<STDIN>;
|
|
chomp($host);
|
|
|
|
# read the host ip
|
|
my $ip=<STDIN>;
|
|
chomp($ip);
|
|
|
|
# read uptime
|
|
my $uptimeline=<STDIN>;
|
|
chomp($uptimeline);
|
|
my @a=split(/ /, $uptimeline);
|
|
my $oid=shift @a;
|
|
my $value=join(' ', @a);
|
|
$message .= " $oid=$value\n";
|
|
|
|
# read trapid
|
|
my $trapidline=<STDIN>;
|
|
chomp($trapidline);
|
|
@a=split(/ /, $trapidline);
|
|
$oid=shift @a;
|
|
$value=join(' ', @a);
|
|
$message .= " $oid=$value\n";
|
|
|
|
#for ipmi traps, the values is: SNMPv2-SMI::enterprises.3183.1.1.0.x, x is the ipmi trap id.
|
|
$value =~ s/(SNMPv2-SMI::enterprises\.3183\.1\.1\.0\.)//g;
|
|
my $trapid=$value;
|
|
|
|
#print "trapid=$trapid\n";
|
|
|
|
|
|
|
|
my $holder;
|
|
my $begin=1;
|
|
my $pair;
|
|
while ($temp=<STDIN>) {
|
|
chomp($temp);
|
|
my $temp1=$temp; #save the one with quotes
|
|
$temp1 =~ s/\"//g;
|
|
my $c1=length($temp);
|
|
my $c2=length($temp1);
|
|
|
|
|
|
if (($c1-$c2)%2 == 0) {
|
|
if ($begin==1) { # single line
|
|
$pair=$temp;
|
|
}
|
|
else { # middle multi-line
|
|
$pair .= " $temp";
|
|
next;
|
|
}
|
|
} else { # multi line
|
|
if ($begin==1) {
|
|
$pair=$temp; #start of multi-line
|
|
$begin=0;
|
|
next;
|
|
} else {
|
|
$pair .= " $temp"; #end of multi-line
|
|
$begin=1;
|
|
}
|
|
}
|
|
|
|
@a=split(/ /, $pair);
|
|
$oid=shift @a;
|
|
$value=join(' ', @a);
|
|
|
|
$message .= " $oid=$value\n";
|
|
|
|
#for BladeCenter MM traps and RSA II traps, creat a brief message
|
|
if ($oid =~ /BLADESPPALT-MIB::spTrapAppId|RSASPPALT-MIB::ibmSpTrapAppId/) {
|
|
$briefmsg .= " App ID: $value\n";
|
|
}
|
|
elsif ($oid =~ /BLADESPPALT-MIB::spTrapAppType|RSASPPALT-MIB::ibmSpTrapAppType/) {
|
|
$briefmsg .= " App Alert Type: $value\n";
|
|
}
|
|
elsif ($oid =~ /BLADESPPALT-MIB::spTrapMsgText|RSASPPALT-MIB::ibmSpTrapMsgText/) {
|
|
$briefmsg .= " Message: $value\n";
|
|
}
|
|
elsif ($oid =~ /BLADESPPALT-MIB::spTrapBladeName/) {
|
|
my $temp="$value";
|
|
$temp =~ /^\"(.*)\"/;
|
|
if ($1) {
|
|
$briefmsg .= " Blade Name: $value\n";
|
|
$node1=$1;
|
|
}
|
|
}
|
|
elsif (($oid =~ /BLADESPPALT-MIB::spTrapSourceId/)) {
|
|
$briefmsg .= " Error Source=$value\n";
|
|
}
|
|
elsif ($oid =~ /BLADESPPALT-MIB::spTrapPriority|RSASPPALT-MIB::ibmSpTrapPriority/) {
|
|
# Critical Alert(0), Major(1), Non-Critical Alert(2), System Alert(4),
|
|
# Recovery Alert(8), Informational Only Alert(255)
|
|
$severity_type="Warning";
|
|
if ($value==0) {
|
|
$severity="Critical Alert";
|
|
$severity_type="Critical";
|
|
} elsif ($value==1) {
|
|
$severity="Major Alert";
|
|
$severity_type="Critical";
|
|
} elsif ($value==255) {
|
|
$severity="Informational Alert";
|
|
$severity_type="Informational";
|
|
}
|
|
}
|
|
elsif ($oid =~ /enterprises\.3183\.1\.1\.1/) { #IPMI PRTs (traps)
|
|
$node1=$host;
|
|
$node1 =~ s/(-(eth|man)\d+)?(\..*)?$//;
|
|
|
|
$value =~ s/\"//g;
|
|
my @varray=split(/ /, $value);
|
|
#print "\n\n\ntrapid=$trapid\nhost=$host\npet=$value\n";
|
|
my $error = xCAT_plugin::ipmi->decodealert($trapid, $host, \@varray);
|
|
$briefmsg .= $error;
|
|
#print "error=$error\n";
|
|
|
|
#severity value from decodealert are:
|
|
#LOG,INFORMATION,OK,CRITICAL,NON-RECOVERABLE,MONITOR and UNKNOWN-SEVERITY
|
|
$severity_type="Warning";
|
|
if ($error) {
|
|
@tempArray=split(/\:/, $error);
|
|
$severity=$tempArray[0];
|
|
if ($severity eq "LOG") {
|
|
$severity_type="Informational";
|
|
}
|
|
elsif($severity eq "INFORMATION") {
|
|
$severity_type="Informational";
|
|
}
|
|
elsif($severity eq "OK") {
|
|
$severity_type="Informational";
|
|
}
|
|
elsif($severity eq "CRITICAL") {
|
|
$severity_type="Critical";
|
|
}
|
|
elsif($severity eq "NON-RECOVERABLE") {
|
|
$severity_type="Critical";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($node1) {$info= getMoreInfo($node1);}
|
|
|
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
|
|
$datetime=sprintf "%2d-%02d-%04d %02d:%02d:%02d", $mon+1,$mday,$year+1900,$hour,$min,$sec;
|
|
my $head="SNMP $severity received from $host($ip) on $datetime\n$briefmsg\n";
|
|
my $middle="Trap details:\n$message\n";
|
|
my $end;
|
|
if ($info) {
|
|
$end ="Additonal Info from xCAT:\n$info\n";
|
|
}
|
|
|
|
#TODO: decide responses based on severity. settings in monitoring tb.
|
|
#email the full message to the alerts aliase
|
|
my $cmd="echo \'$head$middle$end\' \| mail -s \"$severity_type: Cluster SNMP Alert\!\" $MAILTO";
|
|
`$cmd`;
|
|
|
|
# TODO: log the the brief message from the Blad Center MM to the syslog. For other traps, log all.
|
|
|
|
|
|
|
|
|
|
|
|
#--------------------------------------------------------------------------------
|
|
=head3 getMoreInfo
|
|
This function returns the node module/type, serial number, position etc.
|
|
Arguments:
|
|
node-- name of the node.
|
|
Returns:
|
|
A string with node info ready to display.
|
|
=cut
|
|
#--------------------------------------------------------------------------------
|
|
sub getMoreInfo {
|
|
my $node=shift;
|
|
my $pos,$vpd;
|
|
|
|
#get module name and serial number from the xCAT DB.
|
|
my $table=xCAT::Table->new("vpd", -create =>1);
|
|
if ($table) {
|
|
(my $ref) = $table->getAttribs({'node' => $node}, ('serial', 'mtm'));
|
|
if ($ref) {
|
|
if($ref->{mtm}) { $vpd .= " Type/Mudule: ". $ref->{mtm} ."\n"; }
|
|
if($ref->{serial}) { $vpd .= " Serial Number: ". $ref->{serial} ."\n";}
|
|
}
|
|
$table->close();
|
|
}
|
|
|
|
# get the info from rinv command if nothing in the vpd table
|
|
if (!$vpd) {
|
|
my $result=`$XCATROOT/bin/rinv $node all 2>&1 | egrep -i '(model|serial)' | grep -v Univ`;
|
|
if ($? == 0) {#success
|
|
chomp($result);
|
|
my @b=split(/\n/, $result);
|
|
foreach (@b) {
|
|
s/^(.*)\:(.*)\:(.*)$/$2: $3/;
|
|
$vpd .= " $_\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
#get the position
|
|
my $table1=xCAT::Table->new("nodepos", -create =>1);
|
|
if ($table1) {
|
|
(my $ref1) = $table1->getAttribs({'node' => $node}, ('rack', 'u', 'chassis', 'slot', 'room'));
|
|
if ($ref1) {
|
|
if($ref1->{room}) { $pos .= " Room: ". $ref1->{room} ."\n"; }
|
|
if($ref1->{rack}) { $pos .= " Rack: ". $ref1->{rack} ."\n"; }
|
|
if($ref1->{u}) { $pos .= " Vertial position: ". $ref1->{u} ."\n"; }
|
|
if($ref1->{chassis}) { $pos .= " Chassis: ". $ref1->{chassis} ."\n"; }
|
|
if($ref1->{slot}) { $pos .= " Slot: ". $ref1->{slot} ."\n"; }
|
|
}
|
|
$table1->close();
|
|
}
|
|
|
|
if (($pos) || ($vpd)) {
|
|
return " Node: $node\n$vpd$pos";
|
|
}
|
|
|
|
return "";
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|