X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FPing.pm;h=daed9345ee20795b290f74a0ee95f6a0bd3cea48;hb=4f9bdc6d34efcbc7da1268484987a2736b730937;hp=60c68078452abdec6529be9c6d3094ce3f490f72;hpb=b051574851d84df8da1e17965cb50bb1a05a173e;p=spider.git

diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm
index 60c68078..daed9345 100644
--- a/perl/Thingy/Ping.pm
+++ b/perl/Thingy/Ping.pm
@@ -82,12 +82,13 @@ sub from_DXProt
 	my $thing = ref $_[0] ? shift : $_[0]->SUPER::new(origin=>$main::mycall);
 	my $dxchan = shift;
 	$thing->{DXProt} = shift;
+	shift;						# PC51
 	$thing->{group} = shift;	# to call
 	my $from = shift;
 	$thing->{out} = shift;		# 1 = ping, 0 = pong;
 	$thing->{user} = $dxchan->{call};
 	$thing->{o} = $from unless $from eq $dxchan->{call};
-	$thing->remember if $thing->{out};
+	$thing->remember if $thing->{out} && $thing->{group} ne $main::mycall;
 	return $thing;
 }