src/gmond.c

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