projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Now add files that the previous commit refered to
[spider.git]
/
perl
/
DXXml
/
Ping.pm
diff --git
a/perl/DXXml/Ping.pm
b/perl/DXXml/Ping.pm
index 270587198928773eba4b9e1dd72f722aa593a324..6088a4628b92756d946bfe4eac2c8398e2592974 100644
(file)
--- a/
perl/DXXml/Ping.pm
+++ b/
perl/DXXml/Ping.pm
@@
-71,7
+71,7
@@
sub add
my $u = DXUser::get_current($to);
if ($u) {
$u->lastping(($via || $from), $main::systime);
my $u = DXUser::get_current($to);
if ($u) {
$u->lastping(($via || $from), $main::systime);
- $u->put;
+ $u->put
unless $dxchan->{_nospawn}
;
}
}
}
}
@@
-136,11
+136,12
@@
sub handle_ping_reply
sub _handle_believe
{
my ($from, $via) = @_;
sub _handle_believe
{
my ($from, $via) = @_;
-
- my $user = DXUser::get_current($from);
+
+ my $dxchan = DXChannel::get($from);
+ my $user = $dxchan->user || DXUser::get($from);
if ($user) {
$user->set_believe($via);
if ($user) {
$user->set_believe($via);
- $user->put;
+ $user->put
unless $dxchan->{_nospawn}
;
}
}
1;
}
}
1;