X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fusers.pl;h=a3fb3cc26ee510aeae8879bacd99a52f34d7c258;hb=b26c5204bc58c12fc4d61725ba4f1cfc1a38be45;hp=d197727ba90f88b5a0ced94e9e217aa8974a501c;hpb=a63885de419cf7ae4c10fa10e0107121e237e214;p=spider.git diff --git a/cmd/show/users.pl b/cmd/show/users.pl index d197727b..a3fb3cc2 100644 --- a/cmd/show/users.pl +++ b/cmd/show/users.pl @@ -28,14 +28,14 @@ if (@list) { } } else { my $node = $main::routeroot; - push @out, "Callsigns connected to $main::mycall"; + push @out, join(' ', $self->msg('userconn'), $main::mycall); my $call; my $i = 0; my @l; my @val = sort $node->users; foreach $call (@val) { if ($i >= 5) { - push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l; + push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l; @l = (); $i = 0; } @@ -49,7 +49,8 @@ if (@list) { push @l, $s; $i++; } - push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l; + push @l, "" while $i++ < 5; + push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l; } return (1, @out);