Forum Discussion

mariogolf_57851's avatar
mariogolf_57851
Icon for Nimbostratus rankNimbostratus
Mar 11, 2010

System::Failover cannot seem to extract result from response data

Using a standard approach to System::Failover and obtaining response data for example:

 

 

sub get_failover_mode()

 

{

 

 

$soapResponse = $Failover->get_failover_mode();

 

print Dumper ($soapResponse);

 

&checkResponse($soapResponse);

 

@Response = @{$soapResponse->result};

 

 

$i = 0;

 

foreach $Response (@Response)

 

{

 

print "$Response \n";

 

$i++;

 

}

 

return(0);

 

}

 

 

For get_failover_mode or get_failover_state I cannot obtain anything from $soapResponse->result.

 

 

here is a data dumper of the ... $soapResponse.

 

 

How to extract the ENUM for ACTIVE or STANDBY state/modes.

 

 

Thanks

 

 

 

$VAR1 = bless( {

 

'_content' => [

 

'E:Envelope',

 

{

 

'xmlns:y' => 'http://www.w3.org/2001/XMLSchema',

 

'E:encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/',

 

'xmlns:E' => 'http://schemas.xmlsoap.org/soap/envelope/',

 

'xmlns:iControl' => 'urn:iControl',

 

'xmlns:A' => 'http://schemas.xmlsoap.org/soap/encoding/',

 

'xmlns:s' => 'http://www.w3.org/2001/XMLSchema-instance'

 

},

 

[

 

[

 

'E:Body',

 

{},

 

[

 

[

 

'm:get_failover_stateResponse',

 

{

 

'xmlns:m' => 'urn:iControl:System/Failover'

 

},

 

[

 

[

 

'return',

 

{

 

's:type' => 'iControl:System.Failover.FailoverState'

 

},

 

'FAILOVER_STATE_ACTIVE',

 

undef,

 

'FAILOVER_STATE_ACTIVE',

 

'return',

 

{

 

's:type' => 'iControl:System.Failover.FailoverState',

 

'{http://www.w3.org/2001/XMLSchema-instance}type' => '{urn:iControl}System.Failover.FailoverState'

 

}

 

]

 

],

 

undef,

 

{

 

'return' => 'FAILOVER_STATE_ACTIVE'

 

},

 

'{urn:iControl:System/Failover}get_failover_stateResponse',

 

{}

 

]

 

],

 

undef,

 

{

 

'get_failover_stateResponse' => $VAR1->{'_content'}[2][0][2][0][4]

 

},

 

'{http://schemas.xmlsoap.org/soap/envelope/}Body',

 

{}

 

]

 

],

 

undef,

 

{

 

'Body' => $VAR1->{'_content'}[2][0][4]

 

},

 

'{http://schemas.xmlsoap.org/soap/envelope/}Envelope',

 

{

 

'E:encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/',

 

'{http://schemas.xmlsoap.org/soap/envelope/}encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/'

 

}

 

],

 

'_current' => [

 

$VAR1->{'_content'}

 

]

 

}, 'SOAP::SOM' );
dev
devops
iControl

1 Reply

Sort By
  • Joe_Pruitt's avatar
    Joe_Pruitt
    Mar 11, 2010
    get_failover_mode returns a scalar, not an array. Here's some code that displays the failover state and mode.

     

     

    !/usr/bin/perl 
  
 use SOAP::Lite + trace => qw(method debug); 
 use SOAP::Lite; 
 use MIME::Base64; 
  
 sub SOAP::Deserializer::typecast 
 { 
   my ($self, $value, $name, $attrs, $children, $type) = @_; 
   return $value; 
 } 
  
 ---------------------------------------------------------------------------- 
  Validate Arguments 
 ---------------------------------------------------------------------------- 
 my $sHost = $ARGV[0]; 
 my $sUID = $ARGV[1]; 
 my $sPWD = $ARGV[2]; 
 my $sProtocol = "https"; 
  
 if ( ($sHost eq "") or ($sUID eq "") or ($sPWD eq "") ) 
 { 
   die ("Usage: SystemState.pl host port uid pwd\n"); 
 } 
  
 ---------------------------------------------------------------------------- 
  Transport Information 
 ---------------------------------------------------------------------------- 
 sub SOAP::Transport::HTTP::Client::get_basic_credentials 
 { 
   return "$sUID" => "$sPWD"; 
 } 
  
 $Failover = SOAP::Lite 
   -> uri('urn:iControl:System/Failover') 
   -> proxy("https://$sHost/iControl/iControlPortal.cgi"); 
 eval { Failover->transport->http_request->header 
 ( 
   'Authorization' =>  
     'Basic ' . MIME::Base64::encode("$sUID:$sPWD", '') 
 ); }; 
  
  
 print "==========================================================\n"; 
 &getSystemState(); 
 &getFailoverMode(); 
 print "==========================================================\n"; 
  
  
 sub getSystemState() 
 { 
   $soapResponse = $Failover->get_failover_state(); 
   if ( $soapResponse->fault ) 
   { 
     print $soapResponse->faultcode, " ", $soapResponse->faultstring, "\n"; 
   } 
   else 
   { 
     $FailoverState = $soapResponse->result; 
     print "System State : $FailoverState\n"; 
   } 
 } 
  
 sub getFailoverMode() 
 { 
   $soapResponse = $Failover->get_failover_mode(); 
   if ( $soapResponse->fault ) 
   { 
     print $soapResponse->faultcode, " ", $soapResponse->faultstring, "\n"; 
   } 
   else 
   { 
     $FailoverMode = $soapResponse->result; 
     print "Failover mode: $FailoverMode\n"; 
   } 
  
 }

     

     

    Hope that helps...