#!/usr/bin/perl
#

if ( ! -f "/proc/mdstat" ) {
  print "/proc/mdstat absent (Pas de support md dans le noyau?)\n";
  exit 1;
}

open(IN,"</proc/mdstat");
while (<IN>) {
  if ( $_ =~ /\s+active\s+/ ) {
    $_ =~ /\[(\d+)\/(\d+)\]/;
    $count = $1;
    $active = $2;
    if ( "$active" ne "$count" ) {
      @F = split(/\s+/);
      $s = "Attention: /dev/$F[0] a une partition endommagée!\n";
      `echo $s | mail -s \"ATTENTION: DISQUE ENDOMMAGE\" root`;
    }
  }
}