Merge pull request #234 from rhansen/url-parsing

Fix URL parsing for IPv6 URLs and pathless URLs
This commit is contained in:
Sandro 2020-07-06 00:33:22 +02:00 committed by GitHub
commit b6770a4d9f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -2000,9 +2000,8 @@ sub geturl {
$proxy =~ s%^https?://%%i; $proxy =~ s%^https?://%%i;
$url =~ s%^https?://%%i; $url =~ s%^https?://%%i;
$server = $url; $server = $url;
$server =~ s%/.*%%; $server =~ s%[?/].*%%;
$url = "/" unless $url =~ m%/%; $url =~ s%^[^?/]*/?%%;
$url =~ s%^[^/]*/%%;
opt('fw') && debug("opt(fw = %s)", opt('fw')); opt('fw') && debug("opt(fw = %s)", opt('fw'));
$globals{'fw'} && debug("glo fw = %s", $globals{'fw'}); $globals{'fw'} && debug("glo fw = %s", $globals{'fw'});
@ -2022,11 +2021,14 @@ sub geturl {
## determine peer and port to use. ## determine peer and port to use.
$peer = $proxy || $server; $peer = $proxy || $server;
$peer =~ s%/.*%%; $peer =~ s%[?/].*%%;
$port = $peer; if ($peer =~ /^\[([^]]+)\](?::(\d+))?$/ || $peer =~ /^([^:]+)(?::(\d+))?/) {
$port =~ s%^.*:%%; $peer = $1;
$port = $default_port unless $port =~ /^\d+$/; $port = $2 // $default_port;
$peer =~ s%:.*$%%; } else {
failed("unable to extract host and port from %s", $peer);
return undef;
}
$request = "$method "; $request = "$method ";
if (!$use_ssl) { if (!$use_ssl) {