Changeset 60b49a7 for perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

Timestamp:

Apr 3, 2011, 3:06:01 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

0ccf5ab

Parents:

5d4262c

git-author:

Nelson Elhage <nelhage@mit.edu> (03/03/11 10:58:42)

git-committer:

Nelson Elhage <nelhage@mit.edu> (04/03/11 15:06:01)

Message:

Make nick-change events LOGIN messages instead of ADMIN.

File:

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

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

@@ -122 +122 @@
     my $self = shift;
     my $evt = shift;
-    my ($nick, $user, $host) = split_prefix($evt);
-    return BarnOwl::Message->new(
+    my %args = (
         type        => 'IRC',
         server      => $self->server,
         network     => $self->alias,
-        sender      => $nick,
-        defined($host) ? (hostname    => $host) : (),
-        from        => $evt->{prefix},
         @_
        );
+    if ($evt) {
+        my ($nick, $user, $host) = split_prefix($evt);
+        $args{sender}   ||= $nick;
+        $args{hostname} ||= $host if defined($host);
+        $args{from}     ||= $evt->{prefix};
+        $args{params}   ||= join(' ', @{$evt->{params}})
+    }
+    return BarnOwl::Message->new(%args);
 }
 
@@ -274 +278 @@
                                "You are now known as $new_nick");
     } else {
-        BarnOwl::admin_message("IRC",
-                               "[" . $self->alias . "] " .
-                               "$old_nick is now known as $new_nick");
+        my $msg = $self->new_message('',
+            loginout   => 'login',
+            action     => 'nick change',
+            from       => $new_nick,
+            sender     => $new_nick,
+            replycmd   => BarnOwl::quote('irc-msg', '-a', $self->alias,
+                                         $new_nick),
+            replysendercmd => BarnOwl::quote('irc-msg', '-a', $self->alias,
+                                             $new_nick),
+            old_nick   => $old_nick);
+        BarnOwl::queue_message($msg);
     }
 }