X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=2bfd66865c6eac1e2e6808e2bab7e2c423b4ebc0;hb=a55714f18999ec1ac500dfcbf7f3f12cc4a96f99;hp=d8dad2c3280ad54b6716dedf6e57aa968515ba59;hpb=86c5d79248c5e263a20e39c85610d531bbb3b37d;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d8dad2c3..2bfd6686 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -972,6 +972,12 @@ sub handle_19
 				} else {
 					next;
 				}
+			} else {
+				if ($r->version != $ver || $r->flags != $flags) {
+					$r->version($ver);
+					$r->flags($flags);
+					push @rout, $r;
+				}
 			}
 		} else {
 
@@ -1572,13 +1578,13 @@ sub process
 		
 		# send a ping out on this channel
 		if ($dxchan->{pingint} && $t >= $dxchan->{pingint} + $dxchan->{lastping}) {
-			if ($dxchan->{nopings} <= 0) {
-				$dxchan->disconnect;
-			} else {
+#			if ($dxchan->{nopings} <= 0) {
+#				$dxchan->disconnect;
+#			} else {
 				addping($main::mycall, $dxchan->call);
 				$dxchan->{nopings} -= 1;
 				$dxchan->{lastping} = $t;
-			}
+#			}
 		}
 	}