59 lines
1.4 KiB
Plaintext
59 lines
1.4 KiB
Plaintext
|
#!/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;
|
||
|
|
|
||
|
|
|