-
-$call = uc $call;
-my $user = $dxchan->user;
-
-# set up basic environment
-$self->call($call);
-$self->user($user);
-$self->priv($dxchan->priv);
-Log('DXCommand', "input '$newline' as $call by $mycall");
-my @in = $self->run_cmd($newline);
-$self->call($mycall);
-$self->user($myuser);
-$self->priv($mypriv);
+Log('DXCommand', "demo '$newline' to $call by $mycall");
+my @in = $dxchan->run_cmd($newline);