email/init.lua

216 lines
5.3 KiB
Lua

email = {
log = function(msg) end
}
local _loading = true
if minetest.global_exists("chatplus") then
email.log = chatplus.log
function chatplus.on_old_inbox(inbox)
if _loading then
return
end
email.inboxes = inbox
end
end
function email.init()
email.inboxes = {}
email.load()
_loading = false
if minetest.global_exists("chatplus") and chatplus.old_inbox then
chatplus.on_old_inbox(chatplus.old_inbox)
end
end
function email.load()
local file = io.open(minetest.get_worldpath() .. "/email.txt", "r")
if file then
local from_file = minetest.deserialize(file:read("*all"))
file:close()
if type(from_file) == "table" then
if from_file.mod == "email" and tonumber(from_file.ver_min) <= 1 then
email.inboxes = from_file.inboxes
else
error("[Email] Attempt to read incompatible email.txt file.")
end
end
end
end
function email.save()
local file = io.open(minetest.get_worldpath() .. "/email.txt", "w")
if file then
file:write(minetest.serialize({
mod = "email", version = 1, ver_min = 1,
inboxes = email.inboxes }))
file:close()
end
end
minetest.register_on_shutdown(email.save)
function email.get_inbox(name)
return email.inboxes[name] or {}
end
function email.clear_inbox(name)
email.inboxes[name] = nil
email.save()
end
minetest.register_on_joinplayer(function(player)
local inbox = email.get_inbox(player:get_player_name())
if #inbox > 0 then
minetest.after(10, function()
minetest.chat_send_player(player:get_player_name(),
"(" .. #inbox .. ") You have mail! Type /inbox to recieve")
end)
end
end)
function email.get_formspec(name)
local inbox = email.get_inbox(name)
local fs = "size[12,8]"
fs = fs .. "vertlabel[0,0;email Mail]"
function row(fs, c1, date, from, msg)
date = minetest.formspec_escape(date)
from = minetest.formspec_escape(from)
msg = minetest.formspec_escape(msg)
return fs .. ",#d0d0d0," .. table.concat({date, c1, from, msg}, ",")
end
fs = fs .. "tablecolumns[color;text;color;text;text]"
fs = fs .. "tableoptions[highlight=#ffffff33]"
fs = fs .. "table[0.5,0;11.25,7;inbox;"
fs = fs .. "#ffffff,Date,,From,Message"
if #inbox == 0 then
fs = row(fs, "#d0d0d0", "", ":)", "Well done! Your inbox is empty!")
else
for i = 1, #inbox do
local color = "#ffffff"
if minetest.check_player_privs(inbox[i].from, {kick = true, ban = true}) then
color = "#FFD700"
end
local msg = inbox[i].msg
fs = row(fs, color, inbox[i].date, inbox[i].from, msg:sub(1, 44))
while #msg > 45 do
msg = msg:sub(45, #msg)
fs = row(fs, color, "", "", msg:sub(1, 44))
end
end
end
fs = fs .. "]"
fs = fs .. "button[0,7.25;2,1;clear;Delete All]"
--fs = fs .. "button[0,7.25;2,1;clear;Mark as read]"
fs = fs .. "button_exit[10.1,7.25;2,1;close;Close]"
fs = fs .. "label[2,7.4;Exit then type /mail username message to reply]"
return fs
end
function email.show_inbox(name, text_mode)
if text_mode then
local inbox = email.get_inbox(name)
if #inbox == 0 then
return true, "Your inbox is empty!"
else
minetest.chat_send_player(name, #inbox .. " items in your inbox:")
for i = 1, #inbox do
local item = inbox[i]
minetest.chat_send_player(name, i .. ") " ..item.date ..
" <" .. item.from .. "> " .. item.msg)
end
return true, "End of mail (" .. #inbox .. " items)"
end
else
local fs = email.get_formspec(name)
minetest.show_formspec(name, "email:inbox", fs)
return true, "Opened inbox!"
end
return true
end
minetest.register_on_player_receive_fields(function(player,formname,fields)
if fields.clear then
local name = player:get_player_name()
email.clear_inbox(name)
minetest.chat_send_player(name, "Inbox cleared!")
email.show_inbox(name)
end
--[[if fields.mark_all_read then
if player and player.inbox and #player.inbox > 0 then
for i = 1, #player.inbox do
player.inbox[i].read = true
end
minetest.chat_send_player(name, "Marked all as read!")
email.show_inbox(name)
end
end]]--
end)
function email.send_mail(name, to, msg)
minetest.log("Email - To: "..to..", From: "..name..", MSG: "..msg)
email.log("Email - To: "..to..", From: "..name..", MSG: "..msg)
if true then
local mail = {
date = os.date("%Y-%m-%d %H:%M:%S"),
from = name,
msg = msg}
if email.inboxes[to] then
table.insert(email.inboxes[to], mail)
else
email.inboxes[to] = { mail }
end
email.save()
minetest.chat_send_player(to, name .. " sent you mail! Type /inbox to see it.")
return true, "Message sent to " .. to
else
return false, "Player '" .. to .. "' does not exist"
end
end
minetest.register_chatcommand("inbox", {
params = "[/clear/text]",
description = "Inbox: Blank to see inbox. Use 'clear' to empty inbox, 'text' for text only.",
func = function(name, param)
if param == "clear" then
email.clear_inbox(name)
return true, "Inbox cleared"
elseif param == "text" or param == "txt" or param == "t" then
return email.show_inbox(name, true)
else
return email.show_inbox(name, false)
end
end
})
minetest.register_chatcommand("mail", {
params = "name msg",
description = "mail: add a message to a player's inbox",
func = function(name, param)
local to, msg = string.match(param, "^([%a%d_-]+) (.+)")
if to and msg then
return email.send_mail(name, to, msg)
else
return false, "Usage: mail <playername> <some message>"
end
end
})
dofile(minetest.get_modpath("email") .. "/hud.lua")
email.init()