X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fusers.pl;h=125b23d1884cde22fdda09ef624d46779e23ca99;hb=db1ab4fb2566360a224aa47e8b487150823c10a0;hp=7d5496a9d4592591cc679235cea2f94439ecb49a;hpb=92afb4b5ab97b9d3c3c09e2446a1ca708157b8d9;p=spider.git

diff --git a/cmd/show/users.pl b/cmd/show/users.pl
index 7d5496a9..125b23d1 100644
--- a/cmd/show/users.pl
+++ b/cmd/show/users.pl
@@ -3,7 +3,7 @@
 #
 # Copyright (c) 1998 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 my ($self, $line) = @_;
@@ -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) {
+		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,9 +45,8 @@ if (@list) {
 			$s = "$call?";
 		}
 		push @l, $s;
-		$i++;
 	}
-	push @l, "" while $i++ < 5;
+	push @l, "" while @l < 5;
 	push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
 }