#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @out;
my $user;
-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 {
- $user = $self->user;
-}
-
+$user = $self->user;
+$line =~ s/[{}]//g; # no braces allowed
$user->addr($line);
-push @out, DXM::msg('addr', $call);
+push @out, $self->msg('addr', $line);
return (1, @out);