make rules private, properly handle ghosting/releasing, added a proxy list, much faster join/startup

1 files changed, 13 insertions, 1 deletions

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;