Changeset 38cfdb5d for perl/modules/IRC/lib/BarnOwl

Timestamp:

Jul 23, 2008, 9:05:18 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:

d264c6d

Parents:

3ad15ff

Message:

IRC: Add proper display for the :irc-names reply.

File:

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

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

@@ -18 +18 @@
 
 use base qw(Class::Accessor Exporter);
-__PACKAGE__->mk_accessors(qw(conn alias channels connected motd));
+__PACKAGE__->mk_accessors(qw(conn alias channels connected motd names_tmp whois_tmp));
 our @EXPORT_OK = qw(&is_private);
 
@@ -45 +45 @@
     $self->motd("");
     $self->connected(0);
+    $self->names_tmp([]);
+    $self->whois_tmp("");
 
     $self->conn->add_handler(376 => sub { shift; $self->on_connect(@_) });
@@ -67 +69 @@
     $self->conn->add_handler(topic     => sub { shift; $self->on_topic(@_) });
     $self->conn->add_handler(topicinfo => sub { shift; $self->on_topicinfo(@_) });
+    $self->conn->add_handler(namreply  => sub { shift; $self->on_namreply(@_) });
+    $self->conn->add_handler(endofnames=> sub { shift; $self->on_endofnames(@_) });
 
     return $self;
@@ -222 +226 @@
 }
 
+# IRC gives us a bunch of namreply messages, followed by an endofnames.
+# We need to collect them from the namreply and wait for the endofnames message.
+# After this happens, the names_tmp variable is cleared.
+
+sub on_namreply {
+    my ($self, $evt) = @_;
+    $self->names_tmp([@{$self->names_tmp}, split(' ', [$evt->args]->[3])]);
+}
+
+sub on_endofnames {
+    my ($self, $evt) = @_;
+    my $names = BarnOwl::Style::boldify("Members of " . [$evt->args]->[1] . ":\n");
+    for my $name (@{$self->names_tmp}) {
+        $names .= "  $name\n";
+    }
+    BarnOwl::popless_ztext($names);
+    $self->names_tmp([]);
+}
 
 ################################################################################