| Subject: | XMPP Execute doesn't reconnect |
Net-XMPP-1.0
Summary of my perl5 (revision 5.0 version 8 subversion 0)
Linux 2.4.20-8
It appears that there is a bug in the logic of XMPP::Connection->Execute() at line 329 denoted by "--->>>>>" below. This line exits the loop instead of trying to reconnect when the connection is lost.
while($self->Connected())
{
while(defined($status = $self->Process($args{processtimeout})))
{
&{$self->{CB}->{onprocess}}()
if exists($self->{CB}->{onprocess});
}
if (!defined($status))
{
$self->Disconnect();
$self->{DEBUG}->Log1("Execute: Connection to server lost...");
&{$self->{CB}->{ondisconnect}}()
if exists($self->{CB}->{ondisconnect});
$connectAttempt = $args{connectattempts};
next;
}
}
--->>>>> last if $self->{DISCONNECTED};