Suche für Homebrew.Cloud

This commit is contained in:
Akamaru 2016-03-27 16:04:03 +02:00
parent fda6651444
commit 860c444d3d

51
plugins/thc_search.lua Normal file
View File

@ -0,0 +1,51 @@
do
local makeOurDate = function(dateString)
local pattern = "(%d+)%-(%d+)%-(%d+)"
local year, month, day = dateString:match(pattern)
return day..'.'..month..'.'..year
end
local function search_thc(tag)
local url = 'http://homebrew.cloud/?json=get_search_results&search='..tag
local res,code = http.request(url)
local data = json:decode(res).posts[1]
if code ~= 200 then return "HTTP-Fehler" end
if not data then return "Nichts gefunden!" end
local title = data.title
local from = data.author.name
local date = makeOurDate(data.date)
local url = data.url
if data.thumbnail then
image_url = data.thumbnail
end
local text = unescape(title..' ('..from..' am '..date..')\n')..url
if data.thumbnail then
return text, image_url
else
return text
end
end
local function run(msg, matches)
local tag = matches[1]
local text, image_url = search_thc(tag)
local receiver = get_receiver(msg)
if image_url then
local file = download_to_file(image_url)
send_photo(receiver, file, ok_cb, false)
end
return text
end
return {
description = "Suche für The Homebrew Cloud",
usage = "/thc [BEGRIFF]",
patterns = {"^/[Tt][Hh][Cc] (.*)$"},
run = run
}
end