[Linux-cluster] Fencing using iDRAC/ Dell M600

[jim parsons]

On Wed, 2008-07-30 at 16:37 +0100, David J Craigon wrote:
> It turns out that the right way to do this is use what Dell call
> "CMC"- a device that manages all the blades, not just one (just like
> the DRAC/MC). This is like a mix of the Dell DRAC/MC and DRAC 5 in
> fence_drac.
> 
> I've written a patch that adds support for the CMC to fence_drac. This
> is my first patch ever using git, so hopefully it's good for you.
> 
> This has been tested on a CMC, but it also changes the code for a Dell
> 1950. I'm going to get a 1950 and test it tomorrow.
> 
> Feedback welcomed!
THANK YOU. SINCERELY. Please update us with test results. If no
regressions pop up, this is going into the agent ASAP.

THANK YOU.

:)

-Jim, who often feels fenced in

> 
> David
> 
> ---
>  fence/agents/drac/fence_drac.pl |   36 +++++++++++++++++++++++++++++-------
>  1 files changed, 29 insertions(+), 7 deletions(-)
> 
> diff --git a/fence/agents/drac/fence_drac.pl b/fence/agents/drac/fence_drac.pl
> index f199814..f96ef22 100644
> --- a/fence/agents/drac/fence_drac.pl
> +++ b/fence/agents/drac/fence_drac.pl
> @@ -38,6 +38,7 @@ my $DRAC_VERSION_MC			= 'DRAC/MC';
>  my $DRAC_VERSION_4I			= 'DRAC 4/I';
>  my $DRAC_VERSION_4P			= 'DRAC 4/P';
>  my $DRAC_VERSION_5			= 'DRAC 5';
> +my $DRAC_VERSION_CMC   			= 'CMC';
> 
>  my $PWR_CMD_SUCCESS			= "/^OK/";
>  my $PWR_CMD_SUCCESS_DRAC5	= "/^Server power operation successful$/";
> @@ -192,10 +193,15 @@ sub login
>  	# DRAC5 prints version controller version info
>  	# only after you've logged in.
>  	if ($drac_version eq $DRAC_VERSION_UNKNOWN) {
> -		if ($t->waitfor(Match => "/.*\($DRAC_VERSION_5\)/m")) {
> +	
> +		if (my ($prematch,$match)=$t->waitfor(Match =>
> "/.*(\($DRAC_VERSION_5\)|$DRAC_VERSION_CMC)/m")) {
> +		    if ($match=~/$DRAC_VERSION_CMC/) {
> +			$drac_version =  $DRAC_VERSION_CMC;
> +		    } else {
>  			$drac_version = $DRAC_VERSION_5;
> +		    }
>  			$cmd_prompt = "/\\\$ /";
> -			$PWR_CMD_SUCCESS = $PWR_CMD_SUCCESS_DRAC5;
> +		    $PWR_CMD_SUCCESS = $PWR_CMD_SUCCESS_DRAC5;
>  		} else {
>  			print "WARNING: unable to detect DRAC version '$_'\n";
>  		}
> @@ -228,8 +234,10 @@ sub set_power_status
>  	}
>  	elsif ($drac_version eq $DRAC_VERSION_5) {
>  		$cmd = "racadm serveraction $svr_action";
> -	} else
> -	{
> +	}
> +	elsif ($drac_version eq $DRAC_VERSION_CMC) {
> +		$cmd = "racadm serveraction -m $modulename $svr_action";
> +	} else {
>  		$cmd = "serveraction -d 0 $svr_action";
>  	}
> 
> @@ -271,6 +279,11 @@ sub set_power_status
>  		}
>  	}
>  	fail "failed: unexpected response: '$err'" if defined $err;
> +
> +	# on M600 blade systems, after power on or power off, status takes a
> couple of seconds to report correctly. Wait here before checking
> status again
> +	sleep 5;
> +
> +
>  }
> 
> 
> @@ -285,6 +298,8 @@ sub get_power_status
> 
>  	if ($drac_version eq $DRAC_VERSION_5) {
>  		$cmd = "racadm serveraction powerstatus";
> +	} elsif ($drac_version eq $DRAC_VERSION_CMC) {
> +	    $cmd = "racadm serveraction powerstatus -m $modulename";
>  	} else {
>  		$cmd = "getmodinfo";
>  	}
> @@ -306,7 +321,7 @@ sub get_power_status
> 
>  	fail "failed: unkown dialog exception: '$_'" unless (/^$cmd$/);
> 
> -	if ($drac_version ne $DRAC_VERSION_5) {
> +	if ($drac_version ne $DRAC_VERSION_5 && $drac_version ne $DRAC_VERSION_CMC) {
>  		#Expect:
>  		#  #<group>     <module>    <presence>  <pwrState>  <health>  <svcTag>
>  		#   1  ---->     chassis    Present         ON      Normal    CQXYV61
> @@ -335,6 +350,11 @@ sub get_power_status
>  			if(m/^Server power status: (\w+)/) {
>  				$status = lc($1);
>  			}
> +		}
> +		elsif ($drac_version eq $DRAC_VERSION_CMC) {
> +			if(m/^(\w+)/) {
> +			    $status = lc($1);
> +			}
>  		} else {
>  			my ($group,$arrow,$module,$presence,$pwrstate,$health,
>  				$svctag,$junk) = split /\s+/;
> @@ -364,7 +384,8 @@ sub get_power_status
>  	}
> 
>  	$_=$status;
> -	if(/^(on|off)$/i)
> +	
> +	if (/^(on|off)$/i)
>  	{
>  		# valid power states
>  	}
> @@ -440,6 +461,7 @@ sub do_action
>  		}
>  			
>  		set_power_status on;
> +		
>  		fail "failed: $_" unless wait_power_status on;
> 
>  		msg "success: powered on";
> @@ -641,7 +663,7 @@ if ($drac_version eq $DRAC_VERSION_III_XT)
>  	fail "failed: option 'modulename' not compatilble with DRAC version
> '$drac_version'"
>  		if defined $modulename;
>  }
> -elsif ($drac_version eq $DRAC_VERSION_MC)
> +elsif ($drac_version eq $DRAC_VERSION_MC || $drac_version eq $DRAC_VERSION_CMC)
>  {
>  	fail "failed: option 'modulename' required for DRAC version '$drac_version'"
>  		unless  defined $modulename;
> -- 
> 1.5.5.1
> 
> 
> >From 2899ae4468a69b89346cafba13022a9b214404f2 Mon Sep 17 00:00:00 2001
> From: David J Craigon <david at craigon.co.uk>
> Date: Wed, 30 Jul 2008 16:34:24 +0100
> Subject: Add a comment to state the CMC version this script works on
> 
> ---
>  fence/agents/drac/fence_drac.pl |    1 +
>  1 files changed, 1 insertions(+), 0 deletions(-)
> 
> diff --git a/fence/agents/drac/fence_drac.pl b/fence/agents/drac/fence_drac.pl
> index f96ef22..11cc771 100644
> --- a/fence/agents/drac/fence_drac.pl
> +++ b/fence/agents/drac/fence_drac.pl
> @@ -13,6 +13,7 @@
>  #  PowerEdge 1850	DRAC 4/I	1.35 (Build 09.27)
>  #  PowerEdge 1850	DRAC 4/I	1.40 (Build 08.24)
>  #  PowerEdge 1950	DRAC 5		1.0  (Build 06.05.12)
> +#  PowerEdge M600	CMC		1.01.A05.200803072107
>  #
> 
>  use Getopt::Std;