X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=60351bd40885e8fe1e7005ceec375342bb5a80cc;hb=9d95f3b1af59bbb25d38cb2ff26f431226547d45;hp=bd6baf2fd5935d2bbf3f7bc91047583610537fb5;hpb=6a7585fe8df540f3dba6e0d09d115ce70d8b1aff;p=spider.git diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index bd6baf2f..60351bd4 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -144,6 +144,7 @@ sub process my $ref = $busy{$_}; if (exists $ref->{lastt} && $main::systime >= $ref->{lastt} + $timeout) { dbg('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node"); + Log('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node"); $ref->stop_msg($node); # delay any outgoing messages that fail @@ -669,7 +670,7 @@ sub start_msg my ($self, $dxchan) = @_; dbg('msg', "start msg $self->{msgno}\n"); - $self->{linesreq} = 5; + $self->{linesreq} = 10; $self->{count} = 0; $self->{tonode} = $dxchan->call; $self->{fromnode} = $main::mycall;