Changeset 4789b17 for perl/modules/IRC/lib/BarnOwl/Module/IRC

Timestamp:

Jul 25, 2008, 11:59:40 PM (16 years ago)

Author:

Geoffrey Thomas <geofft@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:

a1a2036

Parents:

d264c6d

Message:

IRC: Add /quit display support

File:

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

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

@@ -64 +64 @@
     $self->conn->add_handler(join      => sub { shift; $self->on_join(@_) });
     $self->conn->add_handler(part      => sub { shift; $self->on_part(@_) });
+    $self->conn->add_handler(quit      => sub { shift; $self->on_quit(@_) });
     $self->conn->add_handler(disconnect => sub { shift; $self->on_disconnect(@_) });
     $self->conn->add_handler(nicknameinuse => sub { shift; $self->on_nickinuse(@_) });
@@ -164 +165 @@
     my $msg = $self->new_message($evt,
         loginout   => 'login',
+        action     => 'join',
         channel    => $evt->to,
         replycmd => 'irc-msg -a ' . $self->alias . ' ' . join(' ', $evt->to),
@@ -175 +177 @@
     my $msg = $self->new_message($evt,
         loginout   => 'logout',
+        action     => 'part',
         channel    => $evt->to,
         replycmd => 'irc-msg -a ' . $self->alias . ' ' . join(' ', $evt->to),
+        replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
+        );
+    BarnOwl::queue_message($msg);
+}
+
+sub on_quit {
+    my ($self, $evt) = @_;
+    my $msg = $self->new_message($evt,
+        loginout   => 'logout',
+        action     => 'quit',
+        from       => $evt->to,
+        reason     => [$evt->args]->[0],
+        replycmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick,
         replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
         );