Get rid of string_blacklist related stuff.

2 files changed, 0 insertions, 17 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];
diff --git a/lib/ASM/Event.pm b/lib/ASM/Event.pm
index 690a12d..2cd1e6c 100644
--- a/lib/ASM/Event.pm
+++ b/lib/ASM/Event.pm
@@ -136,9 +136,6 @@ sub on_pong
     } else {
       $conn->privmsg($::settings->{masterchan}, "Config files changed, auto rehash triggered. Check console for possible errors.");
       ASM::XML->readXML();
-      my @strbl = io('string_blacklist.txt')->getlines;
-      chomp @strbl;
-      @::string_blacklist = @strbl;
     }
   }
   if ($lag > 1) {