Subversion Repositories havirt

Rev

Rev 11 | Rev 13 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11 Rev 12
Line 51... Line 51...
51 
   return join( "\n", @return ) . "\n";
 51 
   return join( "\n", @return ) . "\n";
52 
}
 52 
}
53 
 
 53 
 
54 
sub status {
 54 
sub status {
55 
   my $return = '';
 55 
   my $return = '';
56 
   &main::loadVirtDB();
 56 
   &main::loadDB();
57 
   &main::loadNodePopulations();
 - 
 
58 
   &main::loadNodeDB();
 - 
 
59 
   my @header = ('Node','Threads','Memory','Domains','vcpu','mem_used' );
 57 
   my @header = ('Node','Threads','Memory','Domains','vcpu','mem_used' );
60 
   my @data;
 58 
   my @data;
61 
   my $usedmem = 0;
 59 
   my $usedmem = 0;
62 
   my $usedcpu = 0;
 60 
   my $usedcpu = 0;
63 
   my $availmem = 0;
 61 
   my $availmem = 0;