Script to identify if unit is active or standby

sub activeUnit {
  my ($FailoverAPI, $icServer)=@_;

  print "activeUnit:\n";
  my $soapResponse = $FailoverAPI->get_failover_state();
  my($status,$text)=&checkResponse($soapResponse);
  if(($status!=1)||($text ne "OK")) {
    print "activeUnit: status $status error [$text] from get_failover_state()\n";
    return;
  }
  print "activeUnit: status $status success [$text] from get_failover_state()\n";
  print Dumper($soapResponse->result);

  $fostate=$soapResponse->result;
  print "activeUnit: status $status fostate [$fostate] from get_failover_state()\n";

  return ($fostate eq "FAILOVER_STATE_ACTIVE");
}