From 6cf8963cfc8dc562f7ec8f3c5d538f05a0e7a0be Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 16 Aug 2012 06:58:14 +0000
Subject: Disabled message-sending-throttling Added a command to view
 uptime/cpu/ram usage statistics The hilight/dehilight commands can accept a
 comma-separated list of nicks The exempt command is now deprecated A
 restriction-system has been added to replace the old exemption system, and
 also includes additional restrictions that can be added, such as "don't let
 this account use !ops" Added a plugin command, so other bots can have ASM
 generate alerts Updated users and flags Updated channel hilights Replaced
 code that shows up in several places to split a long privmsg into two parts
 with a utility function Added a detection class for fuzzy-matching against a
 nick blacklist Fixed some major memory leaks, the bot stays stable around
 30MB rather than shooting up to 65MB after a couple of days The bot now uses
 nickserv REGAIN instead of ghost/release/nick Added channel modes, ban lists,
 and quiet lists to state tracking Ignore chanserv in netsplit detections
 Track time/setter when a topic is changed in a channel Monitor if a channel
 is set +r and is still +r 45 minutes later, if so generate an alert Print
 status and how long it took to sync once the bot has started and synced, and
 warn about failed syncings.

---
 modules/inspect.pl | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

(limited to 'modules/inspect.pl')

diff --git a/modules/inspect.pl b/modules/inspect.pl
index 6a4afec..02a6b35 100644
--- a/modules/inspect.pl
+++ b/modules/inspect.pl
@@ -25,7 +25,11 @@ sub inspect {
   my $nick = lc $event->{nick};
   my $xresult;
   return if (index($nick, ".") != -1);
-  return if (defined($::eline{$nick}) || defined($::eline{lc $event->{user}}) || defined($::eline{lc $event->{host}}));
+  return unless (ASM::Util->notRestricted($nick, "notrigger"));
+  if (defined($::eline{$nick}) || defined($::eline{lc $event->{user}}) || defined($::eline{lc $event->{host}})) {
+    print "Deprecated eline found for $nick / $event->{user} / $event->{host} !\n";
+    return;
+  }
   if ( $event->{host} =~ /gateway\/web\// ) {
     if ( $event->{user} =~ /([0-9a-f]{2})([0-9a-f]{2})([0-9a-f]{2})([0-9a-f]{2})/ ) {
       $rev = sprintf("%d.%d.%d.%d.", hex($4), hex($3), hex($2), hex($1));
@@ -63,7 +67,7 @@ sub inspect {
       $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);
-      $txtz = "\x03" . $::RCOLOR{$::RISKS{$dct{$id}{risk}}} . "\u$dct{$id}{risk}\x03 risk threat [\x02$chan\x02]: ".
+      $txtz = "\x03" . $::RCOLOR{$::RISKS{$dct{$id}{risk}}} . "\u$dct{$id}{risk}\x03 risk threat [\x02$chan\x02] - ".
               "\x02$event->{nick}\x02 - ${nicereason}; ping ";
       $txtz = $txtz . ASM::Util->commaAndify(ASM::Util->getAlert(lc $chan, $dct{$id}{risk}, 'hilights')) if (ASM::Util->getAlert(lc $chan, $dct{$id}{risk}, 'hilights'));
       $txtz = $txtz . ' !att-' . $chan . '-' . $dct{$id}{risk};
@@ -72,15 +76,7 @@ sub inspect {
       }
       unless (defined($::ignored{$chan}) && ($::ignored{$chan} >= $::RISKS{$dct{$id}{risk}})) {
         my @tgts = ASM::Util->getAlert($chan, $dct{$id}{risk}, 'msgs');
-#        foreach my $tgt (@tgts) { #unfortunately wikipedia has way too many ops, and it breaks things
-          if (length($txtz) <= 380) {
-            $conn->privmsg(\@tgts, $txtz);
-          } else {
-            my $splitpart = rindex($txtz, " ", 380);
-            $conn->privmsg(\@tgts, substr($txtz, 0, $splitpart));
-            $conn->privmsg(\@tgts, substr($txtz, $splitpart));
-          }
-#        }
+        ASM::Util->sendLongMsg($conn, \@tgts, $txtz);
         $::ignored{$chan} = $::RISKS{$dct{$id}{risk}};
         $conn->schedule(45, sub { delete($::ignored{$chan})});
       }
-- 
cgit v1.2.3