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

Timestamp:

Aug 8, 2013, 3:51:55 PM (11 years ago)

Author:

Jason Gross <jgross@mit.edu>

Branches:

master, release-1.10

Children:

76e80de

Parents:

ae2b830

git-author:

Jason Gross <jgross@mit.edu> (01/05/13 14:41:45)

git-committer:

Jason Gross <jgross@mit.edu> (08/08/13 15:51:55)

Message:

Add a ~/.owl/ircchannels file, persist channels

All irc channel subscriptions persist across reconnects.

irc-{part,join} now have a -t flag, which makes the channels not persist
across BarnOwl sessions.

irc-loadchannels loads persistent channels.  It does not unload existing
channels.

File:

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

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

@@ -39 +39 @@
     my $self = bless({}, $class);
     $self->conn($conn);
-    $self->autoconnect_channels([]);
+    # TODO(jgross): use // when we move to requiring perl 5.10
+    $self->autoconnect_channels(defined $args->{autoconnect_channels} ? $args->{autoconnect_channels} : []);
     $self->alias($alias);
     $self->server($host);
@@ -412 +413 @@
         $self->{reconnect_timer}->stop;
     }
-    $self->{reconnect_timer} = 
+    $self->{reconnect_timer} =
         BarnOwl::Timer->new( {
             name  => 'IRC (' . $self->alias . ') reconnect_timer',
@@ -445 +446 @@
             $self->conn->send_msg(join => $c);
         }
-        $self->autoconnect_channels([]);
     }
     $self->conn->enable_ping(60, sub {
@@ -458 +458 @@
     my $backoff = $self->backoff;
 
-    $self->autoconnect_channels([keys(%{$self->{channel_list}})]);
     $self->conn->connect(@{$self->connect_args});
 }