diff options
| -rw-r--r-- | config-default/commands.xml | 6 | ||||
| -rwxr-xr-x | meta.pl | 6 | ||||
| -rw-r--r-- | modules/event.pl | 6 | ||||
| -rw-r--r-- | modules/inspect.pl | 4 |
4 files changed, 0 insertions, 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> @@ -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); |