critical bug fix + code optimizations

1 files changed, 14 insertions, 0 deletions

diff --git a/modules/classes.pl b/modules/classes.pl
index 93c5e12..b540a9a 100644
--- a/modules/classes.pl
+++ b/modules/classes.pl
@@ -11,6 +11,7 @@ sub new
   my $module = shift;
   my $self = {};
   my $tbl = {
+    "strbl" => \&strbl,
     "dnsbl" => \&dnsbl,
     "floodqueue" => \&floodqueue,
     "nickspam" => \&nickspam,
@@ -147,6 +148,19 @@ sub re {
   return 0;
 }
 
+sub strbl {
+  my ($chk, $id, $event, $chan) = @_;
+  my $match = lc $event->{args}->[0];
+  foreach my $line (@::string_blacklist) {
+    my $xline = lc $line;
+    my $idx = index $match, $xline;
+    if ( $idx != -1 ) {
+      return 1;
+    }
+  }
+  return 0;
+}
+
 sub nick {
   my ($chk, $id, $event, $chan) = @_;
   if ( lc $event->{nick} eq lc $chk->{content} ) {