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 10... Line 10...
10 
# Author: R. W. Rodolico
 10 
# Author: R. W. Rodolico
11 
# Date:  2017-11-24
 11 
# Date:  2017-11-24
12 
 
 12 
 
13 
# get some information on lvm2
 13 
# get some information on lvm2
14 
 
 14 
 
- 
 
 15 
# find our location and use it for searching for libraries
15 
BEGIN {
 16 
BEGIN {
16 
   push @INC, shift;
 17 
   use FindBin;
- 
 
 18 
   use File::Spec;
- 
 
 19 
   use lib File::Spec->catdir($FindBin::Bin);
- 
 
 20 
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
- 
 
 21 
   eval( 'use Data::Dumper;' );
17 
}
 22 
}
18 
 
 23 
 
- 
 
 24 
# check for valid OS.
- 
 
 25 
exit 1 unless &checkOS( { 'linux' => undef } );
- 
 
 26 
 
- 
 
 27 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
19 
use library;
 28 
# script returns a 2
- 
 
 29 
foreach my $command ( 'vgs','pvs','lvs' ) {
- 
 
 30 
   exit 2 unless &validCommandOnSystem( $command );
- 
 
 31 
}
20 
 
 32 
 
21 
# category we will use for all values found
 33 
# category we will use for all values found
22 
# see sysinfo for a list of valid categories
 34 
# see sysinfo for a list of valid categories
23 
my $CATEGORY = 'diskinfo';
 35 
my $CATEGORY = 'diskinfo';
24 
 
 36 
 
25 
# run the commands necessary to do whatever you want to do
 - 
 
26 
# The library entered above has some helper routines
 - 
 
27 
# validCommandOnSystem -- passed a name, returns the fully qualified path or '' if it does not exist
 - 
 
28 
# cleanUp - passed a delimiter and a string, does the following (delimiter can be '')
 - 
 
29 
#           chomps the string (removes trailing newlines)
 - 
 
30 
#           removes all text BEFORE the delimiter, the delimiter, and any whitespace
 - 
 
31 
#           thus, the string 'xxI Am x  a weird string' with a newline will become
 - 
 
32 
#           'a weird string' with no newline
 - 
 
33 
 
 - 
 
34 
# now, return the tab delimited output (to STDOUT). $CATEGORY is the first
 - 
 
35 
# item, name as recognized by sysinfo is the second and the value is
 - 
 
36 
# the last one. For multiple entries, place on separate lines (ie, newline separated)
 - 
 
37 
 
 - 
 
38 
# check for commands we want to run
 - 
 
39 
my %commands = (
- 
 
40 
                  'vgs' => '',
 - 
 
41 
                  'pvs' => '',
 - 
 
42 
                  'lvs' => ''
 - 
 
43 
               );
 - 
 
44 
 
 - 
 
45 
# check the commands for validity
 - 
 
46 
foreach my $command ( keys %commands ) {
 - 
 
47 
   $commands{$command} = &validCommandOnSystem( $command );
 - 
 
48 
}
 - 
 
49 
 
 - 
 
50 
# bail if we don't have the commands we need
 - 
 
51 
exit 1 unless $commands{'lvs'};
 - 
 
52 
 
 - 
 
53 
my @output;
 37 
my @output;
54 
my @temp;
 38 
my @temp;
55 
my $line;
 39 
my $line;
56 
 
 40 
 
57 
my %pv;
 41 
my %pv;
58 
my %vg;
 42 
my %vg;
59 
my %lv;
 43 
my %lv;
60 
my $name;
 44 
my $name;
61 
 
 45 
 
62 
@output = qx( $commands{pvs} --units k --noheadings );
 46 
@output = qx( pvs --units k --noheadings );
63 
# this outputs several lines like the following
 47 
# this outputs several lines like the following
64 
#  /dev/md0   vg-md0 lvm2 a--  5860147200.00k 6995968.00k
 48 
#  /dev/md0   vg-md0 lvm2 a--  5860147200.00k 6995968.00k
65 
chomp @output;
 49 
chomp @output;
66 
foreach $line ( @output ) {
 50 
foreach $line ( @output ) {
67 
   @temp = split( /\s+/, $line );
 51 
   @temp = split( /\s+/, $line );
Line 75... Line 59...
75 
   $pv{$name}{'free'} = int( $pv{$name}{'free'} );
 59 
   $pv{$name}{'free'} = int( $pv{$name}{'free'} );
76 
}
 60 
}
77 
 
 61 
 
78 
# following outputs something like this
 62 
# following outputs something like this
79 
#  vg-md0   1   9   0 wz--n- 5860147200.00k 6995968.00k
 63 
#  vg-md0   1   9   0 wz--n- 5860147200.00k 6995968.00k
80 
@output = qx( $commands{'vgs'} --units k --noheadings );
 64 
@output = qx( 'vgs' --units k --noheadings );
81 
chomp @output;
 65 
chomp @output;
82 
foreach $line ( @output ) {
 66 
foreach $line ( @output ) {
83 
   @temp = split( /\s+/, $line );
 67 
   @temp = split( /\s+/, $line );
84 
   $name = $temp[1];
 68 
   $name = $temp[1];
85 
   $vg{$name}{'size'} = $temp[6];
 69 
   $vg{$name}{'size'} = $temp[6];
Line 90... Line 74...
90 
   $vg{$name}{'free'} = int( $vg{$name}{'free'} );
 74 
   $vg{$name}{'free'} = int( $vg{$name}{'free'} );
91 
}
 75 
}
92 
 
 76 
 
93 
# outputs something like this
 77 
# outputs something like this
94 
#  centos                      vg-md0 -wi-ao--   10485760.00k
78 
#  centos                      vg-md0 -wi-ao--   10485760.00k
95 
@output = qx( $commands{lvs} --units k --noheadings );
 79 
@output = qx( lvs --units k --noheadings );
96 
chomp @output;
 80 
chomp @output;
97 
foreach $line ( @output ) {
 81 
foreach $line ( @output ) {
98 
   @temp = split( /\s+/, $line );
 82 
   @temp = split( /\s+/, $line );
99 
   $name = $temp[1];
 83 
   $name = $temp[1];
100 
   $lv{$name}{'vg'} = $temp[2];
 84 
   $lv{$name}{'vg'} = $temp[2];