116 lines
3.0 KiB
Lua
116 lines
3.0 KiB
Lua
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 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)
|
|
print("Cache miss, rendering index")
|
|
stmnt_index:bind_names{}
|
|
local err = util.do_sql(stmnt_index)
|
|
local latest = {}
|
|
--err may be sql.ROW or sql.DONE if we don't have any stories yet
|
|
while err == sql.ROW do
|
|
local data = stmnt_index:get_values()
|
|
local storytags = libtags.get(data[1])
|
|
table.insert(latest,{
|
|
url = util.encode_id(data[1]),
|
|
title = data[2],
|
|
isanon = data[3] == 1,
|
|
posted = os.date("%B %d %Y",tonumber(data[4])),
|
|
author = data[5],
|
|
tags = storytags,
|
|
})
|
|
err = stmnt_index:step()
|
|
end
|
|
stmnt_index:reset()
|
|
return pages.index{
|
|
domain = config.domain,
|
|
stories = latest
|
|
}
|
|
end
|
|
local function get_author_home(req)
|
|
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)
|
|
if err == sql.DONE then
|
|
print("No such author")
|
|
stmnt_author_bio:reset()
|
|
return pages.noauthor{
|
|
author = subdomain
|
|
}
|
|
end
|
|
print("err:",err)
|
|
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()
|
|
print("Getting author's stories")
|
|
stmnt_author:bind_names{author=subdomain}
|
|
err = util.do_sql(stmnt_author)
|
|
print("err:",err)
|
|
local stories = {}
|
|
while err == sql.ROW do
|
|
local data = stmnt_author:get_values()
|
|
local id, title, time = unpack(data)
|
|
local tags = libtags.get(id)
|
|
table.insert(stories,{
|
|
url = util.encode_id(id),
|
|
title = title,
|
|
posted = os.date("%B %d %Y",tonumber(time)),
|
|
tags = tags,
|
|
})
|
|
err = stmnt_author:step()
|
|
end
|
|
stmnt_author:reset()
|
|
return pages.author_index{
|
|
domain=config.domain,
|
|
author=subdomain,
|
|
stories=stories,
|
|
bio=bio
|
|
}
|
|
|
|
end
|
|
|
|
local function index_get(req)
|
|
local method = http_method_text(req)
|
|
local host = http_request_get_host(req)
|
|
local path = http_request_get_path(req)
|
|
--Default home page
|
|
local subdomain = host:match("([^\\.]+)")
|
|
local text
|
|
if host == config.domain then
|
|
local cachepath = string.format("%s",config.domain)
|
|
text = cache.render(cachepath, function()
|
|
return get_site_home(req)
|
|
end)
|
|
else --author home page
|
|
local cachepath = string.format("%s.%s",subdomain,config.domain)
|
|
text = cache.render(cachepath, function()
|
|
return get_author_home(req)
|
|
end)
|
|
end
|
|
assert(text)
|
|
http_response(req,200,text)
|
|
end
|
|
|
|
return index_get
|