Changeset f3678c324b8086ca07cd0baaa425a0aa99a75524

Show
Ignore:
Timestamp:
10/18/09 15:59:29 (5 weeks ago)
Author:
Alex Vandiver <alexmv@mit.edu>
git-author:
Alex Vandiver <alexmv@mit.edu> / 2009-03-22T02:24:37Z-0400
Parents:
a957e9285b443c0e7c978318a7e67324b6085139
Children:
da554dacc0fe3e67c020250564135f598780682f
git-committer:
Alex Vandiver <alexmv@mit.edu> / 2009-10-18T15:59:29Z-0400
Message:
Add a jabber:reconnect (default to on) which controls auto-reconnect
Location:
perl/modules/Jabber/lib/BarnOwl/Module
Files:
2 modified

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};