f8c9fbfd579e7013a9d1d700d5a595872b83492c
1 /**
2 * collectd - src/unixsock.c
3 * Copyright (C) 2007 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 * Author:
19 * Florian octo Forster <octo at verplant.org>
20 **/
22 #include "collectd.h"
23 #include "common.h"
24 #include "plugin.h"
25 #include "configfile.h"
26 #include "utils_cmd_putval.h"
28 /* Folks without pthread will need to disable this plugin. */
29 #include <pthread.h>
31 #include <sys/socket.h>
32 #include <sys/stat.h>
33 #include <sys/un.h>
35 #include <grp.h>
37 #ifndef UNIX_PATH_MAX
38 # define UNIX_PATH_MAX sizeof (((struct sockaddr_un *)0)->sun_path)
39 #endif
41 #define US_DEFAULT_PATH LOCALSTATEDIR"/run/"PACKAGE_NAME"-unixsock"
43 /*
44 * Private data structures
45 */
46 /* linked list of cached values */
47 typedef struct value_cache_s
48 {
49 char name[4*DATA_MAX_NAME_LEN];
50 int values_num;
51 gauge_t *gauge;
52 counter_t *counter;
53 const data_set_t *ds;
54 time_t time;
55 struct value_cache_s *next;
56 } value_cache_t;
58 /*
59 * Private variables
60 */
61 /* valid configuration file keys */
62 static const char *config_keys[] =
63 {
64 "SocketFile",
65 "SocketGroup",
66 "SocketPerms",
67 NULL
68 };
69 static int config_keys_num = 3;
71 static int loop = 0;
73 /* socket configuration */
74 static int sock_fd = -1;
75 static char *sock_file = NULL;
76 static char *sock_group = NULL;
77 static int sock_perms = S_IRWXU | S_IRWXG;
79 static pthread_t listen_thread = (pthread_t) 0;
81 /* Linked list and auxilliary variables for saving values */
82 static value_cache_t *cache_head = NULL;
83 static pthread_mutex_t cache_lock = PTHREAD_MUTEX_INITIALIZER;
84 static unsigned int cache_oldest = UINT_MAX;
86 /*
87 * Functions
88 */
89 static value_cache_t *cache_search (const char *name)
90 {
91 value_cache_t *vc;
93 for (vc = cache_head; vc != NULL; vc = vc->next)
94 {
95 if (strcmp (vc->name, name) == 0)
96 break;
97 } /* for vc = cache_head .. NULL */
99 return (vc);
100 } /* value_cache_t *cache_search */
102 static int cache_insert (const data_set_t *ds, const value_list_t *vl)
103 {
104 /* We're called from `cache_update' so we don't need to lock the mutex */
105 value_cache_t *vc;
106 int i;
108 DEBUG ("unixsock plugin: cache_insert: ds->type = %s; ds->ds_num = %i;"
109 " vl->values_len = %i;",
110 ds->type, ds->ds_num, vl->values_len);
111 #if COLLECT_DEBUG
112 assert (ds->ds_num == vl->values_len);
113 #else
114 if (ds->ds_num != vl->values_len)
115 {
116 ERROR ("unixsock plugin: ds->type = %s: (ds->ds_num = %i) != "
117 "(vl->values_len = %i)",
118 ds->type, ds->ds_num, vl->values_len);
119 return (-1);
120 }
121 #endif
123 vc = (value_cache_t *) malloc (sizeof (value_cache_t));
124 if (vc == NULL)
125 {
126 char errbuf[1024];
127 pthread_mutex_unlock (&cache_lock);
128 ERROR ("unixsock plugin: malloc failed: %s",
129 sstrerror (errno, errbuf, sizeof (errbuf)));
130 return (-1);
131 }
133 vc->gauge = (gauge_t *) malloc (sizeof (gauge_t) * vl->values_len);
134 if (vc->gauge == NULL)
135 {
136 char errbuf[1024];
137 pthread_mutex_unlock (&cache_lock);
138 ERROR ("unixsock plugin: malloc failed: %s",
139 sstrerror (errno, errbuf, sizeof (errbuf)));
140 free (vc);
141 return (-1);
142 }
144 vc->counter = (counter_t *) malloc (sizeof (counter_t) * vl->values_len);
145 if (vc->counter == NULL)
146 {
147 char errbuf[1024];
148 pthread_mutex_unlock (&cache_lock);
149 ERROR ("unixsock plugin: malloc failed: %s",
150 sstrerror (errno, errbuf, sizeof (errbuf)));
151 free (vc->gauge);
152 free (vc);
153 return (-1);
154 }
156 if (FORMAT_VL (vc->name, sizeof (vc->name), vl, ds))
157 {
158 pthread_mutex_unlock (&cache_lock);
159 ERROR ("unixsock plugin: FORMAT_VL failed.");
160 free (vc->counter);
161 free (vc->gauge);
162 free (vc);
163 return (-1);
164 }
166 for (i = 0; i < ds->ds_num; i++)
167 {
168 if (ds->ds[i].type == DS_TYPE_COUNTER)
169 {
170 vc->gauge[i] = 0.0;
171 vc->counter[i] = vl->values[i].counter;
172 }
173 else if (ds->ds[i].type == DS_TYPE_GAUGE)
174 {
175 vc->gauge[i] = vl->values[i].gauge;
176 vc->counter[i] = 0;
177 }
178 else
179 {
180 vc->gauge[i] = 0.0;
181 vc->counter[i] = 0;
182 }
183 }
184 vc->values_num = ds->ds_num;
185 vc->ds = ds;
187 vc->next = cache_head;
188 cache_head = vc;
190 vc->time = vl->time;
191 if (vc->time < cache_oldest)
192 cache_oldest = vc->time;
194 pthread_mutex_unlock (&cache_lock);
195 return (0);
196 } /* int cache_insert */
198 static int cache_update (const data_set_t *ds, const value_list_t *vl)
199 {
200 char name[4*DATA_MAX_NAME_LEN];;
201 value_cache_t *vc;
202 int i;
204 if (FORMAT_VL (name, sizeof (name), vl, ds) != 0)
205 return (-1);
207 pthread_mutex_lock (&cache_lock);
209 vc = cache_search (name);
211 /* pthread_mutex_lock is called by cache_insert. */
212 if (vc == NULL)
213 return (cache_insert (ds, vl));
215 assert (vc->values_num == ds->ds_num);
216 assert (vc->values_num == vl->values_len);
218 /* Avoid floating-point exceptions due to division by zero. */
219 if (vc->time >= vl->time)
220 {
221 pthread_mutex_unlock (&cache_lock);
222 ERROR ("unixsock plugin: vc->time >= vl->time. vc->time = %u; "
223 "vl->time = %u; vl = %s;",
224 (unsigned int) vc->time, (unsigned int) vl->time,
225 name);
226 return (-1);
227 } /* if (vc->time >= vl->time) */
229 /*
230 * Update the values. This is possibly a lot more that you'd expect
231 * because we honor min and max values and handle counter overflows here.
232 */
233 for (i = 0; i < ds->ds_num; i++)
234 {
235 if (ds->ds[i].type == DS_TYPE_COUNTER)
236 {
237 if (vl->values[i].counter < vc->counter[i])
238 {
239 if (vl->values[i].counter <= 4294967295U)
240 {
241 vc->gauge[i] = ((4294967295U - vl->values[i].counter)
242 + vc->counter[i]) / (vl->time - vc->time);
243 }
244 else
245 {
246 vc->gauge[i] = ((18446744073709551615ULL - vl->values[i].counter)
247 + vc->counter[i]) / (vl->time - vc->time);
248 }
249 }
250 else
251 {
252 vc->gauge[i] = (vl->values[i].counter - vc->counter[i])
253 / (vl->time - vc->time);
254 }
256 vc->counter[i] = vl->values[i].counter;
257 }
258 else if (ds->ds[i].type == DS_TYPE_GAUGE)
259 {
260 vc->gauge[i] = vl->values[i].gauge;
261 vc->counter[i] = 0;
262 }
263 else
264 {
265 vc->gauge[i] = NAN;
266 vc->counter[i] = 0;
267 }
269 if (isnan (vc->gauge[i])
270 || (!isnan (ds->ds[i].min) && (vc->gauge[i] < ds->ds[i].min))
271 || (!isnan (ds->ds[i].max) && (vc->gauge[i] > ds->ds[i].max)))
272 vc->gauge[i] = NAN;
273 } /* for i = 0 .. ds->ds_num */
275 vc->ds = ds;
276 vc->time = vl->time;
278 if (vc->time < cache_oldest)
279 cache_oldest = vc->time;
281 pthread_mutex_unlock (&cache_lock);
282 return (0);
283 } /* int cache_update */
285 static void cache_flush (int max_age)
286 {
287 value_cache_t *this;
288 value_cache_t *prev;
289 time_t now;
291 pthread_mutex_lock (&cache_lock);
293 now = time (NULL);
295 if ((now - cache_oldest) <= max_age)
296 {
297 pthread_mutex_unlock (&cache_lock);
298 return;
299 }
301 cache_oldest = now;
303 prev = NULL;
304 this = cache_head;
306 while (this != NULL)
307 {
308 if ((now - this->time) <= max_age)
309 {
310 if (this->time < cache_oldest)
311 cache_oldest = this->time;
313 prev = this;
314 this = this->next;
315 continue;
316 }
318 if (prev == NULL)
319 cache_head = this->next;
320 else
321 prev->next = this->next;
323 free (this->gauge);
324 free (this->counter);
325 free (this);
327 if (prev == NULL)
328 this = cache_head;
329 else
330 this = prev->next;
331 } /* while (this != NULL) */
333 pthread_mutex_unlock (&cache_lock);
334 } /* void cache_flush */
336 static int us_open_socket (void)
337 {
338 struct sockaddr_un sa;
339 int status;
341 sock_fd = socket (PF_UNIX, SOCK_STREAM, 0);
342 if (sock_fd < 0)
343 {
344 char errbuf[1024];
345 ERROR ("unixsock plugin: socket failed: %s",
346 sstrerror (errno, errbuf, sizeof (errbuf)));
347 return (-1);
348 }
350 memset (&sa, '\0', sizeof (sa));
351 sa.sun_family = AF_UNIX;
352 strncpy (sa.sun_path, (sock_file != NULL) ? sock_file : US_DEFAULT_PATH,
353 sizeof (sa.sun_path) - 1);
354 /* unlink (sa.sun_path); */
356 DEBUG ("unixsock plugin: socket path = %s", sa.sun_path);
358 status = bind (sock_fd, (struct sockaddr *) &sa, sizeof (sa));
359 if (status != 0)
360 {
361 char errbuf[1024];
362 sstrerror (errno, errbuf, sizeof (errbuf));
363 ERROR ("unixsock plugin: bind failed: %s", errbuf);
364 close (sock_fd);
365 sock_fd = -1;
366 return (-1);
367 }
369 chmod (sa.sun_path, sock_perms);
371 status = listen (sock_fd, 8);
372 if (status != 0)
373 {
374 char errbuf[1024];
375 ERROR ("unixsock plugin: listen failed: %s",
376 sstrerror (errno, errbuf, sizeof (errbuf)));
377 close (sock_fd);
378 sock_fd = -1;
379 return (-1);
380 }
382 do
383 {
384 char *grpname;
385 struct group *g;
386 struct group sg;
387 char grbuf[2048];
389 grpname = (sock_group != NULL) ? sock_group : COLLECTD_GRP_NAME;
390 g = NULL;
392 status = getgrnam_r (grpname, &sg, grbuf, sizeof (grbuf), &g);
393 if (status != 0)
394 {
395 char errbuf[1024];
396 WARNING ("unixsock plugin: getgrnam_r (%s) failed: %s", grpname,
397 sstrerror (errno, errbuf, sizeof (errbuf)));
398 break;
399 }
400 if (g == NULL)
401 {
402 WARNING ("unixsock plugin: No such group: `%s'",
403 grpname);
404 break;
405 }
407 if (chown ((sock_file != NULL) ? sock_file : US_DEFAULT_PATH,
408 (uid_t) -1, g->gr_gid) != 0)
409 {
410 char errbuf[1024];
411 WARNING ("unixsock plugin: chown (%s, -1, %i) failed: %s",
412 (sock_file != NULL) ? sock_file : US_DEFAULT_PATH,
413 (int) g->gr_gid,
414 sstrerror (errno, errbuf, sizeof (errbuf)));
415 }
416 } while (0);
418 return (0);
419 } /* int us_open_socket */
421 static int us_handle_getval (FILE *fh, char **fields, int fields_num)
422 {
423 char *hostname;
424 char *plugin;
425 char *plugin_instance;
426 char *type;
427 char *type_instance;
428 char name[4*DATA_MAX_NAME_LEN];
429 value_cache_t *vc;
430 int status;
431 int i;
433 if (fields_num != 2)
434 {
435 DEBUG ("unixsock plugin: Wrong number of fields: %i", fields_num);
436 fprintf (fh, "-1 Wrong number of fields: Got %i, expected 2.\n",
437 fields_num);
438 fflush (fh);
439 return (-1);
440 }
441 DEBUG ("unixsock plugin: Got query for `%s'", fields[1]);
443 status = parse_identifier (fields[1], &hostname,
444 &plugin, &plugin_instance,
445 &type, &type_instance);
446 if (status != 0)
447 {
448 DEBUG ("unixsock plugin: Cannot parse `%s'", fields[1]);
449 fprintf (fh, "-1 Cannot parse identifier.\n");
450 fflush (fh);
451 return (-1);
452 }
454 status = format_name (name, sizeof (name),
455 hostname, plugin, plugin_instance, type, type_instance);
456 if (status != 0)
457 {
458 fprintf (fh, "-1 format_name failed.\n");
459 return (-1);
460 }
462 pthread_mutex_lock (&cache_lock);
464 DEBUG ("vc = cache_search (%s)", name);
465 vc = cache_search (name);
467 if (vc == NULL)
468 {
469 DEBUG ("Did not find cache entry.");
470 fprintf (fh, "-1 No such value");
471 }
472 else
473 {
474 DEBUG ("Found cache entry.");
475 fprintf (fh, "%i", vc->values_num);
476 for (i = 0; i < vc->values_num; i++)
477 {
478 fprintf (fh, " %s=", vc->ds->ds[i].name);
479 if (isnan (vc->gauge[i]))
480 fprintf (fh, "NaN");
481 else
482 fprintf (fh, "%12e", vc->gauge[i]);
483 }
484 }
486 /* Free the mutex as soon as possible and definitely before flushing */
487 pthread_mutex_unlock (&cache_lock);
489 fprintf (fh, "\n");
490 fflush (fh);
492 return (0);
493 } /* int us_handle_getval */
495 static int us_handle_listval (FILE *fh, char **fields, int fields_num)
496 {
497 char buffer[1024];
498 char **value_list = NULL;
499 int value_list_len = 0;
500 value_cache_t *entry;
501 int i;
503 if (fields_num != 1)
504 {
505 DEBUG ("unixsock plugin: us_handle_listval: "
506 "Wrong number of fields: %i", fields_num);
507 fprintf (fh, "-1 Wrong number of fields: Got %i, expected 1.\n",
508 fields_num);
509 fflush (fh);
510 return (-1);
511 }
513 pthread_mutex_lock (&cache_lock);
515 for (entry = cache_head; entry != NULL; entry = entry->next)
516 {
517 char **tmp;
519 snprintf (buffer, sizeof (buffer), "%u %s\n",
520 (unsigned int) entry->time, entry->name);
521 buffer[sizeof (buffer) - 1] = '\0';
523 tmp = realloc (value_list, sizeof (char *) * (value_list_len + 1));
524 if (tmp == NULL)
525 continue;
526 value_list = tmp;
528 value_list[value_list_len] = strdup (buffer);
530 if (value_list[value_list_len] != NULL)
531 value_list_len++;
532 } /* for (entry) */
534 pthread_mutex_unlock (&cache_lock);
536 DEBUG ("unixsock plugin: us_handle_listval: value_list_len = %i", value_list_len);
537 fprintf (fh, "%i Values found\n", value_list_len);
538 for (i = 0; i < value_list_len; i++)
539 fputs (value_list[i], fh);
540 fflush (fh);
542 return (0);
543 } /* int us_handle_listval */
545 static void *us_handle_client (void *arg)
546 {
547 int fd;
548 FILE *fhin, *fhout;
549 char buffer[1024];
550 char *fields[128];
551 int fields_num;
553 fd = *((int *) arg);
554 free (arg);
555 arg = NULL;
557 DEBUG ("Reading from fd #%i", fd);
559 fhin = fdopen (fd, "r");
560 if (fhin == NULL)
561 {
562 char errbuf[1024];
563 ERROR ("unixsock plugin: fdopen failed: %s",
564 sstrerror (errno, errbuf, sizeof (errbuf)));
565 close (fd);
566 pthread_exit ((void *) 1);
567 }
569 fhout = fdopen (fd, "w");
570 if (fhout == NULL)
571 {
572 char errbuf[1024];
573 ERROR ("unixsock plugin: fdopen failed: %s",
574 sstrerror (errno, errbuf, sizeof (errbuf)));
575 fclose (fhin); /* this closes fd as well */
576 pthread_exit ((void *) 1);
577 }
579 while (fgets (buffer, sizeof (buffer), fhin) != NULL)
580 {
581 int len;
583 len = strlen (buffer);
584 while ((len > 0)
585 && ((buffer[len - 1] == '\n') || (buffer[len - 1] == '\r')))
586 buffer[--len] = '\0';
588 if (len == 0)
589 continue;
591 DEBUG ("fgets -> buffer = %s; len = %i;", buffer, len);
593 fields_num = strsplit (buffer, fields,
594 sizeof (fields) / sizeof (fields[0]));
596 if (fields_num < 1)
597 {
598 close (fd);
599 break;
600 }
602 if (strcasecmp (fields[0], "getval") == 0)
603 {
604 us_handle_getval (fhout, fields, fields_num);
605 }
606 else if (strcasecmp (fields[0], "putval") == 0)
607 {
608 handle_putval (fhout, fields, fields_num);
609 }
610 else if (strcasecmp (fields[0], "listval") == 0)
611 {
612 us_handle_listval (fhout, fields, fields_num);
613 }
614 else
615 {
616 fprintf (fhout, "-1 Unknown command: %s\n", fields[0]);
617 fflush (fhout);
618 }
619 } /* while (fgets) */
621 DEBUG ("Exiting..");
622 fclose (fhin);
623 fclose (fhout);
625 pthread_exit ((void *) 0);
626 } /* void *us_handle_client */
628 static void *us_server_thread (void *arg)
629 {
630 int status;
631 int *remote_fd;
632 pthread_t th;
633 pthread_attr_t th_attr;
635 if (us_open_socket () != 0)
636 pthread_exit ((void *) 1);
638 while (loop != 0)
639 {
640 DEBUG ("unixsock plugin: Calling accept..");
641 status = accept (sock_fd, NULL, NULL);
642 if (status < 0)
643 {
644 char errbuf[1024];
646 if (errno == EINTR)
647 continue;
649 ERROR ("unixsock plugin: accept failed: %s",
650 sstrerror (errno, errbuf, sizeof (errbuf)));
651 close (sock_fd);
652 sock_fd = -1;
653 pthread_exit ((void *) 1);
654 }
656 remote_fd = (int *) malloc (sizeof (int));
657 if (remote_fd == NULL)
658 {
659 char errbuf[1024];
660 WARNING ("unixsock plugin: malloc failed: %s",
661 sstrerror (errno, errbuf, sizeof (errbuf)));
662 close (status);
663 continue;
664 }
665 *remote_fd = status;
667 DEBUG ("Spawning child to handle connection on fd #%i", *remote_fd);
669 pthread_attr_init (&th_attr);
670 pthread_attr_setdetachstate (&th_attr, PTHREAD_CREATE_DETACHED);
672 status = pthread_create (&th, &th_attr, us_handle_client, (void *) remote_fd);
673 if (status != 0)
674 {
675 char errbuf[1024];
676 WARNING ("unixsock plugin: pthread_create failed: %s",
677 sstrerror (errno, errbuf, sizeof (errbuf)));
678 close (*remote_fd);
679 free (remote_fd);
680 continue;
681 }
682 } /* while (loop) */
684 close (sock_fd);
685 sock_fd = -1;
687 status = unlink ((sock_file != NULL) ? sock_file : US_DEFAULT_PATH);
688 if (status != 0)
689 {
690 char errbuf[1024];
691 NOTICE ("unixsock plugin: unlink (%s) failed: %s",
692 (sock_file != NULL) ? sock_file : US_DEFAULT_PATH,
693 sstrerror (errno, errbuf, sizeof (errbuf)));
694 }
696 return ((void *) 0);
697 } /* void *us_server_thread */
699 static int us_config (const char *key, const char *val)
700 {
701 if (strcasecmp (key, "SocketFile") == 0)
702 {
703 sfree (sock_file);
704 sock_file = strdup (val);
705 }
706 else if (strcasecmp (key, "SocketGroup") == 0)
707 {
708 sfree (sock_group);
709 sock_group = strdup (val);
710 }
711 else if (strcasecmp (key, "SocketPerms") == 0)
712 {
713 sock_perms = (int) strtol (val, NULL, 8);
714 }
715 else
716 {
717 return (-1);
718 }
720 return (0);
721 } /* int us_config */
723 static int us_init (void)
724 {
725 int status;
727 loop = 1;
729 status = pthread_create (&listen_thread, NULL, us_server_thread, NULL);
730 if (status != 0)
731 {
732 char errbuf[1024];
733 ERROR ("unixsock plugin: pthread_create failed: %s",
734 sstrerror (errno, errbuf, sizeof (errbuf)));
735 return (-1);
736 }
738 return (0);
739 } /* int us_init */
741 static int us_shutdown (void)
742 {
743 void *ret;
745 loop = 0;
747 if (listen_thread != (pthread_t) 0)
748 {
749 pthread_kill (listen_thread, SIGTERM);
750 pthread_join (listen_thread, &ret);
751 listen_thread = (pthread_t) 0;
752 }
754 plugin_unregister_init ("unixsock");
755 plugin_unregister_shutdown ("unixsock");
757 return (0);
758 } /* int us_shutdown */
760 static int us_write (const data_set_t *ds, const value_list_t *vl)
761 {
762 cache_update (ds, vl);
763 cache_flush (2 * interval_g);
765 return (0);
766 }
768 void module_register (void)
769 {
770 plugin_register_config ("unixsock", us_config,
771 config_keys, config_keys_num);
772 plugin_register_init ("unixsock", us_init);
773 plugin_register_write ("unixsock", us_write);
774 plugin_register_shutdown ("unixsock", us_shutdown);
775 } /* void module_register (void) */
777 /* vim: set sw=4 ts=4 sts=4 tw=78 : */