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