Changeset fe8cad8 for perl/modules

Timestamp:

Jan 11, 2008, 5:11:00 PM (17 years ago)

Author:

Alex Vandiver <alexmv@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:

216e621

Parents:

9e02bb7

git-author:

Alex Vandiver <alexmv@mit.edu> (01/11/08 17:08:47)

git-committer:

Alex Vandiver <alexmv@mit.edu> (01/11/08 17:11:00)

Message:

Default connections on a per-channel-name basis

File:

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

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

@@ -28 +28 @@
 # Hash alias -> BarnOwl::Module::IRC::Connection object
 our %ircnets;
+our %channels;
 
 sub startup {
@@ -210 +211 @@
     my $conn = get_connection(\@_);
     my $chan = shift or die("Usage: $cmd channel\n");
+    $channels{$chan} ||= [];
+    push @{$channels{$chan}}, $conn;
     $conn->join($chan);
 }
@@ -217 +220 @@
     my $conn = get_connection(\@_);
     my $chan = get_channel(\@_) || die("Usage: $cmd <channel>\n");
+    $channels{$chan} = [grep {$_ ne $conn} @{$channels{$chan} || []}];
     $conn->part($chan);
 }
@@ -251 +255 @@
         return get_connection_by_alias(shift @$args);
     }
+    my $channel = $args->[-1];
+    if ($channel =~ /^#/ and $channels{$channel} and @{$channels{$channel}} == 1) {
+        return $channels{$channel}[0];
+    }
     my $m = BarnOwl::getcurmsg();
     if($m && $m->type eq 'IRC') {