Mikubot/plugins/thc_search.lua

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