Portiere das letzte Plugin: Tumblr

Fixes #2

miku/plugins/tumblr.lua

@@ -0,0 +1,119 @@
+local tumblr = {}
+
+tumblr.triggers = {
+  "^https?://(.*).tumblr.com/post/(%d+)",
+  "^https?://(.*).tumblr.com/image/(%d+)",
+  "^https?://(.*).tumblr.com/?$"
+}
+
+local api_key = cred_data.tumblr_api_key
+
+local makeOurDate = function(dateString)
+  local pattern = "(%d+)%-(%d+)%-(%d+)"
+  local year, month, day = dateString:match(pattern)
+  if month == "00" then
+    return year
+  elseif day == "00" then
+    return month..'.'..year
+  else
+    return day..'.'..month..'.'..year
+  end
+end
+
+function tumblr:get_tumblr_text(data)
+  local title = data.posts[1].title
+  local post = unescape(data.posts[1].body)
+  return title, post
+end
+
+function tumblr:get_tumblr_photo(data)
+  local caption = data.posts[1].summary
+  local image_url = data.posts[1].photos[1].original_size.url
+  return caption, image_url
+end
+
+function tumblr:get_tumblr_video(data)
+  local caption = data.posts[1].caption
+  local video_url = data.posts[1].permalink_url
+  return caption, video_url
+end
+
+function tumblr:get_tumblr_info(blog, post, msg)
+  local url = 'https://api.tumblr.com/v2/blog/'..blog..'.tumblr.com/posts?id='..post..'&api_key='..api_key..'&filter=text'
+  local res, code  = https.request(url)
+  if code ~= 200 then return "HTTP-Fehler" end
+  local data = json.decode(res).response
+  if not data.posts then return nil end
+  
+  -- General blog info, present on every type
+  local blog_name = data.blog.title
+  local created_at = makeOurDate(data.posts[1].date)
+  local short_url = data.posts[1].short_url
+  local typ = data.posts[1].type
+  local text = '<b>'..blog_name..'</b> am '..created_at..':\n'
+
+  -- type-specific
+  if typ == 'text' then
+    local title, post = tumblr:get_tumblr_text(data)
+	text = text..'<b>'..title..'</b>\n'..post..'\n'..short_url
+  elseif typ == 'photo' then
+    local caption, image_url = tumblr:get_tumblr_photo(data)
+	text = text..caption..'\n'..short_url
+	local file = download_to_file(image_url)
+	utilities.send_typing(msg.chat.id, 'upload_photo')
+	if string.ends(image_url, '.gif') then
+	  utilities.send_document(msg.chat.id, file, nil, msg.message_id)
+	else
+      utilities.send_photo(msg.chat.id, file, nil, msg.message_id)
+	end
+  elseif typ == 'video' then
+    local caption, video_url = tumblr:get_tumblr_video(data)
+	text = text..caption..'\n'..video_url..'\n'..short_url
+  else
+    text = text..'Konnte Format nicht bestimmen (ist: '..typ..')'
+  end
+  return text
+end
+
+function tumblr:get_blog(blog)
+  local url = 'https://api.tumblr.com/v2/blog/'..blog..'.tumblr.com/info?api_key='..api_key
+  local res, code = https.request(url)
+  if code ~= 200 then return "HTTP-Fehler" end
+  local data = json.decode(res).response.blog
+  if not data then return nil end
+
+  local title = data.title
+  if data.description == "" then
+    description = ''
+  else
+    description = '\n'..data.description
+  end
+
+  if data.posts == 1 then
+    posts = data.posts..' Post'
+  else
+    posts = data.posts..' Posts'
+  end
+  
+  if data.likes then
+    likes = ', '..data.likes..' Likes'
+  else
+    likes = ''
+  end
+
+  local text = '<b>'..title..'</b>'..'<i>'..description..'</i>\n'..posts..likes..'\n'
+  return text
+end
+
+function tumblr:action(msg, config, matches)
+  local blog = matches[1]
+  local post = matches[2]
+  if not post then
+    text = tumblr:get_blog(blog)
+  else
+    text = tumblr:get_tumblr_info(blog, post, msg)
+  end
+   utilities.send_reply(msg, text, 'HTML')
+end
+
+return tumblr