133 lines
3.8 KiB
Lua
133 lines
3.8 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 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
|