Changeset 47b6a5f for perl

Timestamp:

Jan 10, 2008, 12:12:52 AM (17 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

2fb58e4

Parents:

6858d2d

Message:

Show PART and JOIN messages

File:

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

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

@@ -35 +35 @@
             sub { goto &on_msg });
     $self->add_global_handler(cping => sub { goto &on_ping });
+    $self->add_global_handler(join  => sub { goto &on_join });
+    $self->add_global_handler(part  => sub { goto &on_part });
     $self->add_default_handler(sub { goto &on_event; });
 
@@ -49 +51 @@
 }
 
+sub new_message {
+    my $self = shift;
+    my $evt = shift;
+    return BarnOwl::Message->new(
+        type        => 'IRC',
+        server      => $self->server,
+        network     => $self->alias,
+        sender      => $evt->nick,
+        hostname    => $evt->host,
+        from        => $evt->from,
+        @_
+       );
+}
+
 sub on_msg {
     my ($self, $evt) = @_;
@@ -54 +70 @@
     my $body = strip_irc_formatting([$evt->args]->[0]);
     $body = BarnOwl::Style::boldify($evt->nick.' '.$body) if $evt->type eq 'caction';
-    my $msg = BarnOwl::Message->new(
-        type        => 'IRC',
+    my $msg = $self->new_message($evt,
         direction   => 'in',
-        server      => $self->server,
-        network     => $self->alias,
         recipient   => $recipient,
-        body        => $body,
-        sender      => $evt->nick,
-        hostname    => $evt->host,
-        from        => $evt->from,
+        body => $body,
         $evt->type eq 'notice' ?
           (notice     => 'true') : (),
@@ -70 +80 @@
         replycmd    => 'irc-msg ' .
             (is_private($recipient) ? $evt->nick : $recipient),
-        replysendercmd => 'irc-msg ' . $evt->nick,
+        replysendercmd => 'irc-msg ' . $evt->nick
        );
+
     BarnOwl::queue_message($msg);
 }
@@ -80 +91 @@
 }
 
+sub on_join {
+    my ($self, $evt) = @_;
+    my $msg = $self->new_message($evt,
+        loginout   => 'login',
+        channel    => $evt->to,
+        );
+    BarnOwl::queue_message($msg);
+}
+
+sub on_part {
+    my ($self, $evt) = @_;
+    my $msg = $self->new_message($evt,
+        loginout   => 'logout',
+        channel    => $evt->to,
+        );
+    BarnOwl::queue_message($msg);
+}
+
 sub on_event {
     my ($self, $evt) = @_;
     BarnOwl::admin_message("IRC",
-            "Unhandled IRC event of type " . $evt->type . ":\n"
+            "[" . $self->alias . "] Unhandled IRC event of type " . $evt->type . ":\n"
             . strip_irc_formatting(join("\n", $evt->args)))
         if BarnOwl::getvar('irc:spew') eq 'on';