projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
729acda
)
fix type in broadcast
author
minima
<minima>
Thu, 24 Feb 2005 11:14:56 +0000
(11:14 +0000)
committer
minima
<minima>
Thu, 24 Feb 2005 11:14:56 +0000
(11:14 +0000)
perl/DXProt.pm
patch
|
blob
|
history
perl/Thingy.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 354d6f5d4407ddb3a2ecf93c87c7366854e5ef8e..f00a436adea5184da5c1e5f9ac79fd4e62ebd5bb 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-225,6
+225,7
@@
sub init
$main::me->{registered} = 1;
$main::me->{version} = 5252 + $main::version;
$main::me->{build} = $main::build;
$main::me->{registered} = 1;
$main::me->{version} = 5252 + $main::version;
$main::me->{build} = $main::build;
+ $main::me->{lastcf} = $main::me->{lasthello} = time;
}
#
}
#
diff --git
a/perl/Thingy.pm
b/perl/Thingy.pm
index 08d146678e2f5f07caaaa815714b7f50f43db760..c1f010c11e3a7c2790759a87acac08187e83fc6e 100644
(file)
--- a/
perl/Thingy.pm
+++ b/
perl/Thingy.pm
@@
-105,7
+105,7
@@
sub broadcast
next if $dxchan == $main::me;
next if grep $dxchan == $_, @_;
next if $dxchan->{call} eq $thing->{origin};
next if $dxchan == $main::me;
next if grep $dxchan == $_, @_;
next if $dxchan->{call} eq $thing->{origin};
- next if $thing->{user} && !dxchan->is_user && $dxchan->{call} eq $thing->{user};
+ next if $thing->{user} && !
$
dxchan->is_user && $dxchan->{call} eq $thing->{user};
dbg("Thingy::broadcast: sending to $dxchan->{call}") if isdbg('thing');
$thing->send($dxchan);
dbg("Thingy::broadcast: sending to $dxchan->{call}") if isdbg('thing');
$thing->send($dxchan);