xcat-core/xCAT-server/sbin/pcp_collect

#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
#package xCAT_monitoring::performance;
BEGIN
{
  $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
}
use lib "$::XCATROOT/lib/perl";
use xCAT::NodeRange;
use Sys::Hostname;
use Socket;
use xCAT::Utils;
use xCAT::GlobalDef;
use xCAT_monitoring::monitorctrl;
use xCAT::MsgUtils;
use xCAT_monitoring::xcatmon;
use strict;
use warnings;
1;
performance();
sub  performance
     { #opening subroutine
	  
		   my $noderef=xCAT_monitoring::monitorctrl->getMonHierarchy();
           #identification of this node
           my @hostinfo=xCAT::Utils->determinehostname();
           #print "hosT:@hostinfo\n";
           my $isSV=xCAT::Utils->isServiceNode();
           #print "is sv is:$isSV \n";
           my %iphash=();
           foreach(@hostinfo) {$iphash{$_}=1;}
           if (!$isSV) { $iphash{'noservicenode'}=1;}

           my @children;
		   my $str;
		   
           foreach my $key (keys (%$noderef))
            { #opening foreach1
		      #print "opening foreach1 \n";
              #print "key is: $key \n";
              my @key_a=split(',', $key);
			  if (! $iphash{$key_a[0]}) { next;}
              my $mon_nodes=$noderef->{$key};

              foreach(@$mon_nodes)
                { #opening foreach2
                  my $node=$_->[0];
                  my $nodetype=$_->[1];
                  #print "node=$node, nodetype=$nodetype\n";
                  if (($nodetype) && ($nodetype =~ /$::NODETYPE_OSI/))
                   {
                    push(@children,$node);
                   }
                } #closing foreach2
            }  #closing foreach1
          #print "children:@children\n";
		  my $count_child=@children;
		  if($count_child > 0)
		   { #opening if count_child 1
			 #print "number of children is $count_child \n";
             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 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(/<2F>/,$str);
				  #print "splitted and #printing \n";
				  #print @spl1;
				  my $count_spl1=@spl1;
			      #print "the array has $count_spl1 elements \n"; 
				  #print "@spl1[0] \n";
				  #print "@spl1[1] \n";
				  my $count3= `cat $::XCATROOT/lib/perl/xCAT_monitoring/pcp/pcpmon.config | wc -l`;
			      #print "the number of lines in the file is count3:$count3 \n";
				  `tr "\n" "<22>" <$::XCATROOT/lib/perl/xCAT_monitoring/pcp/pcpmon.config> $::XCATROOT/lib/perl/xCAT_monitoring/pcp/pcpmon.config.tr`;
				  my $fname = "$::XCATROOT/lib/perl/xCAT_monitoring/pcp/pcpmon.config.tr";
                  unless ( open( CONF, $fname ))
                  {
                   return(0);
                  }
                  my $raw_data = <CONF>;
                  close( CONF );
				  
                  #print "the contents of the config file are $raw_data \n";
				  my @spl2=split(/<2F>/,$raw_data);
				  #print "splitted and #printing \n";
				  #print @spl2;
				  my $count_spl2=@spl2;
			      #print "the array has $count_spl2 elements \n"; 
				  #print @spl2[0] ;
				  #print @spl2[1] ;
                  #print "updating table \n";
				  my $table1=xCAT::Table->new("performance", -create => 1,-autocommit => 1);
				  #print "table created \n";
				  my $j;
				  #my $k;
				  my $l=$j+1;
				  #print "l is $l \n";
				  my %setting_hash=();
				  for ($j=0;$j<$count_spl2 ;$j++)
					 {
					  
					  #print "inside j loop \n";
					  #print "spl1[0] is $spl1[0] \n";
					  my %key_col1 = (timestamp=>$spl1[0]);
				      #print "time stamp updated \n";
					  #print "node is $children[$i] \n";
	                  $key_col1{node}=$children[$i]; 
				      #print "children updatesd \n";
					  #print "spl2 is $spl2[$j] \n";
				      $key_col1{attrname} = $spl2[$j];
					  #$setting_hash{attrname}=$spl2[$j];
					  #print "spl1 is $spl1[$j+1] \n";
                      $setting_hash{attrvalue}=$spl1[$j+1];
					  $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