Changeset f3678c3 for perl/modules/Jabber/lib/BarnOwl/Module

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:

da554da

Parents:

a957e92

git-author:

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

git-committer:

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

Message:

Add a jabber:reconnect (default to on) which controls auto-reconnect

Location:

perl/modules/Jabber/lib/BarnOwl/Module

Files:

• Jabber.pm (modified) (1 diff)
• Jabber/ConnectionManager.pm (modified) (1 diff)

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

@@ -89 +89 @@
                                   { default => 15,
                                     summary => 'After minutes idle, auto extended away.'
+                                });
+        BarnOwl::new_variable_bool("jabber:reconnect",
+                                  { default => 1,
+                                    summary => 'Auto-reconnect when disconnected from servers.'
                                 });
         # Force these. Reload can screw them up.

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

@@ -50 +50 @@
     return 0 unless exists $self->{$jidStr};
     BarnOwl::admin_message(Jabber => "Disconnected from jabber account $jidStr");
+
+    unless (BarnOwl::getvar('jabber:reconnect') eq 'on') {
+        return $self->removeConnection($jidStr);
+    }
 
     BarnOwl::remove_dispatch($self->{$jidStr}->{Client}->{fileno}) if $self->{$jidStr}->{Client}->{fileno};