114 lines
2.9 KiB
Lua
114 lines
2.9 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 mime = require("mime")
|
|
|
|
local _blacklist
|
|
|
|
local function getBingeImage(text)
|
|
local bing_key = cred_data.bing_key
|
|
local accountkey = mime.b64(bing_key..':'..bing_key)
|
|
local url = 'https://api.datamarket.azure.com/Bing/Search/Image?$format=json&Query=%27'..URL.escape(text)..'%27'
|
|
local response_body = {}
|
|
local request_constructor = {
|
|
url = url,
|
|
method = "GET",
|
|
sink = ltn12.sink.table(response_body),
|
|
headers = {
|
|
Authorization = "Basic "..accountkey
|
|
}
|
|
}
|
|
local ok, response_code, response_headers, response_status_line = https.request(request_constructor)
|
|
if not ok or response_code ~= 200 then return nil end
|
|
|
|
local bing = json:decode(table.concat(response_body)).d.results
|
|
return bing
|
|
end
|
|
|
|
local function is_blacklisted(msg)
|
|
local var = false
|
|
for v,word in pairs(_blacklist) do
|
|
if string.find(string.lower(msg), string.lower(word)) then
|
|
print("Wort steht auf der Blacklist!")
|
|
var = true
|
|
break
|
|
end
|
|
end
|
|
return var
|
|
end
|
|
|
|
local function cache_bing_image(results, text)
|
|
local cache = {}
|
|
for v in pairs(results) do
|
|
table.insert(cache, results[v].MediaUrl)
|
|
end
|
|
cache_data('img_bing', string.lower(text), cache, 1209600, 'set')
|
|
end
|
|
|
|
local function run(msg, matches)
|
|
local receiver = get_receiver(msg)
|
|
local text = matches[1]
|
|
_blacklist = redis:smembers("telegram:img_blacklist")
|
|
|
|
print ('Checking if search contains blacklisted words: '..text)
|
|
if is_blacklisted(text) then
|
|
return "Vergiss es ._."
|
|
end
|
|
|
|
local hash = 'telegram:cache:img_bing:'..string.lower(text)
|
|
local results = redis:smembers(hash)
|
|
if not results[1] then
|
|
print('doing web request')
|
|
results = getBingeImage(text)
|
|
if not results[1] then
|
|
return "Kein Bild gefunden!"
|
|
end
|
|
cache_bing_image(results, text)
|
|
end
|
|
|
|
-- Random image from table
|
|
local i = math.random(#results)
|
|
local url = nil
|
|
|
|
local failed = true
|
|
local nofTries = 0
|
|
while failed and nofTries < #results do
|
|
if not results[i].MediaUrl then
|
|
url = results[i]
|
|
else
|
|
url = results[i].MediaUrl
|
|
end
|
|
print("Bilder-URL: ", url)
|
|
|
|
if string.ends(url, ".gif") then
|
|
failed = not send_document_from_url(receiver, url, nil, nil, true)
|
|
elseif string.ends(url, ".jpg") or string.ends(url, ".jpeg") or string.ends(url, ".png") then
|
|
failed = not send_photo_from_url(receiver, url, nil, nil, true)
|
|
end
|
|
|
|
nofTries = nofTries + 1
|
|
i = i+1
|
|
if i > #results then
|
|
i = 1
|
|
end
|
|
end
|
|
|
|
if failed then
|
|
return "Fehler beim Herunterladen eines Bildes."
|
|
end
|
|
|
|
return 'Source: '..url
|
|
end
|
|
|
|
return {
|
|
description = "Sucht Bild mit Bing-API und versendet es (SafeSearch aktiv)",
|
|
usage = {
|
|
"/imgbing [Suchbegriff]"
|
|
},
|
|
patterns = {
|
|
"^/imgbing (.*)$"
|
|
},
|
|
run = run
|
|
}
|
|
end |