From 8aa19bb5e21bbbea68b6610e3f4c52f5835b209e Mon Sep 17 00:00:00 2001 From: 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