Skip to content
Snippets Groups Projects
Commit f86bec60 authored by Tomáš Plesník's avatar Tomáš Plesník
Browse files

uprava chybove hlasky pri deserializaci odpovedi serveru

parent 9bf5146b
No related branches found
No related tags found
No related merge requests found
......@@ -25,9 +25,9 @@ our $VERSION = "2.2";
sub errMsg
{
my $msg = shift;
my $type = shift;
my $type = shift;
defined $type or $type = "err"; # default type is err. Other: warn
# check verbose logging
if (($type eq "err") && ($WardenClientCommon::LOG_VERBOSE)) {
$msg .= "\nStack info: " . Carp::longmess();
......@@ -69,7 +69,7 @@ sub c2s
eval {
$client = SOAP::Transport::HTTP::Client->new();
} or return errMsg("Error in function 'c2s()' when creating SOAP::Transport::HTTP::Client object: " . $@);
# setting of connection timeout
eval {$client->timeout($WardenClientCommon::CONNECTION_TIMEOUT);}
or return errMsg("Error in function 'c2s()' when setting connection timeout: " . $@);
......@@ -90,7 +90,7 @@ sub c2s
eval {
$soap = SOAP::Lite->uri($service)->proxy($WardenClientCommon::URI);
} or return errMsg("Error in function 'c2s()' when setting service URI: " . $@);
# serialize SOAP envelope or SOAP envelope and data object
my $envelope;
if (!defined $data) {
......@@ -118,9 +118,9 @@ sub c2s
my $response;
eval {
$response = $soap->deserializer->deserialize($result);
} or return errMsg("Error in deserialization of server response: " . $@ . " (Received response: " . $result . ")");
} or return errMsg("Error in deserialization of server response:" . $@ . "\nReceived response: " . $result);
# check SOAP fault status
$response->fault ? return errMsg("Server sent error message:: " . $response->faultstring) : return $response;
$response->fault ? return errMsg("Server sent error message: " . $response->faultstring) : return $response;
}
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment