--[[

		cmd_kick.lua v0.02 by blastbeat
		
		- this script adds a command "kick" to kick users by sid
		- usage: [+!#]kick <sid> [<time> <reason>]
		- <time> are ban minutes
		
		- changelog:
		  - fixed typo
		  - added opchat setting

]]--

--// settings begin //--

local bans_path = "scripts/cmd_kick/bans.tbl"
local bans

local permission = {	

	--// [ user_level = level means user_level can kick users with level max //--
	
	[ 40 ] = 10,	--// svip to guest		
	[ 60 ] = 30,	--// operator to vip
	[ 80 ] = 40,	--// admin to svip
	[ 100 ] = 100,	--// hubowner can kick all
				
}

local opchat_feed = true	--// send status message to opchat?

local msg_denied = "You are not allowed to use this command."
local msg_import = "Error while importing opchat."
local msg_reason = "No reason."
local msg_usage = "Usage: +kick <sid> <time> <reason>"
local msg_level = "You are not allowed to kick this user."
local msg_off = "User not found."
local msg_god = "You cannot kick gods."
local msg_ban = "%s %s is banned here. Remaining ban time in seconds: "
local msg_ok = "%s kicked by %s for %s minutes because: %s"

local cmd = "kick"

local default_time = 20		--// default ban time are 20 minutes

--// settings end //--

local opchat

hub:setListener( "onStart", { }, 									
	function( p )	
		opchat = hub:import "bot_opchat"
		if not opchat and opchat_feed then
			error( msg_import )
		end
		bans = util.load( bans_path ) or { }
		return nil			
	end
)

hub:setListener( "onBroadcast", { }, 									
	function( p )	
        local command, parameters = utf.match( p.msg, "^[+!#](%a+) ?(.*)" )        
		if command == cmd then
			local user_level = p.user:getLevel( )
			if not permission[ user_level ] then 
				p.user:reply{ msg = msg_denied, from = hub:getBot( ) } 
				return PROCESSED 
			end	
			local sid = utf.match( parameters, "^(%S+)" )		
			local _, time = utf.match( parameters, "^(%S+) (%d+)" )	
			local _, _, reason = utf.match( parameters, "^(%S+) (%d+) (.*)" )		
			if not sid then
				p.user:reply{ msg = msg_usage, from = hub:getBot( ) }
				return PROCESSED
			end
			local target_user = hub:isUserOnline{ sid = sid }
			if not target_user then
				p.user:reply{ msg = msg_off, from = hub:getBot( ) }
				return PROCESSED
			end
			if permission[ user_level ] < target_user:getLevel( ) then
				p.user:reply{ msg = msg_god, from = hub:getBot( ) }
				return PROCESSED
			end	
			reason = reason or msg_reason
			time = tonumber( time ) or default_time
			local ban_time = time * 60
			local target_nick = hub:escapeFrom( target_user:getNick( ) )
			local user_nick = hub:escapeFrom( p.user:getNick( ) )
			local status_message = utf.format( msg_ok, target_nick, user_nick, time, reason ) 
			bans[ #bans + 1 ] = { nick = target_user:getNick( ), cid = target_user:getCid( ), hash = target_user:sessionHash( ), ip = target_user:getIp( ), time = ban_time, start = os.time( os.date( "*t" ) ), reason = reason, by = p.user:getNick( ) }
			util.saveArray( bans, bans_path )
			target_user:reply{ msg = status_message, from = hub:getBot( ) }	
			target_user:kill{ adc_msg = "ISTA 230 " .. hub:escapeTo( reason ) .. " TL" .. ban_time .. "\n" }	--// need a table to check the time =__=	
			if opchat_feed then
				opchat.feed( status_message )
			end
			p.user:reply{ msg = status_message, from = hub:getBot( ) }		
			return PROCESSED
		end
		return nil			
	end
)

hub:setListener( "onConnect", { }, 									
	function( p )	
		local nick, cid, hash, ip = p.user:getNick( ), p.user:getCid( ), p.user:sessionHash( ), p.user:getIp( )
		local what, key, ban
		for i, ban_tbl in ipairs( bans ) do
			key = i
			ban = ban_tbl
			if ban_tbl.nick == nick then
				what = "Nick"
				break
			elseif ban_tbl.cid == cid and ban_tbl.hash == hash then
				what = "CID"
				break
			elseif ban.ip == ip then
				what = "IP"
				break
			end
		end
		if what then
			local current_time = os.time( )
			local passed_secs = os.difftime( current_time, ban.start )
			local remaining_secs = ( tonumber( ban.time ) or default_time ) - passed_secs
			if remaining_secs > 0 then
				local status_message = utf.format( msg_ban, what, ban[ utf.lower( what ) ] ) .. remaining_secs				
				p.user:kill{ adc_msg = "ISTA 231 " .. hub:escapeTo( status_message ) .. " TL" .. remaining_secs .. "\n" }	
				return true			
			else
				table.remove( bans, key )
			end
		end
		return nil			
	end
)

hub:debug( "** Loaded cmd_kick.lua **" )