Mikubot/plugins/search_youtube.lua

function searchYoutubeVideo(text)
  local data = httpRequest('http://gdata.youtube.com/feeds/api/videos?max-results=1&alt=json&q=' .. URL.escape(text))
  if not data then
    print("HTTP Error")
    return nil
  elseif not data.feed.entry then
    return "YouTube Video nicht gefunden!" 
  end
  return data.feed.entry[1].link[1].href
end

function httpRequest(url)
  local res,code  = http.request(url)
  if code ~= 200 then return nil end
  return json:decode(res)
end

function run(msg, matches)
  local text = msg.text:sub(string.len(matches[1]) + 1,-1)
  return searchYoutubeVideo(text)
end

return {
  description = "Sucht ein Video auf YouTube und sendet es.", 
  usage = "/youtube [Begriff]",
  patterns = {
    "^/youtube",
	"^/yt"
  }, 
  run = run 
}