Subversion Repositories camp_sysinfo_client_3

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

use Data::Dumper;

# Description: get information on md (RAID)

our $VERSION = '1.0';

# Linux MD (RAID)
# Author: R. W. Rodolico
# Date:  2017-11-24

# get some information on RAID arrays covered by mdadm

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 ( 'mdadm', 'fdisk' ) {
   exit 2 unless &validCommandOnSystem( $command );
}

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

# run the commands necessary to do whatever you want to do
# The library entered above has some helper routines
# validCommandOnSystem -- passed a name, returns the fully qualified path or '' if it does not exist
# cleanUp - passed a delimiter and a string, does the following (delimiter can be '')
#           chomps the string (removes trailing newlines)
#           removes all text BEFORE the delimiter, the delimiter, and any whitespace
#           thus, the string 'xxI Am x  a weird string' with a newline will become
#           'a weird string' with no newline

# now, return the tab delimited output (to STDOUT). $CATEGORY is the first
# item, name as recognized by sysinfo is the second and the value is
# the last one. For multiple entries, place on separate lines (ie, newline separated)


exit 1 unless -e '/proc/mdstat';

open MD,'</proc/mdstat' or exit 1;
my @temp = <MD>;
close MD;

my @results;

while ( my $line = shift @temp ) {
   chomp $line;
   if ( $line =~ m/^(md\d+)\s+:\s+(.*)$/ ) {
      my $device = $1;
      my @components = split( /\s+/, $2 );
      shift @components;
      push @results, "$CATEGORY\t$device\tlevel\t" . shift(@components);
      push @results, "$CATEGORY\t$device\tcomponents\t" . join( " ", @components );
      my $temp = qx( mdadm --detail /dev/$device | grep 'Array Size' | cut -d':' -f2 | cut -d' ' -f2 );
      chomp $temp;
      push @results, "$CATEGORY\t$device\tsize\t$temp";
   }
}

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

exit 0;