diff options
author | William Heimbigner <william.heimbigner@gmail.com> | 2016-01-15 00:45:56 -0700 |
---|---|---|
committer | William Heimbigner <william.heimbigner@gmail.com> | 2016-01-15 00:45:56 -0700 |
commit | 1fe5b5f72660c0cde4d31ae0186d5c74e1ebb24e (patch) | |
tree | f184234b30f74d4634b09ddef9e4e9b4239eb5a8 | |
parent | 2bd1a4861435b8b19d1f4b4c66d77436d39db54b (diff) | |
download | antispammeta-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.pm | 7 | ||||
-rw-r--r-- | lib/ASM/Inspect.pm | 1 |
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; } |