(
[ qw(c c m bp bc c) ], # pc10
[ qw(f m d t m c c h) ], # pc11
- [ qw(c bm m bp bm p h) ], # pc12
+ [ qw(c bm m bm bm p h) ], # pc12
[ qw(c h) ], #
[ qw(c h) ], #
[ qw(c m h) ], #
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
# 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);
}