auto-ban

[edu]

Code: Select all

setudef flag X

bind join - * edu:join:X

proc edu:join:X {nickname hostname handle channel} {
	if {![channel get $channel X]} { return }
	foreach ban [banlist $channel] {
		set ban_host [lindex $ban 0]
		set ban_reason [lindex $ban 1]
		set ban_by [lindex $ban 5]
		if {[string match -nocase $ban_host $nickname!$hostname]} {
			putquick "PRIVMSG X :ban $channel $ban_host 1 75 $ban_reason"
		}
	}
}

[mavericku]

Thank you very much...

[caesar]

Pointless foreach but anyway you should add a 'break' statement when a match had been found as there is no need to continue matching internal bans with his host as he in theory got banned tough X.

[Danik]

I'm sorry .. but can someone explain how to add bans to this list ?
I tried to ban through telnet ( .+ban <nick> <#chan> reason ) but it doesnt work

[speechles]

Code: Select all

setudef flag X 

Did you forget to .chanset #yourchan +X?

[Danik]

Code: Select all

setudef flag X 

Did you forget to .chanset #yourchan +X?

THX ... it work's now