File:Check nfs mounts.pl

From RARFORGE
Jump to: navigation, search
Check_nfs_mounts.pl(file size: 774 B, MIME type: application/x-perl)
Warning: This file type may contain malicious code. By executing it, your system may be compromised.
#!/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);
}

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeDimensionsUserComment
current15:50, 1 March 2013 (774 B)Robertr (Talk | contribs)

The following page links to this file:

Personal tools
Namespaces

Variants
Views
Actions
Navigation
Toolbox