For more information regarding the security incident at F5, the actions we are taking to address it, and our ongoing efforts to protect our customers, click here.

Forum Discussion

Puli's avatar
Puli
Icon for Nimbostratus rankNimbostratus
Mar 20, 2008

How to capture return messages in perl

Am trying to capture return messages in a perl variable so i can make decisions based on that.   Specificatlly am want capture return message from   $soapResponse = $PoolMember->get_session_ena...
dev
devops
iControl
Joe_Pruitt's avatar
Joe_Pruitt
Mar 21, 2008
Ok, I think I get what you are getting at. If you want to trap HTTP level error messages, you'll need to put an eval around your call and then interrogate the $soap->transport class's members (code, message, & status)

 

 

eval {
  $soapResponse = $PoolMember->get_session_enabled_state
  (
    SOAP::Data->name(pool_names => [@pool_list])
  ); 
};
if ( $PoolMember->transport->status != 200 ) {
  print "Code   : ", $PoolMember->transport->code, "\n";
  print "Message: ", $PoolMember->transport->message, "\n";
  print "Status : ", $PoolMember->transport->status, "\n";
  exit;
}
else
{
  ...
}

 

 

Hopefully this get's you going.

 

 

-Joe