Changeset dace02a for perl/modules/IRC/lib/BarnOwl/Module/IRC/Completion.pm

Timestamp:

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

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

ab6d8f0

Parents:

b9a642a

git-author:

Nelson Elhage <nelhage@mit.edu> (03/12/11 11:41:48)

git-committer:

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

Message:

Use AnyEvent::IRC::Client's channel tracking, instead our own.

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC/Completion.pm (modified) (1 diff)

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

@@ -11 +11 @@
 sub complete_networks { keys %BarnOwl::Module::IRC::ircnets }
 sub complete_dests    { keys %users, complete_channels() }
-sub complete_channels { keys %BarnOwl::Module::IRC::channels }
+sub complete_channels {
+    my %channels;
+    for my $conn (values %BarnOwl::Module::IRC::ircnets) {
+        for my $chan (keys %{$conn->conn->{channel_list}}) {
+            $channels{$chan} = 1;
+        }
+    }
+    return keys %channels;
+}
 sub complete_nicks    { keys %users }
 sub complete_servers  { keys %servers }