Get rid of string_blacklist related stuff.

1 files changed, 0 insertions, 14 deletions

diff --git a/lib/ASM/Classes.pm b/lib/ASM/Classes.pm
index 17f6bdb..35ba5d0 100644
--- a/lib/ASM/Classes.pm
+++ b/lib/ASM/Classes.pm
@@ -14,7 +14,6 @@ sub new
   my $module = shift;
   my $self = {};
   my $tbl = {
-    "strbl" => \&strbl,
     "strblnew" => \&strblnew,
     "strblpcre" => \&strblpcre,
     "dnsbl" => \&dnsbl,
@@ -394,19 +393,6 @@ 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 strblnew {
   my ($chk, $xid, $event, $chan) = @_;
   my $match = lc $event->{args}->[0];