#!/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);
}
