-if ($self->priv >= 5) { # allow a callsign as first arg
- my @args = split /\s+/, $line;
- $call = UC $args[0];
- $user = DXUser->get_current($call);
- shift @args if $user;
- $line = join ' ', @args;
-} else {
- $call = $self->call;
- $user = $self->user;
-}
-