http plugin: Don't convert COUNTER values to rates.
[collectd.git] / src / http.c
index a1d0e53..60535ba 100644 (file)
 #include "utils_cache.h"
 #include "utils_parse_option.h"
 
+#if HAVE_PTHREAD_H
+# include <pthread.h>
+#endif
+
 #include <curl/curl.h>
 
 /*
@@ -34,7 +38,7 @@
  */
 static const char *config_keys[] =
 {
-  "Location", "User", "Password"
+        "URL", "User", "Password"
 };
 static int config_keys_num = STATIC_ARRAY_SIZE (config_keys);
 
@@ -44,323 +48,278 @@ char *user;
 char *pass;
 char *credentials;
 
-static int http_init_curl(CURL *curl, char curl_errbuf[])
-{
-  struct curl_slist *headers=NULL;
-
-  curl_easy_setopt (curl, CURLOPT_USERAGENT, PACKAGE_NAME"/"PACKAGE_VERSION);
+CURL *curl;
+char curl_errbuf[CURL_ERROR_SIZE];
 
-  headers = curl_slist_append(headers, "Accept: text/csv");
-  headers = curl_slist_append(headers, "Content-Type: text/csv");
-  curl_easy_setopt (curl, CURLOPT_HTTPHEADER, headers);
+#define SEND_BUFFER_SIZE 4096
+static char   send_buffer[SEND_BUFFER_SIZE];
+static int    send_buffer_fill;
 
-  curl_easy_setopt (curl, CURLOPT_FORBID_REUSE, 1);
+static pthread_mutex_t  send_lock = PTHREAD_MUTEX_INITIALIZER;
 
-  curl_easy_setopt (curl, CURLOPT_ERRORBUFFER, curl_errbuf);
-  curl_easy_setopt (curl, CURLOPT_URL, location);
+static int http_init(void) /* {{{ */
+{
 
-  if (user != NULL)
-  {
-    size_t credentials_size;
+        curl = curl_easy_init ();
 
-    credentials_size = strlen (user) + 2;
-    if (pass != NULL)
-      credentials_size += strlen (pass);
+        if (curl == NULL)
+        {
+                ERROR ("curl plugin: curl_easy_init failed.");
+                return (-1);
+        }
 
-    credentials = (char *) malloc (credentials_size);
-    if (credentials == NULL)
-    {
-      ERROR ("curl plugin: malloc failed.");
-      return (-1);
-    }
+        struct curl_slist *headers=NULL;
 
-    ssnprintf (credentials, credentials_size, "%s:%s",
-        user, (pass == NULL) ? "" : pass);
-    curl_easy_setopt (curl, CURLOPT_USERPWD, credentials);
-    curl_easy_setopt (curl, CURLOPT_HTTPAUTH, CURLAUTH_DIGEST);
-  }
+        curl_easy_setopt (curl, CURLOPT_USERAGENT, PACKAGE_NAME"/"PACKAGE_VERSION);
 
-  return (0);
-}
+        headers = curl_slist_append(headers, "Accept:  */*");
+        headers = curl_slist_append(headers, "Content-Type: text/plain");
+        curl_easy_setopt (curl, CURLOPT_HTTPHEADER, headers);
 
-static int http_init(void)
-{
-  return (0);
-}
+        curl_easy_setopt (curl, CURLOPT_ERRORBUFFER, curl_errbuf);
+        curl_easy_setopt (curl, CURLOPT_URL, location);
 
-static int value_list_to_string (char *buffer, int buffer_len,
-    const data_set_t *ds, const value_list_t *vl, int index)
-{
-  int offset = 0;
-  int status;
-  gauge_t *rates = NULL;
-
-  assert (0 == strcmp (ds->type, vl->type));
-
-  memset (buffer, '\0', buffer_len);
-
-  if ((ds->ds[index].type != DS_TYPE_COUNTER)
-      && (ds->ds[index].type != DS_TYPE_GAUGE))
-    return (-1);
-
-  if (ds->ds[index].type == DS_TYPE_COUNTER)
-  {
-    if (rates == NULL)
-      rates = uc_get_rate (ds, vl);
-    if (rates == NULL)
-    {
-      WARNING ("http plugin: "
-          "uc_get_rate failed.");
-      return (-1);
-    }
-    if (isnan(rates[index]))
-    {
-      /* dont output */
-      return (-1);
-    }
-    status = ssnprintf (buffer + offset,
-        buffer_len - offset,
-        "%lf", rates[index]);
-  }
-  else /* if (ds->ds[index].type == DS_TYPE_GAUGE) */
-  {
-    status = ssnprintf (buffer + offset, buffer_len - offset,
-        "%lf", vl->values[index].gauge);
-  }
-
-  if ((status < 1) || (status >= (buffer_len - offset)))
-  {
-    sfree (rates);
-    return (-1);
-  }
-
-  offset += status;
-
-  sfree (rates);
-  return (0);
-} /* int value_list_to_string */
-
-static int value_list_to_timestamp (char *buffer, int buffer_len,
-    const data_set_t *ds, const value_list_t *vl)
-{
-  int offset = 0;
-  int status;
+        if (user != NULL)
+        {
+                size_t credentials_size;
 
-  assert (0 == strcmp (ds->type, vl->type));
+                credentials_size = strlen (user) + 2;
+                if (pass != NULL)
+                        credentials_size += strlen (pass);
 
-  memset (buffer, '\0', buffer_len);
+                credentials = (char *) malloc (credentials_size);
+                if (credentials == NULL)
+                {
+                        ERROR ("curl plugin: malloc failed.");
+                        return (-1);
+                }
 
-  status = ssnprintf (buffer, buffer_len, "%u", (unsigned int) vl->time);
-  if ((status < 1) || (status >= buffer_len))
-    return (-1);
-  offset = status;
+                ssnprintf (credentials, credentials_size, "%s:%s",
+                                user, (pass == NULL) ? "" : pass);
+                curl_easy_setopt (curl, CURLOPT_USERPWD, credentials);
+                curl_easy_setopt (curl, CURLOPT_HTTPAUTH, CURLAUTH_DIGEST);
+        }
 
-  return (0);
-} /* int value_list_to_timestamp */
+        return (0);
+} /* }}} */
 
-static int value_list_to_metric_name (char *buffer, int buffer_len,
-    const data_set_t *ds, const value_list_t *vl)
+static int http_value_list_to_string (char *buffer, int buffer_len, /* {{{ */
+                const data_set_t *ds, const value_list_t *vl)
+{
+        int offset = 0;
+        int status;
+        int i;
+
+        assert (0 == strcmp (ds->type, vl->type));
+
+        memset (buffer, '\0', buffer_len);
+
+        for (i = 0; i < ds->ds_num; i++)
+        {
+                if ((ds->ds[i].type != DS_TYPE_COUNTER)
+                                && (ds->ds[i].type != DS_TYPE_GAUGE)
+                                && (ds->ds[i].type != DS_TYPE_DERIVE)
+                                && (ds->ds[i].type != DS_TYPE_ABSOLUTE))
+                        return (-1);
+
+               status = -1;
+                if (ds->ds[i].type == DS_TYPE_GAUGE)
+                {
+                        status = ssnprintf (buffer + offset, buffer_len - offset,
+                                        ":%lf", vl->values[i].gauge);
+                }
+                else if ((ds->ds[i].type == DS_TYPE_COUNTER)
+                               || (ds->ds[i].type == DS_TYPE_ABSOLUTE))
+                {
+                        status = ssnprintf (buffer + offset,
+                                        buffer_len - offset,
+                                        ":%"PRIu64,
+                                       (ds->ds[i].type == DS_TYPE_COUNTER)
+                                        ? vl->values[i].counter
+                                        : vl->values[i].absolute);
+                }
+                else if (ds->ds[i].type == DS_TYPE_DERIVE)
+                {
+                        status = ssnprintf (buffer + offset,
+                                        buffer_len - offset,
+                                        ":%"PRIi64,
+                                        vl->values[i].derive);
+                }
+
+                if ((status < 1) || (status >= (buffer_len - offset)))
+                       return (-1);
+
+                offset += status;
+        } /* for ds->ds_num */
+
+        return (0);
+} /* }}} int http_value_list_to_string */
+
+static int http_config (const char *key, const char *value) /* {{{ */
 {
-  int offset = 0;
-  int status;
-
-  assert (0 == strcmp (ds->type, vl->type));
-
-  /* hostname */
-  status = ssnprintf (buffer + offset, buffer_len - offset,
-      "%s", vl->host);
-  if ((status < 1) || (status >= buffer_len - offset))
-    return (-1);
-  offset += status;
-
-  /* plugin */
-  status = ssnprintf (buffer + offset, buffer_len - offset,
-      ",%s", vl->plugin);
-  if ((status < 1) || (status >= buffer_len - offset))
-    return (-1);
-  offset += status;
-
-  /* plugin_instance */
-  if (strlen (vl->plugin_instance) > 0)
-  {
-    status = ssnprintf (buffer + offset, buffer_len - offset,
-        ",%s", vl->plugin_instance);
-    if ((status < 1) || (status >= buffer_len - offset))
-      return (-1);
-    offset += status;
-  }
-
-  /* type (if its the same as plugin, don't bother repeating it */
-  if (0 != strcmp (vl->type, vl->plugin)) 
-  {
-    status = ssnprintf (buffer + offset, buffer_len - offset,
-        ",%s", vl->type);
-    if ((status < 1) || (status >= buffer_len - offset))
-      return (-1);
-    offset += status;
-  }
-
-  /* type_instance */
-  if (strlen (vl->type_instance) > 0)
-  {
-    status = ssnprintf (buffer + offset, buffer_len - offset,
-        ",%s", vl->type_instance);
-    if ((status < 1) || (status >= buffer_len - offset))
-      return (-1);
-    offset += status;
-  }
-
-  return (offset);
-} /* int value_list_to_metric_name */
-
-static int http_config (const char *key, const char *value)
+        if (strcasecmp ("URL", key) == 0)
+        {
+                if (location != NULL)
+                        free (location);
+                location = strdup (value);
+                if (location != NULL)
+                {
+                        int len = strlen (location);
+                        while ((len > 0) && (location[len - 1] == '/'))
+                        {
+                                len--;
+                                location[len] = '\0';
+                        }
+                        if (len <= 0)
+                        {
+                                free (location);
+                                location = NULL;
+                        }
+                }
+        }
+        else if (strcasecmp ("User", key) == 0)
+        {
+                if (user != NULL)
+                        free (user);
+                user = strdup (value);
+                if (user != NULL)
+                {
+                        int len = strlen (user);
+                        while ((len > 0) && (user[len - 1] == '/'))
+                        {
+                                len--;
+                                user[len] = '\0';
+                        }
+                        if (len <= 0)
+                        {
+                                free (user);
+                                user = NULL;
+                        }
+                }
+        }
+        else if (strcasecmp ("Password", key) == 0)
+        {
+                if (pass != NULL)
+                        free (pass);
+                pass = strdup (value);
+                if (pass != NULL)
+                {
+                        int len = strlen (pass);
+                        while ((len > 0) && (pass[len - 1] == '/'))
+                        {
+                                len--;
+                                pass[len] = '\0';
+                        }
+                        if (len <= 0)
+                        {
+                                free (pass);
+                                pass = NULL;
+                        }
+                }
+        }
+        else
+        {
+                return (-1);
+        }
+        return (0);
+} /* }}} int http_config */
+
+static void http_init_buffer (void)  /* {{{ */
+{
+        memset (send_buffer, 0, sizeof (send_buffer));
+        send_buffer_fill = 0;
+} /* }}} http_init_buffer */
+
+static int http_send_buffer (char *buffer) /* {{{ */
 {
-  if (strcasecmp ("Location", key) == 0)
-  {
-    if (location != NULL)
-      free (location);
-    location = strdup (value);
-    if (location != NULL)
-    {
-      int len = strlen (location);
-      while ((len > 0) && (location[len - 1] == '/'))
-      {
-        len--;
-        location[len] = '\0';
-      }
-      if (len <= 0)
-      {
-        free (location);
-        location = NULL;
-      }
-    }
-  }
-  else if (strcasecmp ("User", key) == 0)
-  {
-    if (user != NULL)
-      free (user);
-    user = strdup (value);
-    if (user != NULL)
-    {
-      int len = strlen (user);
-      while ((len > 0) && (user[len - 1] == '/'))
-      {
-        len--;
-        user[len] = '\0';
-      }
-      if (len <= 0)
-      {
-        free (user);
-        user = NULL;
-      }
-    }
-  }
-  else if (strcasecmp ("Password", key) == 0)
-  {
-    if (pass != NULL)
-      free (pass);
-    pass = strdup (value);
-    if (pass != NULL)
-    {
-      int len = strlen (pass);
-      while ((len > 0) && (pass[len - 1] == '/'))
-      {
-        len--;
-        pass[len] = '\0';
-      }
-      if (len <= 0)
-      {
-        free (pass);
-        pass = NULL;
-      }
-    }
-  }
-  else
-  {
-    return (-1);
-  }
-  return (0);
-} /* int http_config */
-
-static int http_write (const data_set_t *ds, const value_list_t *vl,
-    user_data_t __attribute__((unused)) *user_data)
+        int status = 0;
+        curl_easy_setopt (curl, CURLOPT_POSTFIELDS, buffer);
+        //status = curl_easy_perform (curl);
+        if (status != 0)
+        {
+                ERROR ("http plugin: curl_easy_perform failed with staus %i: %s",
+                                status, curl_errbuf);
+        }
+        return (status);
+} /* }}} http_send_buffer */
+
+static int http_flush_buffer (void) /* {{{ */
 {
-  CURL         *curl;
-  char curl_errbuf[CURL_ERROR_SIZE];
+        int status = 0;
+        DEBUG ("http plugin: flushing buffer:\n%s", send_buffer);
 
-  char         metric_name[512];
-  int          metric_prefix_len;
-  char         value[512];
-  char         timestamp[512];
+        status = http_send_buffer (send_buffer);
+        http_init_buffer ();
 
-  char csv_buffer[10240];
+        return (status);
+} /* }}} http_flush_buffer */
 
-  int status;
-  int offset = 0;
-  int i;
+static int http_write (const data_set_t *ds, const value_list_t *vl, /* {{{ */
+                user_data_t __attribute__((unused)) *user_data)
+{
+
+        char key[1024];
+        char values[512];
 
-  if (0 != strcmp (ds->type, vl->type)) {
-    ERROR ("http plugin: DS type does not match value list type");
-    return -1;
-  }
+        int status;
 
-  curl = curl_easy_init ();
-  if (curl == NULL)
-  {
-    ERROR ("curl plugin: curl_easy_init failed.");
-    return (-1);
-  }
+        if (0 != strcmp (ds->type, vl->type)) {
+                ERROR ("http plugin: DS type does not match value list type");
+                return -1;
+        }
 
-  http_init_curl(curl, curl_errbuf);
+        status = format_name( key, sizeof(key), vl->host, vl->plugin,
+                        vl->plugin_instance, vl->type, vl->type_instance );
 
-  metric_prefix_len = value_list_to_metric_name (metric_name, 
-      sizeof (metric_name), ds, vl);
-    
-  if (metric_prefix_len == -1)
-    return (-1);
+        if (status != 0) {
+                ERROR ("http plugin: error with format_name");
+                return (status);
+        }
 
-  DEBUG ("http plugin: http_write: metric_name = %s;", metric_name);
+        status = http_value_list_to_string (values, sizeof (values), ds, vl);
 
-  if (value_list_to_timestamp (timestamp, sizeof (timestamp), ds, vl) != 0)
-    return (-1);
+        if (status != 0) {
+                ERROR ("http plugin: error with http_value_list_to_string");
+                return (status);
+        }
 
-  for (i = 0; i < ds->ds_num; i++) 
-  {
 
-    if (value_list_to_string (value, sizeof (value), ds, vl, i) != 0)
-      return (-1);
+        pthread_mutex_lock (&send_lock);
 
-    ssnprintf(metric_name + metric_prefix_len, sizeof (metric_name) - metric_prefix_len,
-        ",%s", ds->ds[i].name); 
+        status = ssnprintf (send_buffer + send_buffer_fill, sizeof (send_buffer) - send_buffer_fill,
+                        "PUTVAL %s interval=%i %u%s\n",
+                        key, interval_g, vl->time, values);
+        send_buffer_fill += status;
 
-    escape_string (metric_name, sizeof (metric_name));
+        if ((sizeof (send_buffer) - send_buffer_fill) < (sizeof(key) + sizeof(values)))
+        {
+                status = http_flush_buffer();
+                if (status != 0)
+                        return status;
 
-    status = ssnprintf (csv_buffer + offset, sizeof (csv_buffer) - offset,
-        "\"%s\",%s,%s\n",
-        metric_name, timestamp, value);
-    offset += status;
+        }
 
-  } /* for */
+        pthread_mutex_unlock (&send_lock);
 
-  printf(csv_buffer);
 
-  curl_easy_setopt (curl, CURLOPT_POSTFIELDS, csv_buffer);
-  status = curl_easy_perform (curl);
-  if (status != 0)
-  {
-    ERROR ("curl plugin: curl_easy_perform failed with staus %i: %s",
-        status, curl_errbuf);
-    return (-1);
-  }
+        return (0);
 
-  return (0);
+} /* }}} int http_write */
 
-} /* int http_write */
+static int http_shutdown (void) /* {{{ */
+{
+        http_flush_buffer();
+        curl_easy_cleanup(curl);
+        return (0);
+}
 
-void module_register (void)
+void module_register (void) /* {{{ */
 {
-  plugin_register_init("http", http_init);
-  plugin_register_config ("http", http_config,
-      config_keys, config_keys_num);
-  plugin_register_write ("http", http_write, /* user_data = */ NULL);
-} /* void module_register */
+        plugin_register_init("http", http_init);
+        plugin_register_config ("http", http_config,
+                        config_keys, config_keys_num);
+        plugin_register_write ("http", http_write, /* user_data = */ NULL);
+        plugin_register_shutdown("http", http_shutdown);
+} /* }}} void module_register */
+
+/* vim: set fdm=marker sw=8 ts=8 tw=78 : */