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