Changeset f3678c3 for perl


Ignore:
Timestamp:
Oct 18, 2009, 3:59:29 PM (12 years ago)
Author:
Alex Vandiver <alexmv@mit.edu>
Branches:
master, 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:
2 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    ra957e92 rf3678c3  
    8989                                  { default => 15,
    9090                                    summary => 'After minutes idle, auto extended away.'
     91                                });
     92        BarnOwl::new_variable_bool("jabber:reconnect",
     93                                  { default => 1,
     94                                    summary => 'Auto-reconnect when disconnected from servers.'
    9195                                });
    9296        # Force these. Reload can screw them up.
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber/ConnectionManager.pm

    ra957e92 rf3678c3  
    5050    return 0 unless exists $self->{$jidStr};
    5151    BarnOwl::admin_message(Jabber => "Disconnected from jabber account $jidStr");
     52
     53    unless (BarnOwl::getvar('jabber:reconnect') eq 'on') {
     54        return $self->removeConnection($jidStr);
     55    }
    5256
    5357    BarnOwl::remove_dispatch($self->{$jidStr}->{Client}->{fileno}) if $self->{$jidStr}->{Client}->{fileno};
Note: See TracChangeset for help on using the changeset viewer.