Subversion Repositories havirt

sub status {

   my $return = '';

   &main::loadVirtDB();

   &main::loadNodePopulations();

   &main::loadNodeDB();

   my @header = ('Node','Threads','Memory','Domains','vcpu','mem_used' );

   my @data;

   my $usedmem = 0;

   my $usedcpu = 0;

   my $availmem = 0;

   my $availcpu = 0;

   my $totalDomains = 0;

   foreach my $node (sort keys %$main::nodeDB ) {

      my $memory = 0;

      my $vcpus = 0;

      my $count = 0;

      foreach my $domain ( keys %{ $main::nodePopulations->{$node}->{'running'} } ) {

         $memory += $main::virtDB->{$domain}->{'memory'};

         $vcpus += $main::virtDB->{$domain}->{'vcpu'};

         $count++;

      }

      push @data, [ $node,$main::nodeDB->{$node}->{cpu_count},$main::nodeDB->{$node}->{memory},$count,$vcpus,$memory ];

      $usedmem += $memory;

      $usedcpu += $vcpus;

      $totalDomains += $count;

      $availmem += $main::nodeDB->{$node}->{memory};

      $availcpu += $main::nodeDB->{$node}->{cpu_count};

   } # outer for

   push @data, [ 'Total',$availcpu,$availmem,$totalDomains,$usedcpu,$usedmem ];

   return &main::report( \@header, \@data );

}