From: minima <minima>
Date: Fri, 11 Mar 2005 17:13:56 +0000 (+0000)
Subject: fix from_DXProt better
X-Git-Tag: R_1_52~104
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f9bdc6d34efcbc7da1268484987a2736b730937;p=spider.git

fix from_DXProt better
---

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;
 }