X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fname.pl;h=b8dd3150495651f24a97b045d50f9222dbb9ab37;hb=c3505bcfc922cd712bad2c20b3479cf8d1dc54fe;hp=e966837d9f3324dd23a4b84d1a92032198d3b7d9;hpb=64b4171276c84a8df58776608dd9f568adef27b2;p=spider.git diff --git a/cmd/set/name.pl b/cmd/set/name.pl index e966837d..b8dd3150 100644 --- a/cmd/set/name.pl +++ b/cmd/set/name.pl @@ -3,7 +3,7 @@ # # Copyright (c) 1998 - Dirk Koopman # -# $Id$ +# # my ($self, $line) = @_; @@ -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_all_ak1a(DXProt::pc41($call, 1, $line), $DXProt::me); + my $s = DXProt::pc41($call, 1, $line); + DXProt::eph_dup($s); + DXChannel::broadcast_all_nodes($s, $main::me) ; return (1, $self->msg('name', $line)); } else { return (1, $self->msg('namee2', $call));