Mikubot/plugins/giphy.lua

-- Idea by https://github.com/asdofindia/telegram-bot/
-- See http://api.giphy.com/

do

local BASE_URL = 'http://api.giphy.com/v1'
local API_KEY = 'dc6zaTOxFJmzC' -- public beta key

local function get_image(response)
  local images = json:decode(response).data
  if #images == 0 then return nil end -- No images
  local i = math.random(#images)
  local image =  images[i] -- A random one

  if image.images.downsized then
    return image.images.downsized.url
  end

  if image.images.original then
    return image.original.url
  end

  return nil
end

local function get_random_top()
  local url = BASE_URL.."/gifs/trending?api_key="..API_KEY
  local response, code = http.request(url)
  if code ~= 200 then return nil end
  return get_image(response)
end

local function search(text)
  text = URL.escape(text)
  local url = BASE_URL.."/gifs/search?q="..text.."&api_key="..API_KEY
  local response, code = http.request(url)
  if code ~= 200 then return nil end
  return get_image(response)
end

local function run(msg, matches)
  local gif_url = nil

  -- If no search data, a random trending GIF will be sent
  if matches[1] == "/gif" or matches[1] == "/giphy" then
    gif_url = get_random_top()
  else
    gif_url = search(matches[1])
  end

  if not gif_url then
   return 'Keine GIF gefunden!'
  end

  local receiver = get_receiver(msg)
  print("GIF URL: "..gif_url)
  send_document_from_url(receiver, gif_url)
end

return {
  description = "Sucht und sendet ein GIF von Giphy",
  usage = {"/gif [Begriff]","/giphy [Begriff]"},
  patterns = {"^/gif$","^/gif (.*)","^/giphy (.*)","^/giphy$"},
  run = run
}

end