Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl
use warnings;
use strict;  

# Description: get information on lvm2 partitions

our $VERSION = '1.0';

# Linux lvm2
# Author: R. W. Rodolico
# Date:  2017-11-24

# get some information on lvm2

# find our location and use it for searching for libraries
BEGIN {
   use FindBin;
   use File::Spec;
   use lib File::Spec->catdir($FindBin::Bin);
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
   eval( 'use Data::Dumper;' );
}

# check for valid OS. 
exit 1 unless &checkOS( { 'linux' => undef } );

# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
# script returns a 2
foreach my $command ( 'vgs','pvs','lvs' ) {
   exit 2 unless &validCommandOnSystem( $command );
}

# category we will use for all values found
# see sysinfo for a list of valid categories
my $CATEGORY = 'diskinfo';

my @output;
my @temp;
my $line;

my %pv;
my %vg;
my %lv;
my $name;

@output = qx( pvs --units k --noheadings );
# this outputs several lines like the following
#  /dev/md0   vg-md0 lvm2 a--  5860147200.00k 6995968.00k
chomp @output;
foreach $line ( @output ) {
   @temp = split( /\s+/, $line );
   $name = $temp[1];
   $pv{$name}{'vg'} = $temp[2];
   $pv{$name}{'size'} = $temp[5];
   $pv{$name}{'size'} =~ s/k//;
   $pv{$name}{'size'} = int( $pv{$name}{'size'} );
   $pv{$name}{'free'} = $temp[5];
   $pv{$name}{'free'} =~ s/k//;
   $pv{$name}{'free'} = int( $pv{$name}{'free'} );
}

# following outputs something like this
#  vg-md0   1   9   0 wz--n- 5860147200.00k 6995968.00k
@output = qx( 'vgs' --units k --noheadings );
chomp @output;
foreach $line ( @output ) {
   @temp = split( /\s+/, $line );
   $name = $temp[1];
   $vg{$name}{'size'} = $temp[6];
   $vg{$name}{'size'} =~ s/k//;
   $vg{$name}{'size'} = int( $vg{$name}{'size'} );
   $vg{$name}{'free'} = $temp[7];
   $vg{$name}{'free'} =~ s/k//;
   $vg{$name}{'free'} = int( $vg{$name}{'free'} );
}

# outputs something like this
#  centos                      vg-md0 -wi-ao--   10485760.00k                                           
@output = qx( lvs --units k --noheadings );
chomp @output;
foreach $line ( @output ) {
   @temp = split( /\s+/, $line );
   $name = $temp[1];
   $lv{$name}{'vg'} = $temp[2];
   $lv{$name}{'size'} = $temp[4];
   $lv{$name}{'size'} =~ s/k//;
   $lv{$name}{'size'} = int( $lv{$name}{'size'} );
}

my @results;

foreach $line ( keys %lv ) {
   push @results, "$CATEGORY\t$line\tsize\t" . $lv{$line}{'size'};
   push @results, "$CATEGORY\t$line\tfstype\tlvm2 lv";
   push @results, "$CATEGORY\t$line\tvg\t" . $lv{$line}{'vg'};
}

foreach $line ( keys %vg ) {
   push @results, "$CATEGORY\t$line\tsize\t" . $vg{$line}{'size'};
   push @results, "$CATEGORY\t$line\tused\t" . ( $vg{$line}{'size'} - $vg{$line}{'free'}) ;
   push @results, "$CATEGORY\t$line\tfstype\tlvm2 vg";
   my @components;
   foreach my $pv ( keys %pv ) {
      if ( $pv{$pv}{'vg'} eq $line ) {
         push @components, $pv;
      }
   }
   push @results, "$CATEGORY\t$line\tcomponents\t" . join( ' ', @components );
}

foreach $line ( keys %pv ) {
   push @results, "$CATEGORY\t$line\tsize\t" . $pv{$line}{'size'};
   push @results, "$CATEGORY\t$line\tfstype\tlvm2 pv";
}


print join( "\n", @results ) . "\n";

exit 0;