}
return (1, "$call not visible on the cluster") if !$ref;
+# change ^ into : for transmission
+$line =~ s/\^/:/og;
+
my $dxchan = DXCommandmode->get($to); # is it for us?
if ($dxchan && $dxchan->is_user) {
- $dxchan->send("$to de $from $line");
+ $dxchan->send("$to de $from $line") if $dxchan->talk;
Log('talk', $to, $from, $main::mycall, $line);
} else {
$line =~ s/\^//og; # remove any ^ characters