#!/usr/bin/perl -w
$ARGV[0] = $cli;
sleep 600;
$cards=`ls -d /proc/scsi/3w-xxxx/* |wc -w`;
while ( $cards >0 ){
	$cards--;
	$out =`$cli info c${cards}`;
	if ( $out =~ "DEGRADED" ) {
	print $out;
	print "\n 3ware Controller $cards in Degraded state!!!! \n";	
	exit 1;
	}
}	
exit 0;
