File:Check nfs mounts.pl: Difference between revisions

<source lang=perl>

1. !/usr/bin/perl -w

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

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

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

print $info;

           #print "OK: $result[0]\n";
           #exit(0);
       } else {
           #print $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>