src/gmond.c

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