From 8aa19bb5e21bbbea68b6610e3f4c52f5835b209e Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 8 Mar 2003 10:13:08 +0000
Subject: [PATCH] fix order
---
perl/DXProt.pm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1b361d06..6bb1aecf 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -607,7 +607,9 @@ sub handle_12
my $dxchan;
- if ($_[2] eq '*' || $_[2] eq $main::mycall) {
+ if ((($dxchan = DXChannel->get($_[2])) && $dxchan->is_user) || $_[4] =~ /^[\#\w]+$/){
+ $self->send_chat($line, @_[1..6]);
+ } elsif ($_[2] eq '*' || $_[2] eq $main::mycall) {
# here's a bit of fun, convert incoming ann with a callsign in the first word
@@ -626,8 +628,6 @@ sub handle_12
# send it
$self->send_announce($line, @_[1..6]);
- } elsif ((($dxchan = DXChannel->get($_[2])) && $dxchan->is_user) || $_[4] =~ /^[\#\w]+$/){
- $self->send_chat($line, @_[1..6]);
} else {
$self->route($_[2], $line);
}
--
2.43.0