Reverting non-Google domain cleanups.

This commit is contained in:
Nelson Araujo 2015-01-18 10:54:08 -08:00
parent 8409f45ab8
commit e1070de9e5

View file

@ -1881,21 +1881,21 @@ sub geturl {
$server =~ s%/.*%%;
$url = "/" unless $url =~ m%/%;
$url =~ s%^[^/]*/%%;
debug("server = $server");
opt('fw') && debug("opt(fw = ",opt('fw'),")");
$globals{'fw'} && debug("glo fw = $globals{'fw'}");
$globals{'fw'} && debug("glo fw = $globals{'fw'}");
#if ( $globals{'ssl'} and $server ne $globals{'fw'} ) {
## always omit SSL for connections to local router
if ( $force_ssl || ($globals{'ssl'} and (caller(1))[3] ne 'main::get_ip') ) {
$use_ssl = 1;
$default_port = 443;
load_ssl_support;
load_ssl_support;
} else {
$use_ssl = 0;
$default_port = 80;
}
## determine peer and port to use.
$peer = $proxy || $server;
$peer =~ s%/.*%%;
@ -1903,7 +1903,7 @@ sub geturl {
$port =~ s%^.*:%%;
$port = $default_port unless $port =~ /^\d+$/;
$peer =~ s%:.*$%%;
my $to = sprintf "%s%s", $server, $proxy ? " via proxy $peer:$port" : "";
verbose("CONNECT:", "%s", $to);