diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2006-03-28 18:20:09 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2006-03-28 18:20:09 +0000 |
| commit | ec95ff29a94bb30c34bcf16a2f445c4dcf708121 (patch) | |
| tree | 86286aa9fd9a2497150f6bb5bd4cf73ab1cea8ad /mdkonline.pm | |
| parent | 139a5e1e8936d0bca1f648e3382229b3eee09b55 (diff) | |
| download | mgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.tar mgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.tar.gz mgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.tar.bz2 mgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.tar.xz mgaonline-ec95ff29a94bb30c34bcf16a2f445c4dcf708121.zip | |
(check_server_response) log all server answers
Diffstat (limited to 'mdkonline.pm')
| -rw-r--r-- | mdkonline.pm | 1 |
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; } |