X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=16c91803950701bfccd329de119a87208aa66dc7;hb=23e3e6f8dc328ab0dd7f9ddae444126b0af12867;hp=2bfd66865c6eac1e2e6808e2bab7e2c423b4ebc0;hpb=a55714f18999ec1ac500dfcbf7f3f12cc4a96f99;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 2bfd6686..16c91803 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1578,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;
-#			}
+			}
 		}
 	}
 
@@ -2415,7 +2415,6 @@ sub import_chat
 	my $name;
 	foreach $name (@names) {
 		next if $name =~ /^\./;
-		my $splitit = $name =~ /^split/;
 		my $fn = "$chatimportfn/$name";
 		next unless -f $fn;
 		unless (open(MSG, $fn)) {