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