local sql = require("lsqlite3")

local cache = require("cache")
local queries = require("queries")
local db = require("db")
local util = require("util")
local config = require("config")
local pages = require("pages")
local libtags = require("tags")
local session = require("session")

local stmnt_index, stmnt_author, stmnt_author_bio

local oldconfigure = configure
function configure(...)
	stmnt_index = assert(db.conn:prepare(queries.select_site_index))
	--TODO: actually let authors edit their bio
	stmnt_author_bio = assert(db.conn:prepare([[
		SELECT authors.biography FROM authors WHERE authors.name = :author;
	]]))
	stmnt_author = assert(db.conn:prepare(queries.select_author_index))
	return oldconfigure(...)
end

local function get_site_home(req, loggedin)
	log(LOG_DEBUG,"Cache miss, rendering site index")
	stmnt_index:bind_names{}
	local latest = {}
	for idr, title, iar, dater, author, hits in util.sql_rows(stmnt_index) do
		table.insert(latest,{
			url = util.encode_id(idr),
			title = title,
			isanon = tonumber(iar) == 1,
			posted = os.date("%B %d %Y",tonumber(dater)),
			author = author,
			tags = libtags.get(idr),
			hits = hits,
		})
	end
	return pages.index{
		domain = config.domain,
		stories = latest,
		loggedin = loggedin
	}
end
local function get_author_home(req)
	print("Looking at author home...")
	local host = http_request_get_host(req)
	local subdomain = host:match("([^\\.]+)")
	stmnt_author_bio:bind_names{author=subdomain}
	local err = util.do_sql(stmnt_author_bio)
	local author, authorid = session.get(req)
	if err == sql.DONE then
		log(LOG_INFO,"No such author:" .. subdomain)
		stmnt_author_bio:reset()
		return pages.noauthor{
			author = subdomain
		}
	end
	assert(err == sql.ROW,"failed to get author:" .. subdomain .. " error:" .. tostring(err))
	local data = stmnt_author_bio:get_values()
	local bio = data[1]
	stmnt_author_bio:reset()
	stmnt_author:bind_names{author=subdomain}
	local stories = {}
	for id, title, time, hits, unlisted, hash in util.sql_rows(stmnt_author) do
		print("Looking at:",id,title,time,hits,unlisted)
		if unlisted == 1 and author == subdomain then
			local url = util.encode_id(id) .. "?pwd=" .. util.encode_unlisted(hash)
			table.insert(stories,{
				url = url,
				title = title,
				author=subdomain,
				posted = os.date("%B %d %Y",tonumber(time)),
				tags = libtags.get(id),
				hits = hits,
				unlisted = true,
			})
		elseif unlisted == 0 then
			table.insert(stories,{
				url = util.encode_id(id),
				title = title,
				author=subdomain,
				posted = os.date("%B %d %Y",tonumber(time)),
				tags = libtags.get(id),
				hits = hits,
				unlisted = false,
			})
		end
	end
	return pages.author_index{
		domain=config.domain,
		author=subdomain,
		loggedin = author,
		stories=stories,
		bio=bio
	}

end

local function index_get(req)
	local method = http_method_text(req)
	local host = http_request_get_host(req)
	local subdomain = host:match("([^\\.]+)")
	local author, authorid = session.get(req)
	local text
	if host == config.domain and author == nil then
		--Default home page
		local cachepath = string.format("%s",config.domain)
		text = cache.render(cachepath, function()
			return get_site_home(req)
		end)
	elseif host == config.domain and author then
		--Display home page with "log out" button
		text = cache.render(config.domain .. "-logout", function()
			return get_site_home(req,true)
		end)
	elseif host ~= config.domain and author ~= subdomain then
		--author home page
		local cachepath = string.format("%s.%s",subdomain,config.domain)
		text = cache.render(cachepath, function()
			return get_author_home(req)
		end)
	elseif host ~= config.domain and author == subdomain then
		--author's home page for the author, don't cache, display unlisted
		text = get_author_home(req)
	end
	assert(text)
	http_response(req,200,text)
end

return index_get