arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added event response to log RMC events into the xCAT database.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2667 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao 2009-01-29 02:44:26 +00:00
parent 71b917124f
commit 07de3c80c7
2 changed files with 66 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
xCAT-rmc/resources/mn/IBM.EventResponse/LogEventToxCATDatabase.pm Normal file
View File

@ -0,0 +1,8 @@
#!/usr/bin/perl
$RES::EventResponse{'LogEventToxCATDatabase'} = {
Name => q(LogEventToxCATDatabase),
Locked => q(0),
Actions => q({[updatexCAT,{127},{0},{86400},/opt/xcat/sbin/rmcmon/logeventtoxcat,3,0,0,0,{},0]}),
};
1;

58
xCAT-rmc/scripts/logeventtoxcat Executable file
View File

@ -0,0 +1,58 @@
#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
# This script is used by LogEventToxCATDatabase event response to put RMC events into
# the xCAT evnetlog table. It handles both batch and non-batching events.
BEGIN
{
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
}
use lib "$::XCATROOT/lib/perl";
use strict;
use Getopt::Std;
use POSIX qw(strftime);
use xCAT::Utils;
use xCAT::MsgUtils;
#`echo "---------------" >> /tmp/ling.log`;
#foreach(keys %ENV) {
# my $s="$_=" . $ENV{$_};
# `echo $s >> /tmp/ling.log`;
#}
my $batch=$ENV{ERRM_COND_BATCH};
my @a=();
if (!$batch) {
my $time=$ENV{ERRM_TIME};
my $nodenamelist=$ENV{ERRM_NODE_NAMELIST};
$nodenamelist =~ s/\{(.*)\}/$1/;
my $event={
eventtype => $ENV{ERRM_TYPE},
monitor => $ENV{ERRM_COND_NAME},
monnode => $ENV{ERRM_NODE_NAME},
node => $nodenamelist,
application => 'RMC',
component => $ENV{ERRM_RSRC_CLASS_PNAME},
id => $ENV{ERRM_RSRC_NAME} . "," . $ENV{ERRM_ATTR_PNAME},
severity => $ENV{ERRM_COND_SEVERITY},
message => '',
rawdata => $ENV{ERRM_ATTR_PNAME} . "=" . $ENV{ERRM_VALUE},
};
push(@a, $event);
} else {
xCAT::MsgUtils->message('S', "logeventtoxcat:batching is not supported by this script yet.\n");
exit 0;
}
my ($rc, $msg)=xCAT::Utils->logEventsToDatabase(\@a);
if ($rc) {
xCAT::MsgUtils->message('S', "logeventtoxcat:$msg\n");
}
exit $rc;