Changeset a957e92 for perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm

Timestamp:

Oct 18, 2009, 3:59:29 PM (15 years ago)

Author:

Alex Vandiver <alexmv@mit.edu>

Branches:

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

Children:

f3678c3

Parents:

99cc3dc

git-author:

Alex Vandiver <alexmv@mit.edu> (03/22/09 02:06:46)

git-committer:

Alex Vandiver <alexmv@mit.edu> (10/18/09 15:59:29)

Message:

Make Jabber try to reconnect when disconnected, at exponential intervals

Make the ConnectionManager store auth information on connect, and use
that auth information to try to reconnect and re-auth.  Use some
simple exponential backoff, capped at 5 minutes, as intervals for
reconnecting.

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm (modified) (1 diff)

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

@@ -142 +142 @@
 sub OwlProcess {
     my $self = shift;
+    my $jid = shift || $self->{SESSION}->{FULLJID};
     my $status = $self->Process(0);
     if ( !defined($status) ) {
-        my $jid = $self->{SESSION}->{FULLJID};
-        BarnOwl::error("Jabber account $jid disconnected!");
-        BarnOwl::Module::Jabber::do_logout($jid);
+        $BarnOwl::Module::Jabber::conn->scheduleReconnect($jid);
     }
+}
+
+=head2 Disconnect
+
+Work around a bug in Net::Jabber::Client where Process' return status
+is not cleared on disconnect.
+
+=cut
+
+sub Disconnect {
+    my $self = shift;
+    delete $self->{PROCESSERROR};
+    return $self->SUPER::Disconnect(@_);
 }