$self->{wwvfilter} = Filter::read_in('wwv', $call);
$self->{annfilter} = Filter::read_in('ann', $call);
- # set unbuffered
+ # set unbuffered and no echo
$self->send_now('B',"0");
+ $self->send_now('E',"0");
# send initialisation string
if (!$self->{outbound}) {
$dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate};
}
- } elsif ($dxchan->is_user) {
+ } elsif ($dxchan->is_user && $dxchan->{dx}) {
my $buf = Spot::formatb($_[0], $_[1], $_[2], $_[3], $_[4]);
- $buf .= "\a\a" if $dxchan->beep;
- $dxchan->send($buf) if !$hops || ($hops && $filter);
+ $buf .= "\a\a" if $dxchan->{beep};
+ if ($dxchan->{state} eq 'prompt' || $dxchan->{state} eq 'convers') {
+ $dxchan->send($buf) if !$hops || ($hops && $filter);
+ } else {
+ $dxchan->delay($buf) if !$hops || ($hops && $filter);
+ }
}
}
}