X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fname.pl;h=3291757455974a77f209057463d7a199b2459a36;hb=35432a9f25350b9a5db513efbe248b61176b0684;hp=30b1dc7184c5f22d51cea9a11c9c1d44daf55b6a;hpb=b4826d1f4125788e14fed3adbb99e66242904e74;p=spider.git diff --git a/cmd/set/name.pl b/cmd/set/name.pl index 30b1dc71..32917574 100644 --- a/cmd/set/name.pl +++ b/cmd/set/name.pl @@ -13,6 +13,7 @@ my $user; # remove leading and trailing spaces $line =~ s/^\s+//; $line =~ s/\s+$//; +$line =~ s/[{}]//g; # no braces allowed return (1, $self->msg('namee1')) if !$line; @@ -20,7 +21,9 @@ $user = DXUser->get_current($call); if ($user) { $user->name($line); $user->put(); - DXProt::broadcast_ak1a(DXProt::pc41($call, 1, $line), $DXProt::me); + my $s = DXProt::pc41($call, 1, $line); + DXProt::eph_dup($s); + DXProt::broadcast_all_ak1a($s, $DXProt::me) ; return (1, $self->msg('name', $line)); } else { return (1, $self->msg('namee2', $call));