projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
incoming pc39 doesn't cause an outgoing one
[spider.git]
/
perl
/
DXMsg.pm
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index 9f4a1d7b103b8b6c449da738ea884d41b8ab2f6f..a3c0798e73f948cfcebdf74665da8b069dc243fd 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-575,7
+575,7
@@
sub queue_msg
my $call = shift;
my $ref;
my $clref;
my $call = shift;
my $ref;
my $clref;
- my @nodelist = DX
Prot
::get_all_ak1a();
+ my @nodelist = DX
Channel
::get_all_ak1a();
# bat down the message list looking for one that needs to go off site and whose
# nearest node is not busy.
# bat down the message list looking for one that needs to go off site and whose
# nearest node is not busy.
@@
-824,7
+824,7
@@
sub do_send_stuff
} elsif ($self->state eq 'sendbody') {
confess "local var gone missing" if !ref $self->{loc};
my $loc = $self->{loc};
} elsif ($self->state eq 'sendbody') {
confess "local var gone missing" if !ref $self->{loc};
my $loc = $self->{loc};
- if ($line eq "\032" || uc $line eq "/EX") {
+ if ($line eq "\032" ||
$line eq '%1A' ||
uc $line eq "/EX") {
my $to;
if (@{$loc->{lines}} > 0) {
my $to;
if (@{$loc->{lines}} > 0) {