xcat-core/xCAT-rmc/resources/sn/IBM.EventResponse/UpdatexCATNodeStatus_Batch.pm
2009-03-06 16:30:03 +00:00

21 lines
536 B
Perl

#!/usr/bin/perl
BEGIN
{
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
}
use lib "$::XCATROOT/lib/perl";
use xCAT::Utils;
if (exists($ENV{RSCT_VER})) {
my $rsct_ver=$ENV{RSCT_VER};
if (xCAT::Utils->CheckVersion($rsct_ver, "2.3.5.0") < 0) { exit 0;}
}
$RES::EventResponse{'UpdatexCATNodeStatus_Batch'} = {
Name => q(UpdatexCATNodeStatus_Batch),
Locked => q(0),
EventBatching => q(1),
Actions => q({[updatexCAT,{127},{0},{86400},/opt/xcat/sbin/rmcmon/updatexcatnodestatus,3,0,0,0,{},0]}),
};
1;