geturl: Log message improvements
This commit is contained in:
parent
b1752c2622
commit
d48b482269
1 changed files with 3 additions and 6 deletions
|
@ -2702,8 +2702,7 @@ sub geturl {
|
||||||
}
|
}
|
||||||
|
|
||||||
if (!opt('exec')) {
|
if (!opt('exec')) {
|
||||||
debug("skipped network connection");
|
info("would request: ${protocol}://${server}/${url}");
|
||||||
verbose("SENDING:", "%s", "${server}/${url}");
|
|
||||||
} else {
|
} else {
|
||||||
push(@curlopt, "silent");
|
push(@curlopt, "silent");
|
||||||
push(@curlopt, "include"); ## Include HTTP response for compatibility
|
push(@curlopt, "include"); ## Include HTTP response for compatibility
|
||||||
|
@ -2736,11 +2735,9 @@ sub geturl {
|
||||||
|
|
||||||
# don't include ${url} as that might expose login credentials
|
# don't include ${url} as that might expose login credentials
|
||||||
$0 = sprintf("%s - Curl system cmd sending to %s", $program, "${protocol}://${server}");
|
$0 = sprintf("%s - Curl system cmd sending to %s", $program, "${protocol}://${server}");
|
||||||
verbose("SENDING:", "Curl system cmd to %s", "${protocol}://${server}");
|
debug("REQUEST: curl config:\n" . join("\n", @curlopt));
|
||||||
verbose("SENDING:", "%s", $_) for (@curlopt);
|
|
||||||
|
|
||||||
$reply = curl_cmd(@curlopt);
|
$reply = curl_cmd(@curlopt);
|
||||||
verbose("RECEIVE:", "%s", $reply // "<undefined>");
|
debug("RESPONSE: " . (defined($reply) ? "reply:\n$reply" : '<undefined>'));
|
||||||
if (!$reply) {
|
if (!$reply) {
|
||||||
# don't include ${url} as that might expose login credentials
|
# don't include ${url} as that might expose login credentials
|
||||||
if ($ipversion != 0) {
|
if ($ipversion != 0) {
|
||||||
|
|
Loading…
Reference in a new issue