50 lines
1.7 KiB
Lua
50 lines
1.7 KiB
Lua
-- This is a proprietary plugin, property of Andreas Bielawski, (c) 2015 <andi (dot) b (at) outlook (dot) de>
|
|
-- DO NOT USE WITHOUT PERMISSION
|
|
|
|
do
|
|
|
|
local BASE_URL = 'https://api.flickr.com/services/rest'
|
|
|
|
function get_flickr_photo_data (photo_id)
|
|
local apikey = cred_data.flickr_apikey
|
|
local url = BASE_URL..'/?method=flickr.photos.getInfo&api_key='..apikey..'&photo_id='..photo_id..'&format=json&nojsoncallback=1'
|
|
local res,code = https.request(url)
|
|
if code ~= 200 then return "HTTP-FEHLER" end
|
|
local data = json:decode(res).photo
|
|
return data
|
|
end
|
|
|
|
function send_flickr_photo_data(data, receiver)
|
|
local title = data.title._content
|
|
local username = data.owner.username
|
|
local taken = data.dates.taken
|
|
local views = data.views
|
|
if data.usage.candownload == 1 then
|
|
local image_url = 'https://farm'..data.farm..'.staticflickr.com/'..data.server..'/'..data.id..'_'..data.originalsecret..'_o_d.'..data.originalformat
|
|
local cb_extra = {
|
|
receiver=receiver,
|
|
url=image_url
|
|
}
|
|
local text = '"'..title..'", aufgenommen '..taken..' von '..username..' ('..data.views..' Aufrufe)'
|
|
send_msg(receiver, text, send_photo_from_url_callback, cb_extra)
|
|
else
|
|
local text = '"'..title..'", aufgenommen '..taken..' von '..username..' ('..data.views..' Aufrufe)\nBild kann nicht gepostet werden (Keine Berechtigung)'
|
|
send_msg(receiver, text, ok_cb, false)
|
|
end
|
|
end
|
|
|
|
function run(msg, matches)
|
|
local photo_id = matches[2]
|
|
local data = get_flickr_photo_data(photo_id)
|
|
local receiver = get_receiver(msg)
|
|
send_flickr_photo_data(data, receiver)
|
|
end
|
|
|
|
return {
|
|
description = "Sendet Flickr-Info.",
|
|
usage = "Flickr-URL: Sendet Bild von Flickr",
|
|
patterns = {"flickr.com/photos/([A-Za-z0-9-_-]+)/([0-9]+)"},
|
|
run = run
|
|
}
|
|
|
|
end |