--- logwatch-7.3.6/scripts/services/zz-disk_space 2015-11-18 15:03:12.271040764 +0100 +++ logwatch-7.3.6-new/scripts/services/zz-disk_space 2015-11-18 15:03:01.594047694 +0100 @@ -172,18 +172,30 @@ sub DiskSpace () } sub DiskFull { - my $o = `$disk_cmd`; - my @rows = split('\n', $o); - foreach my $row (@rows) { - my @fields = split(' ', $row); - my $use = $fields[4]; - $use =~ s/%//; - if (($use > $diskfull_threshhold) && ($fields[0] !~ /\/dev\/scd/ ) && ($fields[0] !~ /\/dev\/sr/ ) - && ($fields[0] !~ /\/dev\/loop./)) { - print "$fields[0] => $fields[4] Used. Warning. Disk Filling up.\n"; - } - } -} + my $o = `$disk_cmd`; + my @good_rows = (); + my @rows = split('\n', $o); + for (my $i=0; $i $diskfull_threshhold) && ($filesystem !~ /\/dev\/scd/ ) && ($filesystem !~ /\/dev\/sr/ ) + && ($filesystem !~ /\/dev\/loop./)) + { + print "$filesystem => $use% Used. Warning. Disk Filling up.\n"; + } + } +} ##################### #Main