--
--Message Board 1.01	10/20/04
--
--by Mutor
--
-- Provides common message board. Allow users to read/write the board by profiles
-- Option to delete messages, permission bt profile
-- Caches board messages to exteernal text file for script/hub restarts
--
--	+Changes from v 1.00
--		+Added  case sensitive commands, request by NeoUltimicia
--		+Added  date/time to message, request by NeoUltimicia
--		+Errors now sent to PM as well as main
--		+Corrected save string and tweaked table read
--
--	?To Do
--		?Allow users to delete their own messages
--		?Add context menu
--
--User Settings-------------------------------------------------------------------------------------
Prefix = "+"			-- Command Prefix
Comm1 = strlower("read")			-- Script Command, read board
Comm2 = strlower("write")			-- Script Command, write to board
Comm3 = strlower("del")			-- Script Command, delete messages
MaxMessages = 50		-- Max number of messages to cache
MsgBoard = "MessageBoard.txt"	-- Message file, creat this file in your scripts dir.
rprofiles = {[0]=1,[1]=1,[2]=1} 	-- Which profiles may read the board? 
wprofiles = {[0]=1,[1]=1,[2]=1} 	-- Which profiles may write to the board?
dprofiles = {[0]=1,[1]=1,[2]=1} 	-- Which profiles may delete messages?
Hub = frmHub:GetHubName()	-- Hub name, pulled from the Px
Bot = frmHub:GetHubBotName()	-- Uncomment frmHub:RegBot(Bot)in function Main for custom name
--End User Settings---------------------------------------------------------------------------------- 
BoardMessages = {}

function Main()
	LoadFromFile(MsgBoard)
	frmHub:EnableFullData(1)
	--frmHub:RegBot(Bot)	-- Uncomment for custom name
end

function DataArrival(user, data)
local data = strsub(data,1,-2)
	if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(Bot)) == "$To: "..Bot) then
		s,e,cmd = strfind(data, "%b<>%s+(%S+)")
			if (cmd==Prefix..Comm1) and rprofiles[user.iProfile]==1 then
	 			ReadBoard(user)
				return 1
			elseif(cmd==Prefix..Comm2) and wprofiles[user.iProfile]==1 then
				s,e,msg = strfind(data, "%b<>%s+%S+%s(.*)")
					if msg == nil then
						local dsp
						dsp = "\r\n\t=-=<>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=<>=-=\r\n"
						dsp = dsp.."\t"..Hub.."\tMessage Board\r\n"
						dsp = dsp.."\tDid you forget what you were going to say?\r\n"
						dsp = dsp.."\tCommand syntax is ->> "..Prefix..Comm2.." <your message>\r\n"
						dsp = dsp.."\t=-=<>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=<>=-=\r\n"
						user:SendData(Bot,dsp)
						SendPmToNick(user.sName,Bot,dsp)
						return 1
					else
						Write2Board(user, msg)
						return 1
					end
			elseif(cmd==Prefix..Comm3) and dprofiles[user.iProfile]==1 then
				s,e,delmsg = strfind(data, "%b<>%s+%S+%s(%d+)")
					if delmsg == nil or BoardMessages[delmsg] == nil then
						local dsp0
						dsp0 = "\r\n\t=-=<>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=<>=-=\r\n"
						dsp0 = dsp0.."\t"..Hub.."\tMessage Board\r\n"
						dsp0 = dsp0.."\tDelete which message? Provide message number\r\n"
						dsp0 = dsp0.."\tCommand syntax is ->> "..Prefix..Comm3.." <msg #>\r\n"
						dsp0 = dsp0.."\tType ->> "..Prefix..Comm1.."  to list messages \r\n"
						dsp0 = dsp0.."\t=-=<>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=<>=-=\r\n"
						user:SendData(Bot,dsp0)
						SendPmToNick(user.sName,Bot,dsp0)
						return 1
					else
						--if BoardMessages[delmsg] ~= 1 then user:SendData(Bot,dsp0) return 1 end
						tremove(BoardMessages, delmsg)
						SaveToFile(MsgBoard , BoardMessages , "BoardMessages")
						user:SendData(Bot,"Message number [ "..delmsg.." ] has been deleted.")
						SendPmToNick(user.sName,Bot,"Message number [ "..delmsg.." ] has been deleted.")
						return 1
					end
			end
	end
end

function ReadBoard(user)
local n = getn(BoardMessages)
local dsp1
dsp1 = "\r\n=-=<>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=<>=-=\r\n"
dsp1 = dsp1.."  "..Hub.."\tMessage Board\t Displayng last [ "..n.." ] message(s)\r\n"
dsp1 = dsp1.."=-=<>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=<>=-=\r\n\r\n"
	for i = 1, n do
		BoardMessages[i] = gsub(BoardMessages[i],"\n","\r\n\t") 
		BoardMessages[i] = gsub(BoardMessages[i],"wrote::","wrote::\r\n\t")
		dsp1 = dsp1.."\r\n[ "..i.." ]\t"..BoardMessages[i].."\r\n\r\n"
	end
SendPmToNick(user.sName, Bot, dsp1) 
end

function Write2Board(user, msg)
local dsp2
dsp2 = "\r\n\t=-=<>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=<>=-=\r\n"
dsp2 = dsp2.."\t[ "..user.sName.." ] just posted to the "..Hub.." Message Board\r\n"
dsp2 = dsp2.."\t=-=<>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=<>=-=\r\n"
dsp2 = dsp2.."\tType "..Prefix..Comm1.." in main/pm to list or "..Prefix..Comm2.." <your message> to post .\r\n"
dsp2 = dsp2.."\t=-=<>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=<>=-=\r\n\r\n"
SendToAll(Bot, dsp2) 
tinsert(BoardMessages, ("On "..date("%B %d %Y %X ").." [ "..user.sName.." ] wrote::")..msg)
	if getn(BoardMessages) > MaxMessages then tremove(BoardMessages, 1) end
	SaveToFile(MsgBoard , BoardMessages , "BoardMessages")
end

function Serialize(tTable, sTableName, sTab)--Fixed
	assert(tTable, "tTable equals nil");
	assert(sTableName, "sTableName equals nil");
	assert(type(tTable) == "table", "tTable must be a table!");
	assert(type(sTableName) == "string", "sTableName must be a string!");
	sTab = sTab or "";
	sTmp = ""
	sTmp = sTmp..sTab..sTableName.." = {\n"
	for key, value in tTable do
		local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);
			if(type(value) == "table") then
				sTmp = sTmp..Serialize(value, sKey, sTab.."\t"); -- The Bug was here
			else
				local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
				sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
			end
				sTmp = sTmp..",\n"
			end
	sTmp = sTmp..sTab.."}\r\n"
	return sTmp
end


function SaveToFile(file , table , tablename)
	writeto(file)
	write(Serialize(table, tablename))
	writeto()
end

function LoadFromFile(file)
	if (readfrom(file) ~= nil) then
		readfrom(file)
		dostring(read("*all"))
		readfrom()
	end
end