X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FPing.pm;h=a1ab4599fa4cebe310fb60774c5369a6851c61e7;hb=487b2a304268a9825e071fc76238749a821ea056;hp=d3fa90f401286f8440ef81328892a304fb6fc3be;hpb=c85cacb2bc438725ee83553226e944f9f605d3b7;p=spider.git

diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm
index d3fa90f4..a1ab4599 100644
--- a/perl/Thingy/Ping.pm
+++ b/perl/Thingy/Ping.pm
@@ -72,7 +72,10 @@ sub gen_DXCommandmode
 {
 	my $thing = shift;
 	my $dxchan = shift;
-	my $buf = $dxchan->msg('pingi', ($thing->{user} || $thing->{origin}), $thing->{ft}, $thing->{fave});
+	my $buf;
+	if ($dxchan->{call} eq $thing->{touser}) {
+		$buf = $dxchan->msg('pingi', ($thing->{user} || $thing->{origin}), $thing->{ft}, $thing->{fave});
+	}
 	return $buf;
 }