From d7aa95f5ee6f1d03c707f5a1ecc87f6c3dee0b05 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 30 May 2012 22:12:30 +0000
Subject: make rules private, properly handle ghosting/releasing, added a proxy
 list, much faster join/startup

---
 modules/classes.pl | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'modules/classes.pl')

diff --git a/modules/classes.pl b/modules/classes.pl
index d747815..fc80da1 100644
--- a/modules/classes.pl
+++ b/modules/classes.pl
@@ -25,6 +25,7 @@ sub new
     "gecos" => \&gecos,
     "nuhg" => \&nuhg,
     "levenflood" => \&levenflood,
+    "proxy" => \&proxy
   };
   $self->{ftbl} = $tbl;
   bless($self);
@@ -38,6 +39,17 @@ sub check
   return $self->{ftbl}->{$item}->(@_);
 }
 
+sub proxy
+{
+  my ($chk, $id, $event, $chan, $rev) = @_;
+  if (defined($rev) and ($rev =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)\./)) {
+    if (defined($::proxies{"$4.$3.$2.$1"})) {
+      return 1;
+    }
+  }
+  return 0;
+}
+
 my %ls = ();
 sub levenflood
 {
@@ -167,7 +179,7 @@ sub splitflood {
     process_cf();
   }
   if ( scalar @{$cf{$id}{$chan}{$text}} == int($cut[0]) ) {
-    $bs{$id}{$text} = time;
+    $bs{$id}{$text} = time unless length($text) < 10;
     return 1;
   }
   return 0;
-- 
cgit v1.2.3