permmuting using sqlite

Author: MCvarial

resources/irc/acl.xml

@@ -10,6 +10,7 @@
 	<command name="!getserial" level="2" echoChannelOnly="true" />
 	<command name="!mute" level="2" echoChannelOnly="true" />
 	<command name="!unmute" level="2" echoChannelOnly="true" />
+	<command name="!mutes" level="2" echoChannelOnly="true" />
 	<command name="!freeze" level="2" echoChannelOnly="true" />
 	<command name="!unfreeze" level="2" echoChannelOnly="true" />
 	<command name="!kill" level="2" echoChannelOnly="true" />

resources/irc/scripts/echo.lua

@@ -64,11 +64,11 @@ addEventHandler("onPlayerChangeNick",root,
 addEventHandler("onPlayerMute",root,
 	function (arg)
 		if type(arg) ~= "nil" then return end
-		if mutes[getPlayerSerial(source)] then
-			local admin = mutes[getPlayerSerial(source)].admin or "console"
-			local reason = mutes[getPlayerSerial(source)].reason
-			if reason then
-				outputIRC("12* "..getPlayerName(source).." has been muted by "..admin.." ("..reason..")")
+		local result = executeSQLSelect("ircmutes","serial,reason","serial = '"..getPlayerSerial(source).."'")
+		if result and result[1] then
+			local admin = result[1]["admin"] or "console"
+			if result[1]["reason"] then
+				outputIRC("12* "..getPlayerName(source).." has been muted by "..admin.." ("..result[1]["reason"]..")")
 			else
 				outputIRC("12* "..getPlayerName(source).." has been muted by "..admin)
 			end

resources/irc/scripts/handling.lua

@@ -214,7 +214,7 @@ setTimer(function ()
 	for i,server in ipairs (ircGetServers()) do
 		if (getTickCount() - servers[server][11]) > 180000 then
 			servers[server][11] = getTickCount()
-			ircReconnect(server,"Connection timed out")
+			restartResource(getThisResource())
 		elseif (getTickCount() - servers[server][11]) > 120000 then
 			ircRaw(server,"PING")
 		end

resources/irc/scripts/irccommands.lua

@@ -94,6 +94,20 @@ addEventHandler("onIRCResourceStart",root,
 				end
 			end
 		)
+		
+		addIRCCommandHandler("!mutes",
+			function (server,channel,user,command)
+				local results = executeSQLSelect("ircmutes","player,admin,reason")
+				if type(results) == "table" then
+					for i,result in ipairs (results) do
+						outputIRC("12* "..tostring(result["player"]).." by "..tostring(result["admin"]).." for: "..tostring(result["reason"]))
+					end
+				else
+					outputIRC("12* No mutes")
+				end
+			end
+		)
+			
 		addIRCCommandHandler("!kill",
 			function (server,channel,user,command,name,...)
 				if not name then ircNotice(user,"syntax is !kill <name> [reason]") return end

resources/irc/scripts/utility.lua

@@ -6,6 +6,8 @@
 -- Date: 31.10.2010
 ---------------------------------------------------------------------
 
+executeSQLCreateTable("ircmutes","player TEXT, serial TEXT, reason TEXT, admin TEXT, mute TEXT, duration TEXT")
+
 ------------------------------------
 -- Utility
 ------------------------------------
@@ -82,51 +84,50 @@ function getTimeStamp ()
 	return "["..(time.year + 1900).."-"..(time.month+1).."-"..time.monthday.." "..time.hour..":"..time.minute..":"..time.second.."]"
 end
 
-mutes = {}
 _setPlayerMuted = setPlayerMuted
 function setPlayerMuted (player,muted,reason,admin,time)
 	if muted then
-		mutes[getPlayerSerial(player)] = {reason = reason,admin = admin,time = time,tick = getTickCount()}
+		executeSQLInsert("ircmutes","'"..tostring(getPlayerName(player)).."','"..tostring(getPlayerSerial(player)).."','"..tostring(reason).."','"..tostring(admin).."','"..tostring(getRealTime().timestamp*1000).."','"..tostring(time).."'")
 	else
-		mutes[getPlayerSerial(player)] = nil
+		executeSQLDelete("ircmutes","serial = '"..tostring(getPlayerSerial(player)).."'")
 	end
 	return _setPlayerMuted(player,muted)
 end
 
+addEventHandler("onPlayerUnmute",root,
+	function ()
+		executeSQLDelete("ircmutes","serial = '"..tostring(getPlayerSerial(player)).."'")
+	end
+)
+
 setTimer(function ()
-	for serial,info in pairs (mutes) do
-		if info.time and (getTickCount() - info.tick) > info.time then
-			for i,player in ipairs (getElementsByType("player")) do
-				if getPlayerSerial(player) == serial then
-					setPlayerMuted(player,false)
+	local results = executeSQLSelect("ircmutes","serial,mute,duration")
+	if type(results) == "table" then
+		for i,result in ipairs (results) do
+			local mutetime = tonumber(result["mute"])
+			local duration = tonumber(result["duration"])
+			if mutetime and duration and (mutetime+duration) < (getRealTime().timestamp)*1000 then
+				for i,player in ipairs (getElementsByType("player")) do
+					if getPlayerSerial(player) == result["serial"] then
+						_setPlayerMuted(player,false)
+						outputChatBox("* "..getPlayerName(player).." has been unmuted",root,255,0,0)
+					end
 				end
-			end
-			if mutes[serial] then
-				mutes[serial] = nil
+				executeSQLDelete("ircmutes","serial = '"..tostring(result["serial"]).."'")
 			end
 		end
 	end
 end,5000,0)
 
 addEventHandler("onPlayerJoin",root,
 	function ()
-		local mute = mutes[(getPlayerSerial(source))]
-		if mute then
+		local result = executeSQLSelect("ircmutes","serial,reason","serial = '"..getPlayerSerial(source).."'")
+		if result and result[1] then
 			_setPlayerMuted(source,true)
 		end
 	end
 )
 
-addEventHandler("onResourceStop",resourceRoot,
-	function ()
-		for i,player in ipairs (getElementsByType("player")) do
-			if mutes[getPlayerSerial(player)] then
-				setPlayerMuted(player,false)
-			end
-		end
-	end
-)
-
 local times = {}
 times["ms"] = 1
 times["sec"] = 1000