src/collectd-tg.c

   1 /**
   2  * collectd - src/collectd-tg.c
   3  * Copyright (C) 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 Forster <ff at octo.it>
  20  **/
  21
  22 #if HAVE_CONFIG_H
  23 # include "config.h"
  24 #endif
  25
  26 #include <stdlib.h>
  27 #include <stdio.h>
  28 #include <string.h>
  29 #include <time.h>
  30
  31 #include "libcollectdclient/collectd/client.h"
  32 #include "libcollectdclient/collectd/network.h"
  33 #include "libcollectdclient/collectd/network_buffer.h"
  34
  35 static int conf_num_hosts = 1000;
  36 static int conf_num_plugins = 20;
  37 static int conf_num_values = 100000;
  38
  39 static lcc_network_t *net;
  40
  41 static lcc_value_list_t **values;
  42 static size_t values_num;
  43
  44 static int compare_time (const void *v0, const void *v1) /* {{{ */
  45 {
  46   lcc_value_list_t * const *vl0 = v0;
  47   lcc_value_list_t * const *vl1 = v1;
  48
  49   if ((*vl0)->time < (*vl1)->time)
  50     return (-1);
  51   else if ((*vl0)->time > (*vl1)->time)
  52     return (1);
  53   else
  54     return (lcc_identifier_compare (&(*vl0)->identifier, /* Ouch, somebody */
  55           &(*vl1)->identifier));          /* is going to hate me for this. */
  56 } /* }}} int compare_time */
  57
  58 static int get_boundet_random (int min, int max) /* {{{ */
  59 {
  60   int range;
  61
  62   if (min >= max)
  63     return (-1);
  64   if (min == (max - 1))
  65     return (min);
  66
  67   range = max - min;
  68
  69   return (min + ((int) (((double) range) * ((double) random ()) / (((double) RAND_MAX) + 1.0))));
  70 } /* }}} int get_boundet_random */
  71
  72 #if 0
  73 static int dump_network_buffer (void) /* {{{ */
  74 {
  75   char buffer[LCC_NETWORK_BUFFER_SIZE_DEFAULT];
  76   size_t buffer_size;
  77   int status;
  78   size_t offset;
  79
  80   memset (buffer, 0, sizeof (buffer));
  81   buffer_size = sizeof (buffer);
  82
  83   status = lcc_network_buffer_get (nb, buffer, &buffer_size);
  84   if (status != 0)
  85   {
  86     fprintf (stderr, "lcc_network_buffer_get failed with status %i.\n",
  87         status);
  88     return (status);
  89   }
  90
  91   if (buffer_size > sizeof (buffer))
  92     buffer_size = sizeof (buffer);
  93
  94   for (offset = 0; offset < buffer_size; offset += 16)
  95   {
  96     size_t i;
  97
  98     for (i = 0; (i < 16) && ((offset + i) < buffer_size); i++)
  99     {
 100       uint8_t v = (uint8_t) buffer[offset + i];
 101       printf ("%02"PRIx8" ", v);
 102     }
 103     for (; i < 16; i++)
 104       printf ("   ");
 105     printf ("   ");
 106     for (i = 0; (i < 16) && ((offset + i) < buffer_size); i++)
 107     {
 108       uint8_t v = (uint8_t) buffer[offset + i];
 109       if ((v >= 32) && (v < 128))
 110         printf ("%c", (int) buffer[offset + i]);
 111       else
 112         printf (".");
 113     }
 114     printf ("\n");
 115   }
 116
 117   return (0);
 118 } /* }}} int dump_network_buffer */
 119 #endif
 120
 121 static lcc_value_list_t *create_value_list (void) /* {{{ */
 122 {
 123   lcc_value_list_t *vl;
 124   int host_num;
 125
 126   vl = malloc (sizeof (*vl));
 127   if (vl == NULL)
 128   {
 129     fprintf (stderr, "malloc failed.\n");
 130     return (NULL);
 131   }
 132   memset (vl, 0, sizeof (*vl));
 133
 134   vl->values = calloc (/* nmemb = */ 1, sizeof (*vl->values));
 135   if (vl->values == NULL)
 136   {
 137     fprintf (stderr, "calloc failed.\n");
 138     free (vl);
 139     return (NULL);
 140   }
 141
 142   vl->values_types = calloc (/* nmemb = */ 1, sizeof (*vl->values_types));
 143   if (vl->values_types == NULL)
 144   {
 145     fprintf (stderr, "calloc failed.\n");
 146     free (vl->values);
 147     free (vl);
 148     return (NULL);
 149   }
 150
 151   vl->values_len = 1;
 152
 153   host_num = get_boundet_random (0, conf_num_hosts);
 154
 155   vl->interval = 10;
 156   vl->time = time (NULL) - (host_num % vl->interval);
 157
 158   if (get_boundet_random (0, 2) == 0)
 159     vl->values_types[0] = LCC_TYPE_GAUGE;
 160   else
 161     vl->values_types[0] = LCC_TYPE_DERIVE;
 162
 163   snprintf (vl->identifier.host, sizeof (vl->identifier.host),
 164       "host%04i", host_num);
 165   snprintf (vl->identifier.plugin, sizeof (vl->identifier.plugin),
 166       "plugin%03i", get_boundet_random (0, conf_num_plugins));
 167   strncpy (vl->identifier.type,
 168       (vl->values_types[0] == LCC_TYPE_GAUGE) ? "gauge" : "derive",
 169       sizeof (vl->identifier.type));
 170   snprintf (vl->identifier.type_instance, sizeof (vl->identifier.type_instance),
 171       "ti%li", random ());
 172
 173   return (vl);
 174 } /* }}} int create_value_list */
 175
 176 static void destroy_value_list (lcc_value_list_t *vl) /* {{{ */
 177 {
 178   if (vl == NULL)
 179     return;
 180
 181   free (vl->values);
 182   free (vl->values_types);
 183   free (vl);
 184 } /* }}} void destroy_value_list */
 185
 186 static int send_value (lcc_value_list_t *vl) /* {{{ */
 187 {
 188   int status;
 189
 190   if (vl->values_types[0] == LCC_TYPE_GAUGE)
 191     vl->values[0].gauge = 100.0 * ((gauge_t) random ()) / (((gauge_t) RAND_MAX) + 1.0);
 192   else
 193     vl->values[0].derive += get_boundet_random (0, 100);
 194
 195   status = lcc_network_values_send (net, vl);
 196   if (status != 0)
 197     fprintf (stderr, "lcc_network_values_send failed with status %i.\n", status);
 198
 199   vl->time += vl->interval;
 200
 201   return (0);
 202 } /* }}} int send_value */
 203
 204 int main (int argc, char **argv) /* {{{ */
 205 {
 206   size_t i;
 207
 208   net = lcc_network_create ();
 209   if (net == NULL)
 210   {
 211     fprintf (stderr, "lcc_network_create failed.\n");
 212     exit (EXIT_FAILURE);
 213   }
 214   else
 215   {
 216     lcc_server_t *srv;
 217
 218     srv = lcc_server_create (net, NET_DEFAULT_V6_ADDR, NET_DEFAULT_PORT);
 219     if (srv == NULL)
 220     {
 221       fprintf (stderr, "lcc_server_create failed.\n");
 222       exit (EXIT_FAILURE);
 223     }
 224
 225     lcc_server_set_ttl (srv, 42);
 226   }
 227
 228   values_num = (size_t) conf_num_values;
 229   values = calloc (values_num, sizeof (*values));
 230   if (values == NULL)
 231   {
 232     fprintf (stderr, "calloc failed.\n");
 233     exit (EXIT_FAILURE);
 234   }
 235
 236   fprintf (stdout, "Creating %i values ... ", conf_num_values);
 237   fflush (stdout);
 238   for (i = 0; i < values_num; i++)
 239   {
 240     values[i] = create_value_list ();
 241     if (values[i] == NULL)
 242     {
 243       fprintf (stderr, "create_value_list failed.\n");
 244       exit (EXIT_FAILURE);
 245     }
 246   }
 247   fprintf (stdout, "done\n");
 248
 249   fprintf (stdout, "Sorting values by time ... ");
 250   fflush (stdout);
 251   qsort (values, values_num, sizeof (*values), compare_time);
 252   fprintf (stdout, "done\n");
 253
 254   for (i = 0; i < values_num; i++)
 255     send_value (values[i]);
 256
 257   for (i = 0; i < values_num; i++)
 258     destroy_value_list (values[i]);
 259   free (values);
 260
 261   lcc_network_destroy (net);
 262   exit (EXIT_SUCCESS);
 263   return (0);
 264 } /* }}} int main */
 265
 266 /* vim: set sw=2 sts=2 et fdm=marker : */