Mikubot/plugins/imdb.lua

do

local BASE_URL = 'https://www.omdbapi.com'

function get_imdb_data (movie, id)
  if id then
    url = BASE_URL..'/?i=tt'..movie
  else
    url = BASE_URL..'/?t='..movie
  end
  local res,code  = https.request(url)
  if code ~= 200 then return "HTTP-FEHLER" end
  local data = json:decode(res)
  return data
end

function send_imdb_data(data, receiver)
  if data.Response == "False" then
    text = 'Film nicht gefunden!'
	send_msg(receiver, text, ok_cb, false)
  else
    local title = data.Title
	local release = data.Released
	if data.Type ~= "movie" then Type = '\nTyp: '..data.Type else Type = '' end
	if data.Runtime ~= "N/A" then runtime = '\nLaufzeit: '..data.Runtime else runtime = '' end
	if data.Genre ~= "N/A" then genre = '\nGenre: '..data.Genre else genre = '' end
	local director = data.Director
	if data.Writer ~= "N/A" then writer = '\nWriter: '..data.Writer else writer = '' end
	local actors = data.Actors
	if data.Plot ~= "N/A" then plot = '\nStory: '..data.Plot else plot = '' end
	if data.Metascore ~= "N/A" and data.imdbRating ~= "N/A" then
	  score = '\nBewertung: '..data.Metascore..' Metascore-Punkte und '..data.imdbRating..' von 10 Punkten von '..data.imdbVotes..' Votes auf IMDB'
	elseif data.Metascore ~= "N/A" and data.imdbRating == "N/A" then
	  score = '\nBewertung: '..data.Metascore..' Metascore-Punkte'
	elseif data.Metascore == "N/A" and data.imdbRating ~= "N/A" then
	  score = '\nBewertung: '..data.imdbRating..' von 10 Punkten von '..data.imdbVotes..' Votes auf IMDB'
    else
	  score = ''
	end
	local link = 'http://imdb.com/title/'..data.imdbID
	local text = title..Type..'\nErscheinungsdatm: '..release..runtime..genre..'\nDirector: '..director..writer..'\nSchauspieler: '..actors..plot..score..'\n-- '..link
	if data.Poster ~= "N/A" then
	  local image_url = data.Poster
      local cb_extra = {
        receiver=receiver,
        url=image_url
      }
      send_msg(receiver, text, send_photo_from_url_callback, cb_extra)
	else
      send_msg(receiver, text, ok_cb, false)
	end
  end
end

function run(msg, matches)
  if matches[2] then
    local movie = matches[2]
	data = get_imdb_data(movie, true)
  else
    local movie = url_encode(matches[1]:gsub(' ', '+'))
    data = get_imdb_data(movie, nil)
  end
  local receiver = get_receiver(msg)
  send_imdb_data(data, receiver)
end

return {
  description = "Zeigt Info zu einem Film (von IMDB, englisch)",
  usage = "#imdb [Film]: Zeigt Info zu Film",
  patterns = {"^#imdb (.+)",
			  "imdb.com/title/(tt)(%d+[%d%.,]*)"
			  },
  run = run
}

end