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 066ef7bf4c8424b1d17ad40fef1e372badf5dbe5..d61eaa84a869b90bec0e977ced74e306c5f2c7ef 100644 (file)
--- a/cmd/show/cluster.pl
+++ b/cmd/show/cluster.pl
@@ -1,4 +1,13 @@
 #
 # show some statistics
 #
-return (1, Route::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));