X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=cmd%2Fset%2Faddress.pl;h=f31a982ea3224bd028acdc56b9c5bfbb9bca6905;hp=f5922d9c31e53cd8b177020576025ff50e22c239;hb=65744dd1e30165cd280502ee1a05c0c640023303;hpb=21e7642d216656c60b164d76208633a0c81cf5db diff --git a/cmd/set/address.pl b/cmd/set/address.pl index f5922d9c..f31a982e 100644 --- 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);