cmd/show/cluster.pl

   1 #
   2 # show some statistics
   3 #
   4
   5 my $self = shift;
   6
   7 my ($nodes, $tot, $users, $maxlocalusers, $maxusers, $uptime, $localnodes) = Route::cluster();
   8
   9 $localnodes = $main::routeroot->nodes;
  10 $users = $main::routeroot->users;
  11 $uptime = difft($main::starttime, ' ');
  12
  13 return (1, $self->msg('cluster', $localnodes, $nodes, $users, $tot, $maxlocalusers, $maxusers, $uptime));