#!/usr/bin/perl -w


use constant TIME_OUT => 2;
use constant SIZE		 => 7;

use constant STATUS_OK        => 0;
use constant STATUS_WARNING   => 1;
use constant STATUS_CRITICAL  => 2;
use constant STATUS_UNKNOW    => 3;
use constant STATUS_DEPENDANT => 4;


use strict;

my @errors;
my @stats;
my $nfs;
# Récupération des partitions montées actuellement

my $mount;

if (-x '/sbin/mount') { $mount = '/sbin/mount'; }
elsif (-x '/bin/mount') { $mount = '/bin/mount'; }
else { die "ERR Unable to find the mount command\n"; }

my %mounts;

open F, "${mount} |";

# On charge toutes les partitions montées sur la machine
#  pour vérifier ensuite la concordance avec /etc/fstab
while (<F>)
{
        next unless m/^(\S+) on (\S+)/o;

        if (defined ($mounts{$1}) && $1 ne "tmpfs" )
        {
                push @errors, "$1 is mounted several times !?";
        }
        else
        {
                $mounts{$1} = $2;
        }
}

close F;

# Lecture du fichier fstab

open F, '/etc/fstab';

while (<F>)
{
        next if m/^\s*$/o;
        next if m/^\s*#/o;
	next unless m/^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/o;

        my ($dev, $mpt, $type, $opt) = ($1, $2, $3, $4);

        next if $type eq 'swap';
        next if $type eq 'procfs';
        next if $opt =~ m/noauto/;
        
        # print "DEV => $mounts{$dev} - $dev\n";	

        if (defined($mounts{$dev}))
        {
                # Le device est bien monté.

                if ($mounts{$dev} eq $mpt)
                {
                        # Le device est bien monté sur le bon mount point.

                        # TODO Vérifier qu'il ne s'agit pas d'un Stale NFS Handle !
			
                        $nfs = sprintf("%s/.", $mounts{$dev} );
                
                        eval {
                                        $SIG{'ALRM'} = sub { die "time_out" }; # NB: \n required
					alarm TIME_OUT;
                                        if( ! -d $nfs ) { print "no directory $nfs\n"; } 
                                        #@stats = stat($nfs);
					# print "stat sur $nfs\n";
					#if( ! -d $nfs or $stats[SIZE] == 0 ) { print "ERR mount FS error";}
					alarm 0;
                                };

                        alarm 0;
        
                        if ( $@ ) { 
                                die unless $@ eq "time_out";
                                #die unless $@ eq "ERR timeout"; 
			}
                         else {
                                 # didn't
						    }
                        delete $mounts{$dev};
                        next;
                }

                # Le device est monté, mais pas sur le bon mount point !

                push @errors, "$dev is not mounted on $mpt";
        }
        else
        {
                # Le device n'est pas monté alors qu'il devrait l'être !

                push @errors, "$dev is not mounted";
        }
}

foreach my $rem (keys %mounts)
{
        next if $rem eq 'devfs';
        next if $rem eq 'procfs';
        next if $rem eq 'sysfs';
        next if $rem eq 'tmpfs';
        next if $rem eq 'nfsd';
        next if $rem eq 'devpts';
        next if $rem eq 'usbfs';
        
        push @errors, "$rem is unexptectedly mounted on $mounts{$rem}";
}

close F;

# On affiche les erreurs, s'il y en a.

if (scalar(@errors) == 1)
{
        printf "ERR %s\n", $errors[0];
}
elsif (scalar(@errors) > 0)
{
        printf "ERR %d mount errors !\n" . join("\n", @errors) . "\n", scalar(@errors);
        exit STATUS_CRITICAL;
}
else
{
        # print "OK - All mountpoints are UP.\n";
	print "OK - All filesystems are mounted.\n";
        exit STATUS_OK;
}

# vim: set ts=3 sw=3: