#!/usr/bin/perl -wT
BEGIN {
	if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
		$runtimedir = $1;
	}
}

use strict;
use lib $main::runtimedir;
use utils qw($TIMEOUT %ERRORS &print_revision &support);
delete @ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};

my @bad_files;
foreach my $line (readpipe("mount")) {
    my @tmp = split(/ /,$line);
    if (! stat($tmp[2])) {
      push(@bad_files, $tmp[2]);
    }
}

if($#bad_files>0)
  {
    my $response = "Filesystem Stat fail: ";
    foreach my $file (@bad_files) {
      $response.="$file,";
    }
    print "$response\n";
    exit $ERRORS{'CRITICAL'};
  }
else
  {
    my $response = "Filesystems OK";
    print "$response\n";
    exit $ERRORS{'OK'};
  }
