File:Check bind mounts.pl

From RARForge
Revision as of 23:32, 19 April 2013 by Robertr (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

Check_bind_mounts.pl(file size: 786 bytes, MIME type: application/x-perl)

Warning: This file type may contain malicious code. By executing it, your system may be compromised.

<source lang=perl>

  1. !/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);

} </source>

File history

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

Date/TimeDimensionsUserComment
current23:49, 1 March 2013 (786 bytes)Robertr (talk | contribs)

The following page uses this file: