Conversion - Nick Watchdog 1.0 LUA 5.0-5.1

[rEALx]

Hi All

Nick Watchdog 1.0 LUA 5.0-5.1 by Mutor

I would like to have this script converted to New API.
Also, is it possible to include removal  of nick / ip numbers from the saved log file from a RC menu ?

Thx

rEALx

--[[
	Nick Watchdog 1.0 LUA 5.0/5.1
	By Mutor	02/13/07
	
	Requested by tom_cruise4g
	
	Logs user nick names and IP addresses
	-Disconnect users with changed nick names.
	-Reports status/errors to OpNick
	-Saves to file for script/hub restart
	
]]

Cfg = {
-- Botname pulled from the hub or use "CustomName"
Bot = frmHub:GetHubBotName(),
-- Bot description
Desc = "I watch for changes in user nicknames",
-- Bot email address
Mail = "user@domain.com",
-- Admins nick for status / error messages
OpNick = "Mutor",
--Filename for user data
File="NickWatchdog.dat",
--//--Set your profiles permissions here.
--profile_idx, Check this Profiles IP [0=no 1=yes], "Profile Name"
Profiles = {
	[-1] = 1,
	[0] = 0,
	[1] = 1,
	[2] = 1,
	[3] = 1,
	[4] = 1,
	[5] = 1,
	[6] = 1,
	},
Exclude = {
	["Mutor"] = 1,
	["OtherNick"] = 1,
	},
}

Main = function()
	if Cfg.Bot ~= frmHub:GetHubBotName() or frmHub:GetHubBot()== 0 then
		frmHub:RegBot(Cfg.Bot, 1, Cfg.Desc.." PtokaX ".._VERSION, Cfg.Mail)
	end
	local LuaVer = string.sub(_VERSION,1,7)
	if LuaVer == "Lua 5.1" then
		Cfg.Gc,Cfg.Mem = "collect",collectgarbage("count")
	elseif LuaVer == "Lua 5.0" then
		Cfg.Gc,Cfg.Mem = nil,gcinfo()
	else
		OnError("This script is incompatible with ".._VERSION)
	end
	if loadfile(Cfg.File) then
		dofile(Cfg.File)
	else
		Cfg.IPs = {}
		Save_File(Cfg.File,Cfg.IPs,"Cfg.IPs")
	end
	for a,b in ipairs(frmHub:GetOnlineUsers()) do
		local user = GetItemByName(b.sName)
		if user then
			CheckIP(user)
		end
	end
	Cfg.Mem = string.format("%-.2f Kb.",Cfg.Mem)
	OnError("Nick Watchdog 1.0 for ".._VERSION.." by Mutor has been started, using "..Cfg.Mem.." of memory.")
	
end

OnExit = function()
	OnError("Nick Watchdog 1.0 for ".._VERSION.." by Mutor has been stopped, freeing "..Cfg.Mem.." of memory.")
end

OnError = function(msg)
	SendToNick(Cfg.OpNick,"<"..Cfg.Bot.."> "..msg)
end

function NewUserConnected(user)
	CheckIP(user)
end
OpConnected = NewUserConnected

CheckIP = function(user)
	if Cfg.Profiles[user.iProfile] and Cfg.Profiles[user.iProfile] == 1 then
		if Cfg.IPs[user.sIP] then
			if not Cfg.Exclude[user.sName] or Cfg.Exclude[user.sName] ~= 1 then
				if Cfg.IPs[user.sIP] ~= user.sName then
					local profile = GetProfileName(user.iProfile) or "Unregistered User"
					local msg = "Sorry "..user.sName.." you may not change your nickname. "..
					"You will be disconnected from the hub. You may return with the nick "..
					Cfg.IPs[user.sIP].." after "..frmHub:GetDefaultTempBanTime()..
					" minute(s) has elapsed."
					local reason = "Nickname changed from "..Cfg.IPs[user.sIP].." to "..user.sName
					user:SendData(Cfg.Bot,msg)
					user:SendPM(Cfg.Bot,msg)
					user:Kick(Cfg.Bot,reason)
					return 1
				end
			end
		else
			Cfg.IPs[user.sIP] = user.sName
			Save_File(Cfg.File,Cfg.IPs,"Cfg.IPs")
		end
	end
end

Save_Serialize = function(tTable, sTableName, hFile, sTab)
	sTab = sTab or "";
	hFile:write(sTab..sTableName.." = {\n" )
	for key, value in pairs(tTable) do
		local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key)
		if(type(value) == "table") then
			Save_Serialize(value, sKey, hFile, sTab.."\t")
		else
			local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value)
			hFile:write( sTab.."\t"..sKey.." = "..sValue)
		end
		hFile:write( ",\n")
	end
	hFile:write( sTab.."}")
end

Save_File = function(file,table, tablename )
	local hFile = io.open (file , "wb")
	Save_Serialize(table, tablename, hFile)
	hFile:close()
	collectgarbage(Cfg.Gc)
end