X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fusers.pl;h=c9df4d6943a785545c1a66a6902f3c1c21f89003;hb=5177a6684a57135fa9602c33227c6ab1c8f32a51;hp=f1aa6ca6926aa75ba2efad105fc421c81c2d047f;hpb=244e520095fef24472ae52781b3ba06577a3e5d4;p=spider.git

diff --git a/cmd/show/users.pl b/cmd/show/users.pl
index f1aa6ca6..c9df4d69 100644
--- a/cmd/show/users.pl
+++ b/cmd/show/users.pl
@@ -28,16 +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;
+		if (@l >= 5) {
+			push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
 			@l = ();
-			$i = 0;
 		}
 		my $uref = Route::User::get($call);
 		my $s = $call;
@@ -47,10 +45,9 @@ if (@list) {
 			$s = "$call?";
 		}
 		push @l, $s;
-		$i++;
 	}
-	push @l, "" while $i++ < 5;
-	push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
+	push @l, "" while @l < 5;
+	push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
 }
 
 return (1, @out);