- if ($secs) {
- $mc->cfgprint('proc', [qw(noo perminute)], 5*60,
- "Processor Usage",
- 'Proc Secs / min', 'Proc Secs', 'Proc Secs') unless $want{dataonly};
- $mc->data('proc', $secs, $secs, "Processor Usage") unless $want{cfgonly};
+
+ # do the users and nodes
+ my $users = DXChannel::get_all_users();
+ my $nodes = DXChannel::get_all_nodes();
+
+ $mc->cfgprint('users', [qw(unknaszero gauge)], 500,
+ "<font color=#00cc00>Users</font> and <font color=#0000ff>Nodes</font> on $main::mycall",
+ 'Users / Nodes', 'Users', 'Nodes') unless $want{dataonly};
+ $mc->data('users', $users, $nodes, 'Users / Nodes') unless $want{cfgonly};
+
+ # do the total users and nodes
+ if ($want{totalusers} || $want{all}) {
+ $nodes = Route::Node::count();
+ $users = Route::User::count();
+ $mc->cfgprint('totalusers', [qw(unknaszero gauge)], 10000,
+ 'Total <font color=#00cc00>Users</font> and <font color=#0000ff>Nodes</font> in the Visible Cluster Network',
+ 'Users / Nodes', 'Users', 'Nodes') unless $want{dataonly};
+ $mc->data('totalusers', $users, $nodes, 'Total Users and Nodes in the Visible Cluster Network') unless $want{cfgonly};