Changeset 4df2568 for perl/modules

Timestamp:

Feb 20, 2009, 7:08:36 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

e625b5e

Parents:

33db995

Message:

IRC: Show admin messages for mode changes.

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (2 diffs)

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -73 +73 @@
     $self->conn->add_handler(endofnames=> sub { shift; $self->on_endofnames(@_) });
     $self->conn->add_handler(endofwhois=> sub { shift; $self->on_endofwhois(@_) });
+    $self->conn->add_handler(mode      => sub { shift; $self->on_mode(@_) });
 
     # * nosuchchannel
@@ -276 +277 @@
 }
 
+sub on_mode {
+    my ($self, $evt) = @_;
+    BarnOwl::admin_message("IRC",
+                           "[" . $self->alias . "] User " . ($evt->nick) . + " set mode " .
+                           join(" ", $evt->args) . "on " . $evt->to->[0]
+                          );
+}
+
 sub on_event {
     my ($self, $evt) = @_;