9gag.lua

function get_9GAG()
   b = http.request("http://api-9gag.herokuapp.com/")
   local gag = json:decode(b)
   math.randomseed(os.time())
   i = math.random(#gag) -- random max json table size (# is an operator o.O)
   local link_image = gag[i].src
   local title = gag[i].title
   if link_image:sub(0,2) == '//' then
      link_image = msg.text:sub(3,-1)
   end
   return link_image, title
end

function send_title(cb_extra, success, result)
  if success then
    send_msg(cb_extra[1], cb_extra[2], ok_cb, false)
  end
end

function run(msg, matches)
  local receiver = get_receiver(msg)
  url, title = get_9GAG()
  file_path = download_to_file(url)
  _send_photo(receiver, file_path, send_title, {receiver, title})
  return false
end

return {
    description = "9GAG for telegram", 
    usage = "!9gag: Send random image from 9gag",
    patterns = {"^!9gag$"}, 
    run = run 
}