Subversion Repositories camp_sysinfo_client_3

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

# Description: ZFS Disk usage

our $VERSION = '1.0';

# ZFS disks module for sysinfo client
# Author: R. W. Rodolico
# Date:  2017-11-24

# gets information on ZFS partitions. Returns them as a hash

# 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, 'freebsd' => 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 ( 'zpool' ) {
   exit 2 unless &validCommandOnSystem( $command );
}

my $temp;
my $device;
my @temp;
my $CATEGORY = 'diskinfo';

sub zfsComponents {
   my $zpoolName = shift;
   my @lines = qx( zpool list -pHv $zpoolName );
   my @result;
   shift @lines; # we already have the first line of info
   my @temp = split( "\t", $lines[0] );
   push @result, "$CATEGORY\t$zpoolName\tlevel\t$temp[1]";
   shift @lines;
   my @out;
   while ( $temp = shift @lines ) {
      @temp = split( "\t", $temp );
      push @out, $temp[1] if defined $temp[1];
   }
   push @result, "$CATEGORY\t$zpoolName\tcomponents\t" . join( " ", @out );
   return join( "\n", @result ) . "\n";
}

# process zfs
@temp = qx ( zpool list -pH );
foreach $device ( @temp ) {
   chomp $device;
   my ( $name, $size, $allocated, $free, $expandsz, $frag, $cap, $dedup, $health, $altroot ) = split( "\t", $device );
   $size /= 1024;
   $allocated /= 1024;
   $allocated = int( $allocated );
   print "$CATEGORY\t$name\tfstype\tzfs\n"; # next is fs type
   print "$CATEGORY\t$name\tsize\t$size\n"; # total partition size, in k
   print "$CATEGORY\t$name\tused\t$allocated\n"; # disk usage, in k
   print &zfsComponents( $name );
} # foreach