started on the prefix stuff, got most of it done

[spider.git] / cmd / set / address.pl

diff --git a/cmd/set/address.pl b/cmd/set/address.pl
index f5922d9c31e53cd8b177020576025ff50e22c239..f31a982ea3224bd028acdc56b9c5bfbb9bca6905 100644 (file)
--- a/cmd/set/address.pl
+++ b/cmd/set/address.pl
@@ -18,10 +18,11 @@ if ($self->priv >= 5) {             # allow a callsign as first arg
   shift @args if $user;
   $line = join ' ', @args;
 } else {
+  $call = $self->call;
   $user = $self->user;
 }
 
 $user->addr($line);
-push @out, DXM::msg('addr', $call);
+push @out, DXM::msg('addr', $call, $line);
 
 return (1, @out);