-# if we haven't got an explicit via and we can't see them, try their node
-unless ($ref || $via) {
- my $user = DXUser->get($call);
- $ref = DXCluster->get_exact($user->node);
- if ($ref) {
- $via = $user->node;
- push @out, "trying via $via..";
- }
+#$DB::single = 1;
+
+return (1, $self->msg('e8')) unless $to;
+
+$to = uc $to;
+
+return (1, $self->msg('e22', $to)) unless is_callsign($to);
+return (1, $self->msg('e28')) unless $self->isregistered || $to eq $main::myalias;
+
+#$via = uc $via if $via;
+#my $call = $via || $to;
+#my $clref = Route::get($call); # try an exact call
+#my $dxchan = $clref->dxchan if $clref;
+#push @out, $self->msg('e7', $call) unless $dxchan;
+
+my $call = $to;
+
+#$DB::single = 1;
+
+# default the 'via'
+$via ||= '*';
+
+my $ipaddr = DXCommandmode::alias_localhost($self->hostname || '127.0.0.1');
+
+# if there is a line send it, otherwise add this call to the talk list
+# and set talk mode for command mode
+my @bad;
+if (@bad = BadWords::check($line)) {
+ $self->badcount(($self->badcount||0) + @bad);
+ LogDbg('DXCommand', "$self->{call} swore: $line (with words:" . join(',', @bad) . ")");