send only to commandmode users that are addressed

[spider.git] / perl / Thingy / Ping.pm

diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm
index c8bf3a610c7dbc8db8c6dbce37cc3fbeea1a889b..a1ab4599fa4cebe310fb60774c5369a6851c61e7 100644 (file)
--- 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;
 }
 
@@ -140,7 +143,6 @@ sub handle
                        }
                }
        } else {
-               $thing->{route} = $thing->{o} if $thing->{o};
                $thing->broadcast($dxchan);
        }
 }