added french changes

[spider.git] / cmd / show / users.pl

diff --git a/cmd/show/users.pl b/cmd/show/users.pl
index d197727ba90f88b5a0ced94e9e217aa8974a501c..a3fb3cc26ee510aeae8879bacd99a52f34d7c258 100644 (file)
--- 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);