#!/usr/bin/perl

if (`/bin/cat /proc/rd/status` =~ /^OK$/ ) {
  print "Mylex: OK, ";
  open CUR, '/proc/rd/c0/current_status';
  while (<CUR>) {
   if ( $_ =~ /\/dev\/rd\/c0d0/ ) { print; }
  }
  close CUR;
  exit 0;
} elsif (`/bin/cat /proc/rd/status` =~ /^ALERT$/ ) {
  print "Mylex: WARNING, ";
  open CUR, '/proc/rd/c0/current_status';
  while (<CUR>) {
   if ( $_ =~ /\/dev\/rd\/c0d0/ ) { print; }
  }
  exit 1;
} else {
  print "Mylex: UNKNOWN, ";
  open CUR, '/proc/rd/c0/current_status';
  while (<CUR>) {
   if ( $_ =~ /\/dev\/rd\/c0d0/ ) { print; }
  }
  exit 3;
}