From 8c5872e6e9c50d45da129fe90f98e57a6fd486f6 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 11 Jan 2006 21:25:57 +0000 Subject: [PATCH] add some handler code --- perl/DXXml/Ping.pm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/perl/DXXml/Ping.pm b/perl/DXXml/Ping.pm index a1b0a6a1..a9d72083 100644 --- a/perl/DXXml/Ping.pm +++ b/perl/DXXml/Ping.pm @@ -30,6 +30,19 @@ sub handle_input 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 @@ -68,6 +81,8 @@ sub handle_ping_reply { my $fromdxchan = shift; my $from = shift; + my $ot = shift; + my $oid = shift; my $fromxml; if (ref $from) { -- 2.43.0