mega-merge of major parts of mojo

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

diff --git a/cmd/show/cluster.pl b/cmd/show/cluster.pl
index 6fe9b3560223172e33c8a06c32702d7d4d66794d..d61eaa84a869b90bec0e977ced74e306c5f2c7ef 100644 (file)
--- a/cmd/show/cluster.pl
+++ b/cmd/show/cluster.pl
@@ -1,4 +1,13 @@
 #
 # show some statistics
 #
-return (1, DXCluster::cluster() );
+
+my $self = shift;
+
+my ($nodes, $tot, $users, $maxlocalusers, $maxusers, $uptime, $localnodes) = Route::cluster();
+
+$localnodes = $main::routeroot->nodes;
+$users = $main::routeroot->users;
+$uptime = difft($main::starttime, ' ');
+
+return (1, $self->msg('cluster', $localnodes, $nodes, $users, $tot, $maxlocalusers, $maxusers, $uptime));