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;