X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;h=6c8c44a858653adc507374f7dea9099c6c2ff39f;hb=63f0fc26e717837bc7c6990f27d26de91d65eb7e;hp=c43fd34d7dc1cad6e93a0baec8504bedf0023de6;hpb=0ece4187fe1d9f4547cb262d91af55f17bea200c;p=spider.git diff --git a/perl/Route.pm b/perl/Route.pm index c43fd34d..6c8c44a8 100644 --- a/perl/Route.pm +++ b/perl/Route.pm @@ -270,11 +270,14 @@ sub cluster { my $nodes = Route::Node::count(); my $tot = Route::User::count(); - my $users = scalar DXCommandmode::get_all(); + my ($users, $maxlocalusers) = DXCommandmode::user_count(); my $maxusers = Route::User::max(); my $uptime = main::uptime(); + my $localnodes = $DXChannel::count - $users; + + return ($nodes, $tot, $users, $maxlocalusers, $maxusers, $uptime, $localnodes); + - return " $nodes nodes, $users local / $tot total users Max users $maxusers Uptime $uptime"; } #