You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@vcl.apache.org by fa...@apache.org on 2010/08/30 18:58:58 UTC
svn commit: r990863 - /incubator/vcl/trunk/managementnode/lib/VCL/utils.pm
Author: fapeeler
Date: Mon Aug 30 16:58:57 2010
New Revision: 990863
URL: http://svn.apache.org/viewvc?rev=990863&view=rev
Log:
VCL-255
simple improvement of detecting a fault and dumping related info
Modified:
incubator/vcl/trunk/managementnode/lib/VCL/utils.pm
Modified: incubator/vcl/trunk/managementnode/lib/VCL/utils.pm
URL: http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/utils.pm?rev=990863&r1=990862&r2=990863&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/utils.pm (original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/utils.pm Mon Aug 30 16:58:57 2010
@@ -9233,9 +9233,13 @@ sub xmlrpc_call {
my $response = $cli->send_request(@argument_string);
- if($response->type =~ /fault/){
- notify($ERRORS{'WARNING'}, 0, "fault occured on @argument_string \n faultCode= $response->code->{faultCode} \n faultString= $response->string->{faultString}");
- return 0;
+ if ($response->type =~ /fault/){
+ notify($ERRORS{'WARNING'}, 0, "fault occured:\n" .
+ " Response class = ".(ref $response)."\n".
+ " Response type = ".$response->type."\n".
+ " Response string = ".$response->as_string."\n".
+ " Response value = ".$response->value."\n"
+ );
}
return $response;