--[[
LuCId HTTP-Slave
(c) 2009 Steven Barth <steven@midlink.org>

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

        http://www.apache.org/licenses/LICENSE-2.0

$Id$
]]--

local srv = require "luci.lucid.http.server"
local proto = require "luci.http.protocol"
local util = require "luci.util"
local ip = require "luci.ip"
local ipairs = ipairs

--- Catchall Handler
-- @cstyle instance
module "luci.lucid.http.handler.catchall"

--- Create a Redirect handler.
-- @param name Name
-- @param target Redirect Target
-- @class function
-- @return Redirect handler object
Redirect = util.class(srv.Handler)

function Redirect.__init__(self, name, target)
	srv.Handler.__init__(self, name)
	self.target = target
end

--- Handle a GET request.
-- @param request Request object
-- @return status code, header table, response source
function Redirect.handle_GET(self, request)
	local target = self.target
	local protocol = request.env.HTTPS and "https://" or "http://"
	local server = request.env.SERVER_ADDR

	if request.env.REMOTE_ADDR and not request.env.REMOTE_ADDR:find(":") then
		local compare = ip.IPv4(request.env.REMOTE_ADDR)
		for _, iface in ipairs(request.server.interfaces) do
			if iface.family == "inet" and iface.addr and iface.netmask then
				if ip.IPv4(iface.addr, iface.netmask):contains(compare) then
					server = iface.addr
					break
				end
			end
		end
	end

	if server:find(":") then
		server = "[" .. server .. "]"
	end

	if self.target:sub(1,1) == ":" then
		target = protocol .. server .. target
	end

	local s, e = target:find("%TARGET%", 1, true)
	if s then
		local req = protocol .. (request.env.HTTP_HOST or server)
			.. request.env.REQUEST_URI 
		target = target:sub(1, s-1) .. req .. target:sub(e+1)
	end

	return 302, { Location = target }
end

--- Handle a POST request.
-- @class function
-- @param request Request object
-- @return status code, header table, response source
Redirect.handle_POST = Redirect.handle_GET

--- Handle a HEAD request.
-- @class function
-- @param request Request object
-- @return status code, header table, response source
function Redirect.handle_HEAD(self, request)
	local stat, head = self:handle_GET(request)
	return stat, head
end