]> dxcluster.org Git - spider.git/commitdiff
fix from_DXProt better
authorminima <minima>
Fri, 11 Mar 2005 17:13:56 +0000 (17:13 +0000)
committerminima <minima>
Fri, 11 Mar 2005 17:13:56 +0000 (17:13 +0000)
perl/Thingy/Ping.pm

index 60c68078452abdec6529be9c6d3094ce3f490f72..daed9345ee20795b290f74a0ee95f6a0bd3cea48 100644 (file)
@@ -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;
 }