summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLibravatarWilliam Heimbigner <william.heimbigner@gmail.com>2016-01-15 00:45:56 -0700
committerLibravatarWilliam Heimbigner <william.heimbigner@gmail.com>2016-01-15 00:45:56 -0700
commit1fe5b5f72660c0cde4d31ae0186d5c74e1ebb24e (patch)
treef184234b30f74d4634b09ddef9e4e9b4239eb5a8
parent2bd1a4861435b8b19d1f4b4c66d77436d39db54b (diff)
downloadantispammeta-1fe5b5f72660c0cde4d31ae0186d5c74e1ebb24e.tar.bz2
antispammeta-1fe5b5f72660c0cde4d31ae0186d5c74e1ebb24e.tar.xz
antispammeta-1fe5b5f72660c0cde4d31ae0186d5c74e1ebb24e.tar.zst
Clean up some stray comments and add support for Inspect to hook invite events
-rw-r--r--lib/ASM/Event.pm7
-rw-r--r--lib/ASM/Inspect.pm1
2 files changed, 1 insertions, 7 deletions
diff --git a/lib/ASM/Event.pm b/lib/ASM/Event.pm
index 96f8783..668d7c4 100644
--- a/lib/ASM/Event.pm
+++ b/lib/ASM/Event.pm
@@ -52,7 +52,6 @@ sub new
$conn->add_handler('pong', \&on_pong);
$conn->add_handler('channelurlis', \&on_channelurlis);
$conn->add_handler('480', \&on_jointhrottled);
- $conn->add_handler('invite', \&blah); # This doesn't need to be fancy; I just need it to go through inspect
$conn->add_handler('servicesdown', \&on_servicesdown);
$conn->add_handler('endofbanlist', \&on_banlistend);
$conn->add_handler('quietlistend', \&on_quietlistend);
@@ -147,9 +146,7 @@ sub on_ping
{
my ($conn, $event) = @_;
$conn->sl("PONG " . $event->{args}->[0]);
-# alarm 200;
ASM::Util->dprint('Ping? Pong!', 'pingpong');
-# ASM::Util->dprint(Dumper($event), 'pingpong');
}
sub on_account
@@ -175,7 +172,6 @@ sub on_join {
my $nick = lc $event->{nick};
my $chan = lc $event->{to}->[0];
my $rate;
-# alarm 200;
if ( lc $conn->{_nick} eq lc $nick) {
$::sc{$chan} = {};
mkdir($::settings->{log}->{dir} . $chan);
@@ -225,9 +221,6 @@ sub on_part
my $idx = $::db->actionlog( $event);
$::log->sqlIncident($chan, $idx) if $idx;
}
-# "to" => [ "#antispammeta" ],
-# "args" => [ "requested by ow (test)" ],
-# "nick" => "aoregcdu",
if (defined($::sn{$nick}) && defined($::sn{$nick}->{mship})) {
my @mship = @{$::sn{$nick}->{mship}};
@mship = grep { lc $_ ne $chan } @mship;
diff --git a/lib/ASM/Inspect.pm b/lib/ASM/Inspect.pm
index 0177dd4..3854104 100644
--- a/lib/ASM/Inspect.pm
+++ b/lib/ASM/Inspect.pm
@@ -29,6 +29,7 @@ sub new
$conn->add_handler('cuserinfo', \&inspect, "after");
$conn->add_handler('cclientinfo', \&inspect, "after");
$conn->add_handler('cfinger', \&inspect, "after");
+ $conn->add_handler('invite', \&inspect, "after");
$conn->add_handler('public', \&on_public, "after");
return $self;
}