Stop putting a Content-Type into the request, if one is already present

This commit is contained in:
Dave Smith 2019-08-29 09:38:10 -05:00
parent 0ca0d462ac
commit 8a4c93f592

View file

@ -2034,7 +2034,7 @@ sub geturl {
$request .= "Authorization: Basic $auth\n" if $login || $password; $request .= "Authorization: Basic $auth\n" if $login || $password;
$request .= "User-Agent: ${program}/${version}\n"; $request .= "User-Agent: ${program}/${version}\n";
if ($data) { if ($data) {
$request .= "Content-Type: application/x-www-form-urlencoded\n"; $request .= "Content-Type: application/x-www-form-urlencoded\n" if ! $headers =~ /^Content-Type: /;
$request .= "Content-Length: " . length($data) . "\n"; $request .= "Content-Length: " . length($data) . "\n";
} }
$request .= "Connection: close\n"; $request .= "Connection: close\n";