Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 198 Rev 251
Line 7... Line 7...
7 
our $VERSION = '1.0';
 7 
our $VERSION = '1.0';
8 
 
 8 
 
9 
# Looks at various libvirt information about running virtuals
 9 
# Looks at various libvirt information about running virtuals
10 
# Written by RWR and BNR, 20210228
 10 
# Written by RWR and BNR, 20210228
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;' ); die "Could not find library.pm in the code directory\n" if $@;
- 
 
 18 
   eval( 'use Data::Dumper;' );
- 
 
 19 
}
- 
 
 20 
 
- 
 
 21 
# check for valid OS.
- 
 
 22 
exit 1 unless &checkOS( { 'linux' => undef } );
- 
 
 23 
 
- 
 
 24 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
- 
 
 25 
# script returns a 2
- 
 
 26 
foreach my $command ( 'virsh' ) {
- 
 
 27 
   exit 2 unless &validCommandOnSystem( $command );
14 
}
 28 
}
15 
 
 29 
 
16 
use library;
 - 
 
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( 'virsh' );
 53 
my $xl = 'virsh';
41 
# print "My command is $xl\n";
 54 
# print "My command is $xl\n";
42 
exit 1 unless $xl;
 55 
exit 1 unless $xl;
43 
$xl .= ' list';
 56 
$xl .= ' list';
44 
# print "My command is $xl\n";
 57 
# print "My command is $xl\n";
45 
# die;
 58 
# die;