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

modified pcp_collect

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2266 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
saiprakash 2008-09-30 14:39:59 +00:00
parent 456b15b51a
commit d00f870c08
1 changed files with 38 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
xCAT-server/sbin/pcp_collect
View File

@ -13,6 +13,7 @@ use xCAT::Utils;
use xCAT::GlobalDef;
use xCAT_monitoring::monitorctrl;
use xCAT::MsgUtils;
use xCAT_monitoring::xcatmon;
use strict;
use warnings;
1;
@ -60,10 +61,21 @@ sub performance
no strict;
no warnings;
#my $i=0;
my @inactive_children;
for ($i = 0;$i < $count_child;$i++)
{ #opening if count_child 2
$str=`pmdumptext -c $::XCATROOT/lib/perl/xCAT_monitoring/pcp/pcpmon.config -d§ -s1 -h$children[$i] -f%D:%H:%M:%S`;
$str=`pmdumptext -c $::XCATROOT/lib/perl/xCAT_monitoring/pcp/pcpmon.config -d§ -s1 -h$children[$i] -f%D:%H:%M:%S 2>&1`;
#print "before split is $str \n";
#if ($str =~ /\s*No\s*route\s*to\s*host/)
if ($str =~ /pmdumptext:\s*Error:\s*host\s*"\w*":/)
{
#print "host unreachable \n";
@inactive_children=$children[$i];
#print "inactive children is @inactive_children \n";
}
else
{
#print "into elso loop \n";
$str =~ s/\n//g;
#print "before split_1 is $str \n";
my @spl1=split(/§/,$str);
@ -118,7 +130,32 @@ sub performance
$table1->setAttribs(\%key_col1, \%setting_hash);
}
$table1->close();
}
} #closing if count_child 2
my %node_status=();
#print "2nd set is @inactive_children \n";
my $count_inactive=@inactive_children;
if ($count_inactive>0)
{
#print "more than 0 inactive children \n";
#print "3rd set is @inactive_children \n";
$node_status{$::STATUS_INACTIVE}=\@inactive_children;
my $changed1=$nodes_status{$::STATUS_INACTIVE};
#print "the changed1 is $changed1 \n";
my @final_inactive=@$changed1;
#print "final inactive is @final_inactive \n";
}
#only set the node status for the changed ones
if (keys(%node_status) > 0)
{
#print %node_status, "\n";
#print "updating nodelist table \n";
xCAT_monitoring::xcatmon::setNodeStatusAttributes(\%node_status);
}
} #closing if count_child 1
} # closing subroutine