Initial commit

ceph_osd_pool_discovery.pl

@@ -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;
+