Changeset 1069 for trunk/modules/flood.tcl

Timestamp:

02/01/10 18:59:10 (2 years ago)

Author:

james

Message:

add channel-level flood checking too

File:

• trunk/modules/flood.tcl (modified) (3 diffs)

trunk/modules/flood.tcl

@@ -82 +82 @@
 
   set val 1
-  if [validuser $nick] {
-    set handle $nick
-  } else {
-    set handle [nick2hand $nick]
-    if {$handle == "*"} {
-      set handle $nick
-    }
-  }
+        if {[string index $nick 0] != "#"} {
+                if [validuser $nick] {
+                        set handle $nick
+                } else {
+                        set handle [nick2hand $nick]
+                        if {$handle == "*"} {
+                                set handle $nick
+                        }
+                        bMotion_putloglev d * "Using handle $handle as flood target (was $nick)"
+                }
+        } else {
+                bMotion_putloglev d * "Using channel $nick as flood target"
+                set handle $nick
+        }
   set lastCallback ""
   catch {
@@ -196 +202 @@
 
 proc bMotion_flood_get { nick } {
-  global bMotion_flood_info
-  if [validuser $nick] {
-    set handle $nick
-  } else {
-    set handle [nick2hand $nick]
-    if {$handle == "*"} {
-      set handle $nick
-    }
-  }
-  set flood 0
-  catch {
+        global bMotion_flood_info
+        if {[string index $nick 0] != "#"} {
+                if [validuser $nick] {
+                        set handle $nick
+                } else {
+                        set handle [nick2hand $nick]
+                        if {$handle == "*"} {
+                                set handle $nick
+                        }
+                }
+        } else {
+                set handle $nick
+        }
+        set flood 0
+        catch {
     set flood $bMotion_flood_info($handle)
   }
@@ -226 +236 @@
   set flood [bMotion_flood_get $nick]
   set chance 2
-  if {$flood > 35} {
-    set chance -1
-  }
-
-  if {$flood > 25} {
-    set chance -1
-  }
-
-  if {$flood > 15} {
-    set chance 1
-  }
-  set r [rand 2]
-  if {!($r < $chance)} {
-    putlog "bMotion: FLOOD check on $nick (http://www.bmotion.net:8000/bmotion/wiki/FAQDisableFlood)"
-    return 1
-  }
+
+        if {[string index $nick 0] == "#"} {
+                set is_chan 1
+        } else {
+                set is_chan 0
+        }
+
+        if {!$is_chan} {
+                if {$flood > 35} {
+                        set chance -1
+                }
+
+                if {$flood > 25} {
+                        set chance -1
+                }
+
+                if {$flood > 15} {
+                        set chance 1
+                }
+                set r [rand 2]
+                if {!($r < $chance)} {
+                        putlog "bMotion: FLOOD check on $nick (http://www.bmotion.net:8000/bmotion/wiki/FAQDisableFlood)"
+                        return 1
+                }
+        } else {
+                if {$flood > 35} {
+                        putlog "bMotion: FLOOD protection for $nick (http://www.bmotion.net:8000/bmotion/wiki/FAQDisableFlood)"
+                        return 1
+                }
+        }
   return 0
 }