# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1345576254 -7200
# Node ID 1ce9e8068ddaf2b40edd8a53a441d75e3029a7b1
# Parent  a89f8f2f2943690748a9db4fc156cfd85d2447a2
mod_http: Rework how module:http_url() builds the url.

diff -r a89f8f2f2943 -r 1ce9e8068dda plugins/mod_http.lua
--- a/plugins/mod_http.lua	Tue Aug 21 21:03:20 2012 +0200
+++ b/plugins/mod_http.lua	Tue Aug 21 21:10:54 2012 +0200
@@ -11,6 +11,7 @@
 
 local moduleapi = require "core.moduleapi";
 local url_parse = require "socket.url".parse;
+local url_build = require "socket.url".build;
 
 local server = require "net.http.server";
 
@@ -42,6 +43,8 @@
 		or default_app_path); -- Default
 end
 
+local ports_by_scheme = { http = 80, https = 443, };
+
 -- Helper to deduce a module's external URL
 function moduleapi.http_url(module, app_name, default_path)
 	app_name = app_name or (module.name:gsub("^http_", ""));
@@ -50,12 +53,15 @@
 	local http_services = services:get("https") or services:get("http") or {};
 	for interface, ports in pairs(http_services) do
 		for port, services in pairs(ports) do
-			local path = get_base_path(module, app_name, default_path or "/"..app_name);
-			port = tonumber(ext.port) or port or 80;
-			if port == 80 then port = ""; else port = ":"..port; end
-			return (ext.scheme or services[1].service.name).."://"
-				..(ext.host or module.host)..port
-				..normalize_path(ext.path or "/")..(path:sub(2));
+			local url = {
+				scheme = (ext.scheme or services[1].service.name);
+				host = (ext.host or module.host);
+				port = tonumber(ext.port) or port or 80;
+				path = normalize_path(ext.path or "/")..
+					(get_base_path(module, app_name, default_path or "/"..app_name):sub(2));
+			}
+			if ports_by_scheme[url.scheme] == url.port then url.port = nil end
+			return url_build(url);
 		end
 	end
 end