diff options
Diffstat (limited to 'modules/classes.pl')
| -rw-r--r-- | modules/classes.pl | 14 |
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; |