kick log and banlog

[gizmo]

HI can someone tell if its impossible to make a script who logs who banned and reason and the same when the op kicks ?

[NightLitch]

it's not impossible, Real simple acually.

[gizmo]

do you know if there is such script ready ??

[NightLitch]

can make one easily for ya

[NightLitch]

question is how do you want it to look

[NightLitch]

try this one real simple:

-- Simple Kick/Ban Log -Bot
-- By: NightLitch 2004
---------------------------------------------
BotName = "T-Rage"
---------------------------------------------
BanLog = "banlog.txt"
KickLog = "kicklog.txt"
---------------------------------------------
Time = ""..date("%d").."/"..date("%m").."-"..date("%Y")..""
---------------------------------------------
function DataArrival(curUser, data) 
	if (strsub(data, 1, 1) == "<" ) then 
		data=strsub(data,1,strlen(data)-1) 
		local _,_,cmd=strfind(data, "%b<>%s+(%S+)") 
		if not cmd then cmd = "0" end 
		cmd = strlower(cmd) 
		if (cmd == "!ban") then
			ComFunc(curUser,data,"!ban",BanLog)
			return 1
		elseif (cmd == "!kick") then
			ComFunc(curUser,data,"!kick",KickLog)
			return 1
		end
	end
end 
---------------------------------------------
function ComFunc(curUser,data,command,file)
	local s,e,nick,reason = strfind( data, "%b<>%s+%S+%s+(%S+)%s*(.*)" )
	if nick == nil or nick == "" then
		curUser:SendData(BotName,"*** Syntax error in command "..command.."  [reason]: No parameter given.")
		return 1
	end
	local vUser = GetItemByName(nick)
	if not vUser then
		curUser:SendData(BotName,nick.." is not online or wrong name...")
		return 1
	end
	if (rule == nil or rule == "") then rule = "Not given"
	else rule = ""..rule
	end
	if command == "!kick" then 
	sc = "kicked" 
	elseif command == "!ban" then 
	sc = "banned" 
	end
	Msg = Time.."  |  "..vUser.sName.." is "..sc.." by: "..curUser.sName..", becouse: "..reason.." \n"
	writeto(file) 
	write(Msg)
	writeto()
	vUser:SendPM(BotName,"You are being "..sc.." by "..curUser.sName..", because: "..reason)
	SendToAll(BotName,curUser.sName.." is "..sc.." "..nick..", reason: "..reason)
	if sc == "kicked" then
		vUser:TempBan()
	elseif sc == "banned" then
		vUser:Ban()
	end
end
-- By: NightLitch

If you want anything changed just tell me...

[gizmo]

like this if its possible  

!banlog  shows  [nick] bannade  by op whos banned and reason  and date

!kicklog   and the same here but kicked

[NightLitch]

sure can add it later have to go out be back later... but fix it.. np

[NightLitch]

test the bot aleast so I now you're happy with it so far... :-)

[Stravides]

only problem is that this script seems to replace the value in it, i would expect to see 2 lines for 2 kicks for the same user...  can this be ammended
 :)

[NightLitch]

k I missed a part... sry guys...

[NightLitch]

here is a little fix til I add the Viewing part

* UPDATED * Again

-- Simple Kick/Ban Log -Bot
-- By: NightLitch 2004
-- Made some fixes
---------------------------------------------
BotName = "T-Rage"
---------------------------------------------
BanLog = "banlog.txt"
KickLog = "kicklog.txt"
---------------------------------------------
Time = ""..date("%d").."/"..date("%m").."-"..date("%Y")..""
---------------------------------------------
function DataArrival(curUser, data) 
	if (strsub(data, 1, 1) == "<" ) then 
		data=strsub(data,1,strlen(data)-1) 
		local _,_,cmd=strfind(data, "%b<>%s+(%S+)") 
		if not cmd then cmd = "0" end 
		cmd = strlower(cmd) 
		if (cmd == "!ban") and curUser.bOperator then
			ComFunc(curUser,data,"!ban",BanLog)
			return 1
		elseif (cmd == "!kick") and curUser.bOperator then
			ComFunc(curUser,data,"!kick",KickLog)
			return 1
		end
	end
end 
---------------------------------------------
function ComFunc(curUser,data,command,file)
	local s,e,nick,reason = strfind( data, "%b<>%s+%S+%s+(%S+)%s*(.*)" )
	if nick == nil or nick == "" then
		curUser:SendData(BotName,"*** Syntax error in command "..command.."  [reason]: No parameter given.")
		return 1
	end
	local vUser = GetItemByName(nick)
	if not vUser then
		curUser:SendData(BotName,nick.." is not online or wrong name...")
		return 1
	end
	if (rule == nil or rule == "") then rule = "Not given"
	else rule = ""..rule
	end
	if command == "!kick" then 
	sc = "kicked" 
	elseif command == "!ban" then 
	sc = "banned" 
	end
	Msg = ""..vUser.sName.." | "..sc.." | "..curUser.sName.." |"..reason.." | "..Time..""
	local handle = openfile(file, "a")
	write(handle,Msg.."\r\n")
	closefile(handle)
	vUser:SendPM(BotName,"You are being "..sc.." by "..curUser.sName..", because: "..reason)
	SendToAll(BotName,curUser.sName.." is "..sc.." "..nick..", reason: "..reason)
	if sc == "kicked" then
		vUser:TempBan()
	elseif sc == "banned" then
		vUser:Ban()
	end
end
-- By: NightLitch

*UPDATED* Again

hope this one works ;-)

[Stravides]

Sorry, Still overwriting

heres the output, tested on a second dc++K client Mal
and used the script from DC++ op acct,.

i get this
16/01-2004 | Mal | kicked | Stravides |kasjdhflkasdf


would it be different if the time was added to the date, or file append used ?
 however you do that ??

:)

[NightLitch]

hehe... what a miss of me...

above code is updated...

[NightLitch]

DAMN.. still not working...

[gizmo]

I can not find the txt files where is it in /scripts ?

[gizmo]

does it works with kickban to ??

[NightLitch]

yepp directly in script folder... just create a folder log

and replace with

BanLog = "log/banlog.txt"
KickLog = "log/kicklog.txt"

above code updated again now it changes line

[NightLitch]

will update in later now, gonna catch some TV. l8r

[Stravides]

Whoohoo Works :)  
I've formatted to include time too :)

Thanks matey :)

[gizmo]

now its works but when they right click kick  $Kick its not logs the kick.

[NightLitch]

I think I'Am getting tired... nothing seams to get right now... F***... sry...

Plop help ME!

-- Simple Kick/Ban Log -Bot
-- By: NightLitch 2004
-- Made some fixes
---------------------------------------------
BotName = "T-Rage"
---------------------------------------------
BanLog = "banlog.txt"
KickLog = "kicklog.txt"
BanTable = {}
KickTable = {}
---------------------------------------------
Time = ""..date("%d").."/"..date("%m").."-"..date("%Y")..""
---------------------------------------------
function DataArrival(curUser, data) 
	if (strsub(data, 1, 1) == "<" ) then 
		data=strsub(data,1,strlen(data)-1) 
		local _,_,cmd=strfind(data, "%b<>%s+(%S+)") 
		if not cmd then cmd = "0" end 
		cmd = strlower(cmd) 
		if (cmd == "!ban") and curUser.bOperator then
			ComFunc(curUser,data,"!ban",BanLog)
			return 1
		elseif (cmd == "!kick") and curUser.bOperator then
			ComFunc(curUser,data,"!kick",KickLog)
			return 1
		elseif (cmd == "!getban") and curUser.bOperator then
			ShowLogs(curUser,data,"!getban","banned")
			return 1
		end
	end
end 
---------------------------------------------
function ComFunc(curUser,data,command,file)
	local s,e,nick,reason = strfind( data, "%b<>%s+%S+%s+(%S+)%s*(.*)" )
	if nick == nil or nick == "" then
		curUser:SendData(BotName,"*** Syntax error in command "..command.."  [reason]: No parameter given.")
		return 1
	end
	local vUser = GetItemByName(nick)
	if not vUser then
		curUser:SendData(BotName,nick.." is not online or wrong name...")
		return 1
	end
	if (rule == nil or rule == "") then rule = "Not given"
	else rule = ""..rule
	end
	if command == "!kick" then 
	sc = "kicked" 
	elseif command == "!ban" then 
	sc = "banned" 
	end
	Msg = ""..vUser.sName.." $ "..sc.."|"..curUser.sName.."|"..Time.."|"..reason
	local handle = openfile(file, "a")
	write(handle,Msg.."\r\n")
	closefile(handle)
	vUser:SendPM(BotName,"You are being "..sc.." by "..curUser.sName..", because: "..reason)
	SendToAll(BotName,curUser.sName.." is "..sc.." "..nick..", reason: "..reason)
	if sc == "kicked" then
		vUser:TempBan()
	elseif sc == "banned" then
		vUser:Ban()
	end
end

function ShowLogs(curUser,data,command,dora)
	local s,e,nick = strfind( data, "%b<>%s+%S+%s+(%S+)" )
	if nick == nil or nick == "" then
		curUser:SendData(BotName,"*** Syntax error in command "..command.." : No parameter given.")
		return 1
	end
------------------------------- THIS PART FUCKS UP-------------------------
	LoadTable(BanTable,BanLog)
	for vNick,vInfo in BanTable do
		local s,e,reason = strfind( vInfo, "%S+|%S+|%S+|(.*)")
		SendToAll("Reason: "..reason)
	end
------------------------------- THIS PART FUCKS UP-------------------------
end
	
function LoadTable(table,file)
	local handle = openfile(file, "r")
	if (handle) then
    		local line = read(handle)
    		while line do
			s,e,ind,val = strfind( line, "(.*) $ (.*)")
			table[ind]=val
			line = read(handle)
    		end
  		closefile(handle)
	end
end
-- By: NightLitch

think you see my problem m8... I have never had this problem... think I Am gonna need to take more lessons from you
about strfind and so on... this sucks... BIG!

pls help me out...

[NightLitch]

AM CRYING HERE!!!

Damn I feel I SUCK... have done it over and over time after time...

But now IT FU**s up...

I quit... :-/

don't mean that but... gggaahhh...

[gizmo]

hehe take the time you want =)) its no hurry

[gizmo]

?r du svensk ?