From 9da45b371706a274d24201f1d87eaa5f433eb5e0 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 13 Jan 2016 19:52:38 -0700
Subject: Get rid of string_blacklist related stuff.

---
 lib/ASM/Classes.pm | 14 --------------
 1 file changed, 14 deletions(-)

(limited to 'lib/ASM/Classes.pm')

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];
-- 
cgit v1.2.3