tyler.durden/pandorafms
1
0
Fork 0
mirror of https://github.com/pandorafms/pandorafms.git synced 2025-07-31 01:35:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

New functionality: added regex support to pandora_df filters

Browse Source
This commit is contained in:
fbsanchez 2016-08-18 13:29:56 +02:00
parent 0367f88f56
commit 2c59c04862
1 changed files with 45 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
pandora_agents/unix/plugins/pandora_df
View File

@ -11,6 +11,8 @@
# #
# Sample usage: ./pandora_df tmpfs /dev/sda1 # Sample usage: ./pandora_df tmpfs /dev/sda1
# #
# Set the first parameter as "-r" to use regular expressions in name match
#
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License. # the Free Software Foundation; version 2 of the License.
@ -27,11 +29,49 @@ use strict;
# Retrieve information from all filesystems # Retrieve information from all filesystems
my $all_filesystems = 0; my $all_filesystems = 0;
# Regex flag
my $regex_mode = 0;
use Data::Dumper;
sub check_re($$){
my $item = shift;
my $array = shift;
foreach my $check (@{$array}){
if ($item =~ /$check/){
return 1;
}
}
return undef;
}
sub check_in($$){
my $filesystems = shift;
my $fs = shift;
if(($regex_mode == 0) || ( !defined ($regex_mode))) {
return defined ($filesystems->{$fs});
}
# check if matches any key
my @keys = keys %{$filesystems};
return check_re($fs, \@keys);
}
#
# MAIN
#
# Check command line parameters # Check command line parameters
if ($#ARGV < 0) { if ($#ARGV < 0) {
$all_filesystems = 1; $all_filesystems = 1;
} }
# Check if regex mode is enabled
if ($ARGV[0] eq "-r") {
$regex_mode = 1;
shift @ARGV;
}
# Parse command line parameters # Parse command line parameters
my %filesystems; my %filesystems;
my %excluded_filesystems; my %excluded_filesystems;
@ -59,16 +99,17 @@ if ($#df < 0) {
exit 1; exit 1;
} }
my %out;
# Parse filesystem usage # Parse filesystem usage
foreach my $row (@df) { foreach my $row (@df) {
my @columns = split (' ', $row); my @columns = split (' ', $row);
exit 1 if ($#columns < 4); exit 1 if ($#columns < 4);
if (defined ($filesystems{$columns[0]}) || ($all_filesystems == 1 && !defined ($excluded_filesystems{$columns[0]}))) { if (check_in (\%filesystems,$columns[0]) || ($all_filesystems == 1 && !check_in(\%excluded_filesystems,$columns[0]) )) {
$filesystems{$columns[0]} = $columns[4] ; $out{$columns[0]} = $columns[4] ;
} }
} }
while (my ($filesystem, $use) = each (%filesystems)) { while (my ($filesystem, $use) = each (%out)) {
# Remove the trailing % # Remove the trailing %
chop ($use); chop ($use);