projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c85cacb
)
send only to commandmode users that are addressed
author
minima
<minima>
Fri, 11 Mar 2005 22:35:43 +0000
(22:35 +0000)
committer
minima
<minima>
Fri, 11 Mar 2005 22:35:43 +0000
(22:35 +0000)
perl/Thingy.pm
patch
|
blob
|
history
perl/Thingy/Ping.pm
patch
|
blob
|
history
diff --git
a/perl/Thingy.pm
b/perl/Thingy.pm
index 24c8b98f78c72d5a682e24b3e3e16cf2c2039036..5d7909cca930df91cf19e3a45710a0caee0bd9a7 100644
(file)
--- a/
perl/Thingy.pm
+++ b/
perl/Thingy.pm
@@
-78,7
+78,7
@@
sub send
# function must return true to make the send happen
$sub = "before_send_$class";
if ($thing->can($sub)) {
# function must return true to make the send happen
$sub = "before_send_$class";
if ($thing->can($sub)) {
- return $thing->$sub($dxchan);
+ return
unless
$thing->$sub($dxchan);
}
# generate the protocol line which may (or not) be cached
}
# generate the protocol line which may (or not) be cached
diff --git
a/perl/Thingy/Ping.pm
b/perl/Thingy/Ping.pm
index d3fa90f401286f8440ef81328892a304fb6fc3be..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 $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;
}
return $buf;
}