---------------------------------------------------------------------
-- Project: irc
-- Author: MCvarial
-- Contact: mcvarial@gmail.com
-- Version: 1.0.2
-- Date: 31.10.2010
---------------------------------------------------------------------

local logfile

------------------------------------
-- Logging
------------------------------------
addEventHandler("onResourceStart",resourceRoot,
	function ()
		if getMaximumLogSize() == 0 then return end
		
		if fileExists("irc.log") then
			logfile = fileOpen("irc.log")
			if logfile then
				fileSetPos(logfile,fileGetSize(logfile))
				writeLog("\n------ new log ------")
			end
		else
			logfile = fileCreate("irc.log")
			writeLog("\n------ new log ------")
		end
	end
)

addEvent("onIRCRaw")
addEventHandler("onIRCRaw",root,
	function (data)
		writeLog(tostring(data))
	end
)

addEventHandler("onResourceStop",resourceRoot,
	function ()
		fileFlush(logfile)
		fileClose(logfile)
	end
)

function writeLog (text)
	if not logfile then return end
	fileWrite(logfile,getTimeStamp().." "..text.."\n")
	
	local size = fileGetSize(logfile)
	local diff = size - (getMaximumLogSize() * 1000000)
	-- if it is too big clear 20%
	if diff > 0 then
		fileSetPos(logfile,math.floor(0.2 * size))
		local content = fileRead(logfile,math.ceil(0.8 * size))
		fileClose(logfile)
		if fileDelete("irc.log") then
			logfile = fileCreate("irc.log")
		else
			logfile = fileOpen("irc.log")
		end
		fileWrite(logfile,content)
	end
		
	return fileFlush(logfile)
end

function getMaximumLogSize ()
	return tonumber(get("irc-log-maxsize")) or math.huge
end

addEvent("onIRCConnecting")
addEventHandler("onIRCConnecting",root,
	function ()
		logConsole("IRC: connecting to '"..tostring(ircGetServerHost(source)).."' on port "..tostring(ircGetServerPort(source)).."...")
	end
)

addEvent("onIRCConnect")
addEventHandler("onIRCConnect",root,
	function ()
		logConsole(tostring(ircGetServerName(source))..": Connected as "..tostring(ircGetServerNick(source)).."!")
	end
)

addEvent("onIRCFailConnect")
addEventHandler("onIRCFailConnect",root,
	function (reason)
		logConsole("IRC: could not connect to '"..tostring(ircGetServerName(source)).."' ("..tostring(reason)..")")
	end
)

addEvent("onIRCDisconnect")
addEventHandler("onIRCDisconnect",root,
	function (reason)
		logConsole(tostring(ircGetServerName(source)).." disconnected! ("..tostring(reason)..")")
	end
)

addEvent("onIRCUserJoin")
addEventHandler("onIRCUserJoin",root,
	function (channel,vhost)
		logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": "..tostring(ircGetUserNick(source)).." ("..tostring(vhost)..") joined "..tostring(ircGetChannelName(channel)))
	end
)

addEvent("onIRCUserPart")
addEventHandler("onIRCUserPart",root,
	function(channel,reason)
		if reason then
			logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": "..tostring(ircGetUserNick(source)).." has parted "..tostring(ircGetChannelName(channel)).." ("..tostring(reason)..")")
		else
			logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": "..tostring(ircGetUserNick(source)).." has parted "..tostring(ircGetChannelName(channel)))
		end
	end
)

addEvent("onIRCUserKick")
addEventHandler("onIRCUserKick",root,
	function(channel,reason,kicker)
		if kicker then
			logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": "..tostring(ircGetUserNick(source)).." has been kicked from "..tostring(ircGetChannelName(channel)).." by "..tostring(ircGetUserNick(kicker)).." ("..tostring(reason)..")")
		else
			logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": "..tostring(ircGetUserNick(source)).." has been kicked from "..tostring(ircGetChannelName(channel)).." ("..tostring(reason)..")")
		end
	end
)

addEvent("onIRCUserChangeNick")
addEventHandler("onIRCUserChangeNick",root,
	function (oldnick,newnick)
		logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": "..tostring(oldnick).." is now known as "..tostring(newnick))
	end
)

addEvent("onIRCPrivateMessage")
addEventHandler("onIRCPrivateMessage",root,
	function (message)
		logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": PM from "..tostring(ircGetUserNick(source))..": "..tostring(message))
	end
)

addEvent("onIRCMessage")
addEventHandler("onIRCMessage",root,
	function (channel,message)
		channelName = ircGetChannelName(channel)
		if channelName == "#Nvreformat" or channelName == "#Gonzalo" then 
			outputChatBox("("..tostring(ircGetChannelName(channel))..") #FFFFFF"..tostring(ircGetUserNick(source))..": "..tostring(message),root, 255,225,0,true)
		elseif channelName == "#Echo" then
				outputChatBox("(Support) #FFFFFF"..string.gsub(tostring(message),"03","",1),root, 123,104,238,true)
		elseif channelName == "#SWATTeam" then
			outputChatBox("("..tostring(ircGetChannelName(channel))..") #FFFFFF"..tostring(ircGetUserNick(source))..": "..tostring(message),root, 65,105,255,true)
		elseif channelName == "#ArmedForces" then
			outputChatBox("("..tostring(ircGetChannelName(channel))..") #FFFFFF"..tostring(ircGetUserNick(source))..": "..tostring(message),root, 78,107,40,true)
		elseif channelName == "#FBI" or channelName == "#SAPD" then
			outputChatBox("("..tostring(ircGetChannelName(channel))..") #FFFFFF"..tostring(ircGetUserNick(source))..": "..tostring(message),root, 52,52,51,true)
		elseif channelName == "#OfficialLaw" then
			outputChatBox("("..tostring(ircGetChannelName(channel))..") #FFFFFF"..tostring(ircGetUserNick(source))..": "..tostring(message),root, 30,144,255,true)
		elseif channelName == "#Spanish" then
			outputChatBox("("..tostring(ircGetChannelName(channel))..") #FFFFFF"..tostring(ircGetUserNick(source))..": "..tostring(message),root, 150,150,150,true)
		end
	end
)

addEvent("onIRCPrivateNotice")
addEventHandler("onIRCPrivateNotice",root,
	function (message)
		logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": notice from "..tostring(ircGetUserNick(source))..": "..tostring(message))
	end
)

addEvent("onIRCNotice")
addEventHandler("onIRCNotice",root,
	function (channel,message)
		logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": NOTICE ["..tostring(ircGetChannelName(channel)).."] "..tostring(ircGetUserNick(source))..": "..tostring(message))
	end
)

addEvent("onIRCUserMode")
addEventHandler("onIRCUserMode",root,
	function (channel,positive,mode,setter)
		if setter then
			setter = ircGetUserNick(setter)
		else
			setter = "Server"
		end
		if positive then
			logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": ["..tostring(ircGetChannelName(channel)).."] "..tostring(setter).." sets mode: +"..tostring(mode).." "..tostring(ircGetUserNick(source)))
		else	
			logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": ["..tostring(ircGetChannelName(channel)).."] "..tostring(setter).." sets mode: -"..tostring(mode).." "..tostring(ircGetUserNick(source)))
		end
	end
)

addEvent("onIRCChannelMode")
addEventHandler("onIRCChannelMode",root,
	function (positive,mode,setter)
		if positive then
			logConsole(tostring(ircGetServerName(ircGetChannelServer(source)))..": ["..tostring(ircGetChannelName(source)).."] "..(ircGetUserNick(setter) or "Server").." sets mode: +"..tostring(mode))
		else	
			logConsole(tostring(ircGetServerName(ircGetChannelServer(source)))..": ["..tostring(ircGetChannelName(source)).."] "..(ircGetUserNick(setter) or "Server").." sets mode: -"..tostring(mode))
		end
	end
)

addEvent("onIRCBan")
addEventHandler("onIRCBan",root,
	function (positive,vhost,setter)
		if positive then
			logConsole(tostring(ircGetServerName(ircGetChannelServer(source)))..": ["..tostring(ircGetChannelName(source)).."] "..(ircGetUserNick(setter) or "Server").." sets mode: +b "..tostring(vhost))
		else
			logConsole(tostring(ircGetServerName(ircGetChannelServer(source)))..": ["..tostring(ircGetChannelName(source)).."] "..(ircGetUserNick(setter) or "Server").." sets mode: -b "..tostring(vhost))
		end
	end
)

addEvent("onIRCUserQuit")
addEventHandler("onIRCUserQuit",root,
	function (reason)
		if reason then
			logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": "..tostring(ircGetUserNick(source)).." quit ("..tostring(reason)..")")
		else
			logConsole(tostring(ircGetServerName(ircGetUserServer(source)))..": "..tostring(ircGetUserNick(source)).." quit")
		end
	end
)

addEvent("aMessage",true)
addEventHandler("aMessage",root,
	function (type,t)
		if type == "new" then
			logConsole("ADMIN MESSAGE: new "..tostring(t.category).." from "..tostring(getPlayerName(source))..". Subject: "..tostring(t.subject))
		end
	end
)

function logConsole (text)
	if get("irc-logconsole") == "true" then
		return outputServerLog(text)
	end
	return true
end