X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=7500d17de8bce5ed5ad51e00218350ce50463cfe;hp=ea99e3d147e277e9af8c4d9b3b8fd4b2dcc04687;hb=0148e301a41d89c154254a457f7d79334eea9442;hpb=27ee91e79ded3e4286874769d2d6bd14dc7213a3 diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index ea99e3d1..7500d17d 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -215,8 +215,7 @@ sub start my $ref = Route::User::get($call); if ($ref) { foreach my $node (@{$ref->parent}) { - my $s = $node eq $main::mycall ? $call : "$node: $call"; - $self->send($self->msg('loginb', $s)); + $self->send($self->msg($node eq $main::mycall ? 'loginb' : 'loginbn', $call, $node)); } } }