#!/usr/bin/perl -w

#
#	Ce script examine tous les devices raid présents dans le fichier /proc/mdstat
#	et indique ceux dont le status n'est pas "clean".
#
#	Yann Grossel 2006.05.12
#

use strict;

my $mdadm = '/sbin/mdadm';
my $n_dev = 0;

my @problems;

open F, '/proc/mdstat'
        or die "ERR Can't open /proc/mdstat: $!\n";

while (<F>)
{
        my $dev;

        next unless m/^(md\d+) /o;

        $n_dev += 1;
        $dev = $1;

        open G, "${mdadm} -D /dev/${dev} |";

        while (<G>)
        {
                next unless m/State : (.*)$/o;
                next if $1 eq 'clean';
                next if $1 eq 'active';

                my $s = $1;

                $s =~ s/clean, //go;
                $s =~ tr/a-z/A-Z/;

                push @problems, "${dev}=${s}";
        }

        close G;
}

close F;

if (scalar(@problems))
{
        print "ERR " . join(" ", @problems) . "\n";
}
else
{
        my $p = ',';
        if ($n_dev > 2) { $p = 's, all'; }
        elsif ($n_dev > 1) { $p = 's, both'; }
        print "OK (${n_dev} md device${p} clean)\n";
}

exit 0;

# vim: set ts=3 sw=3: