summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-03-28 18:20:09 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-03-28 18:20:09 +0000
commitec95ff29a94bb30c34bcf16a2f445c4dcf708121 (patch)
tree86286aa9fd9a2497150f6bb5bd4cf73ab1cea8ad
parent139a5e1e8936d0bca1f648e3382229b3eee09b55 (diff)
downloadmgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.tar
mgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.tar.gz
mgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.tar.bz2
mgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.tar.xz
mgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.zip
(check_server_response) log all server answers
-rw-r--r--mdkonline.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index 9a1e44d6..11c3c930 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -200,6 +200,7 @@ sub check_server_response {
my $code = $response->{code} || '99';
my $answer = $response->{code} eq 0 ? 'OK' : $hash_ret->{$code}[0] . ' : ' . $hash_ret->{$code}[1] . "\n\n" . $response->{message};
$answer eq 'OK' and write_conf($response);
+ log::explanations(qq(the server returned "$answer"));
return $answer;
}