Changeset 960395d


Ignore:
Timestamp:
Nov 9, 2006, 7:45:13 PM (17 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
6df381b
Parents:
6a6dd47
git-author:
Nelson Elhage <nelhage@mit.edu> (11/09/06 19:45:07)
git-committer:
Nelson Elhage <nelhage@mit.edu> (11/09/06 19:45:13)
Message:
Handling disconnects better
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r6a6dd47 r960395d  
    4949
    5050        my $status = $$client->Process(0);
    51         if ($status == 0     # No data received
    52         || $status == 1) # Data received
    53         {
    54         }
    55         else #Error
    56         {
    57             do_logout($jid);
    58             return;
    59         }
    60        
     51        if(!defined($status)) {
     52            owl::error("Jabber account $jid disconnected!");
     53            do_logout($jid);
     54        }
    6155        if ($::shutdown)
    6256        {
Note: See TracChangeset for help on using the changeset viewer.