This repository has been archived on 2021-04-24. You can view files and clone it, but cannot push or open issues or pull requests.
Mikubot-2/miku/plugins/birthday.lua
2016-08-24 17:18:17 +02:00

97 lines
2.5 KiB
Lua

local birthday = {}
function birthday:init(config)
birthday.triggers = {
"^/([Ss][Ee][Tt][Bb][Dd]) ([^%s]+) (.+)$",
"^/([Gg][Ee][Tt][Bb][Dd]) (.+)$",
"^/[Gg][Ee][Tt][Bb][Dd]$"
}
birthday.doc = [[*
]]..config.cmd_pat..[[getbd*: Gibt alle Geburtstage aus
*]]..config.cmd_pat..[[getbd* _<Name>_: Gibt spezifischen Geburtstag aus
*]]..config.cmd_pat..[[setbd* _<Name>_ _<Tag.Monat>_: Speichert Geburtstag ein
*]]..config.cmd_pat..[[setbd* _<Name>_ _nil_: Löscht Geburttag
]]
end
birthday.command = 'getbd'
function birthday:save_value(name, value)
if (not name or not value) then
return "Benutzung: /setbd [Name] [Tag. Monat]"
end
local hash = 'telegram:birthdays'
if hash then
print('Speichere Geburtstag in '..hash)
redis:hset(hash, name, value)
return "Geburtstag von "..name.." am "..value.." gespeichert!"
end
end
function birthday:delete_value(name, value)
local hash = 'telegram:birthdays'
if redis:hexists(hash, name) == true then
print('Lösche Geburtstag aus '..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
function birthday: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
function birthday:list_variables(msg)
local hash = 'telegram:birthdays'
if hash then
print('Suche nach Geburtstag in '..hash)
local names = redis:hkeys(hash)
local text = ''
for i=1, #names do
variables = birthday: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
function birthday:action(msg, config, matches)
if matches[1]:match('[Ss][Ee][Tt][Bb][Dd]') then
local name = string.sub(matches[2], 1, 50)
local value = string.sub(matches[3], 1, 1000)
if value == "nil" then
text = birthday:delete_value(name, value)
else
text = birthday:save_value(name, value)
end
else
if matches[2] then
text = birthday:get_value(msg, matches[2])
else
text = '<b>Geburtstagsliste:</b>\n'..birthday:list_variables(msg)
end
end
utilities.send_reply(msg, text, 'HTML')
end
return birthday