summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xembed81
1 files changed, 81 insertions, 0 deletions
diff --git a/embed b/embed
new file mode 100755
index 0000000..59cb388
--- /dev/null
+++ b/embed
@@ -0,0 +1,81 @@
+#!/usr/bin/env lua
+
+require 'tokyocabinet'
+
+json = require 'json'
+http = require 'lcurl'
+
+CACHE = "/home/bie/tmp.db"
+
+cache = tokyocabinet.bdbnew()
+cache:open(CACHE, cache.OWRITER + cache.OREADER)
+
+function oembed(url)
+ local cached = cache:get(url)
+ if cached then
+ local data = json.decode(cached)
+ return data.html
+ end
+
+ local body = ""
+ local result = http.easy{url=url, writefunction=function(s)
+ body = body .. s
+ end}:perform()
+ if result:getinfo(http.INFO_RESPONSE_CODE) == 200 then
+ cache:put(url, body)
+ local data = json.decode(body)
+ return data.html
+ else
+ return ("<b>Klarte ikke embedde %s :(</b>"):format(url)
+ end
+end
+
+function twitter(id)
+ return oembed("https://publish.twitter.com/oembed?url=" .. id)
+end
+
+function youtube(id)
+ return oembed("http://www.youtube.com/oembed?url=" .. id)
+end
+
+function soundcloud(id)
+ return oembed("https://soundcloud.com/oembed?format=json&url=" .. id)
+end
+
+function vimeo(id)
+ return oembed("https://developer.vimeo.com/apis/oembed.json?url=" .. id)
+end
+
+function twitch(id)
+ return oembed("https://api.twitch.tv/v4/oembed?url=" .. id)
+end
+
+function instagram(id)
+ return oembed("https://api.instagram.com/oembed?url=" .. id)
+end
+
+function flickr(id)
+ return oembed("https://www.flickr.com/services/oembed?url=" .. id)
+end
+
+function facebook(id)
+ return oembed("https://www.facebook.com/plugins/video/oembed.json?url=" .. id)
+end
+
+-- if arg[1] then
+-- print(arg[1])
+-- io.input(arg[1])
+-- end
+
+for line in io.lines() do
+ line = line:gsub("$%s*twitter:%s*(.*)", twitter)
+ line = line:gsub("$%s*youtube:%s*(.*)", youtube)
+ line = line:gsub("$%s*soundcloud:%s*(.*)", soundcloud)
+ line = line:gsub("$%s*twitch:%s*(.*)", twitch)
+ line = line:gsub("$%s*vimeo:%s*(.*)", vimeo)
+ line = line:gsub("$%s*instagram:%s*(.*)", instagram)
+ line = line:gsub("$%s*flickr:%s*(.*)", flickr)
+ line = line:gsub("$%s*facebook:%s*(.*)", facebook)
+ print(line)
+end
+