From 79c37d187ec0120c0b723f8026f6a3563141e7b2 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Fri, 25 Apr 2014 00:43:45 +0400
Subject: removed very deprecated eline system

---
 config-default/commands.xml | 6 ------
 meta.pl                     | 6 ------
 modules/event.pl            | 6 ------
 modules/inspect.pl          | 4 ----
 4 files changed, 22 deletions(-)

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 1589fcf..8d25b0f 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -464,12 +464,6 @@
     my @strbl = io('string_blacklist.txt')->getlines;
     chomp @strbl;
     @::string_blacklist = @strbl;
-    my @eline=io('exempt.txt')->getlines;
-    chomp @eline;
-    %::eline = ();
-    foreach my $item (@eline) {
-	$::eline{lc $item} = 1;
-    }
     $conn->privmsg($event->replyto, 'config files were re-read');
   ]]>
   </command>
diff --git a/meta.pl b/meta.pl
index 356b6a1..52abde8 100755
--- a/meta.pl
+++ b/meta.pl
@@ -19,7 +19,6 @@ use HTTP::Async;
 
 $Data::Dumper::Useqq=1;
 
-%::eline=();
 $::pass = '';
 @::nick_blacklist=();
 @::string_blacklist=();
@@ -110,11 +109,6 @@ sub init {
   $::commander = ASM::Commander->new();
   ASM::Event->new($conn, $::inspector);
   $::classes = ASM::Classes->new();
-  my @eline=io('exempt.txt')->getlines;
-  chomp @eline;
-  foreach my $item (@eline) {
-    $::eline{lc $item} = 1;
-  }
   my @strbl = io('string_blacklist.txt')->getlines;
   chomp @strbl;
   @::string_blacklist = @strbl;
diff --git a/modules/event.pl b/modules/event.pl
index 4978432..271e58c 100644
--- a/modules/event.pl
+++ b/modules/event.pl
@@ -150,12 +150,6 @@ sub on_pong
       my @strbl = io('string_blacklist.txt')->getlines;
       chomp @strbl;
       @::string_blacklist = @strbl;
-#    my @eline=io('exempt.txt')->getlines;
-#    chomp @eline;
-#    %::eline = ();
-#    foreach my $item (@eline) {
-#        $::eline{lc $item} = 1;
-#    }
     }
   }
   if ($lag > 1) {
diff --git a/modules/inspect.pl b/modules/inspect.pl
index 5c7ce73..af1c06a 100644
--- a/modules/inspect.pl
+++ b/modules/inspect.pl
@@ -67,10 +67,6 @@ sub inspect {
   foreach $chan (@{$event->{to}}) {
     foreach $id ( keys %dct ) {
       return unless (ASM::Util->notRestricted($nick, "notrigger"));
-      if (defined($::eline{$nick}) || defined($::eline{lc $event->{user}}) || defined($::eline{lc $event->{host}})) {
-        say "Deprecated eline found for $nick / $event->{user} / $event->{host} !";
-        return;
-      }
       $xresult = $dct{$id}{xresult};
       my $nicereason = interpolate($dct{$id}{reason});
       $::db->record($chan, $event->{nick}, $event->{user}, $event->{host}, $::sn{lc $event->{nick}}->{gecos}, $dct{$id}{risk}, $id, $nicereason);
-- 
cgit v1.2.3