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