Changeset 27a1903 for perl/modules/IRC/lib/BarnOwl

Timestamp:

Sep 30, 2009, 9:32:36 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

5b483a6

Parents:

9300fe5

git-author:

Nelson Elhage <nelhage@mit.edu> (09/19/09 20:18:35)

git-committer:

Nelson Elhage <nelhage@mit.edu> (09/30/09 21:32:36)

Message:

IRC Completion: Use networks and channels from the IRC module.

File:

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

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

@@ -6 +6 @@
 use BarnOwl::Completion::Util qw(complete_flags);
 
-my %networks = ();
-my %dests = ();
-my %servers = ();
+our %users = ();
+our %servers = ();
 
-sub complete_networks { keys %networks }
-sub complete_dests    { keys %dests }
-sub complete_channels { grep /^#/, keys %dests }
-sub complete_nicks    { grep /^[^#]/, keys %dests }
+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_nicks    { keys %users }
 sub complete_servers  { keys %servers }
 
@@ -75 +74 @@
     my $m = shift;
     return unless $m->type eq 'IRC';
-    $networks{$m->network} = 1;
-    $dests{$m->recipient} = 1;
-    $dests{$m->sender} = 1;
+    if ($m->recipient !~ m{^#}) {
+        $users{$m->recipient} = 1;
+    }
+    if ($m->sender !~ m{^#}) {
+        $users{$m->sender} = 1;
+    }
     $servers{$m->server} = 1;
 }