projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
restore talk "<call> not visible on cluster" message
[spider.git]
/
perl
/
DXProtHandle.pm
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index 831d8885be1918ef565dcb2a64a28196d13e49c1..10a5fe726c4fad8336505ebee7ee272c1df060f8 100644
(file)
--- a/
perl/DXProtHandle.pm
+++ b/
perl/DXProtHandle.pm
@@
-1770,24
+1770,21
@@
sub handle_93
}
# convert to PC10 talks where appropriate
}
# convert to PC10 talks where appropriate
- if ($ref) {
- # just go for the "best" one for now (rather than broadcast)
- $dxchan = $ref->dxchan;
+ # just go for the "best" one for now (rather than broadcast)
+ $dxchan = $ref->dxchan;
- # check it...
- if (ref $dxchan && $dxchan->isa('DXChannel')) {
- if ($dxchan->{do_pc9x}) {
- $dxchan->send($line);
- } else {
- $dxchan->talk($from, $to, $via, $text, $onode);
- }
+ # check it...
+ if (ref $dxchan && $dxchan->isa('DXChannel')) {
+ if ($dxchan->{do_pc9x}) {
+ $dxchan->send($line);
} else {
} else {
-
dbg("ERROR: $to -> $dxchan is not a DXChannel! (convert to pc10)"
);
+
$dxchan->talk($from, $to, $via, $text, $onode
);
}
}
- return;
+ } else {
+ dbg("ERROR: $to -> $dxchan is not a DXChannel! (convert to pc10)");
}
}
+ return;
- # otherwise, drop through and allow it to be broadcast
} elsif ($to eq '*' || $to eq 'SYSOP' || $to eq 'WX') {
# announces
my $sysop = $to eq 'SYSOP' ? '*' : ' ';
} elsif ($to eq '*' || $to eq 'SYSOP' || $to eq 'WX') {
# announces
my $sysop = $to eq 'SYSOP' ? '*' : ' ';