src/gmond.c

   1 /**
   2  * collectd - src/gmond.c
   3  * Copyright (C) 2009-2015  Florian octo Forster
   4  *
   5  * Permission is hereby granted, free of charge, to any person obtaining a
   6  * copy of this software and associated documentation files (the "Software"),
   7  * to deal in the Software without restriction, including without limitation
   8  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
   9  * and/or sell copies of the Software, and to permit persons to whom the
  10  * Software is furnished to do so, subject to the following conditions:
  11  *
  12  * The above copyright notice and this permission notice shall be included in
  13  * all copies or substantial portions of the Software.
  14  *
  15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  16  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  17  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  18  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  19  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  20  * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
  21  * DEALINGS IN THE SOFTWARE.
  22  *
  23  * Authors:
  24  *   Florian octo Forster <octo at collectd.org>
  25  **/
  26
  27 #include "collectd.h"
  28
  29 #include "common.h"
  30 #include "plugin.h"
  31 #include "utils_avltree.h"
  32
  33 #if HAVE_NETDB_H
  34 #include <netdb.h>
  35 #endif
  36 #if HAVE_NETINET_IN_H
  37 #include <netinet/in.h>
  38 #endif
  39 #if HAVE_ARPA_INET_H
  40 #include <arpa/inet.h>
  41 #endif
  42 #if HAVE_POLL_H
  43 #include <poll.h>
  44 #endif
  45
  46 #include <gm_protocol.h>
  47
  48 #ifndef IPV6_ADD_MEMBERSHIP
  49 #ifdef IPV6_JOIN_GROUP
  50 #define IPV6_ADD_MEMBERSHIP IPV6_JOIN_GROUP
  51 #else
  52 #error "Neither IP_ADD_MEMBERSHIP nor IPV6_JOIN_GROUP is defined"
  53 #endif
  54 #endif /* !IP_ADD_MEMBERSHIP */
  55
  56 #ifdef GANGLIA_MAX_MESSAGE_LEN
  57 #define BUFF_SIZE GANGLIA_MAX_MESSAGE_LEN
  58 #else
  59 #define BUFF_SIZE 1400
  60 #endif
  61
  62 struct socket_entry_s {
  63   int fd;
  64   struct sockaddr_storage addr;
  65   socklen_t addrlen;
  66 };
  67 typedef struct socket_entry_s socket_entry_t;
  68
  69 struct staging_entry_s {
  70   char key[2 * DATA_MAX_NAME_LEN];
  71   value_list_t vl;
  72   int flags;
  73 };
  74 typedef struct staging_entry_s staging_entry_t;
  75
  76 struct metric_map_s {
  77   char *ganglia_name;
  78   char *type;
  79   char *type_instance;
  80   char *ds_name;
  81   int ds_type;
  82   size_t ds_index;
  83 };
  84 typedef struct metric_map_s metric_map_t;
  85
  86 #define MC_RECEIVE_GROUP_DEFAULT "239.2.11.71"
  87 static char *mc_receive_group = NULL;
  88 #define MC_RECEIVE_PORT_DEFAULT "8649"
  89 static char *mc_receive_port = NULL;
  90
  91 static struct pollfd *mc_receive_sockets = NULL;
  92 static size_t mc_receive_sockets_num = 0;
  93
  94 static socket_entry_t *mc_send_sockets = NULL;
  95 static size_t mc_send_sockets_num = 0;
  96 static pthread_mutex_t mc_send_sockets_lock = PTHREAD_MUTEX_INITIALIZER;
  97
  98 static int mc_receive_thread_loop = 0;
  99 static int mc_receive_thread_running = 0;
 100 static pthread_t mc_receive_thread_id;
 101
 102 static metric_map_t metric_map_default[] =
 103     {/*---------------+-------------+-----------+-------------+------+-----*
 104       * ganglia_name  ! type        ! type_inst ! data_source ! type ! idx *
 105       *---------------+-------------+-----------+-------------+------+-----*/
 106      {"load_one", "load", "", "shortterm", -1, -1},
 107      {"load_five", "load", "", "midterm", -1, -1},
 108      {"load_fifteen", "load", "", "longterm", -1, -1},
 109      {"cpu_user", "cpu", "user", "value", -1, -1},
 110      {"cpu_system", "cpu", "system", "value", -1, -1},
 111      {"cpu_idle", "cpu", "idle", "value", -1, -1},
 112      {"cpu_nice", "cpu", "nice", "value", -1, -1},
 113      {"cpu_wio", "cpu", "wait", "value", -1, -1},
 114      {"mem_free", "memory", "free", "value", -1, -1},
 115      {"mem_shared", "memory", "shared", "value", -1, -1},
 116      {"mem_buffers", "memory", "buffered", "value", -1, -1},
 117      {"mem_cached", "memory", "cached", "value", -1, -1},
 118      {"mem_total", "memory", "total", "value", -1, -1},
 119      {"bytes_in", "if_octets", "", "rx", -1, -1},
 120      {"bytes_out", "if_octets", "", "tx", -1, -1},
 121      {"pkts_in", "if_packets", "", "rx", -1, -1},
 122      {"pkts_out", "if_packets", "", "tx", -1, -1}};
 123 static size_t metric_map_len_default = STATIC_ARRAY_SIZE(metric_map_default);
 124
 125 static metric_map_t *metric_map = NULL;
 126 static size_t metric_map_len = 0;
 127
 128 static c_avl_tree_t *staging_tree;
 129 static pthread_mutex_t staging_lock = PTHREAD_MUTEX_INITIALIZER;
 130
 131 static metric_map_t *metric_lookup(const char *key) /* {{{ */
 132 {
 133   metric_map_t *map;
 134   size_t map_len;
 135   size_t i;
 136
 137   /* Search the user-supplied table first.. */
 138   map = metric_map;
 139   map_len = metric_map_len;
 140   for (i = 0; i < map_len; i++)
 141     if (strcmp(map[i].ganglia_name, key) == 0)
 142       break;
 143
 144   /* .. and fall back to the built-in table if nothing is found. */
 145   if (i >= map_len) {
 146     map = metric_map_default;
 147     map_len = metric_map_len_default;
 148
 149     for (i = 0; i < map_len; i++)
 150       if (strcmp(map[i].ganglia_name, key) == 0)
 151         break;
 152   }
 153
 154   if (i >= map_len)
 155     return NULL;
 156
 157   /* Look up the DS type and ds_index. */
 158   if (map[i].ds_type < 0) /* {{{ */
 159   {
 160     const data_set_t *ds;
 161
 162     ds = plugin_get_ds(map[i].type);
 163     if (ds == NULL) {
 164       WARNING("gmond plugin: Type not defined: %s", map[i].type);
 165       return NULL;
 166     }
 167
 168     if ((map[i].ds_name == NULL) && (ds->ds_num != 1)) {
 169       WARNING("gmond plugin: No data source name defined for metric %s, "
 170               "but type %s has more than one data source.",
 171               map[i].ganglia_name, map[i].type);
 172       return NULL;
 173     }
 174
 175     if (map[i].ds_name == NULL) {
 176       map[i].ds_index = 0;
 177     } else {
 178       size_t j;
 179
 180       for (j = 0; j < ds->ds_num; j++)
 181         if (strcasecmp(ds->ds[j].name, map[i].ds_name) == 0)
 182           break;
 183
 184       if (j >= ds->ds_num) {
 185         WARNING("gmond plugin: There is no data source "
 186                 "named `%s' in type `%s'.",
 187                 map[i].ds_name, ds->type);
 188         return NULL;
 189       }
 190       map[i].ds_index = j;
 191     }
 192
 193     map[i].ds_type = ds->ds[map[i].ds_index].type;
 194   } /* }}} if ((map[i].ds_type < 0) || (map[i].ds_index < 0)) */
 195
 196   return map + i;
 197 } /* }}} metric_map_t *metric_lookup */
 198
 199 static int create_sockets(socket_entry_t **ret_sockets, /* {{{ */
 200                           size_t *ret_sockets_num, const char *node,
 201                           const char *service, int listen) {
 202   struct addrinfo *ai_list;
 203   int ai_return;
 204
 205   socket_entry_t *sockets = NULL;
 206   size_t sockets_num = 0;
 207
 208   int status;
 209
 210   if (*ret_sockets != NULL)
 211     return EINVAL;
 212
 213   struct addrinfo ai_hints = {.ai_family = AF_UNSPEC,
 214                               .ai_flags = AI_ADDRCONFIG | AI_PASSIVE,
 215                               .ai_protocol = IPPROTO_UDP,
 216                               .ai_socktype = SOCK_DGRAM};
 217
 218   ai_return = getaddrinfo(node, service, &ai_hints, &ai_list);
 219   if (ai_return != 0) {
 220     char errbuf[1024];
 221     ERROR("gmond plugin: getaddrinfo (%s, %s) failed: %s",
 222           (node == NULL) ? "(null)" : node,
 223           (service == NULL) ? "(null)" : service,
 224           (ai_return == EAI_SYSTEM) ? sstrerror(errno, errbuf, sizeof(errbuf))
 225                                     : gai_strerror(ai_return));
 226     return -1;
 227   }
 228
 229   for (struct addrinfo *ai_ptr = ai_list; ai_ptr != NULL;
 230        ai_ptr = ai_ptr->ai_next) /* {{{ */
 231   {
 232     socket_entry_t *tmp;
 233
 234     tmp = realloc(sockets, (sockets_num + 1) * sizeof(*sockets));
 235     if (tmp == NULL) {
 236       ERROR("gmond plugin: realloc failed.");
 237       continue;
 238     }
 239     sockets = tmp;
 240
 241     sockets[sockets_num].fd =
 242         socket(ai_ptr->ai_family, ai_ptr->ai_socktype, ai_ptr->ai_protocol);
 243     if (sockets[sockets_num].fd < 0) {
 244       char errbuf[1024];
 245       ERROR("gmond plugin: socket failed: %s",
 246             sstrerror(errno, errbuf, sizeof(errbuf)));
 247       continue;
 248     }
 249
 250     assert(sizeof(sockets[sockets_num].addr) >= ai_ptr->ai_addrlen);
 251     memcpy(&sockets[sockets_num].addr, ai_ptr->ai_addr, ai_ptr->ai_addrlen);
 252     sockets[sockets_num].addrlen = ai_ptr->ai_addrlen;
 253
 254     /* Sending socket: Open only one socket and don't bind it. */
 255     if (listen == 0) {
 256       sockets_num++;
 257       break;
 258     } else {
 259       int yes = 1;
 260
 261       status = setsockopt(sockets[sockets_num].fd, SOL_SOCKET, SO_REUSEADDR,
 262                           (void *)&yes, sizeof(yes));
 263       if (status != 0) {
 264         char errbuf[1024];
 265         WARNING("gmond plugin: setsockopt(2) failed: %s",
 266                 sstrerror(errno, errbuf, sizeof(errbuf)));
 267       }
 268     }
 269
 270     status = bind(sockets[sockets_num].fd, ai_ptr->ai_addr, ai_ptr->ai_addrlen);
 271     if (status != 0) {
 272       char errbuf[1024];
 273       ERROR("gmond plugin: bind failed: %s",
 274             sstrerror(errno, errbuf, sizeof(errbuf)));
 275       close(sockets[sockets_num].fd);
 276       continue;
 277     }
 278
 279     if (ai_ptr->ai_family == AF_INET) {
 280       struct sockaddr_in *addr;
 281       int loop;
 282
 283       addr = (struct sockaddr_in *)ai_ptr->ai_addr;
 284
 285       if (!IN_MULTICAST(ntohl(addr->sin_addr.s_addr))) {
 286         sockets_num++;
 287         continue;
 288       }
 289
 290       loop = 1;
 291       status = setsockopt(sockets[sockets_num].fd, IPPROTO_IP,
 292                           IP_MULTICAST_LOOP, (void *)&loop, sizeof(loop));
 293       if (status != 0) {
 294         char errbuf[1024];
 295         WARNING("gmond plugin: setsockopt(2) failed: %s",
 296                 sstrerror(errno, errbuf, sizeof(errbuf)));
 297       }
 298
 299       struct ip_mreq mreq = {.imr_multiaddr.s_addr = addr->sin_addr.s_addr,
 300                              .imr_interface.s_addr = htonl(INADDR_ANY)};
 301
 302       status = setsockopt(sockets[sockets_num].fd, IPPROTO_IP,
 303                           IP_ADD_MEMBERSHIP, (void *)&mreq, sizeof(mreq));
 304       if (status != 0) {
 305         char errbuf[1024];
 306         WARNING("gmond plugin: setsockopt(2) failed: %s",
 307                 sstrerror(errno, errbuf, sizeof(errbuf)));
 308       }
 309     } /* if (ai_ptr->ai_family == AF_INET) */
 310     else if (ai_ptr->ai_family == AF_INET6) {
 311       struct sockaddr_in6 *addr;
 312       int loop;
 313
 314       addr = (struct sockaddr_in6 *)ai_ptr->ai_addr;
 315
 316       if (!IN6_IS_ADDR_MULTICAST(&addr->sin6_addr)) {
 317         sockets_num++;
 318         continue;
 319       }
 320
 321       loop = 1;
 322       status = setsockopt(sockets[sockets_num].fd, IPPROTO_IPV6,
 323                           IPV6_MULTICAST_LOOP, (void *)&loop, sizeof(loop));
 324       if (status != 0) {
 325         char errbuf[1024];
 326         WARNING("gmond plugin: setsockopt(2) failed: %s",
 327                 sstrerror(errno, errbuf, sizeof(errbuf)));
 328       }
 329
 330       struct ipv6_mreq mreq = {
 331           .ipv6mr_interface = 0 /* any */
 332       };
 333
 334       memcpy(&mreq.ipv6mr_multiaddr, &addr->sin6_addr, sizeof(addr->sin6_addr));
 335       status = setsockopt(sockets[sockets_num].fd, IPPROTO_IPV6,
 336                           IPV6_ADD_MEMBERSHIP, (void *)&mreq, sizeof(mreq));
 337       if (status != 0) {
 338         char errbuf[1024];
 339         WARNING("gmond plugin: setsockopt(2) failed: %s",
 340                 sstrerror(errno, errbuf, sizeof(errbuf)));
 341       }
 342     } /* if (ai_ptr->ai_family == AF_INET6) */
 343
 344     sockets_num++;
 345   } /* }}} for (ai_ptr = ai_list; ai_ptr != NULL; ai_ptr = ai_ptr->ai_next) */
 346
 347   freeaddrinfo(ai_list);
 348
 349   if (sockets_num == 0) {
 350     sfree(sockets);
 351     return -1;
 352   }
 353
 354   *ret_sockets = sockets;
 355   *ret_sockets_num = sockets_num;
 356   return 0;
 357 } /* }}} int create_sockets */
 358
 359 static int request_meta_data(const char *host, const char *name) /* {{{ */
 360 {
 361   Ganglia_metadata_msg msg = {0};
 362   char buffer[BUFF_SIZE] = {0};
 363   unsigned int buffer_size;
 364   XDR xdr;
 365
 366   msg.id = gmetadata_request;
 367   msg.Ganglia_metadata_msg_u.grequest.metric_id.host = strdup(host);
 368   msg.Ganglia_metadata_msg_u.grequest.metric_id.name = strdup(name);
 369
 370   if ((msg.Ganglia_metadata_msg_u.grequest.metric_id.host == NULL) ||
 371       (msg.Ganglia_metadata_msg_u.grequest.metric_id.name == NULL)) {
 372     sfree(msg.Ganglia_metadata_msg_u.grequest.metric_id.host);
 373     sfree(msg.Ganglia_metadata_msg_u.grequest.metric_id.name);
 374     return -1;
 375   }
 376
 377   xdrmem_create(&xdr, buffer, sizeof(buffer), XDR_ENCODE);
 378
 379   if (!xdr_Ganglia_metadata_msg(&xdr, &msg)) {
 380     sfree(msg.Ganglia_metadata_msg_u.grequest.metric_id.host);
 381     sfree(msg.Ganglia_metadata_msg_u.grequest.metric_id.name);
 382     return -1;
 383   }
 384
 385   buffer_size = xdr_getpos(&xdr);
 386
 387   DEBUG("gmond plugin: Requesting meta data for %s/%s.", host, name);
 388
 389   pthread_mutex_lock(&mc_send_sockets_lock);
 390   for (size_t i = 0; i < mc_send_sockets_num; i++) {
 391     ssize_t status =
 392         sendto(mc_send_sockets[i].fd, buffer, (size_t)buffer_size,
 393                /* flags = */ 0, (struct sockaddr *)&mc_send_sockets[i].addr,
 394                mc_send_sockets[i].addrlen);
 395     if (status == -1) {
 396       char errbuf[1024];
 397       ERROR("gmond plugin: sendto(2) failed: %s",
 398             sstrerror(errno, errbuf, sizeof(errbuf)));
 399       continue;
 400     }
 401   }
 402   pthread_mutex_unlock(&mc_send_sockets_lock);
 403
 404   sfree(msg.Ganglia_metadata_msg_u.grequest.metric_id.host);
 405   sfree(msg.Ganglia_metadata_msg_u.grequest.metric_id.name);
 406   return 0;
 407 } /* }}} int request_meta_data */
 408
 409 static staging_entry_t *staging_entry_get(const char *host, /* {{{ */
 410                                           const char *name, const char *type,
 411                                           const char *type_instance,
 412                                           int values_len) {
 413   char key[2 * DATA_MAX_NAME_LEN];
 414   staging_entry_t *se;
 415   int status;
 416
 417   if (staging_tree == NULL)
 418     return NULL;
 419
 420   snprintf(key, sizeof(key), "%s/%s/%s", host, type,
 421            (type_instance != NULL) ? type_instance : "");
 422
 423   se = NULL;
 424   status = c_avl_get(staging_tree, key, (void *)&se);
 425   if (status == 0)
 426     return se;
 427
 428   /* insert new entry */
 429   se = calloc(1, sizeof(*se));
 430   if (se == NULL)
 431     return NULL;
 432
 433   sstrncpy(se->key, key, sizeof(se->key));
 434   se->flags = 0;
 435
 436   se->vl.values = (value_t *)calloc(values_len, sizeof(*se->vl.values));
 437   if (se->vl.values == NULL) {
 438     sfree(se);
 439     return NULL;
 440   }
 441   se->vl.values_len = values_len;
 442
 443   se->vl.time = 0;
 444   se->vl.interval = 0;
 445   sstrncpy(se->vl.host, host, sizeof(se->vl.host));
 446   sstrncpy(se->vl.plugin, "gmond", sizeof(se->vl.plugin));
 447   sstrncpy(se->vl.type, type, sizeof(se->vl.type));
 448   if (type_instance != NULL)
 449     sstrncpy(se->vl.type_instance, type_instance, sizeof(se->vl.type_instance));
 450
 451   status = c_avl_insert(staging_tree, se->key, se);
 452   if (status != 0) {
 453     ERROR("gmond plugin: c_avl_insert failed.");
 454     sfree(se->vl.values);
 455     sfree(se);
 456     return NULL;
 457   }
 458
 459   return se;
 460 } /* }}} staging_entry_t *staging_entry_get */
 461
 462 static int staging_entry_update(const char *host, const char *name, /* {{{ */
 463                                 const char *type, const char *type_instance,
 464                                 size_t ds_index, int ds_type, value_t value) {
 465   const data_set_t *ds;
 466   staging_entry_t *se;
 467
 468   ds = plugin_get_ds(type);
 469   if (ds == NULL) {
 470     ERROR("gmond plugin: Looking up type %s failed.", type);
 471     return -1;
 472   }
 473
 474   if (ds->ds_num <= ds_index) {
 475     ERROR("gmond plugin: Invalid index %" PRIsz ": %s has only %" PRIsz
 476           " data source(s).",
 477           ds_index, ds->type, ds->ds_num);
 478     return -1;
 479   }
 480
 481   pthread_mutex_lock(&staging_lock);
 482
 483   se = staging_entry_get(host, name, type, type_instance, ds->ds_num);
 484   if (se == NULL) {
 485     pthread_mutex_unlock(&staging_lock);
 486     ERROR("gmond plugin: staging_entry_get failed.");
 487     return -1;
 488   }
 489   if (se->vl.values_len != ds->ds_num) {
 490     pthread_mutex_unlock(&staging_lock);
 491     return -1;
 492   }
 493
 494   if (ds_type == DS_TYPE_COUNTER)
 495     se->vl.values[ds_index].counter += value.counter;
 496   else if (ds_type == DS_TYPE_GAUGE)
 497     se->vl.values[ds_index].gauge = value.gauge;
 498   else if (ds_type == DS_TYPE_DERIVE)
 499     se->vl.values[ds_index].derive += value.derive;
 500   else if (ds_type == DS_TYPE_ABSOLUTE)
 501     se->vl.values[ds_index].absolute = value.absolute;
 502   else
 503     assert(23 == 42);
 504
 505   se->flags |= (0x01 << ds_index);
 506
 507   /* Check if all data sources have been set. If not, return here. */
 508   if (se->flags != ((0x01 << se->vl.values_len) - 1)) {
 509     pthread_mutex_unlock(&staging_lock);
 510     return 0;
 511   }
 512
 513   /* Check if the interval of this metric is known. If not, request meta data
 514    * and return. */
 515   if (se->vl.interval == 0) {
 516     /* No meta data has been received for this metric yet. */
 517     se->flags = 0;
 518     pthread_mutex_unlock(&staging_lock);
 519
 520     request_meta_data(host, name);
 521     return 0;
 522   }
 523
 524   plugin_dispatch_values(&se->vl);
 525
 526   se->flags = 0;
 527   pthread_mutex_unlock(&staging_lock);
 528
 529   return 0;
 530 } /* }}} int staging_entry_update */
 531
 532 static int mc_handle_value_msg(Ganglia_value_msg *msg) /* {{{ */
 533 {
 534   const char *host;
 535   const char *name;
 536   metric_map_t *map;
 537
 538   value_t value_counter;
 539   value_t value_gauge;
 540   value_t value_derive;
 541
 542   /* Fill in `host', `name', `value_counter', and `value_gauge' according to
 543    * the value type, or return with an error. */
 544   switch (msg->id) /* {{{ */
 545   {
 546   case gmetric_uint: {
 547     Ganglia_gmetric_uint msg_uint;
 548
 549     msg_uint = msg->Ganglia_value_msg_u.gu_int;
 550
 551     host = msg_uint.metric_id.host;
 552     name = msg_uint.metric_id.name;
 553     value_counter.counter = (counter_t)msg_uint.ui;
 554     value_gauge.gauge = (gauge_t)msg_uint.ui;
 555     value_derive.derive = (derive_t)msg_uint.ui;
 556     break;
 557   }
 558
 559   case gmetric_string: {
 560     Ganglia_gmetric_string msg_string;
 561     int status;
 562
 563     msg_string = msg->Ganglia_value_msg_u.gstr;
 564
 565     host = msg_string.metric_id.host;
 566     name = msg_string.metric_id.name;
 567
 568     status = parse_value(msg_string.str, &value_derive, DS_TYPE_DERIVE);
 569     if (status != 0)
 570       value_derive.derive = -1;
 571
 572     status = parse_value(msg_string.str, &value_gauge, DS_TYPE_GAUGE);
 573     if (status != 0)
 574       value_gauge.gauge = NAN;
 575
 576     status = parse_value(msg_string.str, &value_counter, DS_TYPE_COUNTER);
 577     if (status != 0)
 578       value_counter.counter = 0;
 579
 580     break;
 581   }
 582
 583   case gmetric_float: {
 584     Ganglia_gmetric_float msg_float;
 585
 586     msg_float = msg->Ganglia_value_msg_u.gf;
 587
 588     host = msg_float.metric_id.host;
 589     name = msg_float.metric_id.name;
 590     value_counter.counter = (counter_t)msg_float.f;
 591     value_gauge.gauge = (gauge_t)msg_float.f;
 592     value_derive.derive = (derive_t)msg_float.f;
 593     break;
 594   }
 595
 596   case gmetric_double: {
 597     Ganglia_gmetric_double msg_double;
 598
 599     msg_double = msg->Ganglia_value_msg_u.gd;
 600
 601     host = msg_double.metric_id.host;
 602     name = msg_double.metric_id.name;
 603     value_counter.counter = (counter_t)msg_double.d;
 604     value_gauge.gauge = (gauge_t)msg_double.d;
 605     value_derive.derive = (derive_t)msg_double.d;
 606     break;
 607   }
 608   default:
 609     DEBUG("gmond plugin: Value type not handled: %i", msg->id);
 610     return -1;
 611   } /* }}} switch (msg->id) */
 612
 613   assert(host != NULL);
 614   assert(name != NULL);
 615
 616   map = metric_lookup(name);
 617   if (map != NULL) {
 618     value_t val_copy;
 619
 620     if ((map->ds_type == DS_TYPE_COUNTER) || (map->ds_type == DS_TYPE_ABSOLUTE))
 621       val_copy = value_counter;
 622     else if (map->ds_type == DS_TYPE_GAUGE)
 623       val_copy = value_gauge;
 624     else if (map->ds_type == DS_TYPE_DERIVE)
 625       val_copy = value_derive;
 626     else
 627       assert(23 == 42);
 628
 629     return staging_entry_update(host, name, map->type, map->type_instance,
 630                                 map->ds_index, map->ds_type, val_copy);
 631   }
 632
 633   DEBUG("gmond plugin: Cannot find a translation for %s.", name);
 634   return -1;
 635 } /* }}} int mc_handle_value_msg */
 636
 637 static int mc_handle_metadata_msg(Ganglia_metadata_msg *msg) /* {{{ */
 638 {
 639   switch (msg->id) {
 640   case gmetadata_full: {
 641     Ganglia_metadatadef msg_meta;
 642     staging_entry_t *se;
 643     const data_set_t *ds;
 644     metric_map_t *map;
 645
 646     msg_meta = msg->Ganglia_metadata_msg_u.gfull;
 647
 648     if (msg_meta.metric.tmax == 0)
 649       return -1;
 650
 651     map = metric_lookup(msg_meta.metric_id.name);
 652     if (map == NULL) {
 653       DEBUG("gmond plugin: Not handling meta data %s.",
 654             msg_meta.metric_id.name);
 655       return 0;
 656     }
 657
 658     ds = plugin_get_ds(map->type);
 659     if (ds == NULL) {
 660       WARNING("gmond plugin: Could not find data set %s.", map->type);
 661       return -1;
 662     }
 663
 664     DEBUG("gmond plugin: Received meta data for %s/%s.",
 665           msg_meta.metric_id.host, msg_meta.metric_id.name);
 666
 667     pthread_mutex_lock(&staging_lock);
 668     se = staging_entry_get(msg_meta.metric_id.host, msg_meta.metric_id.name,
 669                            map->type, map->type_instance, ds->ds_num);
 670     if (se != NULL)
 671       se->vl.interval = TIME_T_TO_CDTIME_T(msg_meta.metric.tmax);
 672     pthread_mutex_unlock(&staging_lock);
 673
 674     if (se == NULL) {
 675       ERROR("gmond plugin: staging_entry_get failed.");
 676       return -1;
 677     }
 678
 679     break;
 680   }
 681
 682   default: { return -1; }
 683   }
 684
 685   return 0;
 686 } /* }}} int mc_handle_metadata_msg */
 687
 688 static int mc_handle_metric(void *buffer, size_t buffer_size) /* {{{ */
 689 {
 690   XDR xdr;
 691   Ganglia_msg_formats format;
 692
 693   xdrmem_create(&xdr, buffer, buffer_size, XDR_DECODE);
 694
 695   xdr_Ganglia_msg_formats(&xdr, &format);
 696   xdr_setpos(&xdr, 0);
 697
 698   switch (format) {
 699   case gmetric_ushort:
 700   case gmetric_short:
 701   case gmetric_int:
 702   case gmetric_uint:
 703   case gmetric_string:
 704   case gmetric_float:
 705   case gmetric_double: {
 706     Ganglia_value_msg msg = {0};
 707
 708     if (xdr_Ganglia_value_msg(&xdr, &msg))
 709       mc_handle_value_msg(&msg);
 710     break;
 711   }
 712
 713   case gmetadata_full:
 714   case gmetadata_request: {
 715     Ganglia_metadata_msg msg = {0};
 716     if (xdr_Ganglia_metadata_msg(&xdr, &msg))
 717       mc_handle_metadata_msg(&msg);
 718     break;
 719   }
 720
 721   default:
 722     DEBUG("gmond plugin: Unknown format: %i", format);
 723     return -1;
 724   } /* switch (format) */
 725
 726   return 0;
 727 } /* }}} int mc_handle_metric */
 728
 729 static int mc_handle_socket(struct pollfd *p) /* {{{ */
 730 {
 731   char buffer[BUFF_SIZE];
 732   ssize_t buffer_size;
 733
 734   if ((p->revents & (POLLIN | POLLPRI)) == 0) {
 735     p->revents = 0;
 736     return -1;
 737   }
 738
 739   buffer_size = recv(p->fd, buffer, sizeof(buffer), /* flags = */ 0);
 740   if (buffer_size <= 0) {
 741     char errbuf[1024];
 742     ERROR("gmond plugin: recv failed: %s",
 743           sstrerror(errno, errbuf, sizeof(errbuf)));
 744     p->revents = 0;
 745     return -1;
 746   }
 747
 748   mc_handle_metric(buffer, (size_t)buffer_size);
 749   return 0;
 750 } /* }}} int mc_handle_socket */
 751
 752 static void *mc_receive_thread(void *arg) /* {{{ */
 753 {
 754   socket_entry_t *mc_receive_socket_entries;
 755   int status;
 756
 757   mc_receive_socket_entries = NULL;
 758   status = create_sockets(
 759       &mc_receive_socket_entries, &mc_receive_sockets_num,
 760       (mc_receive_group != NULL) ? mc_receive_group : MC_RECEIVE_GROUP_DEFAULT,
 761       (mc_receive_port != NULL) ? mc_receive_port : MC_RECEIVE_PORT_DEFAULT,
 762       /* listen = */ 1);
 763   if (status != 0) {
 764     ERROR("gmond plugin: create_sockets failed.");
 765     return (void *)-1;
 766   }
 767
 768   mc_receive_sockets = (struct pollfd *)calloc(mc_receive_sockets_num,
 769                                                sizeof(*mc_receive_sockets));
 770   if (mc_receive_sockets == NULL) {
 771     ERROR("gmond plugin: calloc failed.");
 772     for (size_t i = 0; i < mc_receive_sockets_num; i++)
 773       close(mc_receive_socket_entries[i].fd);
 774     free(mc_receive_socket_entries);
 775     mc_receive_socket_entries = NULL;
 776     mc_receive_sockets_num = 0;
 777     return (void *)-1;
 778   }
 779
 780   for (size_t i = 0; i < mc_receive_sockets_num; i++) {
 781     mc_receive_sockets[i].fd = mc_receive_socket_entries[i].fd;
 782     mc_receive_sockets[i].events = POLLIN | POLLPRI;
 783     mc_receive_sockets[i].revents = 0;
 784   }
 785
 786   while (mc_receive_thread_loop != 0) {
 787     status = poll(mc_receive_sockets, mc_receive_sockets_num, -1);
 788     if (status <= 0) {
 789       char errbuf[1024];
 790       if (errno == EINTR)
 791         continue;
 792       ERROR("gmond plugin: poll failed: %s",
 793             sstrerror(errno, errbuf, sizeof(errbuf)));
 794       break;
 795     }
 796
 797     for (size_t i = 0; i < mc_receive_sockets_num; i++) {
 798       if (mc_receive_sockets[i].revents != 0)
 799         mc_handle_socket(mc_receive_sockets + i);
 800     }
 801   } /* while (mc_receive_thread_loop != 0) */
 802
 803   free(mc_receive_socket_entries);
 804   return (void *)0;
 805 } /* }}} void *mc_receive_thread */
 806
 807 static int mc_receive_thread_start(void) /* {{{ */
 808 {
 809   int status;
 810
 811   if (mc_receive_thread_running != 0)
 812     return -1;
 813
 814   mc_receive_thread_loop = 1;
 815
 816   status =
 817       plugin_thread_create(&mc_receive_thread_id, /* attr = */ NULL,
 818                            mc_receive_thread, /* args = */ NULL, "gmond recv");
 819   if (status != 0) {
 820     ERROR("gmond plugin: Starting receive thread failed.");
 821     mc_receive_thread_loop = 0;
 822     return -1;
 823   }
 824
 825   mc_receive_thread_running = 1;
 826   return 0;
 827 } /* }}} int start_receive_thread */
 828
 829 static int mc_receive_thread_stop(void) /* {{{ */
 830 {
 831   if (mc_receive_thread_running == 0)
 832     return -1;
 833
 834   mc_receive_thread_loop = 0;
 835
 836   INFO("gmond plugin: Stopping receive thread.");
 837   pthread_kill(mc_receive_thread_id, SIGTERM);
 838   pthread_join(mc_receive_thread_id, /* return value = */ NULL);
 839   memset(&mc_receive_thread_id, 0, sizeof(mc_receive_thread_id));
 840
 841   mc_receive_thread_running = 0;
 842
 843   return 0;
 844 } /* }}} int mc_receive_thread_stop */
 845
 846 /*
 847  * Config:
 848  *
 849  * <Plugin gmond>
 850  *   MCReceiveFrom "239.2.11.71" "8649"
 851  *   <Metric "load_one">
 852  *     Type "load"
 853  *     [TypeInstance "foo"]
 854  *     [DataSource "bar"]
 855  *   </Metric>
 856  * </Plugin>
 857  */
 858 static int gmond_config_set_string(oconfig_item_t *ci, char **str) /* {{{ */
 859 {
 860   char *tmp;
 861
 862   if ((ci->values_num != 1) || (ci->values[0].type != OCONFIG_TYPE_STRING)) {
 863     WARNING("gmond plugin: The `%s' option needs "
 864             "exactly one string argument.",
 865             ci->key);
 866     return -1;
 867   }
 868
 869   tmp = strdup(ci->values[0].value.string);
 870   if (tmp == NULL) {
 871     ERROR("gmond plugin: strdup failed.");
 872     return -1;
 873   }
 874
 875   sfree(*str);
 876   *str = tmp;
 877   return 0;
 878 } /* }}} int gmond_config_set_string */
 879
 880 static int gmond_config_add_metric(oconfig_item_t *ci) /* {{{ */
 881 {
 882   metric_map_t *map;
 883
 884   if ((ci->values_num != 1) || (ci->values[0].type != OCONFIG_TYPE_STRING)) {
 885     WARNING("gmond plugin: `Metric' blocks need "
 886             "exactly one string argument.");
 887     return -1;
 888   }
 889
 890   map = realloc(metric_map, (metric_map_len + 1) * sizeof(*metric_map));
 891   if (map == NULL) {
 892     ERROR("gmond plugin: realloc failed.");
 893     return -1;
 894   }
 895   metric_map = map;
 896   map = metric_map + metric_map_len;
 897
 898   memset(map, 0, sizeof(*map));
 899   map->type = NULL;
 900   map->type_instance = NULL;
 901   map->ds_name = NULL;
 902   map->ds_type = -1;
 903   map->ds_index = -1;
 904
 905   map->ganglia_name = strdup(ci->values[0].value.string);
 906   if (map->ganglia_name == NULL) {
 907     ERROR("gmond plugin: strdup failed.");
 908     return -1;
 909   }
 910
 911   for (int i = 0; i < ci->children_num; i++) {
 912     oconfig_item_t *child = ci->children + i;
 913     if (strcasecmp("Type", child->key) == 0)
 914       gmond_config_set_string(child, &map->type);
 915     else if (strcasecmp("TypeInstance", child->key) == 0)
 916       gmond_config_set_string(child, &map->type_instance);
 917     else if (strcasecmp("DataSource", child->key) == 0)
 918       gmond_config_set_string(child, &map->ds_name);
 919     else {
 920       WARNING("gmond plugin: Unknown configuration option `%s' ignored.",
 921               child->key);
 922     }
 923   }
 924
 925   if (map->type == NULL) {
 926     ERROR("gmond plugin: No type is set for metric %s.", map->ganglia_name);
 927     sfree(map->ganglia_name);
 928     sfree(map->type_instance);
 929     return -1;
 930   }
 931
 932   metric_map_len++;
 933   return 0;
 934 } /* }}} int gmond_config_add_metric */
 935
 936 static int gmond_config_set_address(oconfig_item_t *ci, /* {{{ */
 937                                     char **ret_addr, char **ret_port) {
 938   char *addr;
 939   char *port;
 940
 941   if ((ci->values_num != 1) && (ci->values_num != 2)) {
 942     WARNING("gmond plugin: The `%s' config option needs "
 943             "one or two string arguments.",
 944             ci->key);
 945     return -1;
 946   }
 947   if ((ci->values[0].type != OCONFIG_TYPE_STRING) ||
 948       ((ci->values_num == 2) && (ci->values[1].type != OCONFIG_TYPE_STRING))) {
 949     WARNING("gmond plugin: The `%s' config option needs "
 950             "one or two string arguments.",
 951             ci->key);
 952     return -1;
 953   }
 954
 955   addr = strdup(ci->values[0].value.string);
 956   if (ci->values_num == 2)
 957     port = strdup(ci->values[1].value.string);
 958   else
 959     port = NULL;
 960
 961   if ((addr == NULL) || ((ci->values_num == 2) && (port == NULL))) {
 962     ERROR("gmond plugin: strdup failed.");
 963     sfree(addr);
 964     sfree(port);
 965     return -1;
 966   }
 967
 968   sfree(*ret_addr);
 969   sfree(*ret_port);
 970
 971   *ret_addr = addr;
 972   *ret_port = port;
 973
 974   return 0;
 975 } /* }}} int gmond_config_set_address */
 976
 977 static int gmond_config(oconfig_item_t *ci) /* {{{ */
 978 {
 979   for (int i = 0; i < ci->children_num; i++) {
 980     oconfig_item_t *child = ci->children + i;
 981     if (strcasecmp("MCReceiveFrom", child->key) == 0)
 982       gmond_config_set_address(child, &mc_receive_group, &mc_receive_port);
 983     else if (strcasecmp("Metric", child->key) == 0)
 984       gmond_config_add_metric(child);
 985     else {
 986       WARNING("gmond plugin: Unknown configuration option `%s' ignored.",
 987               child->key);
 988     }
 989   }
 990
 991   return 0;
 992 } /* }}} int gmond_config */
 993
 994 static int gmond_init(void) /* {{{ */
 995 {
 996   create_sockets(
 997       &mc_send_sockets, &mc_send_sockets_num,
 998       (mc_receive_group != NULL) ? mc_receive_group : MC_RECEIVE_GROUP_DEFAULT,
 999       (mc_receive_port != NULL) ? mc_receive_port : MC_RECEIVE_PORT_DEFAULT,
1000       /* listen = */ 0);
1001
1002   staging_tree = c_avl_create((int (*)(const void *, const void *))strcmp);
1003   if (staging_tree == NULL) {
1004     ERROR("gmond plugin: c_avl_create failed.");
1005     return -1;
1006   }
1007
1008   mc_receive_thread_start();
1009
1010   return 0;
1011 } /* }}} int gmond_init */
1012
1013 static int gmond_shutdown(void) /* {{{ */
1014 {
1015   mc_receive_thread_stop();
1016
1017   pthread_mutex_lock(&mc_send_sockets_lock);
1018   for (size_t i = 0; i < mc_send_sockets_num; i++) {
1019     close(mc_send_sockets[i].fd);
1020     mc_send_sockets[i].fd = -1;
1021   }
1022   sfree(mc_send_sockets);
1023   mc_send_sockets_num = 0;
1024   pthread_mutex_unlock(&mc_send_sockets_lock);
1025
1026   return 0;
1027 } /* }}} int gmond_shutdown */
1028
1029 void module_register(void) {
1030   plugin_register_complex_config("gmond", gmond_config);
1031   plugin_register_init("gmond", gmond_init);
1032   plugin_register_shutdown("gmond", gmond_shutdown);
1033 }