projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3c66942
)
add some handler code
author
minima
<minima>
Wed, 11 Jan 2006 21:25:57 +0000
(21:25 +0000)
committer
minima
<minima>
Wed, 11 Jan 2006 21:25:57 +0000
(21:25 +0000)
perl/DXXml/Ping.pm
patch
|
blob
|
history
diff --git
a/perl/DXXml/Ping.pm
b/perl/DXXml/Ping.pm
index a1b0a6a122ba6e3a8a792ef69d819c4216b9ecb0..a9d72083c213df926ef80157c83453973ac9c7fe 100644
(file)
--- a/
perl/DXXml/Ping.pm
+++ b/
perl/DXXml/Ping.pm
@@
-30,6
+30,19
@@
sub handle_input
my $self = shift;
my $dxchan = shift;
my $self = shift;
my $dxchan = shift;
+ if ($self->{to} eq $main::mycall) {
+ if ($self->{s} eq '1') {
+ my $rep = DXXml::Ping->new(to=>$self->{o},
+ s=>'0',
+ oid=>$self->{id},
+ ot=>$self->{t}
+ );
+ } else {
+ handle_ping_reply($dxchan, $self->{o}, $self->{ot}, $self->{oid});
+ }
+ } else {
+ $self->route($dxchan);
+ }
}
sub topcxx
}
sub topcxx
@@
-68,6
+81,8
@@
sub handle_ping_reply
{
my $fromdxchan = shift;
my $from = shift;
{
my $fromdxchan = shift;
my $from = shift;
+ my $ot = shift;
+ my $oid = shift;
my $fromxml;
if (ref $from) {
my $fromxml;
if (ref $from) {