| | 1 | {{{ |
|---|
| | 2 | #!/usr/bin/perl |
|---|
| | 3 | |
|---|
| | 4 | use strict; |
|---|
| | 5 | use warnings; |
|---|
| | 6 | |
|---|
| | 7 | use File::Basename; |
|---|
| | 8 | |
|---|
| | 9 | my $variable = basename $0; |
|---|
| | 10 | $variable =~ s/^mysql_status_//; |
|---|
| | 11 | $variable or die "no variable"; |
|---|
| | 12 | |
|---|
| | 13 | if ($ARGV[0] && $ARGV[0] eq 'config') { |
|---|
| | 14 | print <<END; |
|---|
| | 15 | graph_title MySQL $variable |
|---|
| | 16 | graph_vlabel $variable |
|---|
| | 17 | $variable.label $variable |
|---|
| | 18 | END |
|---|
| | 19 | |
|---|
| | 20 | exit; |
|---|
| | 21 | } |
|---|
| | 22 | |
|---|
| | 23 | open(MYSQL, '/usr/bin/mysqladmin extended-status |') or die $!; |
|---|
| | 24 | |
|---|
| | 25 | while (<MYSQL>) { |
|---|
| | 26 | my (undef, $name, undef, $value) = split; |
|---|
| | 27 | |
|---|
| | 28 | if ($name && $value && lc $name eq $variable) { |
|---|
| | 29 | printf("%s.value %d\n", $variable, $value); |
|---|
| | 30 | exit; |
|---|
| | 31 | } |
|---|
| | 32 | } |
|---|
| | 33 | }}} |
|---|
