CSocServUtil::ServerName

static function ServerName($forceHttps = false)
{
	$request = Context::getCurrent()->getRequest();

	$protocol = ($forceHttps || $request->isHttps()) ? "https" : "http";
	$serverName = $request->getHttpHost();

	// :-(
	if($protocol == "https")
	{
		$serverName = str_replace(":443", "", $serverName);
	}

	return $protocol.'://'.$serverName;
}