X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fusers.pl;h=1d665eba5a91858dbdfa89f33bb42879e776753b;hb=ab811a0c902225075a9bd69749f65594079433a9;hp=a3fb3cc26ee510aeae8879bacd99a52f34d7c258;hpb=097f2329b24fd3082e880e789f8a38224784b0e0;p=spider.git

diff --git a/cmd/show/users.pl b/cmd/show/users.pl
index a3fb3cc2..1d665eba 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) = @_;
@@ -12,7 +12,7 @@ my @out;
 
 if (@list) {
 	foreach my $call (sort @list) {
-		my $uref = DXUser->get_current($call);
+		my $uref = DXUser::get_current($call);
 		if ($uref) {
 			my $name = $uref->name || '?';
 			my $qth = $uref->qth || '?';
@@ -30,14 +30,12 @@ if (@list) {
 	my $node = $main::routeroot;
 	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;
 }