eleksir/misc
1
Fork 0
Code Activity

add zabbix probers - ceph_osd_pool_discovery.pl ceph_osd_pool_stats.pl

Browse Source
This commit is contained in:
eleksir
2018-05-17 13:25:52 +03:00
parent 95927ccbb1
commit 4588c0fe5f
2 changed files with 117 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
ceph_osd_pool_discovery.pl Normal file
View File

@@ -0,0 +1,24 @@
#!/usr/bin/perl
use strict;
use warnings "all";
my $str = `ceph osd pool stats`;
my @arr = split(/\n\n/, $str);
my $msg = "{\n \"data\": [\n";
foreach my $p (@arr) {
my @str = split(/\s+/, $p);
next if ((not defined($str[1])) or ($str[1] eq ''));
next if ((not defined($str[3])) or ($str[3] eq ''));
{# in jinja template engine this is comment, so in real script fix this #}
$msg .= sprintf(" {\n \"\{#POOLID}\": \"%s\",\n", $str[3]);
$msg .= sprintf(" \"\{#POOLNAME}\": \"%s\"\n },\n", $str[1]);
}
chop($msg);
chop($msg);
$msg .= "\n ]\n}\n";
print $msg;

93
ceph_osd_pool_stats.pl Normal file
View File

@@ -0,0 +1,93 @@
#!/usr/bin/perl
use strict;
use warnings "all";
sub usage();
# print usage banner if we have not enough arg
usage() if ((not defined($ARGV[1])) or ($ARGV[1] eq ''));
my $pflag = 0;
my $paramflag = 0;
my $str = `ceph osd pool stats`;
my @arr = split(/\n\n/, $str);
my $msg = "{\n \"data\": [\n";
foreach my $p (@arr) {
next unless (defined((split(/\s+/, $p))[1]));
next unless ((split(/\s+/, $p))[1] eq $ARGV[0]);
if ((split(/\s+/, $p))[4] eq 'nothing') {
syswrite STDOUT, '0';
exit 0;
}
my @data = split(/\n/, $p);
foreach my $l (@data) {
if (substr($l, 2, 6) eq 'client') {
if ($ARGV[1] eq 'crops') {
syswrite STDOUT, (split(/\s/, $l))[10];
} elsif ($ARGV[1] eq 'cwops') {
syswrite STDOUT, (split(/\s/, $l))[13];
} elsif ($ARGV[1] eq 'crbps') {
if ((split(/\s/, $l))[5] =~ /^k/) {
syswrite STDOUT, (split(/\s/, $l))[4] * 1024;
} elsif ((split(/\s/, $l))[5] =~ /^M/) {
syswrite STDOUT, (split(/\s/, $l))[4] * 1024 * 1024;
} elsif ((split(/\s/, $l))[5] =~ /^G/) {
syswrite STDOUT, (split(/\s/, $l))[4] * 1024 * 1024 * 1024;
}
} elsif ($ARGV[1] eq 'cwbps') {
if ((split(/\s/, $l))[5] =~ /^k/) {
syswrite STDOUT, (split(/\s/, $l))[4] * 1024;
} elsif ((split(/\s/, $l))[5] =~ /^M/) {
syswrite STDOUT, (split(/\s/, $l))[4] * 1024 * 1024;
} elsif ((split(/\s/, $l))[5] =~ /^G/) {
syswrite STDOUT, (split(/\s/, $l))[4] * 1024 * 1024 * 1024;
}
}
} elsif (substr($l, 2, 8) eq 'recovery') {
if ($ARGV[1] eq 'rbps') {
if ((split(/\s/, $l))[5] =~ /^k/) {
syswrite STDOUT, (split(/\s/, $l))[4] * 1024;
} elsif ((split(/\s/, $l))[5] =~ /^M/) {
syswrite STDOUT, (split(/\s/, $l))[4] * 1024 * 1024;
} elsif ((split(/\s/, $l))[5] =~ /^G/) {
syswrite STDOUT, (split(/\s/, $l))[4] * 1024 * 1024 * 1024;
} else {
# i never seen stats in bytes per second, so as an exception printout just zero
syswrite STDOUT, '0';
}
}
}
}
}
exit 0;
sub usage () {
print <<EOF;
Usage: $0 <poolname> <parameter>
Where parameter can be:
crops - client reads per second
cwops - client writes per second
crbps - client read kbytes per second
cwbps - client write kbytes per second
rbps - recovery io in bytes per second
EOF
exit 0;
}
__END__
pool vms.sata.zone3 id 13
nothing is going on
pool volumes.sata.zone1 id 14
recovery io 1418 MB/s, 360 objects/s
client io 24445 kB/s rd, 37316 kB/s wr, 975 op/s rd, 1115 op/s wr