Akamaru/Mikubot
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Erster privater commit

Browse Source
This commit is contained in:
Akamaru 2015-11-12 17:42:03 +01:00
parent 71ddfb8502
commit ea622733f6
118 changed files with 5289 additions and 820 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
.gitignore vendored
View File

@ -1,53 +1,8 @@
res/ res/
.luarocks .luarocks
*.db *.db
plugins/bitly.lua
plugins/danbooru2.lua
plugins/deviantart.lua
plugins/facebook.lua
plugins/facebook_photo.lua
plugins/facebook_video.lua
plugins/gender.lua
plugins/github.lua
plugins/googl.lua
plugins/ip_info.lua
plugins/konachan.lua
plugins/konachan_nsfw.lua
plugins/page2image.lua
plugins/pagespeed_insights.lua
plugins/ping_adress.lua
plugins/test.lua plugins/test.lua
plugins/twitch.lua
plugins/derpibooru_nsfw.lua
plugins/derpibooru.lua
plugins/app_store.lua
plugins/dailymotion.lua
plugins/dns.lua
plugins/gdrive.lua
plugins/instagram.lua
plugins/play_store.lua
plugins/reddit.lua
plugins/soundcloud.lua
plugins/spotify.lua
plugins/vimeo.lua
plugins/vine.lua
plugins/youtube_playlist.lua
plugins/yandere.lua
plugins/e621.lua
plugins/ponyfaces.lua
plugins/rss_old.lua
plugins/gfycat.lua
plugins/yourls.lua
plugins/youtube_channel.lua
plugins/pr0gramm.lua
plugins/licht.lua plugins/licht.lua
plugins/dantest.lua plugins/dantest.lua
plugins/flickr.lua
plugins/flickr_search.lua
plugins/google_books.lua
plugins/safebrowsing.lua
plugins/stats2.lua plugins/stats2.lua
plugins/help2.lua plugins/help2.lua
plugins/miiverse.lua
plugins/videotogif.lua
plugins/music163.lua

172
bot/bot.lua
View File

@ -1,13 +1,12 @@
package.path = package.path .. ';.luarocks/share/lua/5.2/?.lua' package.path = './.luarocks/share/lua/5.2/?.lua;./.luarocks/share/lua/5.2/?/init.lua;./.luarocks/lib/lua/5.2/?.lua;./.luarocks/lib/lua/5.2/?/init.lua;' .. package.path
..';.luarocks/share/lua/5.2/?/init.lua' require("luarocks.loader")
package.cpath = package.cpath .. ';.luarocks/lib/lua/5.2/?.so'
require("./bot/utils") require("./bot/utils")
VERSION = '2.5-reloaded' VERSION = '20151003'
-- This function is called when tg receive a msg -- This function is called when tg receive a msg
function on_msg_receive (msg) function on_msg_receive (msg)
if not started then if not started then
return return
end end
@ -20,7 +19,7 @@ function on_msg_receive (msg)
msg = pre_process_msg(msg) msg = pre_process_msg(msg)
if msg then if msg then
match_plugins(msg) match_plugins(msg)
--mark_read(receiver, ok_cb, false) -- mark_read(receiver, ok_cb, false)
end end
end end
end end
@ -33,7 +32,8 @@ function on_binlog_replay_end()
postpone (cron_plugins, false, 60*5.0) postpone (cron_plugins, false, 60*5.0)
-- See plugins/isup.lua as an example for cron -- See plugins/isup.lua as an example for cron
_config = load_config() -- load sudo_users and credentials
sudo_users = load_sudo_users()
cred_data = load_cred() cred_data = load_cred()
-- load plugins -- load plugins
@ -54,11 +54,6 @@ function msg_valid(msg)
return false return false
end end
if msg.unread == 0 then
print('\27[36mNicht gültig: gelesen\27[39m')
return false
end
if not msg.to.id then if not msg.to.id then
print('\27[36mNicht gültig: To id not provided\27[39m') print('\27[36mNicht gültig: To id not provided\27[39m')
return false return false
@ -69,6 +64,11 @@ function msg_valid(msg)
return false return false
end end
if msg.unread == 0 then
print('\27[36mNicht gültig: gelesen\27[39m')
return false
end
if msg.from.id == our_id then if msg.from.id == our_id then
print('\27[36mNicht gültig: Nachricht von unserer ID\27[39m') print('\27[36mNicht gültig: Nachricht von unserer ID\27[39m')
return false return false
@ -87,7 +87,6 @@ function msg_valid(msg)
return true return true
end end
--
function pre_process_service_msg(msg) function pre_process_service_msg(msg)
if msg.service then if msg.service then
local action = msg.action or {type=""} local action = msg.action or {type=""}
@ -125,22 +124,18 @@ function match_plugins(msg)
end end
end end
-- Check if plugin is on _config.disabled_plugin_on_chat table -- Check if plugin is deactivated in this chat
local function is_plugin_disabled_on_chat(plugin_name, receiver) local function is_plugin_disabled_on_chat(plugin_name, msg)
local disabled_chats = _config.disabled_plugin_on_chat local hash = get_redis_hash(msg, 'disabled_plugins')
-- Table exists and chat has disabled plugins local disabled = redis:hget(hash, plugin_name)
if disabled_chats and disabled_chats[receiver] then
-- Checks if plugin is disabled on this chat -- Plugin is disabled
for disabled_plugin,disabled in pairs(disabled_chats[receiver]) do if disabled == 'true' then
if disabled_plugin == plugin_name and disabled then print('Plugin '..plugin_name..' ist in diesem Chat deaktiviert')
local warning = 'Plugin '..disabled_plugin..' ist in diesem Chat deaktiviert'
print(warning)
-- send_msg(receiver, warning, ok_cb, false)
return true return true
end else
end
end
return false return false
end
end end
function match_plugin(plugin, plugin_name, msg) function match_plugin(plugin, plugin_name, msg)
@ -151,20 +146,13 @@ function match_plugin(plugin, plugin_name, msg)
local matches = match_pattern(pattern, msg.text) local matches = match_pattern(pattern, msg.text)
if matches then if matches then
print("Nachricht stimmt überein mit ", pattern) print("Nachricht stimmt überein mit ", pattern)
-- Send typing
--if pattern ~= ".*" then send_typing(receiver, ok_cb, true) end
if is_plugin_disabled_on_chat(plugin_name, receiver) then if is_plugin_disabled_on_chat(plugin_name, msg) then
return nil return nil
end end
-- Function exists -- Function exists
if plugin.run then if plugin.run then
-- check if user has privileges if not plugin.notyping then send_typing(receiver, ok_cb, true) end
if can_use_bot(msg) then
print("Gesperrt")
-- local text = 'Du darfst den Bot nicht nutzen!'
-- send_msg(receiver, text, ok_cb, false)
else
-- If plugin is for privileged users only -- If plugin is for privileged users only
if not warns_user_not_allowed(plugin, msg) then if not warns_user_not_allowed(plugin, msg) then
local result = plugin.run(msg, matches) local result = plugin.run(msg, matches)
@ -173,7 +161,6 @@ function match_plugin(plugin, plugin_name, msg)
end end
end end
end end
end
-- One patterns matches -- One patterns matches
return return
end end
@ -185,61 +172,37 @@ function _send_msg(destination, text)
send_large_msg(destination, text) send_large_msg(destination, text)
end end
-- Save the content of _config to config.lua -- Load superusers from redis
function save_config( ) function load_sudo_users()
serialize_to_file(_config, './data/config.lua') if redis:exists("telegram:sudo_users") == false then
print ('Configuration in ./data/config.lua gespeichert') -- If sudo_users set doesnt exists
print ("Created new sudo_users set: telegram:sudo_users")
create_sudo_users()
end
local sudo_users = redis:smembers("telegram:sudo_users")
for v,user in pairs(sudo_users) do
print("Superuser: " .. user)
end
return sudo_users
end end
-- Returns the config from config.lua file. -- Load credentials from redis
-- If file doesn't exist, create it. function load_cred()
function load_config( ) if redis:exists("telegram:credentials") == false then
local f = io.open('./data/config.lua', "r") -- If credentials hash doesnt exists
-- If config.lua doesn't exist print ("Neuen Credentials-Hash erstellt: telegram:credentials")
if not f then
print ("Neue Config-Datei erstellt: data/config.lua")
create_config()
else
f:close()
end
local config = loadfile ("./data/config.lua")()
for v,user in pairs(config.sudo_users) do
print("Erlaubter Benutzer: " .. user)
end
return config
end
function load_cred( )
local cf = io.open('./data/credentials.lua', "r")
-- If credentials.lua doesnt exists
if not cf then
print ("Neue Credentials-Datei erstellt: data/credentials.lua")
create_cred() create_cred()
else
cf:close()
end end
local _file_cred = loadfile ("./data/credentials.lua")() return redis:hgetall("telegram:credentials")
return _file_cred
end end
-- Create a basic config.json file and saves it. -- create credentials hash with redis
function create_config( ) function create_cred()
-- A simple config with basic plugins and ourselves as privileged user
config = {
enabled_plugins = {
"help",
"plugins" },
sudo_users = {our_id},
disabled_channels = {}
}
serialize_to_file(config, './data/config.lua')
print ('Configuration in ./data/config.lua gespeichert')
end
function create_cred( )
cred = { cred = {
bitly_access_token = "", bitly_access_token = "",
cloudconvert_apikey = "", cloudinary_apikey = "",
cloudinary_api_secret = "",
cloudinary_public_id = "",
derpibooru_apikey = "", derpibooru_apikey = "",
fb_access_token = "", fb_access_token = "",
flickr_apikey = "", flickr_apikey = "",
@ -247,15 +210,20 @@ function create_cred( )
ftp_username = "", ftp_username = "",
ftp_password = "", ftp_password = "",
gender_apikey = "", gender_apikey = "",
golem_apikey = "",
google_apikey = "", google_apikey = "",
google_cse_id = "", google_cse_id = "",
gitlab_private_token = "",
gitlab_project_id = "",
instagram_access_token = "", instagram_access_token = "",
lyricsnmusic_apikey = "", lyricsnmusic_apikey = "",
mal_username = "",
mal_pw = "",
neutrino_userid = "", neutrino_userid = "",
neutrino_apikey = "", neutrino_apikey = "",
owm_apikey = "",
page2images_restkey = "", page2images_restkey = "",
soundcloud_client_id = "", soundcloud_client_id = "",
superfeedr_authorization = "",
tw_consumer_key = "", tw_consumer_key = "",
tw_consumer_secret = "", tw_consumer_secret = "",
tw_access_token = "", tw_access_token = "",
@ -266,8 +234,28 @@ function create_cred( )
yourls_site_url = "", yourls_site_url = "",
yourls_signature_token = "" yourls_signature_token = ""
} }
serialize_to_file(cred, './data/credentials.lua') redis:hmset("telegram:credentials", cred)
print ('Credentials gespeichert in ./data/credentials.lua') print ('Credentials gespeichert in telegram:credentials')
end
function create_sudo_users()
redis:sadd("telegram:sudo_users", '0')
redis:sadd("telegram:sudo_users", '1')
redis:sadd("telegram:sudo_users", our_id)
print('Speichere Superuser in telegram:sudo_users')
print('Adde deine ID mit Redis: SADD telegram:sudo_users YOURID')
end
-- create plugin set if it doesn't exist
function create_plugin_set()
enabled_plugins = {
"plugins",
"manager"
}
print ('enabling a few plugins - saving to redis set telegram:enabled_plugins')
for _,plugin in pairs(enabled_plugins) do
redis:sadd("telegram:enabled_plugins", plugin)
end
end end
function on_our_id (id) function on_our_id (id)
@ -291,7 +279,11 @@ end
-- Enable plugins in config.json -- Enable plugins in config.json
function load_plugins() function load_plugins()
for k, v in pairs(_config.enabled_plugins) do enabled_plugins = redis:smembers('telegram:enabled_plugins')
if not enabled_plugins[1] then
create_plugin_set()
end
for k, v in pairs(enabled_plugins) do
print("Lade Plugin", v) print("Lade Plugin", v)
local ok, err = pcall(function() local ok, err = pcall(function()
@ -300,9 +292,10 @@ function load_plugins()
end) end)
if not ok then if not ok then
print('\27[31mFehler beim laden des Plugins '..v..'\27[39m') print('\27[31mFehler beim Laden vom Plugin '..v..'\27[39m')
print('\27[31m'..err..'\27[39m') print('\27[31m'..err..'\27[39m')
end end
end end
end end
@ -324,4 +317,5 @@ end
our_id = 0 our_id = 0
now = os.time() now = os.time()
math.randomseed(now) math.randomseed(now)
started = false started = false

223
bot/utils.lua
View File

@ -1,14 +1,14 @@
URL = require "socket.url" http = require("socket.http")
http = require "socket.http" https = require("ssl.https")
https = require "ssl.https"
ltn12 = require "ltn12" ltn12 = require "ltn12"
serpent = require "serpent" URL = require("socket.url")
feedparser = require "feedparser" feedparser = require ("feedparser")
json = (loadfile "./libs/JSON.lua")() json = (loadfile "./libs/JSON.lua")()
serpent = (loadfile "./libs/serpent.lua")()
mimetype = (loadfile "./libs/mimetype.lua")() mimetype = (loadfile "./libs/mimetype.lua")()
redis = (loadfile "./libs/redis.lua")() redis = (loadfile "./libs/redis.lua")()
http.TIMEOUT = 10 http.TIMEOUT = 5
function get_receiver(msg) function get_receiver(msg)
if msg.to.type == 'user' then if msg.to.type == 'user' then
@ -45,15 +45,9 @@ function string:split(sep)
return fields return fields
end end
-- DEPRECATED
function string.trim(s)
print("string.trim(s) is DEPRECATED use string:trim() instead")
return s:gsub("^%s*(.-)%s*$", "%1")
end
-- Removes spaces -- Removes spaces
function string:trim() function string.trim(s)
return self:gsub("^%s*(.-)%s*$", "%1") return s:gsub("^%s*(.-)%s*$", "%1")
end end
function get_http_file_name(url, headers) function get_http_file_name(url, headers)
@ -70,6 +64,7 @@ function get_http_file_name(url, headers)
if content_type then if content_type then
extension = mimetype.get_mime_extension(content_type) extension = mimetype.get_mime_extension(content_type)
end end
if extension then if extension then
file_name = file_name.."."..extension file_name = file_name.."."..extension
end end
@ -147,12 +142,11 @@ function run_command(str)
return result return result
end end
-- User has privileges
function is_sudo(msg) function is_sudo(msg)
local var = false local var = false
-- Check users id in config -- Check if user id is in sudoers table
for v,user in pairs(_config.sudo_users) do for v,user in pairs(sudo_users) do
if user == msg.from.id then if string.match(user, msg.from.id) then
var = true var = true
end end
end end
@ -255,27 +249,33 @@ end
-- Download the image and send to receiver, it will be deleted. -- Download the image and send to receiver, it will be deleted.
-- cb_function and cb_extra are optionals callback -- cb_function and cb_extra are optionals callback
function send_photo_from_url(receiver, url, cb_function, cb_extra) function send_photo_from_url(receiver, url, cb_function, cb_extra, sendNotErrMsg)
-- If callback not provided -- If callback not provided
cb_function = cb_function or ok_cb cb_function = cb_function or ok_cb
cb_extra = cb_extra or false cb_extra = cb_extra or false
local file_path = download_to_file(url, false) local file_path = download_to_file(url, false)
if not file_path then -- Error if not file_path then -- Error
local text = 'Fehler beim laden des Bildes' if sendNotErrMsg then
return false
else
local text = 'Fehler beim Laden des Bildes'
send_msg(receiver, text, cb_function, cb_extra) send_msg(receiver, text, cb_function, cb_extra)
end
else else
print("Datei Pfad: "..file_path) print("Datei Pfad: "..file_path)
_send_photo(receiver, file_path, cb_function, cb_extra) _send_photo(receiver, file_path, cb_function, cb_extra)
return true
end end
end end
-- Same as send_photo_from_url but as callback function -- Same as send_photo_from_url but as callback function
function send_photo_from_url_callback(cb_extra, success, result) function send_photo_from_url_callback(cb_extra, success, result, sendErrMsg)
local receiver = cb_extra.receiver local receiver = cb_extra.receiver
local url = cb_extra.url local url = cb_extra.url
local file_path = download_to_file(url, false) local file_path = download_to_file(url, false)
if not file_path then -- Error if not file_path then -- Error
local text = 'Fehler beim laden des Bildes' local text = 'Fehler beim Herunterladen des Bildes'
send_msg(receiver, text, ok_cb, false) send_msg(receiver, text, ok_cb, false)
else else
print("Datei Pfad: "..file_path) print("Datei Pfad: "..file_path)
@ -283,6 +283,21 @@ function send_photo_from_url_callback(cb_extra, success, result)
end end
end end
-- Same as above, but with send_as_document
function send_document_from_url_callback(cb_extra, success, result)
local receiver = cb_extra.receiver
local url = cb_extra.url
local file_path = download_to_file(url, false)
if not file_path then -- Error
local text = 'Fehler beim Herunterladen des Dokumentes'
send_msg(receiver, text, ok_cb, false)
else
print("File path: "..file_path)
_send_document(receiver, file_path, ok_cb, false)
end
end
-- Send multiple images asynchronous. -- Send multiple images asynchronous.
-- param urls must be a table. -- param urls must be a table.
function send_photos_from_url(receiver, urls) function send_photos_from_url(receiver, urls)
@ -355,10 +370,24 @@ end
-- Download the image and send to receiver, it will be deleted. -- Download the image and send to receiver, it will be deleted.
-- cb_function and cb_extra are optionals callback -- cb_function and cb_extra are optionals callback
function send_document_from_url(receiver, url, cb_function, cb_extra) function send_document_from_url(receiver, url, cb_function, cb_extra, sendNotErrMsg)
-- If callback not provided
cb_function = cb_function or ok_cb
cb_extra = cb_extra or false
local file_path = download_to_file(url, false) local file_path = download_to_file(url, false)
if not file_path then -- Error
if sendNotErrMsg then
return false
else
local text = 'Fehler beim Herunterladen des Dokumentes'
send_msg(receiver, text, cb_function, cb_extra)
end
else
print("Datei Pfad: "..file_path) print("Datei Pfad: "..file_path)
_send_document(receiver, file_path, cb_function, cb_extra) _send_document(receiver, file_path, cb_function, cb_extra)
return true
end
end end
-- Parameters in ?a=1&b=2 style -- Parameters in ?a=1&b=2 style
@ -409,48 +438,6 @@ function send_order_msg(destination, msgs)
send_order_msg_callback(cb_extra, true) send_order_msg_callback(cb_extra, true)
end end
function send_order_msg_callback(cb_extra, success, result)
local destination = cb_extra.destination
local msgs = cb_extra.msgs
local file_path = cb_extra.file_path
if file_path ~= nil then
os.remove(file_path)
print("Deleted: " .. file_path)
end
if type(msgs) == 'string' then
send_large_msg(destination, msgs)
elseif type(msgs) ~= 'table' then
return
end
if #msgs < 1 then
return
end
local msg = table.remove(msgs, 1)
local new_cb_extra = {
destination = destination,
msgs = msgs
}
if type(msg) == 'string' then
send_msg(destination, msg, send_order_msg_callback, new_cb_extra)
elseif type(msg) == 'table' then
local typ = msg[1]
local nmsg = msg[2]
new_cb_extra.file_path = nmsg
if typ == 'document' then
send_document(destination, nmsg, send_order_msg_callback, new_cb_extra)
elseif typ == 'image' or typ == 'photo' then
send_photo(destination, nmsg, send_order_msg_callback, new_cb_extra)
elseif typ == 'audio' then
send_audio(destination, nmsg, send_order_msg_callback, new_cb_extra)
elseif typ == 'video' then
send_video(destination, nmsg, send_order_msg_callback, new_cb_extra)
else
send_file(destination, nmsg, send_order_msg_callback, new_cb_extra)
end
end
end
-- Same as send_large_msg_callback but friendly params
function send_large_msg(destination, text) function send_large_msg(destination, text)
local cb_extra = { local cb_extra = {
destination = destination, destination = destination,
@ -486,14 +473,10 @@ function send_large_msg_callback(cb_extra, success, result)
end end
-- Returns a table with matches or nil -- Returns a table with matches or nil
function match_pattern(pattern, text, lower_case) --function match_pattern(pattern, text, lower_case)
function match_pattern(pattern, text)
if text then if text then
local matches = {} local matches = { string.match(text, pattern) }
if lower_case then
matches = { string.match(text:lower(), pattern) }
else
matches = { string.match(text, pattern) }
end
if next(matches) then if next(matches) then
return matches return matches
end end
@ -521,7 +504,7 @@ function load_from_file(file, default_data)
return loadfile (file)() return loadfile (file)()
end end
function run_bash(str) function run_bash(str)
local cmd = io.popen(str) local cmd = io.popen(str)
local result = cmd:read('*all') local result = cmd:read('*all')
cmd:close() cmd:close()
@ -536,11 +519,26 @@ function run_sh(msg)
return text return text
end end
function round(num, idp)
if idp and idp>0 then
local mult = 10^idp
return math.floor(num * mult + 0.5) / mult
end
return math.floor(num + 0.5)
end
function unescape(str) function unescape(str)
str = string.gsub( str, '&lt;', '<' ) str = string.gsub( str, '&lt;', '<' )
str = string.gsub( str, '&gt;', '>' ) str = string.gsub( str, '&gt;', '>' )
str = string.gsub( str, '&quot;', '"' ) str = string.gsub( str, '&quot;', '"' )
str = string.gsub( str, '&apos;', "'" ) str = string.gsub( str, '&apos;', "'" )
str = string.gsub( str, "&Auml;", "Ä")
str = string.gsub( str, "&auml;", "ä")
str = string.gsub( str, "&Ouml;", "Ö")
str = string.gsub( str, "&ouml;", "ö")
str = string.gsub( str, "Uuml;", "Ü")
str = string.gsub( str, "&uuml;", "ü")
str = string.gsub( str, "&szlig;", "ß")
str = string.gsub( str, '&#(%d+);', function(n) return string.char(n) end ) str = string.gsub( str, '&#(%d+);', function(n) return string.char(n) end )
str = string.gsub( str, '&#x(%d+);', function(n) return string.char(tonumber(n,16)) end ) str = string.gsub( str, '&#x(%d+);', function(n) return string.char(tonumber(n,16)) end )
str = string.gsub( str, '&amp;', '&' ) -- Be sure to do this after all others str = string.gsub( str, '&amp;', '&' ) -- Be sure to do this after all others
@ -564,3 +562,82 @@ function unescape_html(str)
end) end)
return new return new
end end
function post_petition(url, arguments)
local url, h = string.gsub(url, "http://", "")
local url, hs = string.gsub(url, "https://", "")
local post_prot = "http"
if hs == 1 then
post_prot = "https"
end
local response_body = {}
local request_constructor = {
url = post_prot..'://'..url,
method = "POST",
sink = ltn12.sink.table(response_body),
headers = {},
redirect = false
}
local source = arguments
if type(arguments) == "table" then
local source = helpers.url_encode_arguments(arguments)
end
request_constructor.headers["Content-Type"] = "application/x-www-form-urlencoded"
request_constructor.headers["Content-Length"] = tostring(#source)
request_constructor.source = ltn12.source.string(source)
if post_prot == "http" then
ok, response_code, response_headers, response_status_line = http.request(request_constructor)
else
ok, response_code, response_headers, response_status_line = https.request(request_constructor)
end
if not ok then
return nil
end
response_body = json:decode(table.concat(response_body))
return response_body
end
function get_redis_hash(msg, var)
if msg.to.type == 'chat' then
return 'chat:'..msg.to.id..':'..var
end
if msg.to.type == 'user' then
return 'user:'..msg.from.id..':'..var
end
end
function tablelength(T)
local count = 0
for _ in pairs(T) do count = count + 1 end
return count
end
function comma_value(amount)
local formatted = amount
while true do
formatted, k = string.gsub(formatted, "^(-?%d+)(%d%d%d)", '%1.%2')
if (k==0) then
break
end
end
return formatted
end
function string.ends(str, fin)
return fin=='' or string.sub(str,-string.len(fin)) == fin
end
function get_location(user_id)
local hash = 'user:'..user_id
local set_location = redis:hget(hash, 'location')
if set_location == 'false' or set_location == nil then
return false
else
return set_location
end
end

BIN
pictures/inlove.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 61 KiB

24
plugins/9gag.lua
View File

@ -6,8 +6,7 @@ local function get_9GAG()
if c ~= 200 then return nil end if c ~= 200 then return nil end
local gag = json:decode(b) local gag = json:decode(b)
-- random max json table size -- random max json table size
local i = math.random(#gag) local i = math.random(#gag) local link_image = gag[i].src
local link_image = gag[i].src
local title = gag[i].title local title = gag[i].title
if link_image:sub(0,2) == '//' then if link_image:sub(0,2) == '//' then
link_image = msg.text:sub(3,-1) link_image = msg.text:sub(3,-1)
@ -15,23 +14,22 @@ local function get_9GAG()
return link_image, title return link_image, title
end end
local function send_title(cb_extra, success, result)
if success then
send_msg(cb_extra[1], cb_extra[2], ok_cb, false)
end
end
local function run(msg, matches) local function run(msg, matches)
local receiver = get_receiver(msg) local receiver = get_receiver(msg)
local url, title = get_9GAG() local url, title = get_9GAG()
send_photo_from_url(receiver, url, send_title, {receiver, title}) local cb_extra = {
return false receiver=receiver,
url=url
}
send_msg(receiver, title, send_photo_from_url_callback, cb_extra)
end end
return { return {
description = "9GAG", description = "Sendet ein zufälliges Bild von 9GAG",
usage = {"/9gag"}, usage = "/9gag: Sendet ein zufälliges Bild von 9GAG.",
patterns = {"^/9gag$"}, patterns = {
"^/9gag$"
},
run = run run = run
} }

107
plugins/afk.lua
View File

@ -1,23 +1,102 @@
function run(msg, matches) do
local text = matches[2]
local user_name = get_name(msg)
if string.starts(msg.text, '/afk') and (text == nil) then local function is_offline(hash)
return user_name .. ' ist nun AFK' local afk = redis:hget(hash, 'afk')
if afk == "true" then
return true
else else
return user_name .. ' ist nun AFK (' .. text .. ')' return false
end
end
local function get_afk_text(hash)
local afk_text = redis:hget(hash, 'afk_text')
if afk_text ~= nil and afk_text ~= "" and afk_text ~= "false" then
return afk_text
else
return false
end
end
local function switch_afk(user_name, user_id, chat_id, text)
local hash = 'afk:'..chat_id..':'..user_id
if is_offline(hash) then
local afk_text = get_afk_text(hash)
if afk_text then
return 'Du bist bereits AFK ('..afk_text..')!'
else
return 'Du bist bereits AFK!'
end
end end
--[[if string.starts(msg.text, '/re') or string.starts(msg.text, '/wd') then print('Setting redis hash afk in '..hash..' to true')
return user_name .. ' ist wieder da!' redis:hset(hash, 'afk', true)
end]]
if text then
print('Setting redis hash afk_text in '..hash..' to '..text)
redis:hset(hash, 'afk_text', text)
return user_name..' ist AFK ('..text..')'
else
return user_name..' ist AFK'
end
end
local function pre_process(msg)
if msg.to.type ~= "chat" then
-- Ignore
return msg
end
local receiver = get_receiver(msg)
local user_name = get_name(msg)
local user_id = msg.from.id
local chat_id = msg.to.id
local hash = 'afk:'..chat_id..':'..user_id
if is_offline(hash) then
local afk_text = get_afk_text(hash)
redis:hset(hash, 'afk', false)
if afk_text then
redis:hset(hash, 'afk_text', false)
send_msg(receiver, user_name..' ist wieder da (war: '..afk_text..')!', ok_cb, false)
else
send_msg(receiver, user_name..' ist wieder da!', ok_cb, false)
end
end
return msg
end
local function run(msg, matches)
if msg.to.type ~= "chat" then
return "Mir ist's egal, ob du AFK bist ._."
end
local user_id = msg.from.id
local chat_id = msg.to.id
local user_name = get_name(msg)
if matches[2] then
return switch_afk(user_name, user_id, chat_id, matches[2])
else
return switch_afk(user_name, user_id, chat_id)
end
end end
return { return {
description = 'Sagt dass ihr afk oder wieder da seid', description = 'AFK und online schalten',
usage = {'/afk','/re','/wd'}, usage = "/afk (Text): Setzt Status auf AFK mit optionalem Text",
patterns = {'^/([A|a][F|f][K|k])$','^/([A|a][F|f][K|k]) (.*)$','^/([R|r][E|e])$','^/([W|w][D|d])$'}, patterns = {
run = run "^/([A|a][F|f][K|k])$",
"^/([A|a][F|f][K|k]) (.*)$"
},
run = run,
pre_process = pre_process
} }
--by Akamaru [https://ponywave.de]
-- by Akamaru [https://ponywave.de]
-- modified by iCON [http://wiidatabase.de]
end

54
plugins/aktien.lua Normal file
View File

@ -0,0 +1,54 @@
-- 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 function get_stock (symbol)
local BASE_URL = 'https://query.yahooapis.com/v1/public/yql'
local url = BASE_URL..'?q=select%20*%20from%20yahoo.finance.quotes%20where%20symbol="'..symbol..'"&env=http%3A%2F%2Fdatatables.org%2Falltables.env&format=json'
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).query.results.quote
return data
end
function send_stock_data(data, receiver)
-- local ask = data.Ask
local bid = data.Bid
local change = data.Change
local percent = data.ChangeinPercent
local currency = data.Currency
local range = data.DaysRange
local name = data.Name
local yesterday = data.PreviousClose
local year_range = data.YearRange
local symbol = data.symbol
local text = name..' ('..symbol..') Aktien in '..currency..':\nAktueller Preis: '..bid..' ('..change..' / '..percent..')\nGestriger Preis: '..yesterday..'\nHeute: '..range..'\nDieses Jahr: '..year_range
send_msg(receiver, text, ok_cb, false)
end
local function run(msg, matches)
local symbol = string.upper(matches[1])
local data = get_stock(symbol)
local receiver = get_receiver(msg)
if data.Bid ~= nil then
send_stock_data(data, receiver)
else
return "Dieses Symbol existiert nicht."
end
end
return {
description = "Sendet Aktieninfos",
usage = "/aktien [Symbol]: Sendet Aktieninfos",
patterns = {
"^/aktien ([A-Za-z0-9]+)$",
"^/stocks ([A-Za-z0-9]+)$",
"^/aktie ([A-Za-z0-9]+)$",
"^/stock ([A-Za-z0-9]+)$"
},
run = run
}
end

4
plugins/alive.lua
View File

@ -8,7 +8,9 @@ end
return { return {
description = "Ist der Bot noch da?", description = "Ist der Bot noch da?",
usage = {"Miku"}, usage = {"Miku"},
patterns = {"^[M|m]iku(?)$","^[M|m]iku$"}, patterns = {"^[Mm][Ii][Kk][Uu](?)$",
"^[Mm][Ii][Kk][Uu]$"
},
run = run run = run
} }
--by Akamaru [https://ponywave.de] --by Akamaru [https://ponywave.de]

122
plugins/app_store.lua Normal file
View File

@ -0,0 +1,122 @@
-- 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://itunes.apple.com/lookup'
local makeOurDate = function(dateString)
local pattern = "(%d+)%-(%d+)%-(%d+)T"
local year, month, day = dateString:match(pattern)
return day..'.'..month..'.'..year
end
local function get_appstore_data()
local url = BASE_URL..'/?id='..appid..'&country=de'
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).results[1]
if data == nil then return 'NOTFOUND' end
if data.wrapperType ~= 'software' then return nil end
return data
end
local function send_appstore_data(data, receiver)
-- Header
local name = data.trackName
local author = data.sellerName
local price = data.formattedPrice
local version = data.version
-- Body
local description = string.sub(unescape(data.description), 1, 150) .. '...'
local min_ios_ver = data.minimumOsVersion
local size = string.gsub(round(data.fileSizeBytes / 1000000, 2), "%.", "%,") -- wtf Apple, it's 1024, not 1000!
local release = makeOurDate(data.releaseDate)
if data.isGameCenterEnabled then
game_center = '\nUnterstützt Game Center'
else
game_center = ''
end
local category_count = tablelength(data.genres)
if category_count == 1 then
category = '\nKategorie: '..data.genres[1]
else
local category_loop = '\nKategorien: '
for v in pairs(data.genres) do
if v < category_count then
category_loop = category_loop..data.genres[v]..', '
else
category_loop = category_loop..data.genres[v]
end
end
category = category_loop
end
-- Footer
if data.averageUserRating and data.userRatingCount then
avg_rating = 'Bewertung: '..string.gsub(data.averageUserRating, "%.", "%,")..' Sterne '
ratings = 'von '..comma_value(data.userRatingCount)..' Bewertungen'
else
avg_rating = ""
ratings = ""
end
local header = name..' v'..version..' von '..author..' ('..price..'):'
local body = '\n'..description..'\nBenötigt mind. iOS '..min_ios_ver..'\nGröße: '..size..' MB\nErstveröffentlicht am '..release..game_center..category
local footer = '\n'..avg_rating..ratings
local text = header..body..footer
-- Picture
if data.screenshotUrls[1] and data.ipadScreenshotUrls[1] then
image_url = data.screenshotUrls[1]
elseif data.screenshotUrls[1] and not data.ipadScreenshotUrls[1] then
image_url = data.screenshotUrls[1]
elseif not data.screenshotUrls[1] and data.ipadScreenshotUrls[1] then
image_url = data.ipadScreenshotUrls[1]
else
image_url = nil
end
if image_url then
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
local function run(msg, matches)
local receiver = get_receiver(msg)
if not matches[3] then
appid = matches[1]
else
appid = matches[3]
end
local data = get_appstore_data()
if data == nil then print('Das Appstore-Plugin unterstützt zurzeit nur Apps!') end
if data == 'HTTP-FEHLER' or data == 'NOTFOUND' then
return 'App nicht gefunden!'
else
send_appstore_data(data, receiver)
end
end
return {
description = "Sendet iPhone App-Store Info.",
usage = {"Link zu App auf iTunes",
"/itunes (ID)"
},
patterns = {"itunes.apple.com/(.*)/app/(.*)/id(%d+)",
"^/itunes (%d+)$"
},
run = run
}
end

51
plugins/birthday_get.lua Normal file
View File

@ -0,0 +1,51 @@
local function get_value(msg, var_name)
local hash = 'telegram:birthdays'
if hash then
local value = redis:hget(hash, var_name)
if not value then
return'Geburtstag nicht gefunden, benutze "/getbd", um alle Geburtstage aufzulisten.'
else
return var_name..' hat am '..value..' Geburtstag'
end
end
end
local function list_variables(msg)
local hash = 'telegram:birthdays'
if hash then
print('Getting variable from redis hash '..hash)
local names = redis:hkeys(hash)
local text = ''
for i=1, #names do
variables = get_value(msg, names[i])
text = text..variables.."\n"
end
if text == '' or text == nil then
return 'Keine Geburtstage vorhanden!'
else
return text
end
end
end
local function run(msg, matches)
if matches[2] then
return get_value(msg, matches[2])
else
return 'Geburtstagsliste:\n\n'..list_variables(msg)
end
end
return {
description = "Zeigt Geburtstage, die mit /setbd gesetzt wurden",
usage = {
"/getbd: Gibt alle Geburtstage aus",
"/getbd (Name): Gibt den Geburtstag aus."
},
patterns = {
"^(/getbd) (.+)$",
"^/getbd$"
},
run = run
}

47
plugins/birthday_set.lua Normal file
View File

@ -0,0 +1,47 @@
local function save_value(msg, name, value)
if (not name or not value) then
return "Benutzung: /setbd [Name] [Tag. Monat]"
end
local hash = 'telegram:birthdays'
if hash then
print('Saving variable to redis hash '..hash)
redis:hset(hash, name, value)
return "Geburtstag von "..name.." am "..value.." gespeichert!"
end
end
local function delete_value(msg, name)
local hash = 'telegram:birthdays'
if redis:hexists(hash, name) == true then
print('Deleting birthday from redis hash '..hash)
redis:hdel(hash, name)
return 'Geburtstag von "'..name..'" erfolgreich gelöscht!'
else
return 'Du kannst keinen Geburtstag löschen, der nicht existiert ._.'
end
end
local function run(msg, matches)
local name = string.sub(matches[1], 1, 50)
local value = string.sub(matches[2], 1, 1000)
if value == "nil" then
text = delete_value(msg, name, value)
else
text = save_value(msg, name, value)
end
return text
end
return {
description = "Speichert Geburtstage.",
usage = {
"/setbd [Name] [Tag. Monat]: Speichert ein Geburtstag.",
"/setbd (Name) nil: Löscht Geburtstag"
},
patterns = {
"^/setbd ([^%s]+) (.+)$"
},
run = run
}

34
plugins/bitly.lua Normal file
View File

@ -0,0 +1,34 @@
-- 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-ssl.bitly.com/v3/expand'
local function expand_bitly_link (shorturl)
local access_token = cred_data.bitly_access_token
local url = BASE_URL..'?access_token='..access_token..'&shortUrl=https://bit.ly/'..shorturl
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).data
return data.expand[1].long_url
end
local function run(msg, matches)
local shorturl = matches[1]
return expand_bitly_link(shorturl)
end
return {
description = "Verlängert Bitly-Links",
usage = "Verlängert bit.ly, bitly.com, j.mp und andib.tk Links",
patterns = {
"bit.ly/([A-Za-z0-9-_-]+)",
"bitly.com/([A-Za-z0-9-_-]+)",
"j.mp/([A-Za-z0-9-_-]+)",
"andib.tk/([A-Za-z0-9-_-]+)"
},
run = run
}
end

43
plugins/bitly_create.lua Normal file
View File

@ -0,0 +1,43 @@
-- 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-ssl.bitly.com/v3/shorten'
local access_token = cred_data.bitly_access_token
function create_bitlink (long_url, domain)
local url = BASE_URL..'?access_token='..access_token..'&domain='..domain..'&longUrl='..long_url..'&format=txt'
local text,code = https.request(url)
if code ~= 200 then return 'FEHLER: '..text end
return text
end
function run(msg, matches)
if matches[2] == nil then
long_url = url_encode(matches[1])
domain = 'bit.ly'
else
long_url = url_encode(matches[2])
domain = matches[1]
end
return create_bitlink(long_url, domain)
end
return {
description = "Kürzt einen Link",
usage = {
"/short [Link]: Kürzt einen Link mit Bitly",
"/short [j.mp|bit.ly|bitly.com|andib.tk] [Link]: Kürzt einen Link mit der ausgewählten Kurz-URL"
},
patterns = {
"^/short (j.mp) (https?://[%w-_%.%?%.:/%+=&]+)$",
"^/short (bit.ly) (https?://[%w-_%.%?%.:/%+=&]+)$",
"^/short (bitly.com) (https?://[%w-_%.%?%.:/%+=&]+)$",
"^/short (andib.tk) (https?://[%w-_%.%?%.:/%+=&]+)$",
"^/short (https?://[%w-_%.%?%.:/%+=&]+)$"
},
run = run
}
end

21
plugins/pluginsold/btc.lua → plugins/btc.lua
View File

@ -6,9 +6,11 @@ local function getBTCX(amount,currency)
if code ~= 200 then return nil end if code ~= 200 then return nil end
local data = json:decode(res) local data = json:decode(res)
local ask = string.gsub(data.ask, "%.", "%,")
local bid = string.gsub(data.bid, "%.", "%,")
-- Easy, it's right there -- Easy, it's right there
text = "BTC/"..currency..'\n'..'Buy: '..data.ask..'\n'..'Sell: '..data.bid text = "BTC/"..currency..'\n'..'Kaufen: '..ask..'\n'..'Verkaufen: '..bid
-- If we have a number as second parameter, calculate the bitcoin amount -- If we have a number as second parameter, calculate the bitcoin amount
if amount~=nil then if amount~=nil then
@ -39,14 +41,17 @@ local function run(msg, matches)
end end
return { return {
description = "Bitcoin global average market value (in EUR or USD)", description = "Globaler Bitcoin-Wert (in EUR oder USD)",
usage = "!btc [EUR|USD] [amount]", usage = {
"/btc: Zeigt aktuellen Bitcoin-Kurs",
"/btc [EUR|USD] [Menge]: Rechnet Bitcoin in Euro/USD um"
},
patterns = { patterns = {
"^!btc$", "^/btc$",
"^!btc ([Ee][Uu][Rr])$", "^/btc ([Ee][Uu][Rr])$",
"^!btc ([Uu][Ss][Dd])$", "^/btc ([Uu][Ss][Dd])$",
"^!btc (EUR) (%d+[%d%.]*)$", "^/btc (EUR) (%d+[%d%.]*)$",
"^!btc (USD) (%d+[%d%.]*)$" "^/btc (USD) (%d+[%d%.]*)$"
}, },
run = run run = run
} }

3
plugins/change_pic.lua
View File

@ -10,6 +10,7 @@ return {
description = "", description = "",
usage = {""}, usage = {""},
patterns = {"^/pic (.*)$"}, patterns = {"^/pic (.*)$"},
run = run run = run,
notyping = true
} }
--by Akamaru [https://ponywave.de] --by Akamaru [https://ponywave.de]

77
plugins/channels.lua
View File

@ -1,53 +1,50 @@
-- Checks if bot was disabled on specific chat -- Checks if bot was disabled on specific chat
local function is_channel_disabled( receiver ) local function is_channel_disabled(msg)
if not _config.disabled_channels then local hash = 'chat:'..msg.to.id..':disabled'
local disabled = redis:get(hash)
if not disabled or disabled == "false" then
return false return false
end end
if _config.disabled_channels[receiver] == nil then return disabled
return false
end
return _config.disabled_channels[receiver]
end end
local function enable_channel(receiver) local function enable_channel(msg)
if not _config.disabled_channels then local hash = 'chat:'..msg.to.id..':disabled'
_config.disabled_channels = {} local disabled = redis:get(hash)
end if disabled then
print('Setze Redis Variable "'..hash..'" auf false')
if _config.disabled_channels[receiver] == nil then redis:set(hash, false)
return 'Channel aktiviert'
else
return 'Channel ist nicht deaktiviert!' return 'Channel ist nicht deaktiviert!'
end end
_config.disabled_channels[receiver] = false
save_config()
return "Channel wieder aktiviert!"
end end
local function disable_channel( receiver ) local function disable_channel(msg)
if not _config.disabled_channels then local hash = 'chat:'..msg.to.id..':disabled'
_config.disabled_channels = {} local disabled = redis:get(hash)
if disabled ~= "true" then
print('Setze Redis Variable "'..hash..'" auf true')
redis:set(hash, true)
return 'Channel deaktiviert'
else
return 'Channel ist bereits deaktiviert!'
end end
_config.disabled_channels[receiver] = true
save_config()
return "Channel deaktiviert!"
end end
local function pre_process(msg) local function pre_process(msg)
local receiver = get_receiver(msg)
-- If sender is sudo then re-enable the channel -- If is sudo can reeanble the channel
if is_sudo(msg) then if is_sudo(msg) then
if msg.text == "/channel enable" then if msg.text == "/channel enable" then
enable_channel(receiver) enable_channel(msg)
end end
end end
if is_channel_disabled(receiver) then if is_channel_disabled(msg) then
print('Channel wurde deaktiviert')
msg.text = "" msg.text = ""
end end
@ -55,22 +52,28 @@ local function pre_process(msg)
end end
local function run(msg, matches) local function run(msg, matches)
local receiver = get_receiver(msg)
-- Enable a channel -- Enable a channel
if matches[1] == 'enable' then if matches[1] == 'enable' then
return enable_channel(receiver) return enable_channel(msg)
end end
-- Disable a channel -- Disable a channel
if matches[1] == 'disable' then if matches[1] == 'disable' then
return disable_channel(receiver) return disable_channel(msg)
end end
end end
return { return {
description = "", description = "(De)aktiviert den Bot im Chat (nur Superuser).",
usage = {"/channel kann nur Akamaru"}, usage = {
patterns = {"^/channel? (enable)","^/channel? (disable)" }, "/channel enable: Aktiviert den Bot im Chat",
"/channel disable: Deaktiviert den Bot im Chat"
},
patterns = {
"^/channel? (enable)",
"^/channel? (disable)"
},
run = run, run = run,
privileged = true, privileged = true,
pre_process = pre_process pre_process = pre_process,
notyping = true
} }

27
plugins/cleverbot.lua Normal file
View File

@ -0,0 +1,27 @@
do
function run(msg, matches)
local text = msg.text
local url = "http://nocf.andibi.tk/dl/chatter-bot-api/cleverbot.php?text="..URL.escape(text)
local query = http.request(url)
if query == nil then return 'Ein Fehler ist aufgetreten :(' end
local decode = json:decode(query)
local answer = string.gsub(decode.clever, "&Auml;", "Ä")
local answer = string.gsub(answer, "&auml;", "ä")
local answer = string.gsub(answer, "&Ouml;", "Ö")
local answer = string.gsub(answer, "&ouml;", "ö")
local answer = string.gsub(answer, "&Uuml;", "Ü")
local answer = string.gsub(answer, "&uuml;", "ü")
local answer = string.gsub(answer, "&szlig;", "ß")
return answer
end
return {
description = "Chat mit CleverBot",
usage = "/cbot [Text]: Befragt den Cleverbot",
patterns = {"^/cbot (.*)$"},
run = run
}
end

57
plugins/create_sticker.lua Normal file
View File

@ -0,0 +1,57 @@
-- 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 apikey = cred_data.cloudinary_apikey
local api_secret = cred_data.cloudinary_api_secret
local public_id = cred_data.cloudinary_public_id
local BASE_URL = 'https://api.cloudinary.com/v1_1/'..public_id..'/image'
local function upload_image(file_url)
local timestamp = os.time()
local signature = sha1('timestamp='..timestamp..api_secret)
local upload_url = BASE_URL..'/upload?api_key='..apikey..'&file='..file_url..'&timestamp='..timestamp..'&signature='..signature
local res,code = https.request(upload_url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data.public_id
end
local function destroy_image(image_id)
local timestamp = os.time()
local signature = sha1('public_id='..image_id..'&timestamp='..timestamp..api_secret)
local destroy_url = BASE_URL..'/destroy?api_key='..apikey..'&public_id='..image_id..'&timestamp='..timestamp..'&signature='..signature
local res,code = https.request(destroy_url)
if code ~= 200 then print("Löschen fehlgeschlagen") end
local data = json:decode(res)
if data.result == "ok" then
print("Datei von Cloudinary-Server gelöscht")
else
print("Löschen fehlgeschlagen")
end
end
local function run(msg, matches)
if not sha1 then
print('sha1 Library wird zum ersten Mal geladen...')
sha1 = (loadfile "./libs/sha1.lua")()
end
local file_url = matches[1]
local image_id = upload_image(file_url)
local file_url = 'https://res.cloudinary.com/'..public_id..'/image/upload/w_512/'..image_id..'.webp'
local receiver = get_receiver(msg)
send_document_from_url(receiver, file_url, cb_extra)
destroy_image(image_id)
end
return {
description = "Erstellt einen Sticker on-the-fly.",
usage = "/sticker [Bilder-URL]: Erstelt einen Sticker aus einem Bild",
patterns = {
"^/sticker (https?://[%w-_%.%?%.:/%+=&]+)"
},
run = run
}
end

118
plugins/credentials_manager.lua Normal file
View File

@ -0,0 +1,118 @@
-- This file is part of the Telegram Bot "Brawlbot" (telegram.me/Brawlbot) by Andreas Bielawski (telegram.me/Brawl)
-- Released unter the MPLv2
local hash = "telegram:credentials"
-- See: http://www.lua.org/pil/19.3.html
function pairsByKeys (t, f)
local a = {}
for n in pairs(t) do table.insert(a, n) end
table.sort(a, f)
local i = 0 -- iterator variable
local iter = function () -- iterator function
i = i + 1
if a[i] == nil then
return nil
else
return a[i], t[a[i]]
end
end
return iter
end
function reload_creds()
cred_data = redis:hgetall(hash)
end
function list_creds()
reload_creds()
if redis:exists("telegram:credentials") == true then
local text = ""
for var, key in pairsByKeys(cred_data) do
text = text..var..' = '..key..'\n'
end
return text
else
create_cred()
return "Es wurden noch keine Logininformationen gespeichert, lege Tabelle an...\nSpeichere Keys mit !creds add [Variable] [Key] ein!"
end
end
function add_creds(var, key)
print('Saving credential for '..var..' to redis hash '..hash)
redis:hset(hash, var, key)
reload_creds()
return var..' = '..key..'\neingespeichert!'
end
function del_creds(var)
if redis:hexists(hash, var) == true then
print('Deleting credential for '..var..' from redis hash '..hash)
redis:hdel(hash, var)
reload_creds()
return 'Key von "'..var..'" erfolgreich gelöscht!'
else
return 'Du hast keine Logininformationen für diese Variable eingespeichert.'
end
end
function rename_creds(var, newvar)
if redis:hexists(hash, var) == true then
local key = redis:hget(hash, var)
if redis:hsetnx(hash, newvar, key) == true then
redis:hdel(hash, var)
reload_creds()
return '"'..var..'" erfolgreich zu "'..newvar..'" umbenannt.'
else
return "Variable konnte nicht umbenannt werden: Zielvariable existiert bereits."
end
else
return 'Die zu umbennende Variable existiert nicht.'
end
end
function run(msg, matches)
local receiver = get_receiver(msg)
if not is_sudo(msg) then
return 'Du bist kein Superuser. Dieser Vorfall wird gemeldet!'
end
if msg.to.type == 'chat' then
return 'Das Plugin solltest du nur per PN nutzen!'
end
if matches[1] == "!creds" then
return list_creds()
elseif matches[1] == "!creds add" then
local var = string.lower(string.sub(matches[2], 1, 50))
local key = string.sub(matches[3], 1, 1000)
return add_creds(var, key)
elseif matches[1] == "!creds del" then
local var = string.lower(matches[2])
return del_creds(var)
elseif matches[1] == "!creds rename" then
local var = string.lower(string.sub(matches[2], 1, 50))
local newvar = string.lower(string.sub(matches[3], 1, 1000))
return rename_creds(var, newvar)
end
end
return {
description = "Loginmanager für Telegram (nur Superuser)",
usage = {
"/creds: Zeigt alle Logindaten und API-Keys",
"/creds add [Variable] [Key]: Speichert Key mit der Variable ein",
"/creds del [Variable]: Löscht Key mit der Variable",
"/creds rename [Variable] [Neuer Name]: Benennt Variable um, behält Key bei"
},
patterns = {
"^(/creds)$",
"^(/creds add) ([^%s]+) (.+)$",
"^(/creds del) (.+)$",
"^(/creds rename) ([^%s]+) (.+)$"
},
run = run,
privileged = true,
notyping = true
}

8
plugins/curl_head.lua
View File

@ -5,9 +5,12 @@ function run(msg, matches)
return 'Vergiss es' return 'Vergiss es'
end end
if string.match(msg.text, '/[Hh][Ee][Aa][Dd]') then if string.match(msg.text, '[Hh][Ee][Aa][Dd]') then
text = run_bash('curl --head --insecure ' .. URL) text = run_bash('curl --head --insecure ' .. URL)
send_msg(receiver, text, ok_cb, false) send_msg(receiver, text, ok_cb, false)
elseif string.match(msg.text, '[Dd][Ii][Gg]') then
text = run_bash('dig ' .. URL .. ' ANY')
send_msg(receiver, text, ok_cb, false)
end end
end end
@ -15,6 +18,7 @@ end
return { return {
description = "Führt Befehle in der Konsole aus", description = "Führt Befehle in der Konsole aus",
usage = {""}, usage = {""},
patterns = {"^/[Hh][Ee][Aa][Dd] (https?://[%w-_%.%?%.:/%+=&]+)$"}, patterns = {"^/[Hh][Ee][Aa][Dd] (.*)$","^/[Dd][Ii][Gg] (.*)"},
run = run run = run
} }
--by Akamaru [https://ponywave.de]

64
plugins/currency.lua Normal file
View File

@ -0,0 +1,64 @@
-- 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://currencyconverter.p.mashape.com'
local function get_currency_data (from, to, amount)
local apikey = cred_data.x_mashape_key
local url = BASE_URL..'/?from='..from..'&from_amount='..amount..'&to='..to..'&mashape-key='..apikey
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
local function send_currency_data(data, receiver)
if data.error ~= nil then
return
else
local from = data.from
local to = data.to
local from_amount = string.gsub(data.from_amount, "%.", "%,")
local dot_to_amount = round(data.to_amount, 2)
local to_amount = string.gsub(dot_to_amount, "%.", "%,")
local text = from_amount..' '..from..' = '..to_amount..' '..to
send_msg(receiver, text, ok_cb, false)
end
end
local function run(msg, matches)
local from = string.upper(matches[1])
if matches[2] == nil then
to = "EUR"
else
to = string.upper(matches[2])
end
if matches[3] == nil then
amount = 1
else
amount = string.gsub(matches[3],"%,","%.")
end
if matches[1] == "/eur" then
to = "USD"
from = "EUR"
end
local data = get_currency_data(from, to, amount)
local receiver = get_receiver(msg)
send_currency_data(data, receiver)
end
return {
description = "Wandelt Geldeinheiten um. ?? ?? ??",
usage = "/money [von] [zu] [Menge]: Wandelt Geldeinheiten um (Symbole: ponywave.de/a/botmoney)",
patterns = {
"^/money ([A-Za-z]+)$",
"^/money ([A-Za-z]+) ([A-Za-z]+)$",
"^(money ([A-Za-z]+) ([A-Za-z]+) (%d+[%d%.,]*)$",
"^(/eur)$"
},
run = run
}
end

37
plugins/dailymotion.lua Normal file
View File

@ -0,0 +1,37 @@
-- 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.dailymotion.com'
function get_dm_data (dm_code)
local url = BASE_URL..'/video/'..dm_code
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
function send_dailymotion_data(data, receiver)
local title = data.title
local channel = data.channel
local text = title..'\nHochgeladen in die Kategorie "'..channel..'"'
send_msg(receiver, text, ok_cb, false)
end
function run(msg, matches)
local dm_code = matches[1]
local data = get_dm_data(dm_code)
local receiver = get_receiver(msg)
send_dailymotion_data(data, receiver)
end
return {
description = "Sendet Dailymotion-Info.",
usage = "URL zu Dailymotion-Video",
patterns = {"dailymotion.com/video/([A-Za-z0-9-_-]+)"},
run = run
}
end

41
plugins/danbooru2.lua Normal file
View File

@ -0,0 +1,41 @@
-- 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 function get_db(tag)
local BASE_URL = 'http://danbooru.donmai.us'
local url = BASE_URL..'/posts.json?tags='..tag
local b,c = http.request(url)
if c ~= 200 then return nil end
local db = json:decode(b)
-- truly randomize
math.randomseed(os.time())
-- random max json table size
local i = math.random(#db)
local link_image = BASE_URL..db[i].file_url
return link_image
end
local function run(msg, matches)
local tag = matches[1]
local tag = string.gsub(tag, " ", '_' )
local tag = string.gsub(tag, ":", '%%3A' )
local receiver = get_receiver(msg)
local url = get_db(tag)
if string.ends(url, ".gif") or string.ends(url, ".zip") or string.ends(url, ".webm") then
send_document_from_url(receiver, url)
else
send_photo_from_url(receiver, url, send_title, {receiver, title})
end
return "Source: "..url
end
return {
description = "Sendet ein zufälliges Bild von Danbooru.",
usage = {"/danbooru [Tags]","/db [Tags]"},
patterns = {"^/danbooru (.*)$","^/db (.*)$"},
run = run
}
end

45
plugins/derpibooru.lua Normal file
View File

@ -0,0 +1,45 @@
-- 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 function get_dp(tag)
local BASE_URL = 'https://derpiboo.ru/'
local apikey = ""
-- Ohne API-Key: Safe for work - mit API-Key: Not safe for work
if apikey == nil then
url = BASE_URL..'/search.json?q='..tag
else
url = BASE_URL..'/search.json?key='..apikey..'&q='..tag
end
local b,c = https.request(url)
if c ~= 200 then return nil end
local dp = json:decode(b).search
-- truly randomize
math.randomseed(os.time())
-- random max json table size
local i = math.random(#dp)
local link_image = 'https:'..dp[i].image
source = 'https://derpiboo.ru/'..dp[i].id_number
return link_image
end
local function run(msg, matches)
local tag = matches[1]
local tag = string.gsub(tag, " ", '+' )
local receiver = get_receiver(msg)
local url = get_dp(tag)
send_photo_from_url(receiver, url, send_title, {receiver, title})
return "Source: "..source
end
return {
description = "Sendet zufälliges Bild von Derpibooru.",
usage = {"/derpibooru [Tags]","/dp [Tags]"},
patterns = {"^/derpibooru (.*)$","^/dp (.*)$"},
run = run
}
end

45
plugins/derpibooru_nsfw.lua Normal file
View File

@ -0,0 +1,45 @@
-- 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 function get_dp2(tag)
local BASE_URL = 'https://derpiboo.ru/'
local apikey = cred_data.derpibooru_apikey
-- Ohne API-Key: Safe for work - mit API-Key: Not safe for work
if apikey == nil then
url = BASE_URL..'/search.json?q='..tag
else
url = BASE_URL..'/search.json?key='..apikey..'&q='..tag
end
local b,c = https.request(url)
if c ~= 200 then return nil end
local dp = json:decode(b).search
-- truly randomize
math.randomseed(os.time())
-- random max json table size
local i = math.random(#dp)
local link_image = 'https:'..dp[i].image
source = 'https://derpiboo.ru/'..dp[i].id_number
return link_image
end
local function run(msg, matches)
local tag = matches[1]
local tag = string.gsub(tag, " ", '+' )
local receiver = get_receiver(msg)
local url = get_dp2(tag)
send_photo_from_url(receiver, url, send_title, {receiver, title})
return "Source: "..source
end
return {
description = "Sendet zufälliges Bild von Derpibooru.",
usage = {"/derpibooru2 [Tags]","/dp2 [Tags]"},
patterns = {"^/derpibooru2 (.*)$","^/dp2 (.*)$"},
run = run
}
end

48
plugins/deviantart.lua Normal file
View File

@ -0,0 +1,48 @@
-- 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://backend.deviantart.com'
function get_da_data (da_code)
local url = BASE_URL..'/oembed?url='..da_code
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
function send_da_data(data, receiver)
local title = data.title
local category = data.category
local author_name = data.author_name
local text = title..' von '..author_name..'\n'..category
local image_url = data.fullsize_url
if image_url == nil then
image_url = data.url
end
local cb_extra = {
receiver=receiver,
url=image_url
}
send_msg(receiver, text, send_photo_from_url_callback, cb_extra)
end
function run(msg, matches)
local da_code = 'http://'..matches[1]..'.deviantart.com/art/'..matches[2]
local data = get_da_data(da_code)
local receiver = get_receiver(msg)
send_da_data(data, receiver)
end
return {
description = "Sendet deviantArt-Info.",
usage = {"deviantArt Link"},
patterns = {"http://(.*).deviantart.com/art/(.*)"},
run = run
}
end

40
plugins/dns.lua Normal file
View File

@ -0,0 +1,40 @@
-- 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://jack-dns-tools.p.mashape.com/dnstools.php'
local function get_domain_data (domain)
local apikey = cred_data.x_mashape_key
local url = BASE_URL..'?_method=DNS2IP&dns='..domain..'&mashape-key='..apikey
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
local function send_domain_data(data, receiver)
if domain == data.ip then
return
else
local text = data.ip
send_msg(receiver, text, ok_cb, false)
end
end
local function run(msg, matches)
domain = matches[1]
local data = get_domain_data(domain)
local receiver = get_receiver(msg)
send_domain_data(data, receiver)
end
return {
description = "Löst Domain nach IP auf.",
usage = "/dns [Domain]",
patterns = {"^/dns (.*)$"},
run = run
}
end

2
plugins/dogify.lua
View File

@ -15,6 +15,6 @@ end
return { return {
description = "Erstelle ein Doge Bild mit Wörtern", description = "Erstelle ein Doge Bild mit Wörtern",
usage = {"/dogify das/was/du/willst"}, usage = {"/dogify das/was/du/willst"},
patterns = {"^/dogify (.+)$"}, patterns = {"^/dogify (.+)$","^/doge (.+)$"},
run = run run = run
} }

41
plugins/dropbox.lua Normal file
View File

@ -0,0 +1,41 @@
-- 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 function send_dropbox_data(link, receiver)
if string.ends(link, ".png") or string.ends(link, ".jpeg") or string.ends(link, ".jpg") then
send_photo_from_url(receiver, link)
elseif string.ends(link, ".webp") or string.ends(link, ".gif") then
send_document_from_url(receiver, link)
else
send_msg(receiver, link, ok_cb, false)
end
end
local function run(msg, matches)
local folder = matches[1]
local file = matches[2]
local receiver = get_receiver(msg)
local link = 'https://dl.dropboxusercontent.com/s/'..folder..'/'..file
local v,code = https.request(link)
if code == 200 then
send_dropbox_data(link, receiver)
else
return nil
end
end
return {
description = "Dropbox-Plugin",
usage = {
"Dropbox-URL: Postet Bild oder Direktlink"
},
patterns = {
"dropbox.com/s/([a-z0-9]+)/([A-Za-z0-9-_-.-.-]+)"
},
run = run
}
end

36
plugins/e621.lua Normal file
View File

@ -0,0 +1,36 @@
-- This is a proprietary plugin, property of Andreas Bielawski, (c) 2015 <andi (dot) b (at) outlook (dot) de>
-- DO NOT USE WITHOUT PERMISSION
-- Modified by Akamaru [https://ponywave.de]
do
local function get_e621(tag)
local BASE_URL = 'https://e621.net'
local url = BASE_URL..'/post/index.json?tags='..tag
local b,c = https.request(url)
if c ~= 200 then return nil end
local e621 = json:decode(b)
-- truly randomize
math.randomseed(os.time())
-- random max json table size
local i = math.random(#e621)
local link_image = e621[i].file_url
return link_image
end
local function run(msg, matches)
local tag = matches[1]
local receiver = get_receiver(msg)
local url = get_e621(tag)
send_photo_from_url(receiver, url, send_title, {receiver, title})
return "Source: "..url
end
return {
description = "Sendet zufälliges Bild von e621.",
usage = {"/e621 [Tags]"},
patterns = {"^/e621 (.*)$"},
run = run
}
end

40
plugins/facebook.lua Normal file
View File

@ -0,0 +1,40 @@
-- 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://graph.facebook.com'
function get_fb_data (fb_code)
local access_token = cred_data.fb_access_token
local url = BASE_URL..'/'..fb_code..'?access_token='..access_token..'&locale=de_DE'
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
function send_fb_data(data, receiver)
local from = data.from.name
local message = data.message
local name = data.name
local link = data.link
local text = from..' hat gepostet:\n'..message..'\n'..name..' '..link
send_msg(receiver, text, ok_cb, false)
end
function run(msg, matches)
local fb_code = matches[2]
local data = get_fb_data(fb_code)
local receiver = get_receiver(msg)
send_fb_data(data, receiver)
end
return {
description = "Sendet Facebook-Post.",
usage = {"Link zu einem Facebook-Post"},
patterns = {"facebook.com/([A-Za-z0-9-_-]+)/posts/([0-9-]+)","facebook.com/permalink.([a-z-]+)%?story_fbid=([0-9-]+)"},
run = run
}
end

46
plugins/facebook_photo.lua Normal file
View File

@ -0,0 +1,46 @@
-- 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://graph.facebook.com'
function get_fbphoto_data (fbphoto_code)
local access_token = cred_data.fb_access_token
local url = BASE_URL..'/'..fbphoto_code..'?access_token='..access_token..'&locale=de_DE'
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
function send_fbphoto_data(data, receiver)
local from = data.from.name
local name = data.name
if name then
text = from..' hat ein Bild gepostet:\n'..name
else
text = from..' hat ein Bild gepostet'
end
local image_url = data.source
local cb_extra = {
receiver=receiver,
url=image_url
}
send_msg(receiver, text, send_photo_from_url_callback, cb_extra)
end
function run(msg, matches)
local fbphoto_code = matches[3]
local data = get_fbphoto_data(fbphoto_code)
local receiver = get_receiver(msg)
send_fbphoto_data(data, receiver)
end
return {
description = "Sendet Facebook-Bilder-Post",
usage = "URL zu öffentlichem Facebook-Bild",
patterns = {"facebook.com/([A-Za-z0-9-._-]+)/photos/([A-Za-z0-9-._-]+)/([A-Za-z0-9-._-]+)"},
run = run
}
end

39
plugins/facebook_video.lua Normal file
View File

@ -0,0 +1,39 @@
-- 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://graph.facebook.com'
function get_fbvid_data (fbvid_code)
local access_token = cred_data.fb_access_token
local url = BASE_URL..'/'..fbvid_code..'?access_token='..access_token..'&locale=de_DE'
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
function send_fbvid_data(data, receiver)
local from = data.from.name
local description = data.description
local source = data.source
local text = from..' hat ein Video gepostet:\n'..description..'\n'..source
send_msg(receiver, text, ok_cb, false)
end
function run(msg, matches)
local fbvid_code = matches[1]
local data = get_fbvid_data(fbvid_code)
local receiver = get_receiver(msg)
send_fbvid_data(data, receiver)
end
return {
description = "Sendet Facebook-Video.",
usage = {"Link zu einem Video auf Facebook"},
patterns = {"facebook.com/video.php%?v=([0-9-]+)"},
run = run
}
end

50
plugins/flickr.lua Normal file
View File

@ -0,0 +1,50 @@
-- 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

38
plugins/flickr_search.lua Normal file
View File

@ -0,0 +1,38 @@
-- 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 function get_flickr(term)
local BASE_URL = 'https://api.flickr.com/services/rest'
local url = BASE_URL..'/?method=flickr.photos.search&api_key=c34eff1b204eaecae0de7141bd60d578&format=json&nojsoncallback=1&privacy_filter=1&extras=url_o&text='..term
local b,c = https.request(url)
if c ~= 200 then return nil end
local photo = json:decode(b).photos.photo
-- truly randomize
math.randomseed(os.time())
-- random max json table size
local i = math.random(#photo)
local link_image = photo[i].url_o
return link_image
end
local function run(msg, matches)
local term = matches[1]
local receiver = get_receiver(msg)
local url = get_flickr(term)
if string.ends(url, ".gif") then
send_document_from_url(receiver, url)
else
send_photo_from_url(receiver, url)
end
end
return {
description = "Sendet zufälliges Bild von Flickr.",
usage = "/flickr [Suchbegriff]: Postet Bild von Flickr",
patterns = {"^/flickr (.*)$"},
run = run
}
end

117
plugins/forecast.lua Normal file
View File

@ -0,0 +1,117 @@
do
local BASE_URL = "http://api.openweathermap.org/data/2.5/forecast/daily"
local function get_condition_symbol(weather, n)
if weather.list[n].weather[1].main == 'Clear' then
return ' ☀'
elseif weather.list[n].weather[1].main == 'Clouds' then
return ' ☁☁'
elseif weather.list[n].weather[1].main == 'Rain' then
return ' ☔'
elseif weather.list[n].weather[1].main == 'Thunderstorm' then
return ' ☔☔☔☔'
elseif weather.list[n].weather[1].main == 'Snow' then
return ' ❄️'
else
return ''
end
end
local function get_temp(weather, n)
local day = string.gsub(round(weather.list[n].temp.day, 1), "%.", "%,")
local night = string.gsub(round(weather.list[n].temp.night, 1), "%.", "%,")
local condition = weather.list[n].weather[1].description
return '☀️ '..day..'°C | 🌙 '..night..'°C | '..condition
end
local function get_forecast(location, days)
print("Bekomme Wettervorhersage für ", location)
local location = string.gsub(location," ","+")
local url = BASE_URL
local apikey = cred_data.owm_apikey
local url = url..'?q='..location
local url = url..'&lang=de&units=metric&cnt='..days..'&APPID='..apikey
local b, c, h = http.request(url)
if c ~= 200 then return nil end
local weather = json:decode(b)
local city = weather.city.name
if weather.city.country == "" then
country = ''
else
country = ' ('..weather.city.country..')'
end
local header = 'Vorhersage für '..city..country..':\n'
local text = 'Heute: '..get_temp(weather, 1)..get_condition_symbol(weather, 1)
if days > 1 then
text = text..'\nMorgen: '..get_temp(weather, 2)..get_condition_symbol(weather, 2)
end
if days > 2 then
text = text..'\nÜbermorgen: '..get_temp(weather, 3)..get_condition_symbol(weather, 3)
end
if days > 3 then
for day in pairs(weather.list) do
if day > 3 then
local actual_day = day-1
text = text..'\n'..actual_day..' Tage: '..get_temp(weather, day)..get_condition_symbol(weather, day)
end
end
end
return header..text
end
local function run(msg, matches)
local user_id = msg.from.id
local city = get_location(user_id)
if not city then city = 'Berlin' end
if tonumber(matches[1]) then
days = matches[1]+1
else
days = 4
end
if matches[2] then
days = matches[1]+1
city = matches[2]
end
if not tonumber(matches[1]) and matches[1] ~= '!/orecast' then
city = matches[1]
end
if days > 17 then
return 'Wettervorhersagen gehen nur von 1-16 Tagen!'
end
local text = get_forecast(city, days)
if not text then
text = 'Konnte die Wettervorhersage für diese Stadt nicht bekommen.'
end
return text
end
return {
description = "Wettervorhersage für deinen oder einen gewählten Ort",
usage = {
"/forecast: Wettervorhersage für deine Stadt (!location set [Ort])",
"/forecast [0-16]: Wettervorhersage für X Tage für deine Stadt (!location set [Ort])",
"/forecast (Stadt): Wettervorhersage für diese Stadt",
"/forecast [0-16] (Stadt): Wettervorhersage für X Tage für diese Stadt"
},
patterns = {
"^/forecast$",
"^/forecast (%d+) (.*)$",
"^/forecast (%d+)",
"^/forecast (.*)$"
},
run = run
}
end

6
plugins/ftp.lua
View File

@ -1,7 +1,5 @@
do do
local ftp = (loadfile "./libs/ftp.lua")()
local function send_ftp_data (text_file, receiver) local function send_ftp_data (text_file, receiver)
local BASE_URL = cred_data.ftp_site local BASE_URL = cred_data.ftp_site
local username = cred_data.ftp_username local username = cred_data.ftp_username
@ -16,6 +14,10 @@ local function send_ftp_data (text_file, receiver)
end end
local function run(msg, matches) local function run(msg, matches)
if not ftp then
print('ftp Library wird zum ersten Mal geladen...')
ftp = (loadfile "./libs/ftp.lua")()
end
local text_file = matches[1] local text_file = matches[1]
local receiver = get_receiver(msg) local receiver = get_receiver(msg)
send_ftp_data(text_file, receiver) send_ftp_data(text_file, receiver)

139
plugins/gamesdb.lua Normal file
View File

@ -0,0 +1,139 @@
-- 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 xml = require("xml")
local BASE_URL = 'http://thegamesdb.net/api'
local makeOurDate = function(dateString)
local pattern = "(%d+)%/(%d+)%/(%d+)"
local month, day, year = dateString:match(pattern)
return day..'.'..month..'.'..year
end
local function get_game_id(game)
local url = BASE_URL..'/GetGamesList.php?name='..game
local res,code = http.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local result = xml.load(res)
if xml.find(result, 'id') then
local game = xml.find(result, 'id')[1]
return game
else
return nil
end
end
local function send_game_photo(result, receiver)
local BASE_URL = xml.find(result, 'baseImgUrl')[1]
local images = {}
--[[if xml.find(result, 'fanart') then
local fanart = xml.find(result, 'fanart')[1]
local fanrt_url = BASE_URL..fanart[1]
table.insert(images, fanrt_url)
end]]
if xml.find(result, 'boxart', 'side', 'front') then
local boxart = xml.find(result, 'boxart', 'side', 'front')[1]
local boxart_url = BASE_URL..boxart
table.insert(images, boxart_url)
end
local i = 0
for k, v in pairs(images) do
i = i+1
local file = download_to_file(v, 'game'..i..'.jpg')
send_photo(receiver, file, ok_cb, false)
end
end
local function send_game_data(game_id, receiver)
local url = BASE_URL..'/GetGame.php?id='..game_id
local res,code = http.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local result = xml.load(res)
local title = xml.find(result, 'GameTitle')[1]
local platform = xml.find(result, 'Platform')[1]
if xml.find(result, 'ReleaseDate') then
date = makeOurDate(xml.find(result, 'ReleaseDate')[1])
else
date = ''
end
if xml.find(result, 'Overview') then
desc = '\n'..string.sub(xml.find(result, 'Overview')[1], 1, 200) .. '...'
else
desc = ''
end
if xml.find(result, 'Genres') then
local genres = xml.find(result, 'Genres')
local genre_count = tablelength(genres)-1
if genre_count == 1 then
genre = '\nGenre: '..genres[1][1]
else
local genre_loop = '\nGenres: '
for v in pairs(genres) do
if v == 'xml' then break; end
if v < genre_count then
genre_loop = genre_loop..genres[v][1]..', '
else
genre_loop = genre_loop..genres[v][1]
end
end
genre = genre_loop
end
else
genre = ''
end
if xml.find(result, 'Players') then
players = '\nSpieler: '..xml.find(result, 'Players')[1]
else
players = ''
end
if xml.find(result, 'Youtube') then
video = '\nVideo: '..xml.find(result, 'Youtube')[1]
else
video = ''
end
if xml.find(result, 'Publisher') then
publisher = '\nPublisher: '..xml.find(result, 'Publisher')[1]
else
publisher = ''
end
local text = 'Titel: '..title..'\nPlattform: '..platform..'\nRelease: '..date..genre..players..publisher..video..'\nBeschreibung: '..desc
send_msg(receiver, text, ok_cb, false)
if xml.find(result, 'fanrt') or xml.find(result, 'boxart') then
send_game_photo(result, receiver)
end
end
local function run(msg, matches)
local game = URL.escape(matches[1])
local receiver = get_receiver(msg)
local game_id = get_game_id(game)
if not game_id then
return "Spiel nicht gefunden!"
else
send_game_data(game_id, receiver)
end
end
return {
description = "Sendet Infos zu einem Spiel.",
usage = "/game [Spiel]: Sendet Infos zum Spiel",
patterns = {"^/game (.+)$"},
run = run
}
end

37
plugins/gay.lua
View File

@ -22,29 +22,44 @@ function getGay(text)
end end
-- Random image from table -- Random image from table
local i = math.random(#data.results) -- local i = math.random(#data.results)
return data.results[i].url -- return data.results[i].url
return data.results
end end
function run(msg, matches) function run(msg, matches)
local receiver = get_receiver(msg) local receiver = get_receiver(msg)
local text = matches[1] local text = matches[1]
local url = getGay(text)
if not url then local results = getGay(text)
if not results then
return "Kein Bild gefunden." return "Kein Bild gefunden."
end end
local i = math.random(#results)
local url = nil;
if string.ends(url, ".svg") then local failed = true
return "Fehler beim laden des Bildes." local nofTries = 0
while failed and nofTries < #results do
url = results[i].url;
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 end
print("Bilder-URL: ", url) nofTries = nofTries + 1
if string.ends(url, ".gif") then i = i+1
send_document_from_url(receiver, url) if i > #results then
return "Source: "..url i = 1
end
end
if failed then
return "Fehler beim Laden des Bildes."
else else
send_photo_from_url(receiver, url)
return "Source: "..url return "Source: "..url
end end
end end

82
plugins/gdrive.lua Normal file
View File

@ -0,0 +1,82 @@
-- 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://www.googleapis.com/drive/v2'
local function get_drive_document_data (docid)
local apikey = cred_data.google_apikey
local url = BASE_URL..'/files/'..docid..'?key='..apikey..'&fields=id,title,mimeType,ownerNames,exportLinks,fileExtension'
local res,code = https.request(url)
local res = string.gsub(res, 'image/', '')
local res = string.gsub(res, 'application/', '')
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
local function send_drive_document_data(data, receiver)
local title = data.title
local mimetype = data.mimeType
local id = data.id
local owner = data.ownerNames[1]
local text = '"'..title..'", freigegeben von '..owner
if data.exportLinks then
if data.exportLinks.png then
local image_url = data.exportLinks.png
local cb_extra = {
receiver=receiver,
url=image_url
}
send_msg(receiver, text, send_photo_from_url_callback, cb_extra)
else
local pdf_url = data.exportLinks.pdf
send_msg(receiver, text, ok_cb, false)
send_document_from_url(receiver, pdf_url)
end
else
local get_file_url = 'https://drive.google.com/uc?id='..id
local ext = data.fileExtension
if mimetype == "png" or mimetype == "jpg" or mimetype == "jpeg" or mimetype == "gif" or mimetype == "webp" then
local respbody = {}
local options = {
url = get_file_url,
sink = ltn12.sink.table(respbody),
redirect = false
}
local response = {https.request(options)} -- luasec doesn't support 302 redirects, so we must contact gdrive again
local code = response[2]
local headers = response[3]
local file_url = headers.location
if ext == "jpg" or ext == "jpeg" or ext == "png" then
send_photo_from_url(receiver, file_url)
else
send_document_from_url(receiver, file_url)
end
else
local text = '"'..title..'", freigegeben von '..owner..'\nDirektlink: '..get_file_url
send_msg(receiver, text, ok_cb, false)
end
end
end
local function run(msg, matches)
local docid = matches[2]
local data = get_drive_document_data(docid)
local receiver = get_receiver(msg)
send_drive_document_data(data, receiver)
end
return {
description = "Sendet Google-Drive-Info und PDF",
usage = "URL zu Google-Drive-Dateien",
patterns = {
"docs.google.com/(.*)/d/([A-Za-z0-9-_-]+)",
"drive.google.com/(.*)/d/([A-Za-z0-9-_-]+)",
"drive.google.com/(open)%?id=([A-Za-z0-9-_-]+)"
},
run = run
}
end

46
plugins/gender.lua Normal file
View File

@ -0,0 +1,46 @@
-- 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://gender-api.com/get'
function get_gender_data (name)
local apikey = cred_data.gender_apikey
local url = BASE_URL..'?name='..name..'&key='..apikey
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
function send_gender_data(data, receiver)
if data.gender == "female" then
gender = 'weiblich'
end
if data.gender == "male" then
gender = 'männlich'
end
if data.gender == "unknown" then
gender = 'unbekanntem Geschlechts'
end
local accuracy = data.accuracy
local text = name..' ist zu '..accuracy..'% '..gender
send_msg(receiver, text, ok_cb, false)
end
function run(msg, matches)
name = matches[1]
local data = get_gender_data(name)
local receiver = get_receiver(msg)
send_gender_data(data, receiver)
end
return {
description = "Sendet Geschlecht",
usage = {"/geschlecht [Name]","/gender [Name]"},
patterns = {"^/geschlecht (.*)$","^/gender (.*)$"},
run = run
}
end

48
plugins/get.lua
View File

@ -1,33 +1,30 @@
local function get_variables_hash(msg) local function get_value(msg, var_name)
if msg.to.type == 'chat' then local hash = get_redis_hash(msg, 'variables')
return 'chat:'..msg.to.id..':variables' if hash then
local value = redis:hget(hash, var_name)
if not value then
return'Nicht gefunden, benutze "!get", um alle Variablen aufzulisten.'
else
return var_name..' = '..value
end end
if msg.to.type == 'user' then
return 'user:'..msg.from.id..':variables'
end end
end end
local function list_variables(msg) local function list_variables(msg)
local hash = get_variables_hash(msg) local hash = get_redis_hash(msg, 'variables')
if hash then if hash then
print('Getting variable from redis hash '..hash)
local names = redis:hkeys(hash) local names = redis:hkeys(hash)
local text = '' local text = ''
for i=1, #names do for i=1, #names do
text = text..names[i]..'\n' variables = get_value(msg, names[i])
text = text..variables.."\n"
end end
return text if text == '' or text == nil then
end return 'Keine Variablen vorhanden!'
end
local function get_value(msg, var_name)
local hash = get_variables_hash(msg)
if hash then
local value = redis:hget(hash, var_name)
if not value then
return'Not found, use "/get" to list variables'
else else
return var_name..' => '..value return text
end end
end end
end end
@ -41,9 +38,14 @@ local function run(msg, matches)
end end
return { return {
description = "Bekommt Variable, die mit /set gesetzt wurde", description = "Bekommt Variablen, die mit !set gesetzt wurden",
usage = {"/get (Variable)"}, usage = {
patterns = {"^/get (%a+)$","^/get$"}, "/get: Gibt alle Variablen aus",
run = run, "/get (Variable): Gibt die Variable aus."
pre_process = lex },
patterns = {
"^(/get) (.+)$",
"^/get$"
},
run = run
} }

21
plugins/get_data.lua Normal file
View File

@ -0,0 +1,21 @@
local function run(msg, matches)
local receiver = get_receiver(msg)
local url = matches[1]
if string.match(msg.text, "[Gg][Ee][Tt][Dd][Aa][Tt][Aa]") or string.match(msg.text, "[Ww][Gg][Ee][Tt]") then
send_document_from_url(receiver, url)
elseif string.match(msg.text, "[Gg][Ee][Tt][Ii][Mm][Gg]") then
send_photo_from_url(receiver, url)
end
end
return {
description = "Ein plugin, um Bilder oder Dateien zu downloaden",
usage = {"/getdata [URL]",
"/getimg [URL]"},
patterns = {"^/getdata (.*)$",
"/[Ww][Gg][Ee][Tt]",
"^/getimg (.*)$"
},
run = run
}
--by Akamaru [https://ponywave.de]

13
plugins/get_txt.lua Normal file
View File

@ -0,0 +1,13 @@
local function run(msg, matches)
local res,code = http.request(matches[1]..'.txt')
if code ~= 200 then return nil end
return res
end
return {
description = "",
usage = "",
patterns = {"^(.*).txt$"},
run = run
}

46
plugins/gfycat.lua Normal file
View File

@ -0,0 +1,46 @@
do
local function send_gfycat_gif(name, receiver)
local BASE_URL = "https://gfycat.com"
local url = BASE_URL..'/cajax/get/'..name
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).gfyItem
local file = download_to_file(data.gifUrl)
local cb_extra = {file_path=file}
if file == nil then
send_msg(receiver, 'Fehler beim Herunterladen von '..name, ok_cb, false)
else
send_document(receiver, file, rmtmp_cb, cb_extra)
end
end
local function send_gfycat_thumb(name, receiver)
local BASE_URL = "https://thumbs.gfycat.com"
local url = BASE_URL..'/'..name..'-poster.jpg'
local file = download_to_file(url)
local cb_extra = {file_path=file}
if file == nil then
print('Fehler beim Herunterladen des Thumbnails von '..name)
else
send_photo(receiver, file, rmtmp_cb, cb_extra)
end
end
local function run(msg, matches)
local name = matches[1]
local receiver = get_receiver(msg)
send_gfycat_gif(name, receiver)
send_gfycat_thumb(name, receiver)
end
return {
description = "Postet Gfycat-Video",
usage = "gfycat-Link: Postet Gfycat-Video",
patterns = {
"gfycat.com/([A-Za-z0-9-_-]+)",
},
run = run
}
end

76
plugins/github.lua Normal file
View File

@ -0,0 +1,76 @@
-- 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.github.com'
function get_gh_data()
if gh_commit_sha == nil then
url = BASE_URL..'/repos/'..gh_code
else
url = BASE_URL..'/repos/'..gh_code..'/git/commits/'..gh_commit_sha
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_github_data(data, receiver)
local name = data.name
local description = data.description
local owner = data.owner.login
local clone_url = data.clone_url
if data.language == nil or data.language == "" then
language = ''
else
language = '\nSprache: '..data.language
end
if data.open_issues_count == 0 then
issues = ''
else
issues = '\nOffene Bugreports: '..data.open_issues_count
end
if data.homepage == nil or data.homepage == "" then
homepage = ''
else
homepage = '\nHomepage: '..data.homepage
end
local text = name..' von '..owner..'\n'..description..'\ngit clone '..clone_url..language..issues..homepage
send_msg(receiver, text, ok_cb, false)
end
function send_gh_commit_data(data, receiver)
local committer = data.committer.name
local message = data.message
local text = gh_code..'@'..gh_commit_sha..' von '..committer..':\n'..message
send_msg(receiver, text, ok_cb, false)
end
function run(msg, matches)
gh_code = matches[1]..'/'..matches[2]
gh_commit_sha = matches[3]
local data = get_gh_data()
local receiver = get_receiver(msg)
if not gh_commit_sha then
send_github_data(data, receiver)
else
send_gh_commit_data(data, receiver)
end
end
return {
description = "Sendet GitHub-Info.",
usage = {
"Link zu GitHub-Repo",
"Link zu GitHub-Commit"
},
patterns = {
"github.com/([A-Za-z0-9-_-.-.]+)/([A-Za-z0-9-_-.-.]+)/commit/([a-z0-9-]+)",
"github.com/([A-Za-z0-9-_-.-.]+)/([A-Za-z0-9-_-.-.]+)/?$"
},
run = run
}
end

38
plugins/googl.lua Normal file
View File

@ -0,0 +1,38 @@
-- 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://www.googleapis.com/urlshortener/v1'
local function get_shortlink_data (shorturl)
local apikey = cred_data.google_apikey
local url = BASE_URL..'/url?key='..apikey..'&shortUrl=http://goo.gl/'..shorturl..'&projection=FULL'
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
local function send_shortlink_data(data, receiver)
local longUrl = data.longUrl
local shortUrlClicks = data.analytics.allTime.shortUrlClicks
local text = longUrl..'\n'..shortUrlClicks..' mal geklickt'
send_msg(receiver, text, ok_cb, false)
end
local function run(msg, matches)
local shorturl = matches[1]
local data = get_shortlink_data(shorturl)
local receiver = get_receiver(msg)
send_shortlink_data(data, receiver)
end
return {
description = "Sendet Goo.gl-Info.",
usage = {"goo.gl URL"},
patterns = {"goo.gl/([A-Za-z0-9-_-]+)"},
run = run
}
end

45
plugins/google.lua
View File

@ -1,38 +1,53 @@
local function googlethat(query) function googlethat(query)
local api = "http://ajax.googleapis.com/ajax/services/search/web?v=1.0&safe=active&hl=de&" local BASE_URL = 'https://www.googleapis.com/customsearch/v1'
local apikey = cred_data.google_apikey
local cseid = cred_data.google_cse_id
local number = 5 -- Set number of results
local api = BASE_URL.."/?key="..apikey.."&cx="..cseid.."&gl=de&num="..number.."&safe=medium&fields=searchInformation%28formattedSearchTime,formattedTotalResults%29,items%28title,link%29&"
local parameters = "q=".. (URL.escape(query) or "") local parameters = "q=".. (URL.escape(query) or "")
-- Do the request -- Do the request
local res, code = https.request(api..parameters) local res, code = https.request(api..parameters)
if code ~=200 then return nil end if code ~=200 then return nil end
local data = json:decode(res) local data = json:decode(res)
if data.searchInformation.formattedTotalResults == "0" then return nil end
local results = {} local results={}
for key,result in ipairs(data.responseData.results) do for key,result in ipairs(data.items) do
table.insert(results, { table.insert(results, {
result.titleNoFormatting, result.title,
result.unescapedUrl or result.url result.link
}) })
end end
return results
local stats = data.searchInformation.formattedTotalResults..' Ergebnisse, gefunden in '..data.searchInformation.formattedSearchTime..' Sekunden'
return results, stats
end end
local function stringlinks(results) function stringlinks(results, stats)
local stringresults="" local stringresults=""
for key,val in ipairs(results) do for key,val in ipairs(results) do
stringresults=stringresults..val[1].." - "..val[2].."\n" stringresults=stringresults..val[1].." - "..val[2].."\n"
end end
return stringresults return stringresults..stats
end end
local function run(msg, matches) function run(msg, matches)
local results = googlethat(matches[1]) local results, stats = googlethat(matches[1])
return stringlinks(results) if results == nil then
return 'Nichts gefunden!'
else
return stringlinks(results, stats)
end
end end
return { return {
description = "Durchsucht Google und sendet die ersten 5 Ergebnisse", description = "Durchsucht Google",
usage = {"/google [Begriff]","/Google [Begriff]"}, usage = "/google [Suchbegriff]: Durchsucht Google",
patterns = {"^/google (.*)$","^/Google (.*)$"}, patterns = {
"^/[Gg][Oo][Oo][Gg][Ll][Ee] (.*)$",
"^%.[Gg][Oo][Oo][Gg][Ll][Ee] (.*)$"
},
run = run run = run
} }

70
plugins/google_books.lua Normal file
View File

@ -0,0 +1,70 @@
-- 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://www.googleapis.com/books/v1'
local function get_books_data (term)
local url = BASE_URL..'/volumes?q='..term..'&maxResults=3&fields=totalItems,items%28volumeInfo%28title,authors,publisher,publishedDate,pageCount,canonicalVolumeLink%29,saleInfo%28country,listPrice%29%29'
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
local function send_books_data(data, receiver)
local text = ""
for book in pairs(data.items) do
text = text..'"'..data.items[book].volumeInfo.title..'"'
if data.items[book].volumeInfo.publisher == nil and data.items[book].volumeInfo.pageCount ~= nil then
text = text..'\n'..data.items[book].volumeInfo.authors[1]..', '
else
text = text..'\n'..data.items[book].volumeInfo.authors[1]..''
end
if data.items[book].volumeInfo.authors[1] == data.items[book].volumeInfo.publisher then data.items[book].volumeInfo.publisher = nil end
if data.items[book].volumeInfo.publisher then
if data.items[book].volumeInfo.pageCount then
text = text..', '..data.items[book].volumeInfo.publisher..', '
else
text = text..', '..data.items[book].volumeInfo.publisher
end
end
if data.items[book].volumeInfo.pageCount then
text = text..data.items[book].volumeInfo.pageCount..' Seiten'
end
if data.items[book].volumeInfo.publishedDate then
text = text..', erschienen '..data.items[book].volumeInfo.publishedDate
end
if data.items[book].saleInfo.listPrice then
text = text..'\nPreis: '..data.items[book].saleInfo.listPrice.amount..' '..data.items[book].saleInfo.listPrice.currencyCode
end
text = text..'\n'..data.items[book].volumeInfo.canonicalVolumeLink
text = text..'\n\n'
end
send_large_msg(receiver, text, ok_cb, false)
end
local function run(msg, matches)
local term = URL.escape(matches[1])
local data = get_books_data(term)
local receiver = get_receiver(msg)
send_books_data(data, receiver)
end
return {
description = "Sucht nach Büchern in Google Books.",
usage = "/books [Suchbegriff]: Sucht nach Büchern in Google Books",
patterns = {"^/books (.*)$"},
run = run
}
end

33
plugins/gronkh_soundboard.lua Normal file
View File

@ -0,0 +1,33 @@
#Sounds from http://xufox.bplaced.net/GronkhSoundboard/
do
local function run(msg, matches)
local receiver = get_receiver(msg)
local url = "http://code.ponywave.de/workspace/mikubot/gronkhsounds/"..matches[1]..".mp3"
local file = download_to_file(url)
local cb_extra = {file_path=file}
if string.match(msg.text, "[Ll][Ii][Ss][Tt][Ee]") then
return "PonyWave.de/a/gronkhsounds"
end
if not file then
return "Nichts gefunden!"
else
print('Sende Sound')
send_document(receiver, file, rmtmp_cb, cb_extra)
end
end
return {
description = "Gronkh Soundboard",
usage = {"/gronkh [Name]"},
patterns = {
"^/gronkh (.*)$"
},
run = run
}
end

2
plugins/help.lua
View File

@ -39,7 +39,7 @@ do
end end
else else
plugin = plugins[name] plugin = plugins[name]
if not plugin then return nil end if not plugin then return 'Dieses Plugin existiert nicht.' end
end end
local text = "" local text = ""

2
plugins/images.lua
View File

@ -10,7 +10,7 @@ end
return { return {
description = "Wenn ein Link zu einem Bild gesendet wird, läd und sendet der Bot das Bild.", description = "Wenn ein Link zu einem Bild gesendet wird, läd und sendet der Bot das Bild.",
usage = {"Link zum Bild"}, usage = {"Link zum Bild"},
patterns = {"^(https?://[%w-_%.%?%.:/%+=&]+%.png)$","^(https?://[%w-_%.%?%.:/%+=&]+%.jpg)$","^(https?://[%w-_%.%?%.:/%+=&]+%.jpeg)$",}, patterns = {"^(https?://[%w-_%.%?%.:/%+=&]+%.png)","^(https?://[%w-_%.%?%.:/%+=&]+%.jpg)","^(https?://[%w-_%.%?%.:/%+=&]+%.jpeg)",},
run = run run = run
} }

28
plugins/imdb.lua
View File

@ -1,10 +1,14 @@
do do
local BASE_URL = 'http://www.imdbapi.com' local BASE_URL = 'https://www.omdbapi.com'
function get_imdb_data (movie) function get_imdb_data (movie, id)
local url = BASE_URL..'/?t='..movie if id then
local res,code = http.request(url) 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 if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res) local data = json:decode(res)
return data return data
@ -17,6 +21,7 @@ function send_imdb_data(data, receiver)
else else
local title = data.Title local title = data.Title
local release = data.Released 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.Runtime ~= "N/A" then runtime = '\nLaufzeit: '..data.Runtime else runtime = '' end
if data.Genre ~= "N/A" then genre = '\nGenre: '..data.Genre else genre = '' end if data.Genre ~= "N/A" then genre = '\nGenre: '..data.Genre else genre = '' end
local director = data.Director local director = data.Director
@ -33,7 +38,7 @@ function send_imdb_data(data, receiver)
score = '' score = ''
end end
local link = 'http://imdb.com/title/'..data.imdbID local link = 'http://imdb.com/title/'..data.imdbID
local text = title..'\nErscheinungsdatm: '..release..runtime..genre..'\nDirector: '..director..writer..'\nSchauspieler: '..actors..plot..score..'\n-- '..link local text = title..Type..'\nErscheinungsdatm: '..release..runtime..genre..'\nDirector: '..director..writer..'\nSchauspieler: '..actors..plot..score..'\n-- '..link
if data.Poster ~= "N/A" then if data.Poster ~= "N/A" then
local image_url = data.Poster local image_url = data.Poster
local cb_extra = { local cb_extra = {
@ -48,8 +53,13 @@ function send_imdb_data(data, receiver)
end end
function run(msg, matches) function run(msg, matches)
local movie = matches[1]:gsub(' ', '+') if matches[2] then
local data = get_imdb_data(movie) 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) local receiver = get_receiver(msg)
send_imdb_data(data, receiver) send_imdb_data(data, receiver)
end end
@ -57,7 +67,9 @@ end
return { return {
description = "Zeigt Info zu einem Film (von IMDB, englisch)", description = "Zeigt Info zu einem Film (von IMDB, englisch)",
usage = "/imdb [Film]: Zeigt Info zu Film", usage = "/imdb [Film]: Zeigt Info zu Film",
patterns = {"^/imdb (.+)"}, patterns = {"^/imdb (.+)",
"imdb.com/title/(tt)(%d+[%d%.,]*)"
},
run = run run = run
} }

148
plugins/img_google.lua
View File

@ -1,6 +1,8 @@
do do
function getGoogleImage(text) local _blacklist
local function getGoogleImage(text)
local text = URL.escape(text) local text = URL.escape(text)
local api = "https://ajax.googleapis.com/ajax/services/search/images?v=1.0&rsz=8&safe=active&q=" local api = "https://ajax.googleapis.com/ajax/services/search/images?v=1.0&rsz=8&safe=active&q="
local res, code = http.request(api..text) local res, code = http.request(api..text)
@ -21,38 +23,144 @@ function getGoogleImage(text)
return nil return nil
end end
-- Random image from table return data.results
local i = math.random(#data.results)
return data.results[i].url
end end
function run(msg, matches) 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 show_blacklist()
if not _blacklist[1] then
return "Keine Wörter geblacklisted!\nBlackliste welche mit /imgblacklist add [Wort]"
else
local sort_alph = function( a,b ) return a < b end
table.sort( _blacklist, sort_alph )
local blacklist = "Folgende Wörter stehen auf der Blacklist:\n"
for v,word in pairs(_blacklist) do
blacklist = blacklist..'- '..word..'\n'
end
return blacklist
end
end
local function add_blacklist()
print('Blacklisting '..word..' - saving to redis set telegram:img_blacklist')
if redis:sismember("telegram:img_blacklist", word) == true then
return '"'..word..'" steht schon auf der Blacklist.'
else
redis:sadd("telegram:img_blacklist", word)
return '"'..word..'" blacklisted!'
end
end
local function remove_blacklist()
print('De-blacklisting '..word..' - removing from redis set telegram:img_blacklist')
if redis:sismember("telegram:img_blacklist", word) == true then
redis:srem("telegram:img_blacklist", word)
return '"'..word..'" erfolgreich von der Blacklist gelöscht!'
else
return '"'..word..'" steht nicht auf der Blacklist.'
end
end
local function run(msg, matches)
local receiver = get_receiver(msg) local receiver = get_receiver(msg)
local text = matches[1] local text = matches[1]
local url = getGoogleImage(text) if matches[2] then word = string.lower(matches[2]) end
if not url then _blacklist = redis:smembers("telegram:img_blacklist")
return "Kein Bild gefunden."
end
if string.ends(url, ".svg") then if text == "/imgblacklist show" then
return "Fehler beim laden des Bildes." if is_sudo(msg) then
end return show_blacklist()
else
print("Bilder-URL: ", url) return "Du bist kein Superuser. Dieser Vorfall wird gemeldet!"
if string.ends(url, ".gif") then end
send_document_from_url(receiver, url) end
return "Source: "..url
if text == "/imgblacklist add" and word == nil then
return "Benutzung: /imgblacklist add [Wort]"
elseif text == "/imgblacklist add" and word then
if is_sudo(msg) then
return add_blacklist()
else
return "Du bist kein Superuser. Dieser Vorfall wird gemeldet!"
end
end
if text == "/imgblacklist del" and word == nil then
return "Benutzung: /imgblacklist del [Wort]"
elseif text == "/imgblacklist del" and word then
if is_sudo(msg) then
return remove_blacklist()
else
return "Du bist kein Superuser. Dieser Vorfall wird gemeldet!"
end
end
print ('Checking if search contains blacklisted words: '..text)
if is_blacklisted(text) then
return "Vergiss es ._."
end
local results = getGoogleImage(text)
if not results then
return "Kein Bild gefunden!"
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
url = results[i].url;
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."
else else
send_photo_from_url(receiver, url)
return "Source: "..url return "Source: "..url
end end
end end
return { return {
description = "Sucht Bild mit Google-API und versendet es (SafeSearch aktiv)", description = "Sucht Bild mit Google-API und versendet es (SafeSearch aktiv)",
usage = {"/img [Suchbegriff]"}, usage = {
patterns = {"^/img (.*)$"}, "/img [Suchbegriff]",
"/imgblacklist show: Zeigt Blacklist (nur Superuser)",
"/imgblacklist add [Wort]: Fügt Wort der Blacklist hinzu (nur Superuser)",
"/imgblacklist del [Wort]: Entfernt Wort aus der Blacklist (nur Superuser)"
},
patterns = {
"^/img (.*)$",
"^(/imgblacklist show)$",
"^(/imgblacklist add) (.*)$",
"^(/imgblacklist del) (.*)$"
},
run = run run = run
} }
end end

141
plugins/img_google_nsfw.lua
View File

@ -1,6 +1,8 @@
do do
function getGoogleImage2(text) local _blacklist
local function getNSFWImage(text)
local text = URL.escape(text) local text = URL.escape(text)
local api = "https://ajax.googleapis.com/ajax/services/search/images?v=1.0&rsz=8&q=" local api = "https://ajax.googleapis.com/ajax/services/search/images?v=1.0&rsz=8&q="
local res, code = http.request(api..text) local res, code = http.request(api..text)
@ -21,30 +23,126 @@ function getGoogleImage2(text)
return nil return nil
end end
-- Random image from table return data.results
local i = math.random(#data.results)
return data.results[i].url
end end
function run(msg, matches) 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 show_blacklist()
if not _blacklist[1] then
return "Keine Wörter geblacklisted!\nBlackliste welche mit /imgblacklist add [Wort]"
else
local sort_alph = function( a,b ) return a < b end
table.sort( _blacklist, sort_alph )
local blacklist = "Folgende Wörter stehen auf der Blacklist:\n"
for v,word in pairs(_blacklist) do
blacklist = blacklist..'- '..word..'\n'
end
return blacklist
end
end
local function add_blacklist()
print('Blacklisting '..word..' - saving to redis set telegram:img_blacklist')
if redis:sismember("telegram:img_blacklist", word) == true then
return '"'..word..'" steht schon auf der Blacklist.'
else
redis:sadd("telegram:img_blacklist", word)
return '"'..word..'" blacklisted!'
end
end
local function remove_blacklist()
print('De-blacklisting '..word..' - removing from redis set telegram:img_blacklist')
if redis:sismember("telegram:img_blacklist", word) == true then
redis:srem("telegram:img_blacklist", word)
return '"'..word..'" erfolgreich von der Blacklist gelöscht!'
else
return '"'..word..'" steht nicht auf der Blacklist.'
end
end
local function run(msg, matches)
local receiver = get_receiver(msg) local receiver = get_receiver(msg)
local text = matches[1] local text = matches[1]
local url = getGoogleImage2(text) if matches[2] then word = string.lower(matches[2]) end
if not url then _blacklist = redis:smembers("telegram:img_blacklist")
return "Kein Bild gefunden."
end
if string.ends(url, ".svg") then if text == "/imgblacklist show" then
return "Fehler beim laden des Bildes." if is_sudo(msg) then
end return show_blacklist()
else
print("Bilder-URL: ", url) return "Du bist kein Superuser. Dieser Vorfall wird gemeldet!"
if string.ends(url, ".gif") then end
send_document_from_url(receiver, url) end
return "Source: "..url
if text == "/imgblacklist add" and word == nil then
return "Benutzung: /imgblacklist add [Wort]"
elseif text == "/imgblacklist add" and word then
if is_sudo(msg) then
return add_blacklist()
else
return "Du bist kein Superuser. Dieser Vorfall wird gemeldet!"
end
end
if text == "/imgblacklist del" and word == nil then
return "Benutzung: /imgblacklist del [Wort]"
elseif text == "/imgblacklist del" and word then
if is_sudo(msg) then
return remove_blacklist()
else
return "Du bist kein Superuser. Dieser Vorfall wird gemeldet!"
end
end
print ('Checking if search contains blacklisted words: '..text)
if is_blacklisted(text) then
return "Vergiss es ._."
end
local results = getNSFWImage(text)
if not results then
return "Kein Bild gefunden!"
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
url = results[i].url;
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."
else else
send_photo_from_url(receiver, url)
return "Source: "..url return "Source: "..url
end end
end end
@ -52,7 +150,12 @@ end
return { return {
description = "Sucht Bild mit Google-API und versendet es [NSFW]", description = "Sucht Bild mit Google-API und versendet es [NSFW]",
usage = {"/img2 [Suchbegriff]","/nsfwimg [Suchbegriff]"}, usage = {"/img2 [Suchbegriff]","/nsfwimg [Suchbegriff]"},
patterns = {"^/img2 (.*)$","^/nsfwimg (.*)$"}, patterns = {"^/img2 (.*)$",
"^/nsfwimg (.*)$"--[[,
"^(/imgblacklist show)$",
"^(/imgblacklist add) (.*)$",
"^(/imgblacklist del) (.*)$"]]
},
run = run run = run
} }
end end

72
plugins/instagram.lua Normal file
View File

@ -0,0 +1,72 @@
-- 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.instagram.com/v1'
local access_token = cred_data.instagram_access_token
function get_insta_data (insta_code)
local url = BASE_URL..'/media/shortcode/'..insta_code..'?access_token='..access_token
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).data
return data
end
function send_instagram_data(data, receiver)
-- Header
local username = data.user.username
local full_name = data.user.full_name
if username == full_name then
header = full_name..' hat ein'
else
header = full_name..' ('..username..') hat ein'
end
if data.type == 'video' then
header = header..' Video gepostet'
else
header = header..' Foto gepostet'
end
-- Caption
if data.caption == nil then
caption = ''
else
caption = ':\n'..data.caption.text
end
-- Footer
local comments = comma_value(data.comments.count)
local likes = comma_value(data.likes.count)
local footer = '\n'..likes..' Likes, '..comments..' Kommentare'
if data.type == 'video' then
footer = '\n'..data.videos.standard_resolution.url..footer
end
-- Image
local image_url = data.images.standard_resolution.url
local cb_extra = {
receiver=receiver,
url=image_url
}
-- Send all
send_msg(receiver, header..caption..footer, send_photo_from_url_callback, cb_extra)
end
function run(msg, matches)
local insta_code = matches[1]
local data = get_insta_data(insta_code)
local receiver = get_receiver(msg)
send_instagram_data(data, receiver)
end
return {
description = "Sendet Instagram-Info.",
usage = "URL zu Instagram-Post",
patterns = {"instagram.com/p/([A-Za-z0-9-_-]+)"},
run = run
}
end

63
plugins/ip_info.lua Normal file
View File

@ -0,0 +1,63 @@
-- 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 = 'http://ipinfo.io'
function get_ip_data (ip)
local url = BASE_URL..'/'..ip..'/json'
local res,code = http.request(url)
if code == 404 then return "Diese IP gibt es nicht!" end
if code ~= 200 then return "HTTP-FEHLER: "..code end
local data = json:decode(res)
if data.hostname == "No Hostname" then
hostname = ""
else
hostname = ' ('..data.hostname..')'
end
if data.org then
org = data.org
else
org = 'Unbekannt'
end
if data.city == "" or data.city == nil then
city = "Unbekannt"
else
city = data.city
end
local country = data.country
if data.region == "" or data.region == nil then
region = ""
else
region = ', '..data.region
end
if data.postal then
postal = ' (PLZ: '..data.postal..')'
else
postal = ''
end
local text = 'Der Server von '..ip..' gehört zu '..org..hostname..' und steht in '..country..', genauer in '..city..region..postal
return text
end
function run(msg, matches)
local ip = matches[1]
return get_ip_data(ip)
end
return {
description = "Sendet IP-Info",
usage = "/ip [IP]: Sendet Server-Infos",
patterns = {"^/ip (.*)$"},
run = run
}
end

174
plugins/isup.lua
View File

@ -1,23 +1,77 @@
do do
local socket = require("socket")
local cronned = load_from_file('data/isup.lua')
local function save_cron(msg, url, delete) local function prot_url(url)
local origin = get_receiver(msg) local url, h = string.gsub(url, "http://", "")
if not cronned[origin] then local url, hs = string.gsub(url, "https://", "")
cronned[origin] = {} local protocol = "http"
if hs == 1 then
protocol = "https"
end end
if not delete then return url, protocol
table.insert(cronned[origin], url) end
else
for k,v in pairs(cronned[origin]) do local function get_base_redis(id, option, extra)
if v == url then local ex = ''
table.remove(cronned[origin], k) if option ~= nil then
ex = ex .. ':' .. option
if extra ~= nil then
ex = ex .. ':' .. extra
end end
end end
return 'isup:' .. id .. ex
end
local function print_cron(id)
local uhash = get_base_redis(id)
local subs = redis:smembers(uhash)
local text = id .. ' prüft folgende Webseiten:\n---------\n'
for k,v in pairs(subs) do
text = text .. k .. ") " .. v .. '\n'
end end
serialize_to_file(cronned, 'data/isup.lua') return text
return 'Gespeichert!' end
local function save_cron(id, url)
local url = string.lower(url)
local baseurl, protocol = prot_url(url)
local prothash = get_base_redis(baseurl, "protocol")
local checkhash = get_base_redis(baseurl, "check")
local uhash = get_base_redis(id)
if redis:sismember(uhash, baseurl) then
return url..' wird bereits geprüft.'
end
print('Saving...')
redis:set(prothash, protocol)
redis:sadd(checkhash, id)
redis:sadd(uhash, baseurl)
return url.." wird jetzt alle fünf Minuten geprüft!"
end
local function delete_cron(id, n)
n = tonumber(n)
local uhash = get_base_redis(id)
local subs = redis:smembers(uhash)
if n < 1 or n > #subs then
return "ID zu hoch!"
end
local sub = subs[n]
local lhash = get_base_redis(sub, "check")
redis:srem(uhash, sub)
redis:srem(lhash, id)
local left = redis:smembers(lhash)
if #left < 1 then -- no one subscribed, remove it
local prothash = get_base_redis(sub, "protocol")
local downhash = get_base_redis(sub, "down")
redis:del(prothash)
redis:del(downhash)
end
return sub.." wird nicht mehr geprüft."
end end
local function is_up_socket(ip, port) local function is_up_socket(ip, port)
@ -73,56 +127,96 @@ local function isup(url)
else else
result = is_up_http(url) result = is_up_http(url)
end end
return result return result
end end
local function cron() local function cron()
for chan, urls in pairs(cronned) do local keys = redis:keys(get_base_redis("*", "check"))
for k,url in pairs(urls) do for k,v in pairs(keys) do
print('Checking', url) local base = string.match(v, "isup:(.+):check") -- Get the URL base
print('ISUP: '..base)
local prot = redis:get(get_base_redis(base, "protocol"))
local url = prot .. "://" .. base
local hash = 'isup:'..base..':down'
local isdown = redis:get(hash)
if not isup(url) then if not isup(url) then
local text = url..' scheint DOWN zu sein' if isdown ~= 'true' then
send_msg(chan, text, ok_cb, false) redis:set(hash, 'true')
local text = url..' ist DOWN! ❌'
for e, receiver in pairs(redis:smembers(v)) do
send_msg(receiver, text, ok_cb, false)
end
else
print(base..' ist immer noch down')
end
else
if isdown == 'true' then
redis:set(hash, 'false')
local text = url..' ist wieder UP! ✅'
for e, receiver in pairs(redis:smembers(v)) do
send_msg(receiver, text, ok_cb, false)
end
end end
end end
end end
end end
local function run(msg, matches) local function run(msg, matches)
if matches[1] == 'remove' then local id = "user#id" .. msg.from.id
if not is_sudo(msg) then
return 'Du darfst diesen Befehl nicht nutzen!'
end
return save_cron(msg, matches[2], true)
elseif matches[1] == 'save' then if is_chat_msg(msg) then
if not is_sudo(msg) then id = "chat#id" .. msg.to.id
return 'Du darfst diesen Befehl nicht nutzen!'
end end
return save_cron(msg, matches[2])
if matches[1] == 'cron show' then
if not is_sudo(msg) then
return 'Du darfst diesen Befehl nicht benutzen!'
end
return print_cron(id)
elseif matches[1] == 'cron check' then
if not is_sudo(msg) then
return 'Du darfst diesen Befehl nicht benutzen!'
end
return cron()
elseif matches[1] == 'cron delete' then
if not is_sudo(msg) then
return 'Du darfst diesen Befehl nicht benutzen!'
end
return delete_cron(id, matches[2])
elseif matches[1] == 'cron' then
if not is_sudo(msg) then
return 'Du darfst diesen Befehl nicht benutzen!'
end
return save_cron(id, matches[2])
elseif isup(matches[1]) then elseif isup(matches[1]) then
return matches[1]..' ist UP ✔' return matches[1]..' ist UP! ✅'
else else
return matches[1]..' scheint DOWN zu sein ❌' return matches[1]..' ist DOWN! ❌'
end end
end end
return { return {
description = "Check if a website or server is up.", description = "Checkt, ob eine Webseite up ist.",
usage = { usage = {
"/isup [host]: Performs a HTTP request or Socket (ip:port) connexion", "/isup [Host]: Checkt, ob die Seite up ist",
"/isup save [host]: Every 5mins check if host is up. (Requires privileged user)", "/isup cron [Host]: Checkt diese Seite alle 5 Minuten (nur Superuser)",
"/isup remove [host]: Disable checking that host." "/isup cron check: Prüfe alle Seiten jetzt",
"/isup cron show: Listet alle zu prüfenden Seiten auf",
"/isup cron delete [ID]: Checkt diese Seite nicht mehr"
}, },
patterns = { patterns = {
"^/isup (remove) (.*)$", "^/isup (cron check)$",
"^/isup (save) (.*)$", "^/isup (cron show)$",
"^/isup (cron delete) (%d+)$",
"^/isup (cron) (.*)$",
"^/isup (.*)$", "^/isup (.*)$",
"^/ping (.*)$", "^/ping (.*)$"
"^/ping (remove) (.*)$",
"^/ping (save) (.*)$"
}, },
run = run, run = run,
cron = cron cron = cron

32
plugins/konachan.lua Normal file
View File

@ -0,0 +1,32 @@
do
local function get_kc(tag)
local url = 'http://konachan.net/post.json?tags='..tag..' -rating:explicit'
local b,c = http.request(url)
if c ~= 200 then return nil end
local kc = json:decode(b)
-- truly randomize
math.randomseed(os.time())
-- random max json table size
local i = math.random(#kc)
local link_image = kc[i].file_url
return link_image
end
local function run(msg, matches)
local tag = matches[1]
local tag = string.gsub(tag, " ", '_' )
local receiver = get_receiver(msg)
local url = get_kc(tag)
send_photo_from_url(receiver, url, send_title, {receiver, title})
return "Source: "..url
end
return {
description = "Sendet ein Bild von Konachan.net [SFW]",
usage = {"/konachan [Tags]","/kc"},
patterns = {"^/konachan (.*)$","^/kc (.*)$"},
run = run
}
end

32
plugins/konachan_nsfw.lua Normal file
View File

@ -0,0 +1,32 @@
do
local function get_kc2(tag)
local url = 'http://konachan.com/post.json?tags='..tag..''
local b,c = http.request(url)
if c ~= 200 then return nil end
local kc = json:decode(b)
-- truly randomize
math.randomseed(os.time())
-- random max json table size
local i = math.random(#kc)
local link_image = kc[i].file_url
return link_image
end
local function run(msg, matches)
local tag = matches[1]
local tag = string.gsub(tag, " ", '_' )
local receiver = get_receiver(msg)
local url = get_kc2(tag)
send_photo_from_url(receiver, url, send_title, {receiver, title})
return "Source: "..url
end
return {
description = "Sendet Bild von Konachan.com [NSFW]",
usage = {"/konansfw [Tags]","/kcn [Tags]"},
patterns = {"^/konansfw (.*)$","^/kcn (.*)$"},
run = run
}
end

63
plugins/location_manager.lua Normal file
View File

@ -0,0 +1,63 @@
-- This file is part of the Telegram Bot "Brawlbot" (telegram.me/Brawlbot) by Andreas Bielawski (telegram.me/Brawl)
-- Released unter the MPLv2
do
local function set_location(user_id, location)
local hash = 'user:'..user_id
local set_location = get_location(user_id)
if set_location == location then
return 'Dieser Ort wurde bereits gesetzt'
else
print('Setting location in redis hash '..hash..' to location')
redis:hset(hash, 'location', location)
return 'Dein Wohnort wurde auf "'..location..'" festgelegt.'
end
end
local function del_location(user_id)
local hash = 'user:'..user_id
local set_location = get_location(user_id)
if not set_location then
return 'Du hast keinen Ort gesetzt'
else
print('Setting location in redis hash '..hash..' to false')
-- We set the location to false, because deleting the value blocks redis for a few milliseconds
redis:hset(hash, 'location', false)
return 'Dein Wohnort "'..set_location..'" wurde gelöscht!'
end
end
local function run(msg, matches)
local user_id = msg.from.id
if matches[1] == 'set' then
return set_location(user_id, matches[2])
elseif matches[1] == 'del' then
return del_location(user_id)
else
local set_location = get_location(user_id)
if not set_location then
return 'Du hast keinen Ort gesetzt'
else
return 'Gesetzter Wohnort: '..set_location
end
end
end
return {
description = "Orte-Manager",
usage = {
"/location: Gibt deinen gesetzten Wohnort aus",
"/location set (Ort): Setzt deinen Wohnort auf diesen Ort",
"/location del: Löscht deinen angegebenen Wohnort"
},
patterns = {
"^/location (set) (.*)$",
"^/location (del)$",
"^/location$"
},
run = run
}
end

37
plugins/love_calculator.lua Normal file
View File

@ -0,0 +1,37 @@
-- 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://love-calculator.p.mashape.com'
local function love_result(first_name, second_name)
local apikey = cred_data.x_mashape_key
local url = BASE_URL..'/getPercentage?mashape-key='..apikey..'&fname='..first_name..'&sname='..second_name
print(url)
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
local first_name = data.fname
local second_name = data.sname
local percentage = data.percentage
local result = data.result
return first_name..' und '..second_name..' lieben sich zu '..percentage..'% ❤️\n'..result
end
local function run(msg, matches)
local first_name = url_encode(matches[1])
local second_name = url_encode(matches[2])
return love_result(first_name, second_name)
end
return {
description = "Liebestest ❤️ (kommt sogar ohne Jamba-Abo!)",
usage = "/love [Erster Name]+[Zweiter Name]: Führt einen Liebestest durch ❤️",
patterns = {
"^/love (.+)+(.+)$"
},
run = run
}
end

64
plugins/manager.lua
View File

@ -30,6 +30,34 @@ local function is_banned(user_id, chat_id)
return banned or false return banned or false
end end
local function makesudo(user_id, msg, delete)
local set = 'telegram:sudo_users'
local is_sudo = redis:sismember(set, user_id)
if delete then
if not is_sudo then
return user_id..' ist kein Superuser.'
else
if string.match(user_id, msg.from.id) then
return 'Das Löschen deiner User-ID aus den Superusern wird feige verweigert.'
else
print('deleting user id '..user_id..' from redis set '..set)
redis:srem(set, user_id)
sudo_users = load_sudo_users()
return user_id..' ist jetzt kein Superuser mehr.'
end
end
else
if not is_sudo then
print('saving user id '..user_id..' to redis set '..set)
redis:sadd(set, user_id)
sudo_users = load_sudo_users()
return user_id..' ist jetzt ein Superuser.'
else
return user_id..' ist bereits ein Superuser.'
end
end
end
local function pre_process(msg) local function pre_process(msg)
-- SERVICE MESSAGE -- SERVICE MESSAGE
@ -86,6 +114,10 @@ local function pre_process(msg)
else else
--print ('Chat '..msg.to.id..' whitelisted :)') --print ('Chat '..msg.to.id..' whitelisted :)')
end end
else
local user_name = get_name(msg)
local receiver = get_receiver(msg)
send_msg(receiver, "Hey "..user_name..", dies ist der Bot von @Akamaru und kann nur nach Freischaltung durch ihn benutzt werden." , ok_cb, false)
end end
else else
--print('User '..msg.from.id..' allowed :)') --print('User '..msg.from.id..' allowed :)')
@ -128,6 +160,16 @@ local function run(msg, matches)
end end
end end
if matches[1] == 'makesudo' then
local user_id = matches[3]
if matches[2] == 'user' then
return makesudo(user_id)
end
if matches[2] == 'delete' then
return makesudo(user_id, msg, true)
end
end
if matches[1] == 'kick' then if matches[1] == 'kick' then
if msg.to.type == 'chat' then if msg.to.type == 'chat' then
kick_user(matches[2], msg.to.id) kick_user(matches[2], msg.to.id)
@ -183,16 +225,18 @@ local function run(msg, matches)
end end
return { return {
description = "Plugin to manage bans, kicks and white/black lists.", description = "Manager-Plugin für Whitelist, Kicks und Banns (nur Superuser)",
usage = { usage = {
"/whitelist <enable>/<disable>: Enable or disable whitelist mode", "/whitelist <enable>/<disable>: Aktiviert/deaktiviert Whitelist",
"/whitelist user <user_id>: Allow user to use the bot when whitelist mode is enabled", "/whitelist user <user_id>: Whiteliste User",
"/whitelist chat: Allow everybody on current chat to use the bot when whitelist mode is enabled", "/whitelist chat: Whiteliste ganze Gruppe",
"/whitelist delete user <user_id>: Remove user from whitelist", "/whitelist delete user <user_id>: Lösche User von der Whitelist",
"/whitelist delete chat: Remove chat from whitelist", "/whitelist delete chat: Lösche ganze Gruppe von der Whitelist",
"/ban user <user_id>: Kick user from chat and kicks it if joins chat again", "/ban user <user_id>: Kicke User vom Chat und kicke ihn, wenn er erneut beitritt",
"/ban delete <user_id>: Unban user", "/ban delete <user_id>: Entbanne User",
"/kick <user_id> Kick user from chat group" "/kick <user_id>: Kicke User vom Chat",
"/makesudo user <user_id>: Macht User zum Superuser",
"/makesudo delete <user_id>: Macht User zum Superuser"
}, },
patterns = { patterns = {
"^/(whitelist) (enable)$", "^/(whitelist) (enable)$",
@ -205,6 +249,8 @@ return {
"^/(ban) (delete) (%d+)$", "^/(ban) (delete) (%d+)$",
"^/(kick) (%d+)$", "^/(kick) (%d+)$",
--"^//tgservice (.+)$", --"^//tgservice (.+)$",
"^/(makesudo) (user) (%d+)$",
"^/(makesudo) (delete) (%d+)$"
}, },
run = run, run = run,
pre_process = pre_process, pre_process = pre_process,

3
plugins/media_download.lua
View File

@ -36,5 +36,6 @@ return {
usage = {'Irgendeine Datei'}, usage = {'Irgendeine Datei'},
run = run, run = run,
patterns = {'%[(document)%]','%[(photo)%]','%[(video)%]','%[(audio)%]'}, patterns = {'%[(document)%]','%[(photo)%]','%[(video)%]','%[(audio)%]'},
pre_process = pre_process pre_process = pre_process,
notyping = true
} }

89
plugins/miiverse.lua Normal file
View File

@ -0,0 +1,89 @@
-- This is a proprietary plugin, property of Andreas Bielawski, (c) 2015 <andi (dot) b (at) outlook (dot) de>
-- DO NOT USE WITHOUT PERMISSION
do
-- TODO: Language selector (for e.g. this post: https://miiverse.nintendo.net/posts/AYMHAAACAAADVHkSrNJ-9Q)
-- <iframe class="youtube-player" type="text/html" width="490" height="276" src="https://www.youtube.com/embed/2kB7tUD-MJk?rel=0&amp;modestbranding=1&amp;iv_load_policy=3" frameborder="0"></iframe></div>
local function get_miiverse_data(res, post)
username = string.match(res, "<p class%=\"user%-name\"><a href=\".-\">(.-)</a>")
userid = string.match(res, "<span class%=\"user%-id\">(.-)</span>")
timestamp = string.match(res, "<span class%=\"timestamp\">(.-)</span>")
if string.starts(timestamp, 'Vor') then
timestamp = string.gsub(timestamp, "Vor","")
timestamp = "vor"..timestamp
else
timestamp = "am "..timestamp
end
community = string.match(res, "<div id%=\"page%-title\">(.-)</div>")
--community = string.gsub(community, "™","")
yeahs = string.match(res, "<span class%=\"empathy%-count\">(.-)</span>")
if yeahs == "1" then yeahs = "1 Yeah" else yeahs = yeahs.." Yeahs" end
replys = string.match(res, "<span class%=\"reply%-count\">(.-)</span>")
if replys == "1" then replys = "1 Kommentar" else replys = replys.." Kommentaren" end
youtube_link = string.match(res, "<iframe class%=\"youtube%-player\" .- src=\"(.-)\" frameborder")
if youtube_link == nil then youtube_link = '' end
if post ~= '' and youtube_link ~= nil then youtube_link = ' '..youtube_link end
end
local function get_miiverse_post(miiverse_postid, receiver)
local url = 'https://miiverse.nintendo.net/posts/'..miiverse_postid
local respbody = {}
local options = {
url = url,
sink = ltn12.sink.table(respbody),
headers = {["Accept-Language"] = "de-de",},
}
local response = {https.request(options)}
local code = response[2]
local res = table.concat(respbody)
if code ~= 200 then return "Fehler beim Abrufen vom Miiverse" end
local post = string.match(res, "<p class%=\"post%-content%-text.-\">(.-)<div class%=\"post%-meta\">")
if post == nil then
local memo = string.match(res, "<p class%=\"post%-content%-memo\"><img src%=\"(.-)\" class=\"post%-memo\"")
if memo ~= nil then
post = ''
local file = download_to_file(memo)
local cb_extra = {file_path=file}
send_photo(receiver, file, rmtmp_cb, cb_extra)
else
post = 'Fehler! Miiverse-Post konnte nicht abgerufen werden.'
end
else
post = string.gsub(post, "</p>","")
post = string.gsub(post, "<p class.->","")
post = unescape(post)
end
get_miiverse_data(res, post)
local text = username..' ('..userid..') '..timestamp..' in "'..community..'" mit ' ..yeahs..' und '..replys..'\n\n'..post..youtube_link
local photo = string.match(res, "<div class%=\"screenshot%-container still%-image\"><img src%=\"(.-)\"></div>")
if photo ~= nil then
local image_url = photo
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
local function run(msg, matches)
local miiverse_postid = matches[1]
local receiver = get_receiver(msg)
get_miiverse_post(miiverse_postid, receiver)
end
return {
description = "Postet Miiverse-Post",
usage = "Miiverse-Link: Postet Miiverse-Post",
patterns = {"miiverse.nintendo.net/posts/([A-Za-z0-9-_-]+)"},
run = run
}
end

30
plugins/minecraft.lua
View File

@ -1,11 +1,13 @@
local usage = "/mine [IP]: Sucht Minecraft-Server und sendet Infos. Standard-Port: 25565, /mine [IP] [Port]: Sucht Minecraft-Server auf Port und sendet Infos." local usage = {
local ltn12 = require "ltn12" "/mine [IP]: Sucht Minecraft-Server und sendet Infos. Standard-Port: 25565",
"/mine [IP] [Port]: Sucht Minecraft-Server auf Port und sendet Infos.",
}
local function mineSearch(ip, port, receiver) --25565 local function mineSearch(ip, port, receiver) --25565
local responseText = "" local responseText = ""
local api = "https://api.syfaro.net/server/status" local api = "https://mcapi.us/server/status"
local parameters = "?ip="..(URL.escape(ip) or "").."&port="..(URL.escape(port) or "").."&players=true&favicon=true" local parameters = "?ip="..(URL.escape(ip) or "").."&port="..(URL.escape(port) or "").."&players=true"
local http = require("socket.http") print(api..parameters)
local respbody = {} local respbody = {}
local body, code, headers, status = http.request{ local body, code, headers, status = http.request{
url = api..parameters, url = api..parameters,
@ -17,8 +19,8 @@ local function mineSearch(ip, port, receiver) --25565
if (status == nil) then return "FEHLER: status = nil" end if (status == nil) then return "FEHLER: status = nil" end
if code ~=200 then return "FEHLER: "..code..". Status: "..status end if code ~=200 then return "FEHLER: "..code..". Status: "..status end
local jsonData = json:decode(body) local jsonData = json:decode(body)
responseText = responseText..ip..":"..port.." ->\n" responseText = responseText..ip..":"..port..":\n"
if (jsonData.motd ~= nil) then if (jsonData.motd ~= nil and jsonData.motd ~= '') then
local tempMotd = "" local tempMotd = ""
tempMotd = jsonData.motd:gsub('%§.', '') tempMotd = jsonData.motd:gsub('%§.', '')
if (jsonData.motd ~= nil) then responseText = responseText.." MOTD: "..tempMotd.."\n" end if (jsonData.motd ~= nil) then responseText = responseText.." MOTD: "..tempMotd.."\n" end
@ -32,18 +34,18 @@ local function mineSearch(ip, port, receiver) --25565
responseText = responseText.." Online: "..server_online.."\n" responseText = responseText.." Online: "..server_online.."\n"
end end
if (jsonData.players ~= nil) then if (jsonData.players ~= nil) then
if (jsonData.players.max ~= nil) then if (jsonData.players.max ~= nil and jsonData.players.max ~= 0) then
responseText = responseText.." Slots: "..jsonData.players.max.."\n" responseText = responseText.." Slots: "..jsonData.players.max.."\n"
end end
if (jsonData.players.now ~= nil) then if (jsonData.players.now ~= nil and jsonData.players.max ~= 0) then
responseText = responseText.." Spieler online: "..jsonData.players.now.."\n" responseText = responseText.." Spieler online: "..jsonData.players.now.."\n"
end end
if (jsonData.players.sample ~= nil and jsonData.players.sample ~= false) then if (jsonData.players.sample ~= nil and jsonData.players.sample ~= false) then
responseText = responseText.." Spieler: "..table.concat(jsonData.players.sample, ", ").."\n" responseText = responseText.." Spieler: "..table.concat(jsonData.players.sample, ", ").."\n"
end end
if (jsonData.server.name ~= nil and jsonData.server.name ~= "") then
responseText = responseText.." Server: "..jsonData.server.name.."\n"
end end
if (jsonData.favicon ~= nil and false) then
--send_photo(receiver, jsonData.favicon) --(decode base64 and send)
end end
return responseText return responseText
end end
@ -60,7 +62,7 @@ local function parseText(chat, text)
if (ip ~= nil) then if (ip ~= nil) then
return mineSearch(ip, "25565", chat) return mineSearch(ip, "25565", chat)
end end
return "FEHLER: Keine Input IP?" return "FEHLER: Keine Input IP??"
end end
@ -73,6 +75,8 @@ end
return { return {
description = "Dursucht Minecraft-Server und sendet Infos", description = "Dursucht Minecraft-Server und sendet Infos",
usage = usage, usage = usage,
patterns = {"^/mine (.*)$"}, patterns = {
"^/mine (.*)$"
},
run = run run = run
} }

53
plugins/music163.lua Normal file
View File

@ -0,0 +1,53 @@
-- 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 = 'http://music.163.com/api'
local function get_netease_data(id)
local url = BASE_URL..'/song/detail/?ids=['..id..']'
local res,code = http.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).songs[1]
return data
end
local function send_netease_data(data, receiver)
local mp3_url = data.mp3Url
local title = data.name
local artist = data.artists[1].name
local cb_extra = {
receiver=receiver,
url=mp3_url
}
local text = '"'..title..'" von '..artist
send_msg(receiver, text, send_document_from_url_callback, cb_extra)
end
local function run(msg, matches)
local id = matches[1]
local data = get_netease_data(id)
local receiver = get_receiver(msg)
if mp3url == "HTTP-FEHLER" then
return "Keinen Song gefunden :("
else
send_netease_data(data, receiver)
end
end
return {
description = "Sendet MP3 und Infos eines Tracks von music.163.com",
usage = {
"/getmp3 [ID]: Downloadet MP3 und sendet Infos",
"Link zu music.163.com-Track: Downloadet MP3 und sendet Infos"
},
patterns = {
"^/getmp3 (%d+[%d%.]*)",
"music.163.com/%#/song%?id=(%d+[%d%.]*)",
"music.163.com/song%?id=(%d+[%d%.]*)"
},
run = run
}
end

137
plugins/myanimelist.lua
View File

@ -1,40 +1,117 @@
function getAnime(query) -- This is a proprietary plugin, property of Andreas Bielawski, (c) 2015 <andi (dot) b (at) outlook (dot) de>
local number = 1 -- Set number of results -- DO NOT USE WITHOUT PERMISSION
local api = "http://ajax.googleapis.com/ajax/services/search/web?v=1.0&safe=active&hl=de&rsz="..number.."&q=site%3Amyanimelist.net"
local parameters = "+".. (URL.escape(query) or "")
-- Do the request do
local res, code = https.request(api..parameters)
if code ~=200 then return nil end
local data = json:decode(res)
local results={} local xml = require("xml")
for key,result in ipairs(data.responseData.results) do
table.insert(results, { local user = cred_data.mal_username
result.titleNoFormatting, local password = cred_data.mal_pw
result.unescapedUrl or result.url
}) local BASE_URL = 'http://'..user..':'..password..'@myanimelist.net/api/anime'
end
return results local function delete_tags(str)
str = string.gsub( str, '<br />', '')
str = string.gsub( str, '%[i%]', '')
str = string.gsub( str, '%[/i%]', '')
return str
end end
function stringlinks(results) local makeOurDate = function(dateString)
local stringresults="" local pattern = "(%d+)%-(%d+)%-(%d+)"
for key,val in ipairs(results) do local year, month, day = dateString:match(pattern)
stringresults=stringresults..val[1].." - "..val[2].."\n" return day..'.'..month..'.'..year
end
return stringresults
end end
function run(msg, matches) local function get_anime_info(anime)
local results = getAnime(matches[1]) local url = BASE_URL..'/search.xml?q='..anime
return stringlinks(results) local res,code = http.request(url)
if code ~= 200 then return "HTTP-Fehler" end
local result = xml.load(res)
return result
end
local function send_anime_data(result, receiver)
local title = xml.find(result, 'title')[1]
local id = xml.find(result, 'id')[1]
local mal_url = 'http://myanimelist.net/anime/'..id
if xml.find(result, 'synopsis')[1] then
desc = '\n'..delete_tags(string.sub(xml.find(result, 'synopsis')[1], 1, 200)) .. '...'
else
desc = ''
end
if xml.find(result, 'episodes')[1] then
episodes = '\nEpisoden: '..xml.find(result, 'episodes')[1]
else
episodes = ''
end
if xml.find(result, 'status')[1] then
status = ' ('..xml.find(result, 'status')[1]..')'
else
status = ''
end
--[[if xml.find(result, 'score')[1] ~= "0.00" then
score = '\nScore: '..string.gsub(xml.find(result, 'score')[1], "%.", "%,")
else
score = ''
end]]
if xml.find(result, 'type')[1] then
typ = '\nTyp: '..xml.find(result, 'type')[1]
else
typ = ''
end
if xml.find(result, 'start_date')[1] ~= "0000-00-00" then
startdate = '\nStart: '..makeOurDate(xml.find(result, 'start_date')[1])
else
startdate = ''
end
if xml.find(result, 'end_date')[1] ~= "0000-00-00" then
enddate = '\nEnde: '..makeOurDate(xml.find(result, 'end_date')[1])
else
enddate = ''
end
--local text = title..desc..episodes..status..score..typ..startdate..enddate..'\n— '..mal_url
local text = title..desc..episodes..status..typ..startdate..enddate..'\n— '..mal_url
if xml.find(result, 'image') then
local image_url = xml.find(result, 'image')[1]
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
local function run(msg, matches)
local anime = URL.escape(matches[1])
local receiver = get_receiver(msg)
local anime_info = get_anime_info(anime)
if anime_info == "HTTP-Fehler" then
return "Anime nicht gefunden!"
else
send_anime_data(anime_info, receiver)
end
end end
return { return {
description = "", description = "Sendet Infos zu einem Anime.",
usage = {"/myanimelist [Anime]","/mal [Anime]"}, usage = "/anime [Anime]: Sendet Infos zum Anime",
patterns = {"^/myanimelist (.*)$","^/mal (.*)$"}, patterns = {"^/anime (.+)$",
"^/mal (.*)$",
"^/myanimelist (.*)$)",
"^https?://myanimelist.net/anime/[0-9]+/(.*)$"
},
run = run run = run
} }
--Modified by Akamaru [https://ponywave.de]
end

61
plugins/page2image.lua Normal file
View File

@ -0,0 +1,61 @@
-- 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 = 'http://api.page2images.com/'
local restkey = cred_data.page2images_restkey
function get_scrot_data (scrot_url)
local url = BASE_URL..'/restfullink?p2i_url='..scrot_url..'&p2i_key='..restkey..'&p2i_imageformat=png&p2i_quality=85&p2i_size=1366x768'
local res,code = http.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
function send_scrot_data(data, receiver)
if data.status == "processing" then
print('Screenshot wird erstellt. Ungefähre Dauer: '..data.estimated_need_time..' Sekunden')
end
while data.status == "processing" do
sleep(5)
data = get_scrot_data(scrot_url)
if data.estimated_need_time ~= nil then
print('Noch '..data.estimated_need_time..' Sekunden')
end
end
if data.status == "error" then
text = data.ori_url..' konnte nicht fotografiert werden, weil der Fehler "'..data.msg..'" '..data.errno..' auftrat.'
send_msg(receiver, text, ok_cb, false)
end
if data.status == "finished" then
left_calls = data.left_calls
text = data.ori_url..' wurde fotografiert. Verbleibende API-Calls: '..left_calls
image_url = data.image_url
cb_extra = {
receiver=receiver,
url=image_url
}
send_msg(receiver, text, send_photo_from_url_callback, cb_extra)
end
end
function run(msg, matches)
scrot_url = matches[1]
local data = get_scrot_data(scrot_url)
local receiver = get_receiver(msg)
send_scrot_data(data, receiver)
end
return {
description = "Sendet Webseiten-Screenshot.",
usage = {"/scrot2 [URL]"},
patterns = {"^/scrot2 (https?://[%w-_%.%?%.:/%+=&]+)"},
run = run
}
end

29
plugins/pagespeed_insights.lua Normal file
View File

@ -0,0 +1,29 @@
-- 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://www.googleapis.com/pagespeedonline/v2'
function get_pagespeed (test_url)
local apikey = cred_data.google_apikey
local url = BASE_URL..'/runPagespeed?url='..test_url..'&key='..apikey..'&fields=id,ruleGroups(SPEED(score))'
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data.id..' hat einen PageSpeed-Score von '..data.ruleGroups.SPEED.score..' Punkten.'
end
function run(msg, matches)
local test_url = matches[1]
return get_pagespeed(test_url)
end
return {
description = "Sendet PageSpeed-Score.",
usage = "/speed [URL]: Sendet PageSpeed-Score dieser Seite",
patterns = {"^/speed (https?://[%w-_%.%?%.:/%+=&]+)"},
run = run
}
end

55
plugins/play_store.lua Normal file
View File

@ -0,0 +1,55 @@
-- 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://apps.p.mashape.com/google/application'
local function get_playstore_data (appid)
local apikey = cred_data.x_mashape_key
local url = BASE_URL..'/'..appid..'?mashape-key='..apikey
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).data
return data
end
local function send_playstore_data(data, receiver)
local title = data.title
local developer = data.developer.id
local category = data.category.name
local rating = data.rating.average
local installs = data.performance.installs
local description = data.description
if data.version == "Varies with device" then
appversion = "variiert je nach Gerät"
else
appversion = data.version
end
if data.price == 0 then
price = "Gratis"
else
price = data.price
end
local text = title..' von '..developer..' aus der Kategorie '..category..', durschnittlich bewertet mit '..rating..' Sternen.\n'..description..'\n'..installs..' Installationen, Version '..appversion
send_msg(receiver, text, ok_cb, false)
end
local function run(msg, matches)
local appid = matches[1]
local data = get_playstore_data(appid)
if data.title == nil then
return
else
local receiver = get_receiver(msg)
send_playstore_data(data, receiver)
end
end
return {
description = "Sendet Play Store Info.",
usage = {"play.google.com/store/apps/details Link"},
patterns = {"play.google.com/store/apps/details%?id=(.*)"},
run = run
}
end

131
plugins/plugins.lua
View File

@ -1,8 +1,8 @@
do do
-- Returns the key (index) in the config.enabled_plugins table -- Returns the key (index) in the config.enabled_plugins table
local function plugin_enabled( name ) local function plugin_enabled( name, chat )
for k,v in pairs(_config.enabled_plugins) do for k,v in pairs(enabled_plugins) do
if name == v then if name == v then
return k return k
end end
@ -27,7 +27,7 @@ local function list_plugins(only_enabled)
-- ✔ enabled, ❌ disabled -- ✔ enabled, ❌ disabled
local status = '❌' local status = '❌'
-- Check if is enabled -- Check if is enabled
for k2, v2 in pairs(_config.enabled_plugins) do for k2, v2 in pairs(enabled_plugins) do
if v == v2..'.lua' then if v == v2..'.lua' then
status = '✔' status = '✔'
end end
@ -41,83 +41,85 @@ local function list_plugins(only_enabled)
return text return text
end end
local function reload_plugins( ) local function reload_plugins(plugin_name, status)
plugins = {} plugins = {}
load_plugins() load_plugins()
return list_plugins(true) if plugin_name then
return 'Das Plugin "'..plugin_name..'" wurde '..status
else
return 'Plugins wurden neu geladen'
end
end end
local function enable_plugin( plugin_name ) local function enable_plugin( plugin_name )
print('Überprüfe ob "'..plugin_name..'" existiert') print('überprüfe ob "'..plugin_name..'" existiert')
-- Check if plugin is enabled -- Check if plugin is enabled
if plugin_enabled(plugin_name) then if plugin_enabled(plugin_name) then
return 'Plugin "'..plugin_name..'" ist aktiviert!' return 'Das Plugin "'..plugin_name..'" ist bereits aktiviert'
end end
-- Checks if plugin exists -- Checks if plugin exists
if plugin_exists(plugin_name) then if plugin_exists(plugin_name) then
-- Add to the config table -- Add to redis set
table.insert(_config.enabled_plugins, plugin_name) redis:sadd('telegram:enabled_plugins', plugin_name)
print(plugin_name..' zu to _config table hinzugefügt') print(plugin_name..' saved to redis set telegram:enabled_plugins')
save_config()
-- Reload the plugins -- Reload the plugins
return reload_plugins( ) return reload_plugins(plugin_name, 'aktiviert')
else else
return 'Das Plugin "'..plugin_name..'" existiert nicht!' return 'Plugin '..plugin_name..' existiert nicht'
end end
end end
local function disable_plugin( name, chat ) local function disable_plugin( name, chat )
-- Check if plugins exists -- Check if plugins exists
if not plugin_exists(name) then if not plugin_exists(name) then
return 'Das Plugin "'..plugin_name..'" existiert nicht!' return 'Das Plugin "'..name..'" existiert nicht'
end end
local k = plugin_enabled(name) local k = plugin_enabled(name)
-- Check if plugin is enabled -- Check if plugin is enabled
if not k then if not k then
return 'Das Plugin "'..name..'" ist nicht aktiviert!' return 'Plugin '..name..' ist nicht aktiviert'
end end
-- Disable and reload -- Disable and reload
table.remove(_config.enabled_plugins, k) redis:srem('telegram:enabled_plugins', name)
save_config( ) print(name..' saved to redis set telegram:enabled_plugins')
return reload_plugins(true) return reload_plugins(name, 'deaktiviert')
end end
local function disable_plugin_on_chat(receiver, plugin) local function disable_plugin_on_chat(msg, plugin)
if not plugin_exists(plugin) then if not plugin_exists(plugin) then
return "Dieses Plugin existiert nicht!" return "Dieses Plugin existiert nicht!"
end end
if not _config.disabled_plugin_on_chat then local hash = get_redis_hash(msg, 'disabled_plugins')
_config.disabled_plugin_on_chat = {} local disabled = redis:hget(hash, plugin)
if disabled ~= 'true' then
print('Setting '..plugin..' in redis hash '..hash..' to true')
redis:hset(hash, plugin, true)
return 'Das Plugin "'..plugin..'" wurde für diesen Chat deaktiviert.'
else
return 'Das Plugin "'..plugin..'" wurde für diesen Chat bereits deaktiviert.'
end end
if not _config.disabled_plugin_on_chat[receiver] then
_config.disabled_plugin_on_chat[receiver] = {}
end
_config.disabled_plugin_on_chat[receiver][plugin] = true
save_config()
return 'Das Plugin "'..plugin..'" ist hier nun deaktiviert!'
end end
local function reenable_plugin_on_chat(receiver, plugin) local function reenable_plugin_on_chat(msg, plugin)
if not _config.disabled_plugin_on_chat then if not plugin_exists(plugin) then
return 'Hier sind keine Plugins deaktiviert.' return "Dieses Plugin existiert nicht!"
end end
if not _config.disabled_plugin_on_chat[receiver] then local hash = get_redis_hash(msg, 'disabled_plugins')
return 'Hier sind keine Plugins deaktiviert.' local disabled = redis:hget(hash, plugin)
end
if not _config.disabled_plugin_on_chat[receiver][plugin] then if disabled == nil then return 'Es gibt keine deaktivierten Plugins für disen Chat.' end
return 'Dieses Plugin ist nicht deaktiviert!'
end
_config.disabled_plugin_on_chat[receiver][plugin] = false if disabled == 'true' then
save_config() print('Setting '..plugin..' in redis hash '..hash..' to false')
return 'Das Plugin "'..plugin..'" ist wieder aktiviert!' redis:hset(hash, plugin, false)
return 'Das Plugin "'..plugin..'" wurde für diesen Chat reaktiviert.'
else
return 'Das Plugin "'..plugin..'" ist nicht deaktiviert.'
end
end end
local function run(msg, matches) local function run(msg, matches)
@ -126,46 +128,61 @@ local function run(msg, matches)
return list_plugins() return list_plugins()
end end
-- Re-enable a plugin for this chat -- Reenable a plugin for this chat
if matches[1] == 'enable' and matches[3] == 'chat' then if matches[1] == 'enable' and matches[3] == 'chat' then
local receiver = get_receiver(msg)
local plugin = matches[2] local plugin = matches[2]
print('Aktiviere "'..plugin..'" in diesem Chat') print('Aktiviere "'..plugin..'" in diesem Chat')
return reenable_plugin_on_chat(receiver, plugin) return reenable_plugin_on_chat(msg, plugin)
end end
-- Enable a plugin -- Enable a plugin
if matches[1] == 'enable' then if matches[1] == 'enable' then
local plugin_name = matches[2] local plugin_name = matches[2]
print("A+: "..matches[2]) print('Aktiviere: "'..matches[2]..'"')
return enable_plugin(plugin_name) return enable_plugin(plugin_name)
end end
-- Disable a plugin on a chat -- Disable a plugin on a chat
if matches[1] == 'disable' and matches[3] == 'chat' then if matches[1] == 'disable' and matches[3] == 'chat' then
local plugin = matches[2] local plugin = matches[2]
local receiver = get_receiver(msg)
print('Deaktiviere "'..plugin..'" in diesem Chat') print('Deaktiviere "'..plugin..'" in diesem Chat')
return disable_plugin_on_chat(receiver, plugin) return disable_plugin_on_chat(msg, plugin)
end end
-- Disable a plugin -- Disable a plugin
if matches[1] == 'disable' then if matches[1] == 'disable' then
print("Deaktiviere: "..matches[2]) print('Deaktiviere: "'..matches[2]..'"')
return disable_plugin(matches[2]) return disable_plugin(matches[2])
end end
-- Reload all the plugins! -- Reload all the plugins!
if matches[1] == 'reload' then if matches[1] == 'reload' or '/reload' then
return reload_plugins(true) return reload_plugins()
end end
end end
return { return {
description = "Plugin Verwaltung", description = "Aktiviert, deaktiviert und lädt Plugins (nur Superuser)",
usage = { "Das kann nur Akamaru" }, usage = {
patterns = {"^/plugins$","^/plugins? (enable) ([%w_%.%-]+)$","^/plugins? (disable) ([%w_%.%-]+)$","^/plugins? (enable) ([%w_%.%-]+) (chat)","^/plugins? (disable) ([%w_%.%-]+) (chat)","^/plugins? (reload)$" }, "/plugins: Liste alle Plugins auf.",
"/plugins enable [plugin]: Aktiviert Plugin.",
"/plugins disable [plugin]: Deaktiviert Plugin.",
"/plugins enable [plugin] chat: Aktiviert Plugin in diesem Chat.",
"/plugins disable [plugin] chat: Deaktiviert Plugin in diesem Chat.",
"/plugins reload: Lädt alle Plugins neu (Alias: /reload)."
},
patterns = {
"^/plugins$",
"^/plugins? (enable) ([%w_%.%-]+)$",
"^/plugins? (disable) ([%w_%.%-]+)$",
"^/plugins? (enable) ([%w_%.%-]+) (chat)",
"^/plugins? (disable) ([%w_%.%-]+) (chat)",
"^/plugins? (reload)$",
"^/reload$"
},
run = run, run = run,
privileged = true privileged = true,
} notyping = true
end }
end

0
plugins/boersedown.lua → plugins/pluginsold/boersedown.lua
View File

49
plugins/pluginsold/get.lua Normal file
View File

@ -0,0 +1,49 @@
local function get_variables_hash(msg)
if msg.to.type == 'chat' then
return 'chat:'..msg.to.id..':variables'
end
if msg.to.type == 'user' then
return 'user:'..msg.from.id..':variables'
end
end
local function list_variables(msg)
local hash = get_variables_hash(msg)
if hash then
local names = redis:hkeys(hash)
local text = ''
for i=1, #names do
text = text..names[i]..'\n'
end
return text
end
end
local function get_value(msg, var_name)
local hash = get_variables_hash(msg)
if hash then
local value = redis:hget(hash, var_name)
if not value then
return'Not found, use "/get" to list variables'
else
return var_name..' => '..value
end
end
end
local function run(msg, matches)
if matches[2] then
return get_value(msg, matches[2])
else
return list_variables(msg)
end
end
return {
description = "Bekommt Variable, die mit /set gesetzt wurde",
usage = {"/get (Variable)"},
patterns = {"^/get (%a+)$","^/get$"},
run = run,
pre_process = lex
}

40
plugins/pluginsold/myanimelist.lua Normal file
View File

@ -0,0 +1,40 @@
function getAnime(query)
local number = 1 -- Set number of results
local api = "http://ajax.googleapis.com/ajax/services/search/web?v=1.0&safe=active&hl=de&rsz="..number.."&q=site%3Amyanimelist.net"
local parameters = "+".. (URL.escape(query) or "")
-- Do the request
local res, code = https.request(api..parameters)
if code ~=200 then return nil end
local data = json:decode(res)
local results={}
for key,result in ipairs(data.responseData.results) do
table.insert(results, {
result.titleNoFormatting,
result.unescapedUrl or result.url
})
end
return results
end
function stringlinks(results)
local stringresults=""
for key,val in ipairs(results) do
stringresults=stringresults..val[1].." - "..val[2].."\n"
end
return stringresults
end
function run(msg, matches)
local results = getAnime(matches[1])
return stringlinks(results)
end
return {
description = "",
usage = {"/myanimelist [Anime]","/mal [Anime]"},
patterns = {"^/myanimelist (.*)$","^/mal (.*)$"},
run = run
}
--Modified by Akamaru [https://ponywave.de]

65
plugins/pluginsold/quotes.lua Normal file
View File

@ -0,0 +1,65 @@
local quotes_file = './data/quotes.lua'
local quotes_table
function read_quotes_file()
local f = io.open(quotes_file, "r+")
if f == nil then
print ('Erstelle neue Zitat Datei '..quotes_file)
serialize_to_file({}, quotes_file)
else
print ('Zitate geladen: '..quotes_file)
f:close()
end
return loadfile (quotes_file)()
end
function save_quote(msg)
local to_id = tostring(msg.to.id)
if msg.text:sub(11):isempty() then
return "Verwendung: /addquote [Text]"
end
if quotes_table == nil then
quotes_table = {}
end
if quotes_table[to_id] == nil then
print ('Neuer quote key to_id: '..to_id)
quotes_table[to_id] = {}
end
local quotes = quotes_table[to_id]
quotes[#quotes+1] = msg.text:sub(11)
serialize_to_file(quotes_table, quotes_file)
return "Neues Zitat hinzugefügt!"
end
function get_quote(msg)
local to_id = tostring(msg.to.id)
local quotes_phrases
quotes_table = read_quotes_file()
quotes_phrases = quotes_table[to_id]
return quotes_phrases[math.random(1,#quotes_phrases)]
end
function run(msg, matches)
if string.match(msg.text, "/quote$") then
return get_quote(msg)
elseif string.match(msg.text, "/addquote (.+)$") then
quotes_table = read_quotes_file()
return save_quote(msg)
end
end
return {
description = "Speichert Zitate",
usage = {"/addquote [Text]","/quote",},
patterns = {"^/addquote (.+)$","^/quote$",},
run = run
}

30
plugins/pluginsold/set.lua Normal file
View File

@ -0,0 +1,30 @@
local _file_values = './data/values.lua'
local function save_value(chat, text )
var_name, var_value = string.match(text, "/set (%a+) (.+)")
if (var_name == nil or var_value == nil) then
return "Benutzung: /set var_name value"
end
if _values[chat] == nil then
_values[chat] = {}
end
_values[chat][var_name] = var_value
-- Save values to file
serialize_to_file(_values, _file_values)
return "Gespeichert: "..var_name.." = "..var_value
end
local function run(msg, matches)
local chat_id = tostring(msg.to.id)
local text = save_value(chat_id, msg.text)
return text
end
return {
description = "Setze Variable",
usage = {"/set [Variablenname] [Daten]"},
patterns = {"^/set (%a+) (.+)$"},
run = run
}

52
plugins/ponyfaces.lua Normal file
View File

@ -0,0 +1,52 @@
-- 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 = 'http://ponyfac.es/api.json'
local function get_ponyface(tag)
local url = BASE_URL..'/tag:'..tag
local b,c = http.request(url)
if c ~= 200 then return nil end
local pf = json:decode(b).faces
-- truly randomize
math.randomseed(os.time())
-- random max json table size
local i = math.random(#pf)
local link_image = pf[i].image
return link_image
end
local function get_ponyface_by_id(id)
local url = BASE_URL..'/id:'..id
local res,code = http.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data.faces[1].image
end
local function run(msg, matches)
if tonumber(matches[1]) ~= nil then
local id = matches[1]
url = get_ponyface_by_id(id)
else
local tag = matches[1]
url = get_ponyface(tag)
end
local receiver = get_receiver(msg)
if url == "HTTP-FEHLER" then
return "Kein Ponyface gefunden :("
else
send_photo_from_url(receiver, url)
end
end
return {
description = "Sendet zufälliges Ponyface",
usage = "/ponyface [Tags]","/pf [Tags]",
patterns = {"^/ponyface (.*)$","^/pf (.*)$","ponyfac.es/(%d+[%d%.]*)"},
run = run
}
end

31
plugins/ponywave_img.lua Normal file
View File

@ -0,0 +1,31 @@
do
local function get_ponywave(part)
local url = 'http://img.ponywave.de/'..part..'.html'
local res,code = http.request(url)
if code ~= 200 then return "Fehler beim Abrufen von img.ponywave.de" end
local url = string.match(res, "id=\"codedirect\" value%=\"(.-)\" onclick")
return url
end
local function run(msg, matches)
local receiver = get_receiver(msg)
local part = matches[1]
local url = get_ponywave(part)
if string.ends(url, ".gif") then
send_document_from_url(receiver, url)
else
send_photo_from_url(receiver, url)
end
end
return {
description = "Mirrored Bild bei Link auf Preview-Seite von img.ponywave.de",
usage = "Preview-Link von img.ponywave.de",
patterns = {
"https?://img.ponywave.de/(.*).html"
},
run = run
}
end

15
plugins/porndoge.lua Normal file
View File

@ -0,0 +1,15 @@
function run(msg, matches)
local receiver = get_receiver(msg)
local url = 'https://porndoge.herokuapp.com/'
local file = download_to_file(url)
local cb_extra = {file_path=file}
send_photo(receiver, file, ok_cb, false)
end
return {
description = "",
usage = {""},
patterns = {"^/pdoge$"},
run = run
}
--by Akamaru [https://ponywave.de]

19
plugins/pornhub_gif.lua Normal file
View File

@ -0,0 +1,19 @@
local function run(msg, matches)
local receiver = get_receiver(msg)
local url = 'http://img.pornhub.com/gif/'..matches[1]..'.gif'
print("GIF URL: "..url)
send_document_from_url(receiver, url)
if string.starts(msg.text, '/phg') or string.starts(msg.text, '/porngif') then
return 'Source: http://www.pornhub.com/gif/'..matches[1]
else
return
end
end
return {
description = "Sendet GIFs von Pornhub.com",
usage = {"pornhub.com URL","/porngif [ID]","/phg [ID]"},
patterns = {"pornhub.com/gif/(.*)$","^/phg (.*)$","^/porngif (.*)$"},
run = run
}
--by Akamaru [https://ponywave.de]

43
plugins/pr0gramm.lua Normal file
View File

@ -0,0 +1,43 @@
function is_pr0_url(msg)
local url = split_by_space(msg.text)[1]
print(url)
if string.starts(url, "http://pr0gramm.com/") or string.starts(url, "http://www.pr0gramm.com/") then
return true
else
return false
end
end
if string.starts(msg.text, 'http://') or string.starts(msg.text, 'https://') then
if is_pr0_url(msg) then
local url = split_by_space(msg.text)[1]
local splited = split(url, "[\\/]+")
for a,x in pairs(splited) do
pr0_id = x
end
r, c, h = http.request("http://pr0gramm.com/api/items/get.json?id="..pr0_id)
local jsondata = json.decode(r)
local items = jsondata["items"]
for a, x in pairs(items) do
if tonumber(x["id"]) == tonumber(pr0_id) then
item = x
end
end
thumburl = item["thumb"]
local thumburlsplit = split(thumburl, "[\\/]+")
for a, x in pairs(thumburlsplit) do
thumbname = x
end
local file = "/tmp/"..thumbname
sh = "curl --insecure -o '"..file.."' ".."http://img.pr0gramm.com/"..thumburl
run_bash(sh)
send_photo(get_receiver(msg), file, ok_cb, false)
end
end
return {
description = "",
usage = {""},
patterns = {"https?://pr0gramm.com/"},
run = run
}

102
plugins/quotes.lua
View File

@ -1,65 +1,75 @@
local quotes_file = './data/quotes.lua' do
local quotes_table
function read_quotes_file()
local f = io.open(quotes_file, "r+")
if f == nil then
print ('Erstelle neue Zitat Datei '..quotes_file)
serialize_to_file({}, quotes_file)
else
print ('Zitate geladen: '..quotes_file)
f:close()
end
return loadfile (quotes_file)()
end
function save_quote(msg)
local to_id = tostring(msg.to.id)
local function save_quote(msg)
if msg.text:sub(11):isempty() then if msg.text:sub(11):isempty() then
return "Verwendung: /addquote [Text]" return "Benutzung: !addquote [Zitat]"
end end
if quotes_table == nil then local quote = msg.text:sub(11)
quotes_table = {} local hash = get_redis_hash(msg, 'quotes')
end print('Saving quote to redis set '..hash)
redis:sadd(hash, quote)
if quotes_table[to_id] == nil then return 'Gespeichert: "'..quote..'"'
print ('Neuer quote key to_id: '..to_id)
quotes_table[to_id] = {}
end
local quotes = quotes_table[to_id]
quotes[#quotes+1] = msg.text:sub(11)
serialize_to_file(quotes_table, quotes_file)
return "Neues Zitat hinzugefügt!"
end end
function get_quote(msg) local function delete_quote(msg)
if msg.text:sub(11):isempty() then
return "Benutzung: !delquote [Zitat]"
end
local quote = msg.text:sub(11)
local hash = get_redis_hash(msg, 'quotes')
print('Deleting quote from redis set '..hash)
if redis:sismember(hash, quote) == true then
redis:srem(hash, quote)
return 'Zitat erfolgreich gelöscht!'
else
return 'Dieses Zitat existiert nicht.'
end
end
local function get_quote(msg)
local to_id = tostring(msg.to.id) local to_id = tostring(msg.to.id)
local quotes_phrases local hash = get_redis_hash(msg, 'quotes')
quotes_table = read_quotes_file() if hash then
quotes_phrases = quotes_table[to_id] print('Getting quote from redis set '..hash)
quotes_table = redis:smembers(hash)
return quotes_phrases[math.random(1,#quotes_phrases)] if not quotes_table[1] then
return 'Es wurden noch keine Zitate gespeichert.\nSpeichere doch welche mit !addquote [Zitat]'
else
return quotes_table[math.random(1,#quotes_table)]
end
end
end end
function run(msg, matches) local function run(msg, matches)
if string.match(msg.text, "/quote$") then if string.match(msg.text, "/quote$") then
return get_quote(msg) return get_quote(msg)
elseif string.match(msg.text, "/addquote (.+)$") then elseif matches[1] == "addquote" then
quotes_table = read_quotes_file()
return save_quote(msg) return save_quote(msg)
elseif matches[1] == "delquote" then
if not is_sudo(msg) then
return "Du bist kein Superuser. Dieser Vorfall wird gemeldet."
else
return delete_quote(msg)
end
end end
end end
return { return {
description = "Speichert Zitate", description = "Zitate speichern, löschen und abrufen.",
usage = {"/addquote [Text]","/quote",}, usage = {
patterns = {"^/addquote (.+)$","^/quote$",}, "/addquote [Zitat]: Fügt Zitat hinzu.",
"/quote: Gibt zufälliges Zitat aus.",
"/delquote [Zitat]: Löscht das Zitat (nur Superuser)"
},
patterns = {
"^/(delquote) (.+)$",
"^/(addquote) (.+)$",
"^/quote$"
},
run = run run = run
} }
end

18
plugins/rechner.lua
View File

@ -1,18 +1,19 @@
-- Function reference: http://mathjs.org/docs/reference/functions/categorical.html -- Function reference: http://mathjs.org/docs/reference/functions/categorical.html
local function mathjs(exp) local function mathjs(exp)
local exp = string.gsub(exp, "%,", "%.")
local url = 'http://api.mathjs.org/v1/' local url = 'http://api.mathjs.org/v1/'
url = url..'?expr='..URL.escape(exp) url = url..'?expr='..URL.escape(exp)
local b,c = http.request(url) local b,c = http.request(url)
local text = nil local text = nil
if c == 200 then if c == 200 then
text = 'Das Ergebnis ist '..b text = 'Ergebnis: '..string.gsub(b, "%.", "%,")
elseif c == 400 then elseif c == 400 then
text = b text = b
else else
text = 'Unexpected error\n' text = 'Unerwarteter Fehler\n'
..'Is api.mathjs.org up?' ..'Ist api.mathjs.org erreichbar?'
end end
return text return text
end end
@ -22,8 +23,13 @@ local function run(msg, matches)
end end
return { return {
description = "Ein simpler Taschenrechner", description = "Rechnen mit der mathjs-API",
usage = {"/calc [Rechnung]"}, usage = {
patterns = {"^/calc (.*)$"}, "/calc [Ausdruck]: Rechnet",
"Weitere Hilfe: + = Plus, - = Minus, * = Mal, / = geteilt"
},
patterns = {
"^/calc (.*)$"
},
run = run run = run
} }

42
plugins/reddit.lua Normal file
View File

@ -0,0 +1,42 @@
-- 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://www.reddit.com'
function get_reddit_data (subreddit, reddit_code)
local url = BASE_URL..'/r/'..subreddit..'/comments/'..reddit_code..'.json'
local res,code = https.request(url)
if code ~= 200 then return "HTTP FEHLER" end
local data = json:decode(res)
return data
end
function send_reddit_data(data, receiver)
local title = data[1].data.children[1].data.title
local author = data[1].data.children[1].data.author
local subreddit = data[1].data.children[1].data.subreddit
local selftext = string.sub(unescape(data[1].data.children[1].data.selftext:gsub("%b<>", "")), 1, 300) .. '...'
local score = comma_value(data[1].data.children[1].data.score)
local comments = comma_value(data[1].data.children[1].data.num_comments)
local text = author..' in /r/'..subreddit..' ('..score..' Upvotes - '..comments..' Kommentare):\n'..title..'\n'..selftext
send_msg(receiver, text, ok_cb, false)
end
function run(msg, matches)
local subreddit = matches[1]
local reddit_code = matches[2]
local data = get_reddit_data(subreddit, reddit_code)
local receiver = get_receiver(msg)
send_reddit_data(data, receiver)
end
return {
description = "Gibt Reddit-Post aus.",
usage = "URL zu Reddit-Post.",
patterns = {"reddit.com/r/([A-Za-z0-9-/-_-.]+)/comments/([A-Za-z0-9-/-_-.]+)"},
run = run
}
end

3
plugins/reload.lua
View File

@ -9,5 +9,6 @@ return {
usage = {"/reload (kann nur Akamaru)"}, usage = {"/reload (kann nur Akamaru)"},
patterns = {"^/reload$"}, patterns = {"^/reload$"},
run = run, run = run,
privileged = true privileged = true,
notyping = true
} }

39
plugins/rss.lua
View File

@ -2,20 +2,28 @@ feedparser = (loadfile "./libs/feedparser.lua")()
local function unescape_for_rss(str) local function unescape_for_rss(str)
-- Character encoding -- Character encoding
str = string.gsub(str, "&#124;", "|") str = string.gsub(str, "&acute;", "´")
str = string.gsub(str, "&#8249;", "‹")
str = string.gsub(str, "&lt;", "<")
str = string.gsub(str, "&gt;", ">") str = string.gsub(str, "&gt;", ">")
str = string.gsub(str, "&#39;", "'") str = string.gsub(str, "&lt;", "<")
str = string.gsub(str, "&#8217;", "'") str = string.gsub(str, "&mdash;", "—")
str = string.gsub(str, "&nabla;", "∇")
str = string.gsub(str, "&ndash;", "–") str = string.gsub(str, "&ndash;", "–")
str = string.gsub(str, "&Psi;", "ψ")
str = string.gsub(str, "&psi;", "ψ")
str = string.gsub(str, "&raquo;", "»") str = string.gsub(str, "&raquo;", "»")
str = string.gsub(str, "&szlig;", "ß")
str = string.gsub(str, "&#39;", "'")
str = string.gsub(str, "&#124;", "|")
str = string.gsub(str, "&#160;", " ")
str = string.gsub(str, "&#187;", "»") str = string.gsub(str, "&#187;", "»")
str = string.gsub(str, "&#223;", "ß")
str = string.gsub(str, "&#8211;", "–") str = string.gsub(str, "&#8211;", "–")
str = string.gsub(str, "&#8217;", "'")
str = string.gsub(str, "&#8220;", "“") str = string.gsub(str, "&#8220;", "“")
str = string.gsub(str, "&#8221;", "”") str = string.gsub(str, "&#8221;", "”")
str = string.gsub(str, "&#8222;", "")
str = string.gsub(str, "&#8249;", "‹")
str = string.gsub(str, "&#8364;", "€") str = string.gsub(str, "&#8364;", "€")
str = string.gsub(str, "&#223;", "ß")
-- Ä Ö Ü -- Ä Ö Ü
str = string.gsub(str, "&auml;", "ä") str = string.gsub(str, "&auml;", "ä")
@ -30,7 +38,7 @@ local function unescape_for_rss(str)
str = string.gsub(str, "&Uuml;", "Ü") str = string.gsub(str, "&Uuml;", "Ü")
str = string.gsub(str, "&#252;", "ü") str = string.gsub(str, "&#252;", "ü")
str = string.gsub(str, "&#220;", "Ü") str = string.gsub(str, "&#220;", "Ü")
-- str = string.gsub( str, '&#(%d+);', function(n) return string.char(n) end ) <- There is a bug, but I don't know!?
str = string.gsub( str, '&#x(%d+);', function(n) return string.char(tonumber(n,16)) end ) str = string.gsub( str, '&#x(%d+);', function(n) return string.char(tonumber(n,16)) end )
str = string.gsub( str, '&amp;', '&' ) -- Be sure to do this after all others str = string.gsub( str, '&amp;', '&' ) -- Be sure to do this after all others
return str return str
@ -161,7 +169,7 @@ local function cron()
local keys = redis:keys(get_base_redis("*", "subs")) local keys = redis:keys(get_base_redis("*", "subs"))
for k,v in pairs(keys) do for k,v in pairs(keys) do
local base = string.match(v, "rss:(.+):subs") -- Get the URL base local base = string.match(v, "rss:(.+):subs") -- Get the URL base
--print('Checke RSS: '..base) print('Checke RSS: '..base)
local prot = redis:get(get_base_redis(base, "protocol")) local prot = redis:get(get_base_redis(base, "protocol"))
local last = redis:get(get_base_redis(base, "last_entry")) local last = redis:get(get_base_redis(base, "last_entry"))
local url = prot .. "://" .. base local url = prot .. "://" .. base
@ -182,7 +190,7 @@ local function cron()
else else
content = '' content = ''
end end
text = text .. '[RSS] '.. title .. '\n'..content..'\n\n(' .. link .. ')\n\n' text = text .. '[RSS] '.. title .. '\n'..content..'\n\n' .. link .. '\n\n'
end end
if text ~= '' then if text ~= '' then
local newlast = newentr[1].id local newlast = newentr[1].id
@ -219,11 +227,11 @@ end
return { return {
description = "RSS-Feed Reader", description = "RSS-Feed Reader",
usage = { usage = {"RSS Befehle kann nur Sudo\n",
"/rss: Feed-Abos anzeigen", "/rss (Feed-Abos anzeigen)",
"/rss add (url): Diesen Feed abonnieren", "/rss add [URL] (Diesen Feed abonnieren)",
"/rss remove (id): Diesen Feed deabonnieren", "/rss remove [NR] (Diesen Feed deabonnieren)",
"/rss sync: Feeds aktualisieren" "/rss sync (Feeds aktualisieren)"
}, },
patterns = { patterns = {
"^/rss$", "^/rss$",
@ -233,5 +241,6 @@ return {
}, },
run = run, run = run,
cron = cron, cron = cron,
privileged = true privileged = true,
notyping = true
} }

84
plugins/rss_old.lua Normal file
View File

@ -0,0 +1,84 @@
-- This is a proprietary plugin, property of Andreas Bielawski, (c) 2015 <andi (dot) b (at) outlook (dot) de>
-- DO NOT USE WITHOUT PERMISSION
-- DIES IST EINE PREVIEW!
-- Ok Leute, ich zeig euch mal, wie der Hase läuft:
-- 1. Erstelle die Datei data/feeds.lua
-- 2. Paste das rein: https://wiidatabase.de/paste/?0772d759b7b49773#7ubf6C8IP78JoafaPK/XrnhhL03cvDgIUCQULTQNYIs=
-- 3. Du kannst mehr Feeds hinzufügen - mehr Feeds gehen mehr auf die Perfomance und können schnell nerven, also vorsicht! Ich empfehle 2-3
-- (die Feeds und Feednamen kannst du natürlich beliebig verändern, vergiss nicht, dass das Komma hinter dem letzten Feed weg muss!)
-- 4. Erstelle die Datei data/feeddata.lua
-- 5. Paste das rein: https://wiidatabase.de/paste/?87e36c6a5e2ae337#SGE2KLMJL1+oJ8gmLhHav4WxMqU1gYvIyWZxXJQHg7k=
-- 6. Ersetze die Variablen ("wiidatabase", "heise") durch deine Variablen aus der feeds.lua. Zwischen den '' sollte nichts stehen
-- 7. Ändere hier deine IP und die chat#id
-- 8. Starte den Bot, er holt sich die Feeds und schreibt deine feeddata.lua neu
do
local socket = require('socket')
local _file_feeddata = './data/feeddata.lua'
function get_feed_data(feed_url)
-- You don't need any IP, but Google won't block you, if you provide one!
local userip = '84.144.215.197' -- plz change to your IP or leave blank
local url = 'https://ajax.googleapis.com/ajax/services/feed/load?v=1.0&q='..feed_url..'&hl=de&num=1&userip='..userip
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).responseData.feed
return data
end
function unescape(str)
str = string.gsub( str, '&lt;', '<' )
str = string.gsub( str, '&gt;', '>' )
str = string.gsub( str, '&quot;', '"' )
str = string.gsub( str, '&apos;', "'" )
str = string.gsub( str, '&#(%d+);', function(n) return string.char(n) end )
str = string.gsub( str, '&#x(%d+);', function(n) return string.char(tonumber(n,16)) end )
str = string.gsub( str, '&amp;', '&' ) -- Be sure to do this after all others
return str
end
function check_feed(msg, matches)
local dest = "chat#id9587278" -- Plz change this, you can find your group id with "chat_info GROUP_NAME"
local _file_rss = loadfile ("./data/feeddata.lua")()
local _file_feeds = loadfile ("./data/feeds.lua")()
feeddata = io.open(_file_feeddata, "w")
feeddata:write("do local _ = {\n")
-- loop through feeds.lua
for int_feedname, feed_url in pairs(_file_feeds) do
local data = get_feed_data(feed_url)
print(data.title)
print('Erhalten: '..data.entries[1].link)
print('Gespeichert: '.._file_rss[int_feedname]..'\n')
if data.entries[1].link ~= _file_rss[int_feedname] then
local link = data.entries[1].link
local feed_title = data.title
local title = data.entries[1].title
local content = string.sub(unescape(data.entries[1].content:gsub("%b<>", "")), 1, 250) .. '...'
local text = title..'\n'..content..'\n\n -- '..link..' ('..feed_title..')'
send_msg(dest, text, ok_cb, false)
feeddata:write(" "..int_feedname.." = '"..link.."',\n")
else
-- //TODO: find a better way to rewrite lua when the feed is not updated
feeddata:write(" "..int_feedname.." = '"..data.entries[1].link.."',\n") -- ew, I hate this workaround
end
end
feeddata:write(" Ende = Ende\n") -- Dirty hack, remember me to not show this to anybody
feeddata:write("}\nreturn _\nend")
feeddata:close()
end
return {
description = "Sendet RSS-Feeds (public preview)",
usage = "",
patterns = {},
run = run,
cron = check_feed
}
end

36
plugins/safebrowsing.lua Normal file
View File

@ -0,0 +1,36 @@
-- 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://sb-ssl.google.com/safebrowsing/api'
local function check_malware (check_url, receiver)
local apikey = cred_data.google_apikey
local url = BASE_URL..'/lookup?client=brawlbot&key='..apikey..'&appver='..VERSION..'&pver=3.1&url='..check_url
local res,code = https.request(url)
if code > 204 then return send_msg(receiver, 'â<EFBFBD>“ Fehler '..code, ok_cb, false) end
if res == "" then
send_msg(receiver, '✅', ok_cb, false)
else
send_msg(receiver, '🚫', ok_cb, false)
end
end
local function run(msg, matches)
local check_url = URL.escape(matches[1])
local receiver = get_receiver(msg)
check_malware(check_url, receiver)
end
return {
description = "Sendet URL an Safebrowsing-Service und prüft auf Malware.",
usage = "!safe [URL]: Prüft URL mit Google Safebrowsing auf Malware",
patterns = {
"^/safe (https?://[%w-_%.%?%.:,/%+=&-@]+)$",
"^/safe ([%w-_%.%?%.:,/%+=&-@]+)$"
},
run = run
}
end

58
plugins/set.lua
View File

@ -1,30 +1,52 @@
local _file_values = './data/values.lua' local function save_value(msg, name, value)
if (not name or not value) then
local function save_value(chat, text ) return "Benutzung: !set Variable Wert"
var_name, var_value = string.match(text, "/set (%a+) (.+)")
if (var_name == nil or var_value == nil) then
return "Benutzung: /set var_name value"
end end
if _values[chat] == nil then
_values[chat] = {} local hash = get_redis_hash(msg, 'variables')
if hash then
print('Saving variable to redis hash '..hash)
redis:hset(hash, name, value)
return "Gespeichert: "..name.." = "..value
end end
_values[chat][var_name] = var_value end
-- Save values to file local function delete_value(msg, name, value)
serialize_to_file(_values, _file_values) if msg.to.type == 'chat' then
hash = 'chat:'..msg.to.id..':variables'
return "Gespeichert: "..var_name.." = "..var_value end
if msg.to.type == 'user' then
hash = 'user:'..msg.from.id..':variables'
end
if redis:hexists(hash, name) == true then
print('Deleting variable from redis hash '..hash)
redis:hdel(hash, name, value)
return 'Variable "'..name..'" erfolgreich gelöscht!'
else
return 'Du kannst keine Variable löschen, die nicht existiert .-.'
end
end end
local function run(msg, matches) local function run(msg, matches)
local chat_id = tostring(msg.to.id) local name = string.sub(matches[1], 1, 50)
local text = save_value(chat_id, msg.text) local value = string.sub(matches[2], 1, 1000)
if value == "nil" then
text = delete_value(msg, name, value)
else
text = save_value(msg, name, value)
end
return text return text
end end
return { return {
description = "Setze Variable", description = "Setzt Variablen, nutze !get zum Abrufen.",
usage = {"/set [Variablenname] [Daten]"}, usage = {
patterns = {"^/set (%a+) (.+)$"}, "/set [Variable] [Wert]: Speichert eine Variable mit einem Wert.",
"/set (Variable) nil: Löscht Variable"
},
patterns = {
"^/set ([^%s]+) (.+)$"
},
run = run run = run
} }

31
plugins/soundboard.lua Normal file
View File

@ -0,0 +1,31 @@
do
local function run(msg, matches)
local receiver = get_receiver(msg)
local url = "http://code.ponywave.de/workspace/mikubot/sounds/"..matches[1]..".mp3"
local file = download_to_file(url)
local cb_extra = {file_path=file}
if string.match(msg.text, "[Ll][Ii][Ss][Tt][Ee]") then
return 'Eine Liste aller Sounds findet ihr hier: https://ponywave.de/a/sounds'
end
if not file then
return "Nichts gefunden!"
else
print('Sende Datei')
send_document(receiver, file, rmtmp_cb, cb_extra)
end
end
return {
description = "Sound Bar",
usage = {"/sound [Name]"},
patterns = {
"^/sound (.*)$"
},
run = run
}
end

53
plugins/soundcloud.lua Normal file
View File

@ -0,0 +1,53 @@
-- 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 = 'http://api.soundcloud.com/resolve.json'
function get_soundcloud_data (sc_url)
local client_id = cred_data.soundcloud_client_id
local url = BASE_URL..'?url=http://soundcloud.com/'..sc_url..'&client_id='..client_id
local res,code = http.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
function send_soundcloud_data(data, receiver)
local title = data.title
local description = data.description
local user = data.user.username
local user = 'Unbekannt'
local genre = data.genre
local playback_count = data.playback_count
milliseconds = data.duration
-- convert ms to mm:ss
totalseconds = math.floor(milliseconds / 1000)
milliseconds = milliseconds % 1000
seconds = totalseconds % 60
minutes = math.floor(totalseconds / 60)
hours = math.floor(minutes / 60)
minutes = minutes % 60
local duration = string.format("%02d:%02d", minutes, seconds)
local text = '"'..title..'" von "'..user..'"\n(Tag: '..genre..', '..duration..' Minuten; '..playback_count..' mal angehört)\n'..description
send_msg(receiver, text, ok_cb, false)
end
function run(msg, matches)
local sc_url = matches[1]
local data = get_soundcloud_data(sc_url)
local receiver = get_receiver(msg)
send_soundcloud_data(data, receiver)
end
return {
description = "Sendet Soundcloud-Info.",
usage = "Link zu SoundCloud-Track",
patterns = {"soundcloud.com/([A-Za-z0-9-/-_-.]+)"},
run = run
}
end

81
plugins/special.lua
View File

@ -9,22 +9,29 @@ end
function run(msg, matches) function run(msg, matches)
local user_name = get_name(msg) local user_name = get_name(msg)
if string.match(msg.text, "^[Rr][Ii][Cc][Hh] [Bb][Ii][Tt][Cc][Hh]$") then if string.match(msg.text, "[Rr][Ii][Cc][Hh] [Bb][Ii][Tt][Cc][Hh]") then
return 'Akamaru ist nicht reich!' return 'Akamaru ist nicht reich!'
elseif string.match(msg.text, "^#[Oo][Ll][Dd]$") then
elseif string.match(msg.text, "[Oo][Ll][Dd]") then
return 'Deine Mudda is old!' return 'Deine Mudda is old!'
elseif string.match(msg.text, "^[Nn][Yy][Uu]$") then
elseif string.match(msg.text, "[Nn][Yy][Uu]") then
send_photo(get_receiver(msg), "pictures/nyu.jpg", ok_cb, false) send_photo(get_receiver(msg), "pictures/nyu.jpg", ok_cb, false)
elseif string.match(msg.text, "^[Nn][Oo][Pp][Ee].[Aa][Vv][Ii]$") then
elseif string.match(msg.text, "[Nn][Oo][Pp][Ee].[Aa][Vv][Ii]") then
send_video(get_receiver(msg), "videos/nope.avi", ok_cb, false) send_video(get_receiver(msg), "videos/nope.avi", ok_cb, false)
return 'Video wird gesendet...' return 'Video wird gesendet...'
elseif string.match(msg.text, "^[Nn][Ii][Ii][Ss][Aa][Nn]$") or string.match(msg.text, "^[Nn][Ii][Ii](-)[Ss][Aa][Nn]$") or string.match(msg.text, "^[Nn][Ii][Ss][Ss][Aa][Nn]$") then
elseif string.match(msg.text, "[Nn][Ii][Ii][Ss][Aa][Nn]") or string.match(msg.text, "[Nn][Ii][Ii](-)[Ss][Aa][Nn]") or string.match(msg.text, "[Nn][Ii][Ss][Ss][Aa][Nn]") then
send_photo(get_receiver(msg), "pictures/Nii-san.jpg", ok_cb, false) send_photo(get_receiver(msg), "pictures/Nii-san.jpg", ok_cb, false)
elseif string.match(msg.text, "^/[Nn][Ee][Oo][Rr][Aa][Mm][Ee]$") then
elseif string.match(msg.text, "[Nn][Ee][Oo][Rr][Aa][Mm][Ee]") then
send_photo(get_receiver(msg), "pictures/neorame.jpg", ok_cb, false) send_photo(get_receiver(msg), "pictures/neorame.jpg", ok_cb, false)
elseif string.match(msg.text, "^/[Nn][Aa][Uu]$") then
elseif string.match(msg.text, "[Nn][Aa][Uu]") then
send_photo(get_receiver(msg), "pictures/nau.jpg", ok_cb, false) send_photo(get_receiver(msg), "pictures/nau.jpg", ok_cb, false)
elseif string.match(msg.text, "^/[Ff][Tt][Tt]$") then
elseif string.match(msg.text, "[Ff][Tt][Tt]") then
return [[(╯°□°)╯︵ ┻━┻ FLIP THAT TABLE. return [[(╯°□°)╯︵ ┻━┻ FLIP THAT TABLE.
┻━┻ ︵ ヽ(°□°ヽ) FLIP THIS TABLE. ┻━┻ ︵ ヽ(°□°ヽ) FLIP THIS TABLE.
┻━┻ ︵ ＼(`0`)/ ︵ ┻━┻ FLIP ALL THE TABLES ┻━┻ ︵ ＼(`0`)/ ︵ ┻━┻ FLIP ALL THE TABLES
@ -34,7 +41,8 @@ function run(msg, matches)
ಠ___ಠ Back. ಠ___ಠ Back.
(╮°-°)╮┳━┳ (╮°-°)╮┳━┳
(╯°□°)╯︵ ┻━┻ NEVER]] (╯°□°)╯︵ ┻━┻ NEVER]]
elseif string.match(msg.text, "^/[Ff][Tt][Ff]$") then
elseif string.match(msg.text, "[Ff][Tt][Ff]") then
return [[(╯┳┳)╯︵ ಠ‾ಠ FLIP THAT FATHER. return [[(╯┳┳)╯︵ ಠ‾ಠ FLIP THAT FATHER.
ಠ‾ಠ ︵ ヽ(┳┳ヽ) FLIP THIS FATHER. ಠ‾ಠ ︵ ヽ(┳┳ヽ) FLIP THIS FATHER.
ಠ‾ಠ ︵ ＼(┳┳)/ ︵ ಠ‾ಠ FLIP ALL THE FATHERS ಠ‾ಠ ︵ ＼(┳┳)/ ︵ ಠ‾ಠ FLIP ALL THE FATHERS
@ -44,29 +52,41 @@ function run(msg, matches)
┳━━━┳ Back. ┳━━━┳ Back.
(╮┳┳)╮ಠ_ಠ (╮┳┳)╮ಠ_ಠ
(╯┳┳)╯︵ ಠ‾ಠ NEVER]] (╯┳┳)╯︵ ಠ‾ಠ NEVER]]
elseif string.match(msg.text, "^/[Nn][Bb][Cc]$") or string.match(msg.text, "^/[Ii][Dd][Cc]$") then
elseif string.match(msg.text, "[Nn][Bb][Cc]") or string.match(msg.text, "[Ii][Dd][Cc]") then
return [[¯\_(ツ)_/¯]] return [[¯\_(ツ)_/¯]]
elseif string.match(msg.text, "^/[Ll][Ff]$") then
elseif string.match(msg.text, "[Ll][Ff]") then
return '( ͡° ͜ʖ ͡°)' return '( ͡° ͜ʖ ͡°)'
elseif string.match(msg.text, "^/[Ll][Oo][Dd]$") then
elseif string.match(msg.text, "[Ll][Oo][Dd]") then
return 'ಠ_ಠ' return 'ಠ_ಠ'
elseif string.match(msg.text, "^[Mm]ö[Pp]$") or string.match(msg.text, "^[Mm][Ee][Ee][Pp]$") then
elseif string.match(msg.text, "[Mm]ö[Pp]") or string.match(msg.text, "[Mm][Ee][Ee][Pp]") then
return 'se' return 'se'
elseif string.match(msg.text, "^/[Ff][Rr][Oo][Ss][Cc][Hh]$") then
elseif string.match(msg.text, "[Ff][Rr][Oo][Ss][Cc][Hh]") then
return '🐸🐸🐸' return '🐸🐸🐸'
elseif string.match(msg.text, "^/[Bb][Aa][Rr][Uu][Ss][Aa][Mm][Ii][Kk][Oo][Ss][Uu]$") or string.match(msg.text, "^/[Bb][Aa][Ll][Ss][Aa][Mm][Ii][Kk][Oo] [Ee][Ss][Ss][Ii][Gg]$") then
elseif string.match(msg.text, "[Bb][Aa][Rr][Uu][Ss][Aa][Mm][Ii][Kk][Oo][Ss][Uu]") or string.match(msg.text, "[Bb][Aa][Ll][Ss][Aa][Mm][Ii][Kk][Oo] [Ee][Ss][Ss][Ii][Gg]") then
send_photo(get_receiver(msg), "pictures/luckystar/barusamikosu.jpg", ok_cb, false) send_photo(get_receiver(msg), "pictures/luckystar/barusamikosu.jpg", ok_cb, false)
elseif string.match(msg.text, "^[Bb][Aa][Kk][Aa] [Bb][Oo][Tt]$") then
elseif string.match(msg.text, "[Bb][Aa][Kk][Aa] [Bb][Oo][Tt]") then
return "Gomen'nasai "..user_name.."-sempai 😣" return "Gomen'nasai "..user_name.."-sempai 😣"
elseif string.match(msg.text, "^[Aa][Hh][Aa].[Pp][Nn][Gg]$") then
elseif string.match(msg.text, "[Aa][Hh][Aa].[Pp][Nn][Gg]") then
send_photo(get_receiver(msg), "pictures/aha.png", ok_cb, false) send_photo(get_receiver(msg), "pictures/aha.png", ok_cb, false)
elseif string.match(msg.text, "^~?[Pp][Oo][Ii]$") then
send_photo(get_receiver(msg), "pictures/poi.jpg", ok_cb, false) elseif string.match(msg.text, "[Pp][Oo][Ii]") then
elseif string.match(msg.text, "^/[Tt][Hh][Yy][Mm][Ee]$") then send_document(get_receiver(msg), "sticker/poi.webp", ok_cb, false)
elseif string.match(msg.text, "[Tt][Hh][Yy][Mm][Ee]") then
send_photo(get_receiver(msg), "pictures/thyme.jpg", ok_cb, false) send_photo(get_receiver(msg), "pictures/thyme.jpg", ok_cb, false)
elseif string.match(msg.text, "^[Yy][Oo][Ll][Oo]$") then
elseif string.match(msg.text, "[Yy][Oo][Ll][Oo]") then
return 'Hä YOLO?' return 'Hä YOLO?'
elseif string.match(msg.text, "^/[Kk][Aa][Pp][Pp][Aa]$") then
elseif string.match(msg.text, "[Kk][Aa][Pp][Pp][Aa]") then
return [[⠀⠀⠀⠀⣀⣀⣬⣥⣽⣿⣧⣤⢀⠀⠀⠀ return [[⠀⠀⠀⠀⣀⣀⣬⣥⣽⣿⣧⣤⢀⠀⠀⠀
⠀⠀⠀⠂⢯⣧⣿⣿⣿⣿⣿⣿⣿⣿⣷⠀ ⠀⠀⠀⠂⢯⣧⣿⣿⣿⣿⣿⣿⣿⣿⣷⠀
⠀⢨⣽⣾⣿⣿⣿⣿⡿⠛⠃⠉⠛⣿⣿⠀ ⠀⢨⣽⣾⣿⣿⣿⣿⡿⠛⠃⠉⠛⣿⣿⠀
@ -75,12 +95,21 @@ function run(msg, matches)
⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⣀⣀⣩⣦⣾⠀ ⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⣀⣀⣩⣦⣾⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠠⡦⣺⣿⡿⣹⡏⠀ ⠀⠀⠀⠀⠀⠀⠀⠀⠠⡦⣺⣿⡿⣹⡏⠀
⠀⠀⠀⠀⠀⠀⠻⠅⢄⡀⢈⣻⠟⠀⠀⠀]] ⠀⠀⠀⠀⠀⠀⠻⠅⢄⡀⢈⣻⠟⠀⠀⠀]]
elseif string.match(msg.text, "[Ii] [Ww][Ii][Ss][Hh] [Ss][Qq][Uu][Ii][Dd][Ss] [Ww][Ee][Rr][Ee] [Rr][Ee][Aa][Ll]") then elseif string.match(msg.text, "[Ii] [Ww][Ii][Ss][Hh] [Ss][Qq][Uu][Ii][Dd][Ss] [Ww][Ee][Rr][Ee] [Rr][Ee][Aa][Ll]") then
send_photo(get_receiver(msg), "pictures/squid.jpg", ok_cb, false) send_photo(get_receiver(msg), "pictures/squid.jpg", ok_cb, false)
--sleep(2) --sleep(2)
return 'They are' return 'They are'
elseif string.match(msg.text, "[Ff][Gg][Tt]") then
return --'Deine Mudda is fgt!' --elseif string.match(msg.text, "[Ff][Gg][Tt]") then
--return 'Deine Mudda is fgt!'
elseif string.match(msg.text, "[Kk][Ii][Ll][Ll]") then
return user_name..' tötet '..matches[1]
elseif string.match(msg.text, "[Ii][Nn][Ll][Oo][Vv][Ee]") then
send_document(get_receiver(msg), "pictures/inlove.gif", ok_cb, false)
end end
end end
@ -114,7 +143,9 @@ return {
"^[Yy][Oo][Ll][Oo]$", "^[Yy][Oo][Ll][Oo]$",
"^/[Kk][Aa][Pp][Pp][Aa]$", "^/[Kk][Aa][Pp][Pp][Aa]$",
"[Ii] [Ww][Ii][Ss][Hh] [Ss][Qq][Uu][Ii][Dd][Ss] [Ww][Ee][Rr][Ee] [Rr][Ee][Aa][Ll]", "[Ii] [Ww][Ii][Ss][Hh] [Ss][Qq][Uu][Ii][Dd][Ss] [Ww][Ee][Rr][Ee] [Rr][Ee][Aa][Ll]",
"[Ff][Gg][Tt]" --"[Ff][Gg][Tt]",
"^/[Kk][Ii][Ll][Ll] (.*)",
"^[Ii][Nn][Ll][Oo][Vv][Ee]$"
}, },
run = run run = run
} }

20
plugins/speedtest.lua Normal file
View File

@ -0,0 +1,20 @@
--[[Requires speedtest-cli (https://github.com/sivel/speedtest-cli)
$ wget -O speedtest-cli https://raw.github.com/sivel/speedtest-cli/master/speedtest_cli.py
$ chmod +x speedtest-cli
$ sudo mv speedtest-cli /usr/local/bin/speedtest-cli
]]
function run(msg, matches)
local receiver = get_receiver(msg)
local text = run_bash('speedtest-cli --share')
local photo = string.match(text,"Share results: (.*)")
send_photo_from_url(receiver, photo)
end
return {
description = "Führt eine Speedtest aus",
usage = {"/speedtest"},
patterns = {"^/[Ss][Pp][Ee][Ee][Dd][Tt][Ee][Ss][Tt]$"},
run = run
}
--by Akamaru [https://ponywave.de]

13
plugins/speedtest_net.lua Normal file
View File

@ -0,0 +1,13 @@
local function run(msg, matches)
local receiver = get_receiver(msg)
local url = 'http://www.speedtest.net/result/'..matches[1]..'.png'
send_photo_from_url(receiver, url)
end
return {
description = "Speedtest.net Mirror",
usage = {"Speedtest.net Result Link"},
patterns = {"speedtest.net/my%-result/([0-9]+)"},
run = run
}
--by Akamaru [https://ponywave.de]

58
plugins/spotify.lua Normal file
View File

@ -0,0 +1,58 @@
-- 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.spotify.com/v1'
function get_track_data (track)
local url = BASE_URL..'/tracks/'..track
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res)
return data
end
function send_track_data(data, receiver)
local name = data.name
local album = data.album.name
local artist = data.artists[1].name
local preview = data.preview_url
local milliseconds = data.duration_ms
-- convert s to mm:ss
local totalseconds = math.floor(milliseconds / 1000)
local milliseconds = milliseconds % 1000
local seconds = totalseconds % 60
local minutes = math.floor(totalseconds / 60)
local minutes = minutes % 60
local duration = string.format("%02d:%02d", minutes, seconds)
local text = '"'..name..' von '..artist..'" aus dem Album "'..album..'" ('..duration..' Minuten)'
if preview then
local file = download_to_file(preview, 'VORSCHAU: '..name..'.mp3')
send_msg(receiver, text, ok_cb, false)
send_document(receiver, file, ok_cb, false)
else
send_msg(receiver, text, ok_cb, false)
end
end
function run(msg, matches)
local track = matches[1]
local data = get_track_data(track)
local receiver = get_receiver(msg)
send_track_data(data, receiver)
end
return {
description = "Sendet Spotify-Info.",
usage = "Link zu Spotify-Track",
patterns = {
"open.spotify.com/track/([A-Za-z0-9-]+)",
"play.spotify.com/track/([A-Za-z0-9-]+)"
},
run = run
}
end

70
plugins/spotify_search.lua Normal file
View File

@ -0,0 +1,70 @@
-- 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.spotify.com/v1/search'
local function get_spotify_result (track)
local limit = '4'
local url = BASE_URL..'?type=track&q='..track..'&market=DE&limit='..limit
local res,code = https.request(url)
if code ~= 200 then return "HTTP-FEHLER" end
local data = json:decode(res).tracks
if not data.items[1] then return 'Nichts gefunden!' end
return data
end
local function send_spotify_data(data, receiver)
local text = ""
for track in pairs(data.items) do
text = text..'"'..data.items[track].name..'" von '..data.items[track].artists[1].name
if data.items[track].album.name and data.items[track].album.name ~= data.items[track].name then
text = text..' aus dem Album '..data.items[track].album.name
end
-- convert ms to mm:ss
local milliseconds = data.items[track].duration_ms
local totalseconds = math.floor(milliseconds / 1000)
local milliseconds = milliseconds % 1000
local seconds = totalseconds % 60
local minutes = math.floor(totalseconds / 60)
local hours = math.floor(minutes / 60)
local minutes = minutes % 60
local duration = string.format("%02d:%02d", minutes, seconds)
text = text..'\nLänge: '..duration
if data.items[track].preview_url then
text = text..'\nVorschau: '..data.items[track].preview_url
end
text = text..'\n'..data.items[track].external_urls.spotify..'\n\n'
end
send_large_msg(receiver, text, ok_cb, false)
end
local function run(msg, matches)
local track = URL.escape(matches[1])
local data = get_spotify_result(track)
if data == "Nichts gefunden!" then
return 'Nichts gefunden!'
elseif not data then
return 'HTTP-Fehler!'
else
local receiver = get_receiver(msg)
send_spotify_data(data, receiver)
end
end
return {
description = "Sucht nach Tracks auf Spotify",
usage = "/spotify [Track]: Sucht nach einem Track auf Spotify",
patterns = {"^/spotify (.*)$"},
run = run
}
end

19
plugins/stickerpacks.lua
View File

@ -1,29 +1,34 @@
function run(msg, matches) function run(msg, matches)
return return
[[ [[
Name: Gronkh
Link: https://telegram.me/addstickers/Gronkh
Name: Miku Hatsune
Link: https://telegram.me/addstickers/MikuHatsune
Name: Naira Name: Naira
Link: https://telegram.me/addstickers/Naira Link: https://telegram.me/addstickers/Naira
Name: Naira2 Name: Naira2
Link: https://telegram.me/addstickers/Naira2 Link: https://telegram.me/addstickers/Naira2
Name: Miku Hatsune
Link: https://telegram.me/addstickers/MikuHatsune
Name: Pinkie Pie Name: Pinkie Pie
Link: https://telegram.me/addstickers/PinkiePie Link: https://telegram.me/addstickers/PinkiePie
Name: Sharks
Link: https://telegram.me/addstickers/Sharks
Name: Sinnloser Scheiß Name: Sinnloser Scheiß
Link: https://telegram.me/addstickers/grummipol Link: https://telegram.me/addstickers/grummipol
Name: Gronkh
Link: https://telegram.me/addstickers/Gronkh
Name: Sword Art Online Name: Sword Art Online
Link: https://telegram.me/addstickers/SwordArtOnlinePack Link: https://telegram.me/addstickers/SwordArtOnlinePack
Stickerpacks by @Akamaru Name: Würfel
Link: https://telegram.me/addstickers/Wuerfel
Stickerpacks by @Akamaru
]] ]]
end end

46
plugins/text_get.lua Normal file
View File

@ -0,0 +1,46 @@
local function get_value(msg, var_name)
local hash = 'telegram:savedtext'
if hash then
local value = redis:hget(hash, var_name)
if not value then
return ""
else
return var_name..' '..value
end
end
end
local function list_variables(msg)
local hash = 'telegram:savedtext'
if hash then
print('Getting variable from redis hash '..hash)
local names = redis:hkeys(hash)
local text = ''
for i=1, #names do
variables = get_value(msg, names[i])
text = text..variables.."\n"
end
if text == '' or text == nil then
return ""
else
return text
end
end
end
local function run(msg, matches)
if matches[2] then
return get_value(msg, matches[2])
else
return list_variables(msg)
end
end
return {
description = "",
usage = {},
patterns = {"^/save$"},
run = run,
privileged = true
}

45
plugins/text_set.lua Normal file
View File

@ -0,0 +1,45 @@
local function save_value(msg, name, value)
if (not name or not value) then
return ""
end
local hash = 'telegram:savedtext'
if hash then
print('Saving variable to redis hash '..hash)
redis:hset(hash, name, value)
return value.." gespeichert!"
end
end
local function delete_value(msg, name)
local hash = 'telegram:savedtext'
if redis:hexists(hash, name) == true then
print('Deleting from redis hash '..hash)
redis:hdel(hash, name)
return value..' erfolgreich gelöscht!'
else
return ""
end
end
local function run(msg, matches)
local name = string.sub(matches[1], 1, 50)
local value = string.sub(matches[2], 1, 1000)
if value == "nil" then
text = delete_value(msg, name, value)
else
text = save_value(msg, name, value)
end
return text
end
return {
description = ".",
usage = {},
patterns = {
"^/save ([^%s]+) (.+)$"
},
run = run ,
privileged = true
}

Some files were not shown because too many files have changed in this diff Show More