antd-web-apps/blog/api.lua

local get = {}
get.fetch = function(user, cnd, limit, order)
    local db = require("db.model").get(user,"blogs",nil)
    if not db then return nil end
    local exp = {}
    exp[1] = {["="] = { publish = 1 }}
    if cnd then   
        exp[2] = cnd
    else

    end

    local cond = { 
        exp = {["and"] = exp }, 
        order = { ctime = "DESC" },
        fields = {
            "id", "title", "utime", "ctime", "utimestr", "ctimestr", "rendered", "tags"
        }    
    }
    if limit then
        cond.limit = limit
    end
    if order then
        cond.order = order
    end
    local data, sort = db:find(cond)
    db:close()
    return data, sort
end
get.top = function(user, limit)
    return get.fetch(user, nil, limit)
end

get.id = function(user, id)
    return get.fetch(user, { ["="] = { id = id } }, nil)
end

get.minid = function(user)
    local db = require("db.model").get(user,"blogs",nil)
    local cond = { fields = { "MIN(id)" } }
    local data = db:find(cond)
    db:close()
    return data[1]["MIN(id)"]
end

get.maxid = function(user)
    local db = require("db.model").get(user,"blogs",nil)
    local cond = { fields = { "MAX(id)" }}
    cond.exp = {["="] = { publish = 1 }}
    local data = db:find(cond)
    db:close()
    return data[1]["MAX(id)"]
end

get.afterof = function(user, id, limit)
    local data, sort =  get.fetch(user, { [">"] = { id = id } }, limit, { ctime = "ASC" })
    table.sort(sort, function(a, b) return a > b end)
    return data, sort
end

get.beforeof = function(user, id, limit)
    return get.fetch(user, { ["<"] = { id = id } }, limit)
end

get.nextof = function(user, id)
    return get.afterof(user, id, 1)
end

get.prevof = function(user, id)
    return get.beforeof(user, id, 1)
end

get.bytag = function(user, b64tag, limit, action, id)
    LAST_QUERY = b64tag
    local tag = bytes.__tostring(std.b64decode(b64tag.."=="))
    local cond = { ["LIKE"] = { tags = "%%"..tag.."%%" } }
    local order = nil
    if action == "before" then
        cond = { ["and"] = { cond, { ["<"] = {id = id} } } }
    elseif action == "after" then
        cond = { ["and"] = { cond, { [">"] = {id = id} } } }
        order = { ctime = "ASC" }
    end
    local data, sort =  get.fetch(user, cond, limit, order)
    if(action == "after") then
        table.sort(sort, function(a, b) return a > b end)
    end
    return data, sort
end

get.analyse = function(user, n)
    if not n then n = 5 end
    local path = "/home/mrsang/aiws/blog-clustering"
    local gettext = loadfile(path.."/gettext.lua")()
    local cluster = loadfile(path.."/cluster.lua")()
    local data = gettext.get({publish=1})
    local documents = {}
    if data then
        local sw = gettext.stopwords(path.."/stopwords.txt")
        for k,v in pairs(data) do
            local bag = cluster.bow(data[k].content, sw)
            documents[data[k].id] = bag
        end
        cluster.tfidf(documents)
        --local v = cluster.search("arm", documents)
        --echo(JSON.encode(v))
        local vectors, maxv, size = cluster.get_vectors(documents)
        local sample_data = {pid = 1, sid = 2, score = 0.1}
        local db = require("db.model").get(user, "st_similarity", sample_data)
        if db then
            -- purge the table
            db:delete({["="] = {["1"] = 1}})
            -- get similarity and put to the table
            for id,v in pairs(vectors) do
                local top = cluster.top_similarity(id,vectors,n)
                for a,b in pairs(top) do
                    local record = {pid = id, sid = a, score = b}
                    db:insert(record)
                end
            end
            db:close()
            return "<h3>Analyse complete</h3>"
        else
            return "<h3>Cannot get database objectw/h3>"
        end
    else
        return "<h3>Cannot find data to analyse</h3>"
    end
end

return get