Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 69 Rev 251
Line 7... Line 7...
7 
our $VERSION = '1.1';
 7 
our $VERSION = '1.1';
8 
 
 8 
 
9 
# Looks at various Xen parameters, mainly which DOMU's are running on it
 9 
# Looks at various Xen parameters, mainly which DOMU's are running on it
10 
# Written by RWR, 20160911
 10 
# Written by RWR, 20160911
11 
 
 11 
 
- 
 
 12 
# find our location and use it for searching for libraries
12 
BEGIN {
 13 
BEGIN {
13 
   push @INC, shift;
 14 
   use FindBin;
- 
 
 15 
   use File::Spec;
- 
 
 16 
   use lib File::Spec->catdir($FindBin::Bin);
- 
 
 17 
   eval( 'use library;' );
- 
 
 18 
   die "Could not find library.pm in the code directory\n" if $@;
- 
 
 19 
   eval( 'use Data::Dumper;' );
14 
}
 20 
}
15 
 
 21 
 
- 
 
 22 
# check for valid OS.
- 
 
 23 
exit 1 unless &checkOS( { 'linux' => undef } );
- 
 
 24 
 
- 
 
 25 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
16 
use library;
 26 
# script returns a 2
- 
 
 27 
foreach my $command ( 'xl' ) {
- 
 
 28 
   exit 2 unless &validCommandOnSystem( $command );
- 
 
 29 
}
17 
 
 30 
 
18 
# category we will use for all values found
 31 
# category we will use for all values found
19 
# see sysinfo for a list of valid categories
 32 
# see sysinfo for a list of valid categories
20 
my $CATEGORY = 'xen';
 33 
my $CATEGORY = 'xen';
21 
 
 34 
 
Line 35... Line 48...
35 
# now, return the tab delimited output (to STDOUT). $CATEGORY is the first
 48 
# now, return the tab delimited output (to STDOUT). $CATEGORY is the first
36 
# item, name as recognized by sysinfo is the second and the value is
 49 
# item, name as recognized by sysinfo is the second and the value is
37 
# the last one. For multiple entries, place on separate lines (ie, newline
 50 
# the last one. For multiple entries, place on separate lines (ie, newline
38 
# separated)
 51 
# separated)
39 
 
 52 
 
40 
my $xl = &validCommandOnSystem( 'xl' );
 53 
my $xl = 'xl';
41 
exit 1 unless $xl;
 54 
exit 1 unless $xl;
42 
$xl .= ' list';
 55 
$xl .= ' list';
43 
 
 56 
 
44 
sub parseOutput {
 57 
sub parseOutput {
45 
   my $output = shift;
 58 
   my $output = shift;