/**
* collectd - src/powerdns.c
* Copyright (C) 2007-2008 C-Ware, Inc.
+ * Copyright (C) 2008 Florian Forster
*
* This program is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the
*
* Author:
* Luke Heberling <lukeh at c-ware.com>
+ * Florian Forster <octo at verplant.org>
*
* DESCRIPTION
* Queries a PowerDNS control socket for statistics
- *
**/
#include "collectd.h"
+#include "common.h"
#include "plugin.h"
#include "configfile.h"
#include "utils_llist.h"
#include <sys/un.h>
#include <malloc.h>
-#define BUFFER_SIZE 1000
+#ifndef UNIX_PATH_MAX
+# define UNIX_PATH_MAX sizeof (((struct sockaddr_un *)0)->sun_path)
+#endif
+#define FUNC_ERROR(func) ERROR ("powerdns plugin: `%s' failed\n", func)
-#define FUNC_ERROR(func) ERROR ("%s: `%s' failed\n", "powerdns", func)
+#define SERVER_SOCKET "/var/run/pdns.controlsocket"
+#define SERVER_COMMAND "SHOW *"
-#define COMMAND_SERVER "SHOW *"
-#define COMMAND_RECURSOR "get all-outqueries answers0-1 answers100-1000 answers10-100 answers1-10 answers-slow cache-entries cache-hits cache-misses chain-resends client-parse-errors concurrent-queries dlg-only-drops ipv6-outqueries negcache-entries noerror-answers nsset-invalidations nsspeeds-entries nxdomain-answers outgoing-timeouts qa-latency questions resource-limits server-parse-errors servfail-answers spoof-prevents sys-msec tcp-client-overflow tcp-outqueries tcp-questions throttled-out throttled-outqueries throttle-entries unauthorized-tcp unauthorized-udp unexpected-packets unreachables user-msec"
+#define RECURSOR_SOCKET "/var/run/pdns_recursor.controlsocket"
+#define RECURSOR_COMMAND "get all-outqueries answers0-1 answers100-1000 answers10-100 answers1-10 answers-slow cache-entries cache-hits cache-misses chain-resends client-parse-errors concurrent-queries dlg-only-drops ipv6-outqueries negcache-entries noerror-answers nsset-invalidations nsspeeds-entries nxdomain-answers outgoing-timeouts qa-latency questions resource-limits server-parse-errors servfail-answers spoof-prevents sys-msec tcp-client-overflow tcp-outqueries tcp-questions throttled-out throttled-outqueries throttle-entries unauthorized-tcp unauthorized-udp unexpected-packets unreachables user-msec"
-typedef void item_func (void*);
-typedef ssize_t io_func (int, void*, size_t, int);
+struct list_item_s;
+typedef struct list_item_s list_item_t;
struct list_item_s
{
- item_func *func;
+ int (*func) (list_item_t *item);
char *instance;
char *command;
- struct sockaddr_un remote;
- struct sockaddr_un local;
+ struct sockaddr_un sockaddr;
+ int socktype;
};
-typedef struct list_item_s list_item_t;
static llist_t *list = NULL;
-static void submit (const char *instance, const char *name, const char *value)
+static void submit (const char *plugin_instance, const char *type, const char *value)
{
value_list_t vl = VALUE_LIST_INIT;
value_t values[1];
float f;
long l;
- ds = plugin_get_ds (name);
+ ERROR ("powerdns plugin: submit: TODO: Translate the passed-in `key' to a reasonable type (and type_instance).");
+
+ ds = plugin_get_ds (type);
if (ds == NULL)
{
- ERROR( "%s: DS %s not defined\n", "powerdns", name );
+ ERROR( "%s: DS %s not defined\n", "powerdns", type );
return;
}
f = atof(value);
if (errno != 0)
{
- ERROR ("%s: atof failed (%s->%s)", "powerdns", name, value);
+ ERROR ("%s: atof failed (%s->%s)", "powerdns", type, value);
return;
}
else
l = atol(value);
if (errno != 0)
{
- ERROR ("%s: atol failed (%s->%s)", "powerdns", name, value);
+ ERROR ("%s: atol failed (%s->%s)", "powerdns", type, value);
return;
}
else
vl.values = values;
vl.values_len = 1;
vl.time = time (NULL);
- strncpy (vl.host, hostname_g, sizeof (vl.host));
- strncpy (vl.plugin, "powerdns", sizeof (vl.plugin));
- strncpy (vl.type_instance, "", sizeof (vl.type_instance));
- strncpy (vl.plugin_instance,instance, sizeof (vl.plugin_instance));
+ sstrncpy (vl.host, hostname_g, sizeof (vl.host));
+ sstrncpy (vl.plugin, "powerdns", sizeof (vl.plugin));
+ sstrncpy (vl.type_instance, "", sizeof (vl.type_instance));
+ sstrncpy (vl.plugin_instance, plugin_instance, sizeof (vl.plugin_instance));
- plugin_dispatch_values (name, &vl);
+ plugin_dispatch_values (type, &vl);
} /* static void submit */
-static int io (io_func *func, int fd, char* buf, int buflen)
+static int powerdns_get_data (list_item_t *item, char **ret_buffer,
+ size_t *ret_buffer_size)
{
- int bytes = 0;
- int cc = 1;
- for (; buflen > 0 && (cc = func (fd, buf, buflen, 0)) > 0;
- buf += cc, bytes += cc, buflen -= cc)
- ;
+ int sd;
+ int status;
- return bytes;
-} /* static int io */
+ char temp[1024];
+ char *buffer = NULL;
+ size_t buffer_size = 0;
-static void powerdns_read_server (list_item_t *item)
-{
- int bytes;
- int sck;
- char *name_token,*value_token,*pos;
- char *buffer;
- char *delims = ",=";
-
- if ((sck = socket(AF_UNIX, SOCK_STREAM, 0)) < 0)
+ sd = socket (AF_UNIX, item->socktype, 0);
+ if (sd < 0)
{
FUNC_ERROR ("socket");
- return;
+ return (-1);
}
- if (connect( sck,(struct sockaddr *) &item->remote,
- sizeof(item->remote)) == -1)
+ status = connect (sd, (struct sockaddr *) &item->sockaddr,
+ sizeof(item->sockaddr));
+ if (status != 0)
{
- FUNC_ERROR( "connect" );
- close (sck);
- return;
+ FUNC_ERROR ("connect");
+ close (sd);
+ return (-1);
}
- buffer = malloc (BUFFER_SIZE + 1);
- if (buffer == NULL)
+ status = send (sd, item->command, strlen (item->command), 0);
+ if (status < 0)
{
- FUNC_ERROR ("malloc");
- close (sck);
- return;
+ FUNC_ERROR ("send");
+ close (sd);
+ return (-1);
}
- strncpy (buffer,
- item->command == NULL ? COMMAND_SERVER : item->command,
- BUFFER_SIZE);
- buffer[BUFFER_SIZE] = '\0';
- if (io ((io_func*) &send, sck, buffer, strlen(buffer)) < strlen(buffer))
+ while (42)
{
- FUNC_ERROR ("send");
- free (buffer);
- close (sck);
- return;
+ char *buffer_new;
+
+ status = recv (sd, temp, sizeof (temp), 0);
+ if (status < 0)
+ {
+ FUNC_ERROR ("recv");
+ break;
+ }
+ else if (status == 0)
+ break;
+
+ buffer_new = (char *) realloc (buffer, buffer_size + status);
+ if (buffer_new == NULL)
+ {
+ FUNC_ERROR ("realloc");
+ status = -1;
+ break;
+ }
+ buffer = buffer_new;
+
+ memcpy (buffer + buffer_size, temp, status);
+ buffer_size += status;
}
+ close (sd);
+ sd = -1;
- bytes = io ((io_func*) &recv, sck, buffer, BUFFER_SIZE);
- if (bytes < 1)
+ if (status < 0)
{
- FUNC_ERROR ("recv");
- free (buffer);
- close (sck);
- return;
+ sfree (buffer);
+ }
+ else
+ {
+ *ret_buffer = buffer;
+ *ret_buffer_size = buffer_size;
}
- close(sck);
-
- buffer[bytes] = '\0';
+ return (status);
+} /* int powerdns_get_data */
- for (name_token = strtok_r (buffer, delims, &pos),
- value_token = strtok_r (NULL, delims, &pos);
- name_token != NULL && value_token != NULL;
- name_token = strtok_r (NULL, delims, &pos ),
- value_token = strtok_r (NULL, delims, &pos) )
- submit (item->instance, name_token, value_token);
+static int powerdns_read_server (list_item_t *item)
+{
+ char *buffer = NULL;
+ size_t buffer_size = 0;
+ int status;
- free (buffer);
- return;
-} /* static void powerdns_read_server */
+ char *dummy;
+ char *saveptr;
-static void powerdns_read_recursor (list_item_t *item) {
- int sck,tmp,bytes;
- char *ptr;
- char *name_token, *name_pos;
- char *value_token, *value_pos;
- char *send_buffer;
- char *recv_buffer;
- char *delims = " \n";
+ char *key;
+ char *value;
- for (ptr = item->local.sun_path
- + strlen(item->local.sun_path) - 1;
- ptr > item->local.sun_path && *ptr != '/'; --ptr)
- ;
+ status = powerdns_get_data (item, &buffer, &buffer_size);
+ if (status != 0)
+ return (-1);
- if (ptr <= item->local.sun_path)
+ dummy = buffer;
+ saveptr = NULL;
+ while ((key = strtok_r (dummy, ",", &saveptr)) != NULL)
{
- ERROR("%s: Bad path %s\n", "powerdns", item->local.sun_path);
- return;
- }
+ dummy = NULL;
- *ptr='\0';
- strncat (item->local.sun_path, "/lsockXXXXXX",
- sizeof (item->local.sun_path) - strlen (item->local.sun_path));
+ value = strchr (key, '=');
+ if (value == NULL)
+ break;
- if ((sck = socket(AF_UNIX, SOCK_DGRAM, 0)) < 0) {
- FUNC_ERROR ("socket");
- return;
- }
+ *value = '\0';
+ value++;
- tmp = 1;
- if (setsockopt (sck, SOL_SOCKET, SO_REUSEADDR, &tmp, sizeof(tmp)) < 0)
- {
- FUNC_ERROR ("setsockopt");
- close (sck);
- return;
- }
+ if (value[0] == '\0')
+ continue;
- if ((tmp=mkstemp(item->local.sun_path))< 0)
- {
- FUNC_ERROR ("mkstemp");
- close (sck);
- return;
- }
- close (tmp);
+ submit (item->instance, key, value);
+ } /* while (strtok_r) */
- if (unlink(item->local.sun_path) < 0 && errno != ENOENT)
- {
- FUNC_ERROR ("unlink");
- close (sck);
- return;
- }
+ sfree (buffer);
- if (bind(sck, (struct sockaddr*)&item->local, sizeof(item->local)) < 0)
- {
- FUNC_ERROR ("bind");
- close (sck);
- unlink (item->local.sun_path);
- return;
- }
+ return (0);
+} /* int powerdns_read_server */
- if (chmod(item->local.sun_path,0666) < 0)
- {
- FUNC_ERROR ("chmod");
- close (sck);
- unlink (item->local.sun_path);
- return;
- }
+static int powerdns_read_recursor (list_item_t *item)
+{
+ char *buffer = NULL;
+ size_t buffer_size = 0;
+ int status;
- if (connect (sck,(struct sockaddr *) &item->remote, sizeof(item->remote)) == -1)
- {
- FUNC_ERROR ("connect");
- close (sck);
- unlink (item->local.sun_path);
- return;
- }
+ char *dummy;
- send_buffer = strdup (item->command == NULL ? COMMAND_RECURSOR : item->command);
- if (send_buffer == NULL)
- {
- FUNC_ERROR ("strdup");
- close (sck);
- unlink (item->local.sun_path);
- return;
- }
+ char *keys_list;
+ char *key;
+ char *key_saveptr;
+ char *value;
+ char *value_saveptr;
- if (io((io_func*)&send, sck, send_buffer, strlen (send_buffer)) < strlen (send_buffer))
- {
- FUNC_ERROR ("send");
- close (sck);
- unlink (item->local.sun_path);
- free (send_buffer);
- return;
- }
+ status = powerdns_get_data (item, &buffer, &buffer_size);
+ if (status != 0)
+ return (-1);
- recv_buffer = malloc (BUFFER_SIZE + 1);
- if (recv_buffer == NULL)
+ keys_list = strdup (item->command);
+ if (keys_list == NULL)
{
- FUNC_ERROR ("malloc");
- close (sck);
- unlink (item->local.sun_path);
- free (send_buffer);
- return;
- }
-
- bytes = recv (sck, recv_buffer, BUFFER_SIZE, 0);
- if (bytes < 1) {
- FUNC_ERROR ("recv");
- close (sck);
- unlink (item->local.sun_path);
- free (send_buffer);
- free (recv_buffer);
- return;
+ FUNC_ERROR ("strdup");
+ sfree (buffer);
+ return (-1);
}
- recv_buffer[bytes]='\0';
-
- close (sck);
- unlink (item->local.sun_path);
-
- for( name_token = strtok_r (send_buffer, delims, &name_pos),
- name_token = strtok_r (NULL, delims, &name_pos),
- value_token = strtok_r (recv_buffer, delims, &value_pos);
- name_token != NULL && value_token != NULL;
- name_token = strtok_r (NULL, delims, &name_pos),
- value_token = strtok_r (NULL, delims, &value_pos) )
- submit (item->instance, name_token, value_token);
- free (send_buffer);
- free (recv_buffer);
- return;
+ key_saveptr = NULL;
+ value_saveptr = NULL;
-} /* static void powerdns_read_recursor */
-
-static int powerdns_term() {
- llentry_t *e_this;
- llentry_t *e_next;
- list_item_t *item;
+ /* Skip the `get' at the beginning */
+ strtok_r (keys_list, " \t", &key_saveptr);
- if (list != NULL)
+ dummy = buffer;
+ while ((value = strtok_r (dummy, " \t\n\r", &value_saveptr)) != NULL)
{
- for (e_this = llist_head(list); e_this != NULL; e_this = e_next)
- {
- item = e_this->value;
- free (item->instance);
+ dummy = NULL;
- if (item->command != COMMAND_SERVER &&
- item->command != COMMAND_RECURSOR)
- free (item->command);
+ key = strtok_r (NULL, " \t", &key_saveptr);
+ if (key == NULL)
+ break;
- free (item);
+ submit (item->instance, key, value);
+ } /* while (strtok_r) */
- e_next = e_this->next;
- }
+ sfree (buffer);
+ sfree (keys_list);
+
+ return (0);
+} /* int powerdns_read_recursor */
- llist_destroy (list);
- list = NULL;
+static int powerdns_config_add_string (const char *name, char **dest,
+ oconfig_item_t *ci)
+{
+ if ((ci->values_num != 1) || (ci->values[0].type != OCONFIG_TYPE_STRING))
+ {
+ WARNING ("powerdns plugin: `%s' needs exactly one string argument.",
+ name);
+ return (-1);
}
+ sfree (*dest);
+ *dest = strdup (ci->values[0].value.string);
+ if (*dest == NULL)
+ return (-1);
+
return (0);
-} /* static int powerdns_term */
+} /* int ctail_config_add_string */
-static int powerdns_config (oconfig_item_t *ci)
+static int powerdns_config_add_server (oconfig_item_t *ci)
{
- oconfig_item_t *gchild;
- int gchildren;
+ char *socket_temp;
- oconfig_item_t *child = ci->children;
- int children = ci->children_num;
-
- llentry_t *entry;
list_item_t *item;
+ int status;
+ int i;
- if (list == NULL && (list = llist_create()) == NULL )
+ if ((ci->values_num != 1) || (ci->values[0].type != OCONFIG_TYPE_STRING))
{
- ERROR ("powerdns plugin: `llist_create' failed.");
- return 1;
- }
+ WARNING ("powerdns plugin: `%s' needs exactly one string argument.",
+ ci->key);
+ return (-1);
+ }
- for (; children; --children, ++child)
+ item = (list_item_t *) malloc (sizeof (list_item_t));
+ if (item == NULL)
{
- item = malloc (sizeof (list_item_t));
- if (item == NULL)
- {
- ERROR ("powerdns plugin: `malloc' failed.");
- return 1;
- }
+ ERROR ("powerdns plugin: malloc failed.");
+ return (-1);
+ }
+ memset (item, '\0', sizeof (list_item_t));
- if (strcmp (child->key, "Server") == 0)
- {
- item->func = (item_func*)&powerdns_read_server;
- item->command = COMMAND_SERVER;
- }
- else if (strcmp (child->key, "Recursor") == 0)
- {
- item->func = (item_func*)&powerdns_read_recursor;
- item->command = COMMAND_RECURSOR;
- }
+ item->instance = strdup (ci->values[0].value.string);
+ if (item->instance == NULL)
+ {
+ ERROR ("powerdns plugin: strdup failed.");
+ sfree (item);
+ return (-1);
+ }
+
+ /*
+ * Set default values for the members of list_item_t
+ */
+ if (strcasecmp ("Server", ci->key) == 0)
+ {
+ item->func = powerdns_read_server;
+ item->command = strdup (SERVER_COMMAND);
+ item->socktype = SOCK_STREAM;
+ socket_temp = strdup (SERVER_SOCKET);
+ }
+ else if (strcasecmp ("Recursor", ci->key) == 0)
+ {
+ item->func = powerdns_read_recursor;
+ item->command = strdup (RECURSOR_COMMAND);
+ item->socktype = SOCK_DGRAM;
+ socket_temp = strdup (RECURSOR_SOCKET);
+ }
+
+ status = 0;
+ for (i = 0; i < ci->children_num; i++)
+ {
+ oconfig_item_t *option = ci->children + i;
+
+ if (strcasecmp ("Command", option->key) == 0)
+ status = powerdns_config_add_string ("Command", &item->command, option);
+ else if (strcasecmp ("Socket", option->key) == 0)
+ status = powerdns_config_add_string ("Socket", &socket_temp, option);
else
{
- WARNING ("powerdns plugin: Ignoring unknown"
- " config option `%s'.", child->key);
- free (item);
- continue;
+ ERROR ("powerdns plugin: Option `%s' not allowed here.", option->key);
+ status = -1;
}
- if ((child->values_num != 1) ||
- (child->values[0].type != OCONFIG_TYPE_STRING))
- {
- WARNING ("powerdns plugin: `%s' needs exactly"
- " one string argument.", child->key);
- free (item);
- continue;
- }
+ if (status != 0)
+ break;
+ }
- if (llist_search (list, child->values[0].value.string) != NULL)
+ while (status == 0)
+ {
+ llentry_t *e;
+
+ if (socket_temp == NULL)
{
- ERROR ("powerdns plugin: multiple instances for %s",
- child->values[0].value.string);
- free (item);
- return 1;
+ ERROR ("powerdns plugin: socket_temp == NULL.");
+ status = -1;
+ break;
}
- item->instance = strdup (child->values[0].value.string);
- if (item->instance == NULL)
+ if (item->command == NULL)
{
- ERROR ("powerdns plugin: `strdup' failed.");
- free (item);
- return 1;
+ ERROR ("powerdns plugin: item->command == NULL.");
+ status = -1;
+ break;
}
- entry = llentry_create (item->instance, item);
- if (entry == NULL)
+ item->sockaddr.sun_family = AF_UNIX;
+ sstrncpy (item->sockaddr.sun_path, socket_temp, UNIX_PATH_MAX);
+
+ e = llentry_create (item->instance, item);
+ if (e == NULL)
{
- ERROR ("powerdns plugin: `llentry_create' failed.");
- free (item->instance);
- free (item);
- return 1;
+ ERROR ("powerdns plugin: llentry_create failed.");
+ status = -1;
+ break;
}
+ llist_append (list, e);
+
+ break;
+ }
+
+ if (status != 0)
+ {
+ sfree (item);
+ return (-1);
+ }
- item->remote.sun_family = ~AF_UNIX;
+ return (0);
+} /* int powerdns_config_add_server */
+
+static int powerdns_config (oconfig_item_t *ci)
+{
+ int i;
- gchild = child->children;
- gchildren = child->children_num;
+ if (list == NULL)
+ {
+ list = llist_create ();
- for (; gchildren; --gchildren, ++gchild)
+ if (list == NULL)
{
- if (strcmp (gchild->key, "Socket") == 0)
- {
- if (gchild->values_num != 1 ||
- gchild->values[0].type != OCONFIG_TYPE_STRING)
- {
- WARNING ("powerdns plugin: config option `%s'"
- " should have exactly one string value.",
- gchild->key);
- continue;
- }
- if (item->remote.sun_family == AF_UNIX)
- {
- WARNING ("powerdns plugin: ignoring extraneous"
- " `%s' config option.", gchild->key);
- continue;
- }
- item->remote.sun_family = item->local.sun_family = AF_UNIX;
- strncpy (item->remote.sun_path, gchild->values[0].value.string,
- sizeof (item->remote.sun_path));
- strncpy (item->local.sun_path, gchild->values[0].value.string,
- sizeof (item->remote.sun_path));
- }
- else if (strcmp (gchild->key, "Command") == 0)
- {
- if (gchild->values_num != 1
- || gchild->values[0].type != OCONFIG_TYPE_NUMBER)
- {
- WARNING ("powerdns plugin: config option `%s'"
- " should have exactly one string value.",
- gchild->key);
- continue;
- }
- if (item->command != COMMAND_RECURSOR &&
- item->command != COMMAND_SERVER)
- {
- WARNING ("powerdns plugin: ignoring extraneous"
- " `%s' config option.", gchild->key);
- continue;
- }
- item->command = strdup (gchild->values[0].value.string);
- if (item->command == NULL)
- {
- ERROR ("powerdns plugin: `strdup' failed.");
- llentry_destroy (entry);
- free (item->instance);
- free (item);
- return 1;
- }
- }
- else
- {
- WARNING ("powerdns plugin: Ignoring unknown config option"
- " `%s'.", gchild->key);
- continue;
- }
-
- if (gchild->children_num)
- {
- WARNING ("powerdns plugin: config option `%s' should not"
- " have children.", gchild->key);
- }
+ ERROR ("powerdns plugin: `llist_create' failed.");
+ return (-1);
}
+ }
+ for (i = 0; i < ci->children_num; i++)
+ {
+ oconfig_item_t *option = ci->children + i;
- if (item->remote.sun_family != AF_UNIX)
+ if ((strcasecmp ("Server", ci->key) == 0)
+ || (strcasecmp ("Recursor", ci->key) == 0))
+ powerdns_config_add_server (option);
+ else
{
- if (item->func == (item_func*)&powerdns_read_server)
- {
- item->remote.sun_family = item->local.sun_family = AF_UNIX;
- strncpy (item->remote.sun_path, "/var/run/pdns.controlsocket",
- sizeof (item->remote.sun_path));
- strncpy (item->local.sun_path, "/var/run/pdns.controlsocket",
- sizeof (item->remote.sun_path));
- }
- else
- {
- item->remote.sun_family = item->local.sun_family = AF_UNIX;
- strncpy (item->remote.sun_path, "/var/run/pdns_recursor.controlsocket",
- sizeof (item->remote.sun_path));
- strncpy (item->local.sun_path, "/var/run/pdns_recursor.controlsocket",
- sizeof (item->remote.sun_path));
- }
+ ERROR ("powerdns plugin: Option `%s' not allowed here.", option->key);
}
+ } /* for (i = 0; i < ci->children_num; i++) */
+
+ return (0);
+} /* int powerdns_config */
+
+static int powerdns_read (void)
+{
+ llentry_t *e;
- llist_append (list, entry);
+ for (e = llist_head (list); e != NULL; e = e->next)
+ {
+ list_item_t *item = e->value;
+ item->func (item);
}
- return 0;
-} /* static int powerdns_config */
+ return (0);
+} /* static int powerdns_read */
-static int powerdns_read(void)
+static int powerdns_shutdown (void)
{
- llentry_t *e_this;
- list_item_t *item;
+ llentry_t *e;
- for (e_this = llist_head(list); e_this != NULL; e_this = e_this->next)
+ if (list == NULL)
+ return (0);
+
+ for (e = llist_head (list); e != NULL; e = e->next)
{
- item = e_this->value;
- item->func(item);
+ list_item_t *item = (list_item_t *) e->value;
+ e->value = NULL;
+
+ sfree (item->instance);
+ sfree (item->command);
+ sfree (item);
}
+ llist_destroy (list);
+ list = NULL;
+
return (0);
-} /* static int powerdns_read */
+} /* static int powerdns_shutdown */
void module_register (void)
{
plugin_register_complex_config ("powerdns", powerdns_config);
plugin_register_read ("powerdns", powerdns_read);
- plugin_register_shutdown ("powerdns", powerdns_term );
+ plugin_register_shutdown ("powerdns", powerdns_shutdown );
} /* void module_register */
/* vim: set sw=2 sts=2 ts=8 : */