D32.id67.diff
No OneTemporary
Actions

Size

624 B

Referenced Files

None

Subscribers

None

D32.id67.diff
View Options

	diff --git a/Daeghrefn/Channel.tcl b/Daeghrefn/Channel.tcl
	--- a/Daeghrefn/Channel.tcl
	+++ b/Daeghrefn/Channel.tcl
	@@ -58,11 +58,20 @@
	return 0
	}

	+proc isfloodquitmessage {reason} {
	+ foreach floodreason [registry get protection.botnet.reasons] {
	+ if [string match $reason $floodreason] {
	+ return 1
	+ }
	+ }
	+ return 0
	+}
	+
	proc sign:excessflood {nick uhost handle channel reason} {
	global botname

	# We're interested by unknown users quitting with Excess Flood message.
	- if {$reason != "Excess Flood" \|\| [nick2hand $nick] != "*"} {
	+ if {![isfloodquitmessage $reason] \|\| $handle != "*"} {
	return
	}