Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

limit to ten the number of users by default

Browse Source
This commit is contained in:
Antoine Beaupré 2014-01-02 18:47:44 -05:00
parent c223def9d5
commit c2214999c3
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
plugins/mysql/mysql_connections_per_user
View File

@ -40,6 +40,7 @@
# #
# mysqlopts - Options to pass to mysql # mysqlopts - Options to pass to mysql
# mysqladmin - Override location of mysqladmin # mysqladmin - Override location of mysqladmin
# numusers - Override maximum number of users to display
# warning - Override default warning limit # warning - Override default warning limit
# critical - Override default critical limit # critical - Override default critical limit
# #
@ -54,6 +55,7 @@ my $TEST_COMMAND = "$MYSQLADMIN $ENV{mysqlopts} processlist";
my $MYSQL_VARIABLES = "$MYSQLADMIN $ENV{mysqlopts} extended-status variables"; my $MYSQL_VARIABLES = "$MYSQLADMIN $ENV{mysqlopts} extended-status variables";
my $warning = $ENV{warning} || "80"; my $warning = $ENV{warning} || "80";
my $critical = $ENV{critical} || "90"; my $critical = $ENV{critical} || "90";
my $numusers = $ENV{numusers} || 10;
# Pull in any arguments # Pull in any arguments
my $arg = shift(); my $arg = shift();
@ -67,6 +69,11 @@ if ($arg eq 'config') {
else { print "no\n"; } else { print "no\n"; }
exit; exit;
} else { } else {
print_graph_data();
exit;
}
sub print_graph_data() {
# Define the values that are returned to munin # Define the values that are returned to munin
my ($current, $upper_limit) = (0,0,0); my ($current, $upper_limit) = (0,0,0);
@ -85,8 +92,14 @@ if ($arg eq 'config') {
$counts{$user} = 0 unless defined($counts{$user}); $counts{$user} = 0 unless defined($counts{$user});
$counts{$user} += 1; $counts{$user} += 1;
} }
while (($user, $count) = each %counts) {
print "$user.value $count\n"; sub valsort {
return $$threads{$a} <=> $$threads{$b};
}
my $i = 0;
foreach my $user (sort valsort keys(%counts)) {
last if $i++ >= $numusers;
print "$user.value $counts{$user}\n";
} }
} }