projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
merge in changes from BAA
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 5bda044a045644a3a8687c2ff4e36828c9958bec..04d62e4b55b02c3c23820cb3761c047b44af99e1 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-735,10
+735,14
@@
sub send_dx_spot
$dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate};
}
$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]);
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);
+ }
}
}
}
}
}
}