Create ceph.c

diff --git a/src/ceph.c b/src/ceph.c
new file mode 100644 (file)
index 0000000..e1653bf
--- /dev/null
+++ b/src/ceph.c
@@ -0,0 +1,1153 @@
+/**
+ * collectd - src/ceph.c
+ * Copyright (C) 2011  New Dream Network
+ *
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation; only version 2 of the License is applicable.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * Authors:
+ *   Colin McCabe <cmccabe@alumni.cmu.edu>
+ *   Dennis Zou <yunzou@cisco.com>
+ *   Dan Ryder <daryder@cisco.com>
+ **/
+
+#define _BSD_SOURCE
+
+#include "collectd.h"
+#include "common.h"
+#include "plugin.h"
+
+#include <arpa/inet.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <json/json.h>
+#include <json/json_object_private.h> /* need for struct json_object_iter */
+#include <limits.h>
+#include <poll.h>
+#include <stdint.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <strings.h>
+#include <sys/socket.h>
+#include <sys/time.h>
+#include <sys/types.h>
+#include <sys/un.h>
+#include <unistd.h>
+#define MAX_RRD_DS_NAME_LEN 20
+
+#define RETRY_ON_EINTR(ret, expr) \
+       while(1) { \
+               ret = expr; \
+               if (ret >= 0) \
+                       break; \
+               ret = -errno; \
+               if (ret != -EINTR) \
+                       break; \
+       }
+
+/** Timeout interval in seconds */
+#define CEPH_TIMEOUT_INTERVAL 1
+
+/** Maximum path length for a UNIX domain socket on this system */
+#define UNIX_DOMAIN_SOCK_PATH_MAX (sizeof(((struct sockaddr_un*)0)->sun_path))
+
+/******* ceph_daemon *******/
+struct ceph_daemon
+{
+       /** Version of the admin_socket interface */
+       uint32_t version;
+       /** daemon name **/
+       char name[DATA_MAX_NAME_LEN];
+
+       int dset_num;
+
+       /** Path to the socket that we use to talk to the ceph daemon */
+       char asok_path[UNIX_DOMAIN_SOCK_PATH_MAX];
+
+       /** The set of  key/value pairs that this daemon reports
+        * dset.type            The daemon name
+        * dset.ds_num          Number of data sources (key/value pairs) 
+        * dset.ds              Dynamically allocated array of key/value pairs
+        */
+       //struct data_set_s dset;
+       /** Dynamically allocated array **/
+       struct data_set_s *dset;
+       int **pc_types;
+};
+
+enum perfcounter_type_d
+{
+       PERFCOUNTER_LONGRUNAVG = 0x4, PERFCOUNTER_COUNTER = 0x8,
+};
+
+/** Array of daemons to monitor */
+static struct ceph_daemon **g_daemons = NULL;
+
+/** Number of elements in g_daemons */
+static int g_num_daemons = 0;
+
+static void ceph_daemon_print(const struct ceph_daemon *d)
+{
+       DEBUG("name=%s, asok_path=%s", d->name, d->asok_path);
+}
+
+static void ceph_daemons_print(void)
+{
+       int i;
+       for (i = 0; i < g_num_daemons; ++i)
+       {
+               ceph_daemon_print(g_daemons[i]);
+       }
+}
+
+/*static void ceph_daemon_free(struct ceph_daemon *d)
+ {
+ plugin_unregister_data_set(d->dset.type);
+ sfree(d->dset.ds);
+ sfree(d);
+ }*/
+static void ceph_daemon_free(struct ceph_daemon *d)
+{
+       int i = 0;
+       for (; i < d->dset_num; i++)
+       {
+               plugin_unregister_data_set((d->dset + i)->type);
+               sfree(d->dset->ds);
+               sfree(d->pc_types[i]);
+       }
+       sfree(d->dset);
+       sfree(d->pc_types);
+       sfree(d);
+}
+
+static void compact_ds_name(char *source, char *dest)
+{
+       int keys_num = 0, i;
+       char *save_ptr = NULL, *tmp_ptr = source;
+       char *keys[16];
+       char len_str[3];
+       char tmp[DATA_MAX_NAME_LEN];
+       int reserved = 0;
+       int offset = 0;
+       memset(tmp, 0, sizeof(tmp));
+       if (source == NULL || dest == NULL || source[0] == '\0' || dest[0] != '\0')
+       {
+               return;
+       }
+       size_t src_len = strlen(source);
+       snprintf(len_str, sizeof(len_str), "%zu", src_len);
+       unsigned char append_status = 0x0;
+       append_status |= (source[src_len - 1] == '-') ? 0x1 : 0x0;
+       append_status |= (source[src_len - 1] == '+') ? 0x2 : 0x0;
+       while ((keys[keys_num] = strtok_r(tmp_ptr, ":_-+", &save_ptr)) != NULL)
+       {
+               tmp_ptr = NULL;
+               /** capitalize 1st char **/
+               keys[keys_num][0] = toupper(keys[keys_num][0]);
+               keys_num++;
+               if (keys_num >= 16)
+                       break;
+       }
+       /** concatenate each part of source string **/
+       for (i = 0; i < keys_num; i++)
+       {
+               strcat(tmp, keys[i]);
+       }
+       tmp[DATA_MAX_NAME_LEN - 1] = '\0';
+       /** to coordinate limitation of length of ds name from RRD
+        *  we will truncate ds_name
+        *  when the its length is more than
+        *  MAX_RRD_DS_NAME_LEN
+        */
+       if (strlen(tmp) > MAX_RRD_DS_NAME_LEN - 1)
+       {
+               append_status |= 0x4;
+               /** we should reserve space for
+                * len_str
+                */
+               reserved += 2;
+       }
+       if (append_status & 0x1)
+       {
+               /** we should reserve space for
+                * "Minus"
+                */
+               reserved += 5;
+       }
+       if (append_status & 0x2)
+       {
+               /** we should reserve space for
+                * "Plus"
+                */
+               reserved += 4;
+       }
+       snprintf(dest, MAX_RRD_DS_NAME_LEN - reserved, "%s", tmp);
+       offset = strlen(dest);
+       switch (append_status)
+       {
+       case 0x1:
+               memcpy(dest + offset, "Minus", 5);
+               break;
+       case 0x2:
+               memcpy(dest + offset, "Plus", 5);
+               break;
+       case 0x4:
+               memcpy(dest + offset, len_str, 2);
+               break;
+       case 0x5:
+               memcpy(dest + offset, "Minus", 5);
+               memcpy(dest + offset + 5, len_str, 2);
+               break;
+       case 0x6:
+               memcpy(dest + offset, "Plus", 4);
+               memcpy(dest + offset + 4, len_str, 2);
+               break;
+       default:
+               break;
+       }
+}
+static int parse_keys(const char *key_str, char *dset_name, char *ds_name)
+{
+       char *ptr, *rptr;
+       size_t dset_name_len = 0;
+       size_t ds_name_len = 0;
+       char tmp_ds_name[DATA_MAX_NAME_LEN];
+       memset(tmp_ds_name, 0, sizeof(tmp_ds_name));
+       if (dset_name == NULL || ds_name == NULL || key_str == NULL
+                       || key_str[0] == '\0' || dset_name[0] != '\0' || ds_name[0] != '\0')
+       {
+               return -1;
+       }
+       if ((ptr = strchr(key_str, '.')) == NULL
+                       || (rptr = strrchr(key_str, '.')) == NULL)
+       {
+               strncpy(dset_name, key_str, DATA_MAX_NAME_LEN - 1);
+               strncpy(tmp_ds_name, key_str, DATA_MAX_NAME_LEN - 1);
+               goto compact;
+       }
+       dset_name_len =
+                       (ptr - key_str) > (DATA_MAX_NAME_LEN - 1) ?
+                                       (DATA_MAX_NAME_LEN - 1) : (ptr - key_str);
+       memcpy(dset_name, key_str, dset_name_len);
+       ds_name_len =
+                       (rptr - ptr) > DATA_MAX_NAME_LEN ? DATA_MAX_NAME_LEN : (rptr - ptr);
+       if (ds_name_len == 0)
+       { /** only have two keys **/
+               if (!strncmp(rptr + 1, "type", 4))
+               {/** if last key is "type",ignore **/
+                       strncpy(tmp_ds_name, dset_name, DATA_MAX_NAME_LEN - 1);
+               }
+               else
+               {/** if last key isn't "type", copy last key **/
+                       strncpy(tmp_ds_name, rptr + 1, DATA_MAX_NAME_LEN - 1);
+               }
+       }
+       else if (!strncmp(rptr + 1, "type", 4))
+       {/** more than two keys **/
+               memcpy(tmp_ds_name, ptr + 1, ds_name_len - 1);
+       }
+       else
+       {/** copy whole keys **/
+               strncpy(tmp_ds_name, ptr + 1, DATA_MAX_NAME_LEN - 1);
+       }
+       compact: compact_ds_name(tmp_ds_name, ds_name);
+       return 0;
+}
+
+int get_matching_dset(const struct ceph_daemon *d, const char *name)
+{
+       int idx;
+       for (idx = 0; idx < d->dset_num; ++idx)
+       {
+               if (strcmp(d->dset[idx].type, name) == 0)
+               {
+                       return idx;
+               }
+       }
+       return -1;
+}
+
+int get_matching_value(const struct data_set_s *dset, const char *name,
+               int num_values)
+{
+       int idx;
+       for (idx = 0; idx < num_values; ++idx)
+       {
+               if (strcmp(dset->ds[idx].name, name) == 0)
+               {
+                       return idx;
+               }
+       }
+       return -1;
+}
+
+static int ceph_daemon_add_ds_entry(struct ceph_daemon *d, const char *name,
+               int pc_type)
+{
+       struct data_source_s *ds;
+       struct data_set_s *dset;
+       struct data_set_s *dset_array;
+       int **pc_types_array = NULL;
+       int *pc_types;
+       int *pc_types_new;
+       int idx = 0;
+       if (strlen(name) + 1 > DATA_MAX_NAME_LEN)
+               return -ENAMETOOLONG;
+       char dset_name[DATA_MAX_NAME_LEN];
+       char ds_name[MAX_RRD_DS_NAME_LEN];
+       memset(dset_name, 0, sizeof(dset_name));
+       memset(ds_name, 0, sizeof(ds_name));
+       if (parse_keys(name, dset_name, ds_name))
+               return 1;
+       idx = get_matching_dset(d, dset_name);
+       if (idx == -1)
+       {/* need to add a dset **/
+               dset_array = realloc(d->dset,
+                               sizeof(struct data_set_s) * (d->dset_num + 1));
+               if (!dset_array)
+                       return -ENOMEM;
+               pc_types_array = realloc(d->pc_types,
+                               sizeof(int *) * (d->dset_num + 1));
+               if (!pc_types_array)
+                       return -ENOMEM;
+               dset = &dset_array[d->dset_num];
+               /** this step is very important, otherwise,
+                *  realloc for dset->ds will tricky because of
+                *  a random addr in dset->ds
+                */
+               memset(dset, 0, sizeof(struct data_set_s));
+               dset->ds_num = 0;
+               snprintf(dset->type, DATA_MAX_NAME_LEN, "%s", dset_name);
+               pc_types = pc_types_array[d->dset_num] = NULL;
+               d->dset = dset_array;
+       }
+       else
+       {
+               dset = &d->dset[idx];
+               pc_types = d->pc_types[idx];
+       }
+       struct data_source_s *ds_array = realloc(dset->ds,
+                       sizeof(struct data_source_s) * (dset->ds_num + 1));
+       if (!ds_array)
+       {
+               return -ENOMEM;
+       }
+       pc_types_new = realloc(pc_types, sizeof(int) * (dset->ds_num + 1));
+       if (!pc_types_new)
+       {
+               return -ENOMEM;
+       }
+       dset->ds = ds_array;
+       if (idx == -1)
+       {
+               pc_types_array[d->dset_num] = pc_types_new;
+               d->pc_types = pc_types_array;
+               d->pc_types[d->dset_num][dset->ds_num] = pc_type;
+               d->dset_num++;
+       }
+       else
+       {
+               d->pc_types[idx] = pc_types_new;
+               d->pc_types[idx][dset->ds_num] = pc_type;
+       }
+       ds = &ds_array[dset->ds_num++];
+       snprintf(ds->name, MAX_RRD_DS_NAME_LEN, "%s", ds_name);
+       ds->type =
+                       (pc_type & PERFCOUNTER_COUNTER) ? DS_TYPE_COUNTER : DS_TYPE_GAUGE;
+       ds->min = NAN;
+       ds->max = NAN;
+       return 0;
+}
+
+/******* ceph_config *******/
+static int cc_handle_str(struct oconfig_item_s *item, char *dest, int dest_len)
+{
+       const char *val;
+       if (item->values_num != 1)
+       {
+               return -ENOTSUP;
+       }
+       if (item->values[0].type != OCONFIG_TYPE_STRING)
+       {
+               return -ENOTSUP;
+       }
+       val = item->values[0].value.string;
+       if (snprintf(dest, dest_len, "%s", val) > (dest_len - 1))
+       {
+               ERROR("ceph plugin: configuration parameter '%s' is too long.\n",
+                               item->key);
+               return -ENAMETOOLONG;
+       }
+       return 0;
+}
+
+static int ceph_config(oconfig_item_t *ci)
+{
+       int ret, i;
+       struct ceph_daemon *array, *nd, cd;
+       memset(&cd, 0, sizeof(struct ceph_daemon));
+
+       for (i = 0; i < ci->children_num; ++i)
+       {
+               oconfig_item_t *child = ci->children + i;
+               if (strcasecmp("Name", child->key) == 0)
+               {
+                       ret = cc_handle_str(child, cd.name, DATA_MAX_NAME_LEN);
+                       if (ret)
+                               return ret;
+               }
+               else if (strcasecmp("SocketPath", child->key) == 0)
+               {
+                       ret = cc_handle_str(child, cd.asok_path, sizeof(cd.asok_path));
+                       if (ret)
+                               return ret;
+               }
+               else
+               {
+                       WARNING("ceph plugin: ignoring unknown option %s", child->key);
+               }
+       }
+       if (cd.name[0] == '\0')
+       {
+               ERROR("ceph plugin: you must configure a daemon name.\n");
+               return -EINVAL;
+       }
+       else if (cd.asok_path[0] == '\0')
+       {
+               ERROR("ceph plugin(name=%s): you must configure an administrative "
+               "socket path.\n", cd.name);
+               return -EINVAL;
+       }
+       else if (!((cd.asok_path[0] == '/')
+                       || (cd.asok_path[0] == '.' && cd.asok_path[1] == '/')))
+       {
+               ERROR("ceph plugin(name=%s): administrative socket paths must begin with "
+                               "'/' or './' Can't parse: '%s'\n", cd.name, cd.asok_path);
+               return -EINVAL;
+       }
+       array = realloc(g_daemons,
+                       sizeof(struct ceph_daemon *) * (g_num_daemons + 1));
+       if (array == NULL)
+       {
+               /* The positive return value here indicates that this is a
+                * runtime error, not a configuration error.  */
+               return ENOMEM;
+       }
+       g_daemons = (struct ceph_daemon**) array;
+       nd = malloc(sizeof(struct ceph_daemon));
+       if (!nd)
+               return ENOMEM;
+       memcpy(nd, &cd, sizeof(struct ceph_daemon));
+       g_daemons[g_num_daemons++] = nd;
+       return 0;
+}
+
+/******* JSON parsing *******/
+typedef int (*node_handler_t)(void*, json_object*, const char*);
+
+/** Perform a depth-first traversal of the JSON parse tree,
+ * calling node_handler at each node.*/
+static int traverse_json_impl(json_object *jo, char *key, int max_key,
+               node_handler_t handler, void *handler_arg)
+{
+       struct json_object_iter iter;
+       int ret, plen, klen;
+
+       if (json_object_get_type(jo) != json_type_object)
+               return 0;
+       plen = strlen(key);
+       json_object_object_foreachC(jo, iter)
+       {
+               klen = strlen(iter.key);
+               if (plen + klen + 2 > max_key)
+                       return -ENAMETOOLONG;
+               if (plen != 0)
+                       strncat(key, ".", max_key); /* really should be strcat */
+               strncat(key, iter.key, max_key);
+
+               ret = handler(handler_arg, iter.val, key);
+               if (ret == 1)
+               {
+                       ret = traverse_json_impl(iter.val, key, max_key, handler,
+                                       handler_arg);
+               }
+               else if (ret != 0)
+               {
+                       return ret;
+               }
+
+               key[plen] = '\0';
+       }
+       return 0;
+}
+
+static int traverse_json(const char *json, node_handler_t handler,
+               void *handler_arg)
+{
+       json_object *root;
+       char buf[128];
+       buf[0] = '\0';
+       root = json_tokener_parse(json);
+       if (!root)
+               return -EDOM;
+       int result = traverse_json_impl(root, buf, sizeof(buf), handler, handler_arg);
+       json_object_put(root);
+       return result;
+}
+
+static int node_handler_define_schema(void *arg, json_object *jo,
+               const char *key)
+{
+       struct ceph_daemon *d = (struct ceph_daemon *) arg;
+       int pc_type;
+       if (json_object_get_type(jo) == json_type_object)
+               return 1;
+       else if (json_object_get_type(jo) != json_type_int)
+               return -EDOM;
+       pc_type = json_object_get_int(jo);
+       DEBUG("\nceph_daemon_add_ds_entry(d=%s,key=%s,pc_type=%04x)",
+                       d->name, key, pc_type);
+       return ceph_daemon_add_ds_entry(d, key, pc_type);
+}
+struct values_holder
+{
+       int values_len;
+       value_t *values;
+};
+
+/** A set of values_t data that we build up in memory while parsing the JSON. */
+struct values_tmp
+{
+       struct ceph_daemon *d;
+       int holder_num;
+       struct values_holder vh[0];
+};
+
+static int node_handler_fetch_data(void *arg, json_object *jo, const char *key)
+{
+       int dset_idx, ds_idx;
+       value_t *uv;
+       char dset_name[DATA_MAX_NAME_LEN];
+       char ds_name[MAX_RRD_DS_NAME_LEN];
+       struct values_tmp *vtmp = (struct values_tmp*) arg;
+       memset(dset_name, 0, sizeof(dset_name));
+       memset(ds_name, 0, sizeof(ds_name));
+       if (parse_keys(key, dset_name, ds_name))
+               return 1;DEBUG("enter node_handler_fetch_data");
+       dset_idx = get_matching_dset(vtmp->d, dset_name);
+       if (dset_idx == -1)
+               return 1;
+       ds_idx = get_matching_value(&vtmp->d->dset[dset_idx], ds_name,
+                       vtmp->d->dset[dset_idx].ds_num);
+       if (ds_idx == -1)
+               return 1;DEBUG("DSet:%s, DS:%s, DSet idx:%d, DS idx:%d",
+                       dset_name,ds_name,dset_idx,ds_idx);
+       uv = &(vtmp->vh[dset_idx].values[ds_idx]);
+       if (vtmp->d->pc_types[dset_idx][ds_idx] & PERFCOUNTER_LONGRUNAVG)
+       {
+               json_object *avgcount, *sum;
+               uint64_t avgcounti;
+               double sumd;
+               if (json_object_get_type(jo) != json_type_object)
+                       return -EINVAL;
+               avgcount = json_object_object_get(jo, "avgcount");
+               sum = json_object_object_get(jo, "sum");
+               if ((!avgcount) || (!sum))
+                       return -EINVAL;
+               avgcounti = json_object_get_int(avgcount);
+               DEBUG("avgcounti:%ld",avgcounti);
+               if (avgcounti == 0)
+                       avgcounti = 1;
+               sumd = json_object_get_int(sum);
+               DEBUG("sumd:%lf",sumd);
+               uv->gauge = sumd / avgcounti;
+               DEBUG("uv->gauge = sumd / avgcounti = :%lf",uv->gauge);
+       }
+       else if (vtmp->d->pc_types[dset_idx][ds_idx] & PERFCOUNTER_COUNTER)
+       {
+               /* We use json_object_get_double here because anything > 32 
+                * bits may get truncated by json_object_get_int */
+               uv->counter = json_object_get_double(jo);
+               DEBUG("uv->counter %ld",(long)uv->counter);
+       }
+       else
+       {
+               uv->gauge = json_object_get_double(jo);
+               DEBUG("uv->gauge %lf",uv->gauge);
+       }
+       return 0;
+}
+
+/******* network I/O *******/
+enum cstate_t
+{
+       CSTATE_UNCONNECTED = 0,
+       CSTATE_WRITE_REQUEST,
+       CSTATE_READ_VERSION,
+       CSTATE_READ_AMT,
+       CSTATE_READ_JSON,
+};
+
+enum request_type_t
+{
+       ASOK_REQ_VERSION = 0,
+       ASOK_REQ_DATA = 1,
+       ASOK_REQ_SCHEMA = 2,
+       ASOK_REQ_NONE = 1000,
+};
+
+struct cconn
+{
+       /** The Ceph daemon that we're talking to */
+       struct ceph_daemon *d;
+
+       /** Request type */
+       uint32_t request_type;
+
+       /** The connection state */
+       enum cstate_t state;
+
+       /** The socket we use to talk to this daemon */
+       int asok;
+
+       /** The amount of data remaining to read / write. */
+       uint32_t amt;
+
+       /** Length of the JSON to read */
+       uint32_t json_len;
+
+       /** Buffer containing JSON data */
+       char *json;
+};
+
+static int cconn_connect(struct cconn *io)
+{
+       struct sockaddr_un address;
+       int flags, fd, err;
+       if (io->state != CSTATE_UNCONNECTED)
+       {
+               ERROR("cconn_connect: io->state != CSTATE_UNCONNECTED");
+               return -EDOM;
+       }
+       fd = socket(PF_UNIX, SOCK_STREAM, 0);
+       if (fd < 0)
+       {
+               int err = -errno;
+               ERROR("cconn_connect: socket(PF_UNIX, SOCK_STREAM, 0) failed: "
+               "error %d", err);
+               return err;
+       }
+       memset(&address, 0, sizeof(struct sockaddr_un));
+       address.sun_family = AF_UNIX;
+       snprintf(address.sun_path, sizeof(address.sun_path), "%s",
+                       io->d->asok_path);
+       RETRY_ON_EINTR(err,
+               connect(fd, (struct sockaddr *) &address, sizeof(struct sockaddr_un)));
+       if (err < 0)
+       {
+               ERROR("cconn_connect: connect(%d) failed: error %d", fd, err);
+               return err;
+       }
+
+       flags = fcntl(fd, F_GETFL, 0);
+       if (fcntl(fd, F_SETFL, flags | O_NONBLOCK) != 0)
+       {
+               err = -errno;
+               ERROR("cconn_connect: fcntl(%d, O_NONBLOCK) error %d", fd, err);
+               return err;
+       }
+       io->asok = fd;
+       io->state = CSTATE_WRITE_REQUEST;
+       io->amt = 0;
+       io->json_len = 0;
+       io->json = NULL;
+       return 0;
+}
+
+static void cconn_close(struct cconn *io)
+{
+       io->state = CSTATE_UNCONNECTED;
+       if (io->asok != -1)
+       {
+               int res;
+               RETRY_ON_EINTR(res, close(io->asok));
+       }
+       io->asok = -1;
+       io->amt = 0;
+       io->json_len = 0;
+       sfree(io->json);
+       io->json = NULL;
+}
+
+/* Process incoming JSON counter data */
+/*static int cconn_process_data(struct cconn *io)
+ {
+ int ret;
+ value_list_t vl = VALUE_LIST_INIT;
+ struct values_tmp *vtmp = calloc(1, sizeof(struct values_tmp) +
+ (sizeof(value_t) * io->d->dset.ds_num));
+ if (!vtmp)
+ return -ENOMEM;
+ vtmp->d = io->d;
+ vtmp->values_len = io->d->dset.ds_num;
+ ret = traverse_json(io->json, node_handler_fetch_data, vtmp);
+ if (ret)
+ goto done;
+ sstrncpy(vl.host, hostname_g, sizeof(vl.host));
+ sstrncpy(vl.plugin, "ceph", sizeof(vl.plugin));
+ sstrncpy(vl.type, io->d->dset.type, sizeof(vl.type));
+ vl.values = vtmp->values;
+ vl.values_len = vtmp->values_len;
+ DEBUG("cconn_process_data(io=%s): vl.values_len=%d, json=\"%s\"",
+ io->d->dset.type, vl.values_len, io->json);
+ ret = plugin_dispatch_values(&vl);
+ done:
+ sfree(vtmp);
+ return ret;
+ }*/
+static int cconn_process_data(struct cconn *io)
+{
+       int i, ret = 0;
+       struct values_tmp *vtmp = calloc(1,
+                       sizeof(struct values_tmp)
+                                       + (sizeof(struct values_holder)) * io->d->dset_num);
+       if (!vtmp)
+               return -ENOMEM;
+       for (i = 0; i < io->d->dset_num; i++)
+       {
+               value_t *val = calloc(1, (sizeof(value_t) * io->d->dset[i].ds_num));
+               vtmp->vh[i].values = val;
+               vtmp->vh[i].values_len = io->d->dset[i].ds_num;
+       }
+       vtmp->d = io->d;
+       vtmp->holder_num = io->d->dset_num;
+       ret = traverse_json(io->json, node_handler_fetch_data, vtmp);
+       if (ret)
+               goto done;
+       for (i = 0; i < vtmp->holder_num; i++)
+       {
+               value_list_t vl = VALUE_LIST_INIT;
+               sstrncpy(vl.host, hostname_g, sizeof(vl.host));
+               sstrncpy(vl.plugin, "ceph", sizeof(vl.plugin));
+               strncpy(vl.plugin_instance, io->d->name, sizeof(vl.plugin_instance));
+               sstrncpy(vl.type, io->d->dset[i].type, sizeof(vl.type));
+               vl.values = vtmp->vh[i].values;
+               vl.values_len = vtmp->vh[i].values_len;
+               DEBUG("cconn_process_data(io=%s): vl.values_len=%d, json=\"%s\"",
+                               io->d->name, vl.values_len, io->json);
+               ret = plugin_dispatch_values(&vl);
+               if (ret)
+                       goto done;
+       }
+
+       done: for (i = 0; i < vtmp->holder_num; i++)
+       {
+               sfree(vtmp->vh[i].values);
+       }
+       sfree(vtmp);
+       return ret;
+}
+
+static int cconn_process_json(struct cconn *io)
+{
+       switch (io->request_type)
+       {
+       case ASOK_REQ_DATA:
+               return cconn_process_data(io);
+       case ASOK_REQ_SCHEMA:
+               return traverse_json(io->json, node_handler_define_schema, io->d);
+       default:
+               return -EDOM;
+       }
+}
+
+static int cconn_validate_revents(struct cconn *io, int revents)
+{
+       if (revents & POLLERR)
+       {
+               ERROR("cconn_validate_revents(name=%s): got POLLERR", io->d->name);
+               return -EIO;
+       }
+       switch (io->state)
+       {
+       case CSTATE_WRITE_REQUEST:
+               return (revents & POLLOUT) ? 0 : -EINVAL;
+       case CSTATE_READ_VERSION:
+       case CSTATE_READ_AMT:
+       case CSTATE_READ_JSON:
+               return (revents & POLLIN) ? 0 : -EINVAL;
+               return (revents & POLLIN) ? 0 : -EINVAL;
+       default:
+               ERROR("cconn_validate_revents(name=%s) got to illegal state on line %d",
+                               io->d->name, __LINE__);
+               return -EDOM;
+       }
+}
+
+/** Handle a network event for a connection */
+static int cconn_handle_event(struct cconn *io)
+{
+       int ret;
+       switch (io->state)
+       {
+       case CSTATE_UNCONNECTED:
+               ERROR("cconn_handle_event(name=%s) got to illegal state on line %d",
+                               io->d->name, __LINE__);
+
+               return -EDOM;
+       case CSTATE_WRITE_REQUEST:
+       {
+               char cmd[32];
+               /*snprintf(cmd, sizeof(cmd), "%s%d%s", "{\"prefix\":\"", io->request_type,
+                "\"}");*/
+               char req_type_str[2];
+               snprintf(req_type_str, sizeof(req_type_str), "%1.1d", io->request_type);
+               json_object *cmd_object = json_object_new_object();
+               json_object_object_add(cmd_object, "prefix",
+                               json_object_new_string(req_type_str));
+               const char *cmd_json = json_object_to_json_string(cmd_object);
+               /** we should send '\n' to server **/
+               snprintf(cmd, sizeof(cmd), "%s\n", cmd_json);
+               size_t cmd_len = strlen(cmd);
+               RETRY_ON_EINTR(ret,
+                               write(io->asok, ((char*)&cmd) + io->amt, cmd_len - io->amt));
+               DEBUG("cconn_handle_event(name=%s,state=%d,amt=%d,ret=%d)",
+                               io->d->name, io->state, io->amt, ret);
+               if (ret < 0)
+                       return ret;
+               io->amt += ret;
+               if (io->amt >= cmd_len)
+               {
+                       io->amt = 0;
+                       switch (io->request_type)
+                       {
+                       case ASOK_REQ_VERSION:
+                               io->state = CSTATE_READ_VERSION;
+                               break;
+                       default:
+                               io->state = CSTATE_READ_AMT;
+                               break;
+                       }
+               }
+               json_object_put(cmd_object);
+               return 0;
+       }
+       case CSTATE_READ_VERSION:
+       {
+               RETRY_ON_EINTR(ret,
+                               read(io->asok, ((char*)(&io->d->version)) + io->amt,
+                                               sizeof(io->d->version) - io->amt));
+               DEBUG("cconn_handle_event(name=%s,state=%d,ret=%d)",
+                               io->d->name, io->state, ret);
+               if (ret < 0)
+                       return ret;
+               io->amt += ret;
+               if (io->amt >= sizeof(io->d->version))
+               {
+                       io->d->version = ntohl(io->d->version);
+                       if (io->d->version != 1)
+                       {
+                               ERROR("cconn_handle_event(name=%s) not "
+                               "expecting version %d!", io->d->name, io->d->version);
+                               return -ENOTSUP;
+                       }DEBUG("cconn_handle_event(name=%s): identified as "
+                                       "version %d", io->d->name, io->d->version);
+                       io->amt = 0;
+                       cconn_close(io);
+                       io->request_type = ASOK_REQ_SCHEMA;
+               }
+               return 0;
+       }
+       case CSTATE_READ_AMT:
+       {
+               RETRY_ON_EINTR(ret,
+                               read(io->asok, ((char*)(&io->json_len)) + io->amt,
+                                               sizeof(io->json_len) - io->amt));
+               DEBUG("cconn_handle_event(name=%s,state=%d,ret=%d)",
+                               io->d->name, io->state, ret);
+               if (ret < 0)
+                       return ret;
+               io->amt += ret;
+               if (io->amt >= sizeof(io->json_len))
+               {
+                       io->json_len = ntohl(io->json_len);
+                       io->amt = 0;
+                       io->state = CSTATE_READ_JSON;
+                       io->json = calloc(1, io->json_len + 1);
+                       if (!io->json)
+                               return -ENOMEM;
+               }
+               return 0;
+       }
+       case CSTATE_READ_JSON:
+       {
+               RETRY_ON_EINTR(ret,
+                               read(io->asok, io->json + io->amt, io->json_len - io->amt));
+               DEBUG("cconn_handle_event(name=%s,state=%d,ret=%d)",
+                               io->d->name, io->state, ret);
+               if (ret < 0)
+                       return ret;
+               io->amt += ret;
+               if (io->amt >= io->json_len)
+               {
+                       ret = cconn_process_json(io);
+                       if (ret)
+                               return ret;
+                       cconn_close(io);
+                       io->request_type = ASOK_REQ_NONE;
+               }
+               return 0;
+       }
+       default:
+               ERROR("cconn_handle_event(name=%s) got to illegal state on "
+               "line %d", io->d->name, __LINE__);
+               return -EDOM;
+       }
+}
+
+static int cconn_prepare(struct cconn *io, struct pollfd* fds)
+{
+       int ret;
+       if (io->request_type == ASOK_REQ_NONE)
+       {
+               /* The request has already been serviced. */
+               return 0;
+       }
+       else if ((io->request_type == ASOK_REQ_DATA) && (io->d->dset_num == 0))
+       {
+               /* If there are no counters to report on, don't bother
+                * connecting */
+               return 0;
+       }
+
+       switch (io->state)
+       {
+       case CSTATE_UNCONNECTED:
+               ret = cconn_connect(io);
+               if (ret > 0)
+                       return -ret;
+               else if (ret < 0)
+                       return ret;
+               fds->fd = io->asok;
+               fds->events = POLLOUT;
+               return 1;
+       case CSTATE_WRITE_REQUEST:
+               fds->fd = io->asok;
+               fds->events = POLLOUT;
+               return 1;
+       case CSTATE_READ_VERSION:
+       case CSTATE_READ_AMT:
+       case CSTATE_READ_JSON:
+               fds->fd = io->asok;
+               fds->events = POLLIN;
+               return 1;
+       default:
+               ERROR("cconn_prepare(name=%s) got to illegal state on line %d",
+                               io->d->name, __LINE__);
+               return -EDOM;
+       }
+}
+
+/** Returns the difference between two struct timevals in milliseconds.
+ * On overflow, we return max/min int.
+ */
+static int milli_diff(const struct timeval *t1, const struct timeval *t2)
+{
+       int64_t ret;
+       int sec_diff = t1->tv_sec - t2->tv_sec;
+       int usec_diff = t1->tv_usec - t2->tv_usec;
+       ret = usec_diff / 1000;
+       ret += (sec_diff * 1000);
+       if (ret > INT_MAX)
+               return INT_MAX;
+       else if (ret < INT_MIN)
+               return INT_MIN;
+       return (int) ret;
+}
+
+/** This handles the actual network I/O to talk to the Ceph daemons.
+ */
+static int cconn_main_loop(uint32_t request_type)
+{
+       int i, ret, some_unreachable = 0;
+       struct timeval end_tv;
+       struct cconn io_array[g_num_daemons];
+
+       DEBUG("entering cconn_main_loop(request_type = %d)", request_type);
+
+       /* create cconn array */
+       memset(io_array, 0, sizeof(io_array));
+       for (i = 0; i < g_num_daemons; ++i)
+       {
+               io_array[i].d = g_daemons[i];
+               io_array[i].request_type = request_type;
+               io_array[i].state = CSTATE_UNCONNECTED;
+       }
+
+       /** Calculate the time at which we should give up */
+       gettimeofday(&end_tv, NULL);
+       end_tv.tv_sec += CEPH_TIMEOUT_INTERVAL;
+
+       while (1)
+       {
+               int nfds, diff;
+               struct timeval tv;
+               struct cconn *polled_io_array[g_num_daemons];
+               struct pollfd fds[g_num_daemons];
+               memset(fds, 0, sizeof(fds));
+               nfds = 0;
+               for (i = 0; i < g_num_daemons; ++i)
+               {
+                       struct cconn *io = io_array + i;
+                       ret = cconn_prepare(io, fds + nfds);
+                       if (ret < 0)
+                       {
+                               WARNING("ERROR: cconn_prepare(name=%s,i=%d,st=%d)=%d",
+                                               io->d->name, i, io->state, ret);
+                               cconn_close(io);
+                               io->request_type = ASOK_REQ_NONE;
+                               some_unreachable = 1;
+                       }
+                       else if (ret == 1)
+                       {
+                               DEBUG("did cconn_prepare(name=%s,i=%d,st=%d)",
+                                               io->d->name, i, io->state);
+                               polled_io_array[nfds++] = io_array + i;
+                       }
+               }
+               if (nfds == 0)
+               {
+                       /* finished */
+                       ret = 0;
+                       DEBUG("cconn_main_loop: no more cconn to manage.");
+                       goto done;
+               }
+               gettimeofday(&tv, NULL);
+               diff = milli_diff(&end_tv, &tv);
+               if (diff <= 0)
+               {
+                       /* Timed out */
+                       ret = -ETIMEDOUT;
+                       WARNING("ERROR: cconn_main_loop: timed out.\n");
+                       goto done;
+               }
+               RETRY_ON_EINTR(ret, poll(fds, nfds, diff));
+               if (ret < 0)
+               {
+                       ERROR("poll(2) error: %d", ret);
+                       goto done;
+               }
+               for (i = 0; i < nfds; ++i)
+               {
+                       struct cconn *io = polled_io_array[i];
+                       int revents = fds[i].revents;
+                       if (revents == 0)
+                       {
+                               /* do nothing */
+                       }
+                       else if (cconn_validate_revents(io, revents))
+                       {
+                               WARNING("ERROR: cconn(name=%s,i=%d,st=%d): "
+                               "revents validation error: "
+                               "revents=0x%08x", io->d->name, i, io->state, revents);
+                               cconn_close(io);
+                               io->request_type = ASOK_REQ_NONE;
+                               some_unreachable = 1;
+                       }
+                       else
+                       {
+                               int ret = cconn_handle_event(io);
+                               if (ret)
+                               {
+                                       WARNING("ERROR: cconn_handle_event(name=%s,"
+                                       "i=%d,st=%d): error %d", io->d->name, i, io->state, ret);
+                                       cconn_close(io);
+                                       io->request_type = ASOK_REQ_NONE;
+                                       some_unreachable = 1;
+                               }
+                       }
+               }
+       }
+       done: for (i = 0; i < g_num_daemons; ++i)
+       {
+               cconn_close(io_array + i);
+       }
+       if (some_unreachable)
+       {
+               DEBUG("cconn_main_loop: some Ceph daemons were unreachable.");
+       }
+       else
+       {
+               DEBUG("cconn_main_loop: reached all Ceph daemons :)");
+       }
+       return ret;
+}
+
+static int ceph_read(void)
+{
+       return cconn_main_loop(ASOK_REQ_DATA);
+}
+
+/******* lifecycle *******/
+static int ceph_init(void)
+{
+       int i, ret, j;
+       DEBUG("ceph_init");
+       ceph_daemons_print();
+
+       ret = cconn_main_loop(ASOK_REQ_VERSION);
+       if (ret)
+               return ret;
+       for (i = 0; i < g_num_daemons; ++i)
+       {
+               struct ceph_daemon *d = g_daemons[i];
+               for (j = 0; j < d->dset_num; j++)
+               {
+                       ret = plugin_register_data_set(d->dset + j);
+                       if (ret)
+                       {
+                               ERROR("plugin_register_data_set(%s) failed!", d->name);
+                       }
+                       else
+                       {
+                               DEBUG("plugin_register_data_set(%s): "
+                                               "(d->dset)[%d]->ds_num=%d",
+                                               d->name, j, d->dset[j].ds_num);
+                       }
+               }
+       }
+       return 0;
+}
+
+static int ceph_shutdown(void)
+{
+       int i;
+       for (i = 0; i < g_num_daemons; ++i)
+       {
+               ceph_daemon_free(g_daemons[i]);
+       }
+       sfree(g_daemons);
+       g_daemons = NULL;
+       g_num_daemons = 0;
+       DEBUG("finished ceph_shutdown");
+       return 0;
+}
+
+void module_register(void)
+{
+       plugin_register_complex_config("ceph", ceph_config);
+       plugin_register_init("ceph", ceph_init);
+       plugin_register_read("ceph", ceph_read);
+       plugin_register_shutdown("ceph", ceph_shutdown);
+}