Subversion Repositories havirt

Rev

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

Rev 10 Rev 11
Line 42... Line 42...
42 
our @ISA = qw( Exporter );
 42 
our @ISA = qw( Exporter );
43 
our @EXPORT = qw(
43 
our @EXPORT = qw(
44 
                  &list
 44 
                  &list
45 
                );
 45 
                );
46 
 
 46 
 
- 
 
 47 
sub help {
- 
 
 48 
   my @return;
- 
 
 49 
   push @return, 'cluster status';
- 
 
 50 
   push @return, "\t[--format|-f screen|tsv] - displays some stats on cluster resources used";
- 
 
 51 
   return join( "\n", @return ) . "\n";
- 
 
 52 
}
- 
 
 53 
 
47 
sub status {
 54 
sub status {
48 
   my $return = '';
 55 
   my $return = '';
49 
   &main::loadVirtDB();
 56 
   &main::loadVirtDB();
50 
   &main::loadNodePopulations();
 57 
   &main::loadNodePopulations();
51 
   &main::loadNodeDB();
 58 
   &main::loadNodeDB();