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;


Reply via email to