- my ($to, $call) = $field[3] =~ /^\s*([\w-]+)[\s:]+([\w-]+)/;
- if ($to && $call) {
- if ((uc $to eq 'TO' && is_callsign(uc $call)) || is_callsign($call = uc $to)) {
- my $ref = Route::get($call);
- if ($ref) {
- my $dxchan = $ref->dxchan;
- $dxchan->talk($field[1], $call, undef, $field[3], $field[5]) if $dxchan != $self;
- return;
- }
+ my $call = AnnTalk::is_talk_candidate($field[1], $field[3]);
+ if ($call) {
+ my $ref = Route::get($call);
+ if ($ref) {
+ my $dxchan = $ref->dxchan;
+ $dxchan->talk($field[1], $call, undef, $field[3], $field[5]) if $dxchan != $self;
+ return;