Mikubot-2/miku/plugins/9gag.lua

local ninegag = {}

ninegag.command = '9gag'

function ninegag:init(config)
	ninegag.triggers = {
	  "^/9[Gg][Aa][Gg]$",
      "^/9[Ff][Aa][Gg]$"
	}
	ninegag.inline_triggers = {
	  "^9[Gg][Aa][Gg]"
	}
	ninegag.doc = [[*
]]..config.cmd_pat..[[9gag*: Gibt ein zufälliges Bild von den momentan populärsten 9GAG-Posts aus]]
end

local url = "http://api-9gag.herokuapp.com/"

function ninegag:get_9GAG()
  local b,c = http.request(url)
  if c ~= 200 then return nil end
  local gag = json.decode(b)
  -- random max json table size
  local i = math.random(#gag)
  
  local link_image = gag[i].src
  local title = gag[i].title
  local post_url = gag[i].url
  return link_image, title, post_url
end

function ninegag:inline_callback(inline_query, config)
  local res, code = http.request(url)
  if code ~= 200 then abort_inline_query(inline_query) return end
  local gag = json.decode(res)
  
  local results = '['
  local id = 50
  for n in pairs(gag) do
    local title = gag[n].title:gsub('"', '\\"')
    results = results..'{"type":"photo","id":"'..id..'","photo_url":"'..gag[n].src..'","thumb_url":"'..gag[n].src..'","caption":"'..title..'","reply_markup":{"inline_keyboard":[[{"text":"9GAG aufrufen","url":"'..gag[n].url..'"}]]}}'
	id = id+1
	if n < #gag then
	 results = results..','
	end
  end
  local results = results..']'
  utilities.answer_inline_query(inline_query, results, 300)
end

function ninegag:action(msg, config)
  utilities.send_typing(msg.chat.id, 'upload_photo')
  local url, title, post_url = ninegag:get_9GAG()
  if not url then
	utilities.send_reply(msg, config.errors.connection)
	return
  end

  local file = download_to_file(url)
  utilities.send_photo(msg.chat.id, file, title, msg.message_id, '{"inline_keyboard":[[{"text":"Post aufrufen","url":"'..post_url..'"}]]}')
end

return ninegag