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;