Contents of /trunk/nl.nikhef.ndpf.tools/nagios-ndpf-sensors/scripts/check_writable_filesystem

#!/usr/bin/perl -w

# Nagios probe to verify that a file system is writable
# This is verified by first inspecting the information from /proc/mounts
# If the file system is mounted rw, then it is attempted to create a file on it

use strict;
use Getopt::Long;

my $verbose=0;
my $help;
my $hostname;
my $debug;

my $TIMEOUT = 10;

GetOptions("help" => \$help,
           "host:s" => \$hostname,
           "debug" => \$debug,
           "verbose+" => \$verbose );


my %ERRORS=(OK=>0,
            WARNING=>1,
            CRITICAL=>2,
            UNKNOWN=>3,
            DEPENDENT=>4);
my $result = $ERRORS{"UNKNOWN"};

if ( scalar @ARGV < 1 ) {
    print( "UNKNOWN: missing mandatory argument for file system\n" );
    exit $ERRORS{"UNKNOWN"};
}
my $filesystem = $ARGV[0];

# remove trailing slashes or the match against /proc/mounts will fail
$filesystem =~ s!\/*$!!;

# Just in case of problems, let's not hang Nagios
$SIG{'ALRM'} = sub {
     print ("ERROR: No response from $hostname (alarm timeout)\n");
     exit $ERRORS{"UNKNOWN"};
};

alarm($TIMEOUT);

my $msg;
($result, $msg) = &check_writable_filesystem( $filesystem );

alarm(0);

print "$msg\n";
exit($result);


#
# check_writable_filesystem
#
# Checks that a specific file system is mounted RW and that a file can be written to it
#
sub check_writable_filesystem {
    my $filesystem = $_[0];
        my $res = $ERRORS{OK};
        my $msg = '';
        
    if ( ! open MNT, "/proc/mounts" ) {
        $msg = "Failed to open /proc/mounts";
        $res = $ERRORS{CRITICAL};
    }
    
    # check that the file system is mounted
    if ( $res == $ERRORS{OK} ) {
        my $found = 0;
        while ( <MNT> ) {
            my ($mnt, $fs, $options) = (split /\s+/)[1,2,3];
            $debug and print STDERR "$mnt  $fs  $options\n";
            if ( $mnt eq $filesystem ) {
                $verbose and print STDERR "Found file system $filesystem\n";
                foreach my $opt ( split(',', $options) ) {
                    if ( $opt eq "ro" ) {
                        $msg = "file system $fs is mounted read-only";
                        $res = $ERRORS{CRITICAL};
                        last;   # no need to process other options
                    }
                    elsif ( $opt eq "rw" ) {
                        $verbose and print STDERR "mount: $mnt $fs $opt\n";
                        last;   # no need to process other options
                    }
                }
                $found = 1;
                last;
            }
        }
        close MNT;
        if ( ! $found ) {
            $msg = "file system $filesystem is not mounted";
            $res = $ERRORS{CRITICAL};
        }
    }

    # write to file
    my $now = time;
    my $file = "$filesystem/nagios-check-writable-fs.$now";

    if ( $res == $ERRORS{OK} ) {
        if ( ! open WRT, "> $file" ) {
            $msg = "Cannot write to $file: $!";
            $res = $ERRORS{CRITICAL};
        }
        # Do not write anything because that may fail if the disk is full!
        close WRT;
    }
     
    if ( $res == $ERRORS{CRITICAL} ) {
        $msg = "ERROR: $msg";
    }
    else {
        $msg = "OK";
    }

        return ($res, $msg);
}

1	#!/usr/bin/perl -w
2
3	# Nagios probe to verify that a file system is writable
4	# This is verified by first inspecting the information from /proc/mounts
5	# If the file system is mounted rw, then it is attempted to create a file on it
6
7	use strict;
8	use Getopt::Long;
9
10	my $verbose=0;
11	my $help;
12	my $hostname;
13	my $debug;
14
15	my $TIMEOUT = 10;
16
17	GetOptions("help" => \$help,
18	"host:s" => \$hostname,
19	"debug" => \$debug,
20	"verbose+" => \$verbose );
21
22
23	my %ERRORS=(OK=>0,
24	WARNING=>1,
25	CRITICAL=>2,
26	UNKNOWN=>3,
27	DEPENDENT=>4);
28	my $result = $ERRORS{"UNKNOWN"};
29
30	if ( scalar @ARGV < 1 ) {
31	print( "UNKNOWN: missing mandatory argument for file system\n" );
32	exit $ERRORS{"UNKNOWN"};
33	}
34	my $filesystem = $ARGV[0];
35
36	# remove trailing slashes or the match against /proc/mounts will fail
37	$filesystem =~ s!\/*$!!;
38
39	# Just in case of problems, let's not hang Nagios
40	$SIG{'ALRM'} = sub {
41	print ("ERROR: No response from $hostname (alarm timeout)\n");
42	exit $ERRORS{"UNKNOWN"};
43	};
44
45	alarm($TIMEOUT);
46
47	my $msg;
48	($result, $msg) = &check_writable_filesystem( $filesystem );
49
50	alarm(0);
51
52	print "$msg\n";
53	exit($result);
54
55
56
57
58	#
59	# check_writable_filesystem
60	#
61	# Checks that a specific file system is mounted RW and that a file can be written to it
62	#
63	sub check_writable_filesystem {
64	my $filesystem = $_[0];
65	my $res = $ERRORS{OK};
66	my $msg = '';
67
68	if ( ! open MNT, "/proc/mounts" ) {
69	$msg = "Failed to open /proc/mounts";
70	$res = $ERRORS{CRITICAL};
71	}
72
73	# check that the file system is mounted
74	if ( $res == $ERRORS{OK} ) {
75	my $found = 0;
76	while ( <MNT> ) {
77	my ($mnt, $fs, $options) = (split /\s+/)[1,2,3];
78	$debug and print STDERR "$mnt $fs $options\n";
79	if ( $mnt eq $filesystem ) {
80	$verbose and print STDERR "Found file system $filesystem\n";
81	foreach my $opt ( split(',', $options) ) {
82	if ( $opt eq "ro" ) {
83	$msg = "file system $fs is mounted read-only";
84	$res = $ERRORS{CRITICAL};
85	last; # no need to process other options
86	}
87	elsif ( $opt eq "rw" ) {
88	$verbose and print STDERR "mount: $mnt $fs $opt\n";
89	last; # no need to process other options
90	}
91	}
92	$found = 1;
93	last;
94	}
95	}
96	close MNT;
97	if ( ! $found ) {
98	$msg = "file system $filesystem is not mounted";
99	$res = $ERRORS{CRITICAL};
100	}
101	}
102
103	# write to file
104	my $now = time;
105	my $file = "$filesystem/nagios-check-writable-fs.$now";
106
107	if ( $res == $ERRORS{OK} ) {
108	if ( ! open WRT, "> $file" ) {
109	$msg = "Cannot write to $file: $!";
110	$res = $ERRORS{CRITICAL};
111	}
112	# Do not write anything because that may fail if the disk is full!
113	close WRT;
114	}
115
116	if ( $res == $ERRORS{CRITICAL} ) {
117	$msg = "ERROR: $msg";
118	}
119	else {
120	$msg = "OK";
121	}
122
123	return ($res, $msg);
124	}
125
grid.support@nikhef.nl	ViewVC Help
Powered by ViewVC 1.1.28