Merge pull request #234 from rhansen/url-parsing
Fix URL parsing for IPv6 URLs and pathless URLs
This commit is contained in:
commit
b6770a4d9f
1 changed files with 10 additions and 8 deletions
18
ddclient.in
18
ddclient.in
|
@ -2000,9 +2000,8 @@ sub geturl {
|
|||
$proxy =~ s%^https?://%%i;
|
||||
$url =~ s%^https?://%%i;
|
||||
$server = $url;
|
||||
$server =~ s%/.*%%;
|
||||
$url = "/" unless $url =~ m%/%;
|
||||
$url =~ s%^[^/]*/%%;
|
||||
$server =~ s%[?/].*%%;
|
||||
$url =~ s%^[^?/]*/?%%;
|
||||
|
||||
opt('fw') && debug("opt(fw = %s)", opt('fw'));
|
||||
$globals{'fw'} && debug("glo fw = %s", $globals{'fw'});
|
||||
|
@ -2022,11 +2021,14 @@ sub geturl {
|
|||
|
||||
## determine peer and port to use.
|
||||
$peer = $proxy || $server;
|
||||
$peer =~ s%/.*%%;
|
||||
$port = $peer;
|
||||
$port =~ s%^.*:%%;
|
||||
$port = $default_port unless $port =~ /^\d+$/;
|
||||
$peer =~ s%:.*$%%;
|
||||
$peer =~ s%[?/].*%%;
|
||||
if ($peer =~ /^\[([^]]+)\](?::(\d+))?$/ || $peer =~ /^([^:]+)(?::(\d+))?/) {
|
||||
$peer = $1;
|
||||
$port = $2 // $default_port;
|
||||
} else {
|
||||
failed("unable to extract host and port from %s", $peer);
|
||||
return undef;
|
||||
}
|
||||
|
||||
$request = "$method ";
|
||||
if (!$use_ssl) {
|
||||
|
|
Loading…
Reference in a new issue