+ 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}
+ );
+ $dxchan->send($rep->toxml);
+ } else {
+ handle_ping_reply($dxchan, $self->{o}, $self->{ot}, $self->{oid});
+ }
+ } else {
+ $self->route($dxchan);
+ }