minor fix in monitoring
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1982 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
4073a1f692
commit
84281c555b
@ -412,6 +412,7 @@ sub configBMC {
|
||||
print "XCATBYPASS=Y rspconfig $noderange alert=dis\n";
|
||||
my $result = `XCATBYPASS=Y rspconfig $noderange alert=dis 2>&1`;
|
||||
if ($?) {
|
||||
$ret_val=1;
|
||||
xCAT::MsgUtils->message('S', "[mon]: Changeing SNMP PEF policy for IPMI nodes $noderange:\n $result\n");
|
||||
$ret_text .= "Changeing SNMP PEF policy for IPMI nodes $noderange:\n $result\n";
|
||||
}
|
||||
@ -419,6 +420,7 @@ sub configBMC {
|
||||
print "XCATBYPASS=Y rspconfig $noderange alert=en\n";
|
||||
my $result = `XCATBYPASS=Y rspconfig $noderange alert=en 2>&1`;
|
||||
if ($?) {
|
||||
$ret_val=1;
|
||||
xCAT::MsgUtils->message('S', "[mon]: Changeing SNMP PEF policy for IPMI nodes $noderange:\n $result\n");
|
||||
$ret_text .= "Changeing SNMP PEF policy for IPMI nodes $noderange:\n $result\n";
|
||||
}
|
||||
@ -438,6 +440,7 @@ sub configBMC {
|
||||
print "XCATBYPASS=Y rspconfig $nr2 snmpdest=$ptmp->[1]\n";
|
||||
my $result2 = `XCATBYPASS=Y rspconfig $nr2 snmpdest=$ptmp->[1] 2>&1`;
|
||||
if ($?) {
|
||||
$ret_val=1;
|
||||
xCAT::MsgUtils->message('S', "[mon]: Changing SNMP destination for IPMI nodes $nr2:\n $result2\n");
|
||||
$ret_text .= "Changing SNMP destination for IPMI nodes $nr2:\n $result2\n";
|
||||
}
|
||||
@ -543,6 +546,7 @@ sub configMPA {
|
||||
print "XCATBYPASS=Y rspconfig $noderange alert=dis\n";
|
||||
my $result = `XCATBYPASS=Y rspconfig $noderange alert=dis 2>&1`;
|
||||
if ($?) {
|
||||
$ret_val=1;
|
||||
xCAT::MsgUtils->message('S', "[mon]: Changeing SNMP remote alert profile for Blade Center MM $noderange:\n $result\n");
|
||||
$ret_text .= "Changeing SNMP remote alert profile for Blade Center MM $noderange:\n $result\n";
|
||||
}
|
||||
@ -550,6 +554,7 @@ sub configMPA {
|
||||
print "XCATBYPASS=Y rspconfig $noderange alert=en\n";
|
||||
my $result = `XCATBYPASS=Y rspconfig $noderange alert=en 2>&1`;
|
||||
if ($?) {
|
||||
$ret_val=1;
|
||||
xCAT::MsgUtils->message('S', "[mon]: Changeing SNMP remote alert profile for Blade Center MM $noderange:\n $result\n");
|
||||
$ret_text .= "Changeing SNMP remote alert profile for Blade Center MM $noderange:\n $result\n";
|
||||
}
|
||||
@ -569,6 +574,7 @@ sub configMPA {
|
||||
print "XCATBYPASS=Y rspconfig $nr2 snmpdest=$ptmp->[1]\n";
|
||||
my $result2 = `XCATBYPASS=Y rspconfig $nr2 snmpdest=$ptmp->[1] 2>&1`;
|
||||
if ($?) {
|
||||
$ret_val=1;
|
||||
xCAT::MsgUtils->message('S', "[mon]: Changing SNMP destination for Blade Center MM $nr2:\n $result2\n");
|
||||
$ret_text .= "Changing SNMP destination for Blade Center MM $nr2:\n $result2\n";
|
||||
}
|
||||
|
@ -337,21 +337,14 @@ sub getMoreInfo {
|
||||
#get the position
|
||||
my $table1=xCAT::Table->new("nodepos", -create =>1);
|
||||
if ($table1) {
|
||||
my $ref1 = $table1->getNodeAttribs($node, ['rack', 'u', 'chassis', 'slot', 'room']);
|
||||
$pos .= " Room: ";
|
||||
if (($ref1) && ($ref1->{room})) { $pos .= $ref1->{room}; }
|
||||
$pos .= "\n";
|
||||
$pos .= " Rack: ";
|
||||
if(($ref1) && ($ref1->{rack})) { $pos .= $ref1->{rack};}
|
||||
$pos .= "\n";
|
||||
$pos .= " Unit: ";
|
||||
if(($ref1) && ($ref1->{u})) { $pos .= $ref1->{u}; }
|
||||
$pos .= "\n";
|
||||
$pos .= " Chassis: ";
|
||||
if(($ref1) && ($ref1->{chassis})) { $pos .= $ref1->{chassis};}
|
||||
$pos .= "\n";
|
||||
$pos .= " Slot: ";
|
||||
if(($ref1) && ($ref1->{slot})) { $pos .= $ref1->{slot};}
|
||||
my $ref1 = $table1->getNodeAttribs($node, ['rack', 'u', 'chassis', 'slot', 'room', 'comments']);
|
||||
if (($ref1) && ($ref1->{room})) { $pos .= " Room: " . $ref1->{room}. "\n"; }
|
||||
if(($ref1) && ($ref1->{rack})) { $pos .= " Rack: ". $ref1->{rack}. "\n";}
|
||||
if(($ref1) && ($ref1->{u})) { $pos .= " Unit: " . $ref1->{u} . "\n"; }
|
||||
if(($ref1) && ($ref1->{chassis})) { $pos .= " Chassis: " . $ref1->{chassis} . "\n";}
|
||||
if(($ref1) && ($ref1->{slot})) { $pos .= " Slot: " . $ref1->{slot} . "\n";}
|
||||
if(($ref1) && ($ref1->{comments})) { $pos .= " Comments: " . $ref1->{comments} . "\n";}
|
||||
|
||||
$pos .= "\n";
|
||||
|
||||
$table1->close();
|
||||
|
Loading…
Reference in New Issue
Block a user