From: 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://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; }