File:Check bind mounts.pl: Difference between revisions

<source lang=perl>

1. !/usr/bin/perl -w

my $mount = shift; my @mounts = `grep bind /etc/fstab | grep -v ^\#`;

my $info; my $fail; foreach my $line (@mounts) {

   my $mount;
   if ($line =~ /[\/\w\d]+[\s]+([\/\w\d]+)\s+/i) {
       my $mount = $1;
       my $cmd = "df -a | grep  $mount";
       my @result = `df -a  | grep  $mount`;
       #my @result = `df -a $mount | grep root\@`;
       if (@result) {
           $info .= "$mount=1,";

print $info;

           #print "OK: $result[0]\n";
           #exit(0);
       } else {
           print "\n" . $cmd . "\n";
           $fail .= "$mount=0,";
       }
   } 

} $info =~ s/,$// if $info; $fail =~ s/,$// if $fail;

if ($fail) {

   print "CRITICAL: $fail (ok: $info)\n";
   exit(2);

} else {

   print "OK: $info\n";
   exit(0);

} </source>