From bf73664a22c4c80546e6d4ca27d4419184696eb8 Mon Sep 17 00:00:00 2001 From: Yorhel Date: Sun, 29 Jan 2017 10:27:01 +0100 Subject: IRC: Remove eval command I never use it. And it's scary. --- lib/Multi/IRC.pm | 9 --------- 1 file changed, 9 deletions(-) (limited to 'lib/Multi') diff --git a/lib/Multi/IRC.pm b/lib/Multi/IRC.pm index 5eaf6355..7b0f4a96 100644 --- a/lib/Multi/IRC.pm +++ b/lib/Multi/IRC.pm @@ -482,15 +482,6 @@ scr => [ 0, 0, sub { }; }], -eval => [ 1, 1, sub { - my @l = split /\r?\n/, eval($_[2])||$@; - if(@l > 5 || length(join ' ', @l) > 400) { - $irc->send_msg(PRIVMSG => $_[1], 'Output too large, refusing to spam chat (and too lazy to use a pastebin).'); - } else { - $irc->send_msg(PRIVMSG => $_[1], encode_utf8("eval: ".$_)) for @l; - } -}], - die => [ 1, 1, sub { kill 'TERM', 0; }], -- cgit v1.2.3