1 /**
2 * collectd - src/utils_mount.c
3 * Copyright (C) 2005,2006 Niki W. Waibel
4 *
5 * This program is free software; you can redistribute it and/
6 * or modify it under the terms of the GNU General Public Li-
7 * cence as published by the Free Software Foundation; either
8 * version 2 of the Licence, or any later version.
9 *
10 * This program is distributed in the hope that it will be use-
11 * ful, but WITHOUT ANY WARRANTY; without even the implied war-
12 * ranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13 * See the GNU General Public Licence for more details.
14 *
15 * You should have received a copy of the GNU General Public
16 * Licence along with this program; if not, write to the Free
17 * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,
18 * USA.
19 *
20 * Author:
21 * Niki W. Waibel <niki.waibel@gmx.net>
22 **/
26 #include "common.h"
27 #if HAVE_XFS_XQM_H
28 # include <xfs/xqm.h>
29 #define XFS_SUPER_MAGIC_STR "XFSB"
30 #define XFS_SUPER_MAGIC2_STR "BSFX"
31 #endif
33 #include "utils_debug.h"
34 #include "utils_mount.h"
36 #if HAVE_GETFSSTAT
37 # if HAVE_SYS_PARAM_H
38 # include <sys/param.h>
39 # endif
40 # if HAVE_SYS_UCRED_H
41 # include <sys/ucred.h>
42 # endif
43 # if HAVE_SYS_MOUNT_H
44 # include <sys/mount.h>
45 # endif
46 #endif /* HAVE_GETMNTINFO */
48 #if HAVE_MNTENT_H
49 # include <mntent.h>
50 #endif
51 #if HAVE_SYS_MNTTAB_H
52 # include <sys/mnttab.h>
53 #endif
55 #if HAVE_PATHS_H
56 # include <paths.h>
57 #endif
59 #ifdef COLLECTD_MNTTAB
60 # undef COLLECTD_MNTTAB
61 #endif
63 #if defined(_PATH_MOUNTED) /* glibc */
64 # define COLLECTD_MNTTAB _PATH_MOUNTED
65 #elif defined(MNTTAB) /* Solaris */
66 # define COLLECTD_MNTTAB MNTTAB
67 #elif defined(MNT_MNTTAB)
68 # define COLLECTD_MNTTAB MNT_MNTTAB
69 #elif defined(MNTTABNAME)
70 # define COLLECTD_MNTTAB MNTTABNAME
71 #elif defined(KMTAB)
72 # define COLLECTD_MNTTAB KMTAB
73 #else
74 # define COLLECTD_MNTTAB "/etc/mnttab"
75 #endif
77 /* *** *** *** ********************************************* *** *** *** */
78 /* *** *** *** *** *** *** private functions *** *** *** *** *** *** */
79 /* *** *** *** ********************************************* *** *** *** */
81 /* stolen from quota-3.13 (quota-tools) */
83 #define PROC_PARTITIONS "/proc/partitions"
84 #define DEVLABELDIR "/dev"
85 #define UUID 1
86 #define VOL 2
88 static struct uuidCache_s {
89 struct uuidCache_s *next;
90 char uuid[16];
91 char *label;
92 char *device;
93 } *uuidCache = NULL;
95 #define EXT2_SUPER_MAGIC 0xEF53
96 struct ext2_super_block {
97 unsigned char s_dummy1[56];
98 unsigned char s_magic[2];
99 unsigned char s_dummy2[46];
100 unsigned char s_uuid[16];
101 char s_volume_name[16];
102 };
103 #define ext2magic(s) ((unsigned int)s.s_magic[0] \
104 + (((unsigned int)s.s_magic[1]) << 8))
106 #if HAVE_XFS_XQM_H
107 struct xfs_super_block {
108 unsigned char s_magic[4];
109 unsigned char s_dummy[28];
110 unsigned char s_uuid[16];
111 unsigned char s_dummy2[60];
112 char s_fsname[12];
113 };
114 #endif /* HAVE_XFS_XQM_H */
116 #define REISER_SUPER_MAGIC "ReIsEr2Fs"
117 struct reiserfs_super_block {
118 unsigned char s_dummy1[52];
119 unsigned char s_magic[10];
120 unsigned char s_dummy2[22];
121 unsigned char s_uuid[16];
122 char s_volume_name[16];
123 };
125 /* for now, only ext2 and xfs are supported */
126 static int
127 get_label_uuid(const char *device, char **label, char *uuid)
128 {
129 /* start with ext2 and xfs tests, taken from mount_guess_fstype */
130 /* should merge these later */
131 int fd, rv = 1;
132 size_t namesize;
133 struct ext2_super_block e2sb;
134 #if HAVE_XFS_XQM_H
135 struct xfs_super_block xfsb;
136 #endif
137 struct reiserfs_super_block reisersb;
139 fd = open(device, O_RDONLY);
140 if(fd == -1) {
141 return rv;
142 }
144 if(lseek(fd, 1024, SEEK_SET) == 1024
145 && read(fd, (char *)&e2sb, sizeof(e2sb)) == sizeof(e2sb)
146 && ext2magic(e2sb) == EXT2_SUPER_MAGIC) {
147 memcpy(uuid, e2sb.s_uuid, sizeof(e2sb.s_uuid));
148 namesize = sizeof(e2sb.s_volume_name);
149 *label = smalloc(namesize + 1);
150 sstrncpy(*label, e2sb.s_volume_name, namesize);
151 rv = 0;
152 #if HAVE_XFS_XQM_H
153 } else if(lseek(fd, 0, SEEK_SET) == 0
154 && read(fd, (char *)&xfsb, sizeof(xfsb)) == sizeof(xfsb)
155 && (strncmp((char *)&xfsb.s_magic, XFS_SUPER_MAGIC_STR, 4) == 0 ||
156 strncmp((char *)&xfsb.s_magic, XFS_SUPER_MAGIC2_STR, 4) == 0)) {
157 memcpy(uuid, xfsb.s_uuid, sizeof(xfsb.s_uuid));
158 namesize = sizeof(xfsb.s_fsname);
159 *label = smalloc(namesize + 1);
160 sstrncpy(*label, xfsb.s_fsname, namesize);
161 rv = 0;
162 #endif /* HAVE_XFS_XQM_H */
163 } else if(lseek(fd, 65536, SEEK_SET) == 65536
164 && read(fd, (char *)&reisersb, sizeof(reisersb)) == sizeof(reisersb)
165 && !strncmp((char *)&reisersb.s_magic, REISER_SUPER_MAGIC, 9)) {
166 memcpy(uuid, reisersb.s_uuid, sizeof(reisersb.s_uuid));
167 namesize = sizeof(reisersb.s_volume_name);
168 *label = smalloc(namesize + 1);
169 sstrncpy(*label, reisersb.s_volume_name, namesize);
170 rv = 0;
171 }
172 close(fd);
173 return rv;
174 }
176 static void
177 uuidcache_addentry(char *device, char *label, char *uuid)
178 {
179 struct uuidCache_s *last;
181 if(!uuidCache) {
182 last = uuidCache = smalloc(sizeof(*uuidCache));
183 } else {
184 for(last = uuidCache; last->next; last = last->next);
185 last->next = smalloc(sizeof(*uuidCache));
186 last = last->next;
187 }
188 last->next = NULL;
189 last->device = device;
190 last->label = label;
191 memcpy(last->uuid, uuid, sizeof(last->uuid));
192 }
194 static void
195 uuidcache_init(void)
196 {
197 char line[100];
198 char *s;
199 int ma, mi, sz;
200 static char ptname[100];
201 FILE *procpt;
202 char uuid[16], *label = NULL;
203 char device[110];
204 int firstPass;
205 int handleOnFirst;
207 if(uuidCache) {
208 return;
209 }
211 procpt = fopen(PROC_PARTITIONS, "r");
212 if(procpt == NULL) {
213 return;
214 }
216 for(firstPass = 1; firstPass >= 0; firstPass--) {
217 fseek(procpt, 0, SEEK_SET);
218 while(fgets(line, sizeof(line), procpt)) {
219 if(sscanf(line, " %d %d %d %[^\n ]",
220 &ma, &mi, &sz, ptname) != 4)
221 {
222 continue;
223 }
225 /* skip extended partitions (heuristic: size 1) */
226 if(sz == 1) {
227 continue;
228 }
230 /* look only at md devices on first pass */
231 handleOnFirst = !strncmp(ptname, "md", 2);
232 if(firstPass != handleOnFirst) {
233 continue;
234 }
236 /* skip entire disk (minor 0, 64, ... on ide;
237 0, 16, ... on sd) */
238 /* heuristic: partition name ends in a digit */
240 for(s = ptname; *s; s++);
242 if(isdigit((int)s[-1])) {
243 /*
244 * Note: this is a heuristic only - there is no reason
245 * why these devices should live in /dev.
246 * Perhaps this directory should be specifiable by option.
247 * One might for example have /devlabel with links to /dev
248 * for the devices that may be accessed in this way.
249 * (This is useful, if the cdrom on /dev/hdc must not
250 * be accessed.)
251 */
252 snprintf(device, sizeof(device), "%s/%s",
253 DEVLABELDIR, ptname);
254 if(!get_label_uuid(device, &label, uuid)) {
255 uuidcache_addentry(sstrdup(device),
256 label, uuid);
257 }
258 }
259 }
260 }
261 fclose(procpt);
262 }
264 static unsigned char
265 fromhex(char c)
266 {
267 if(isdigit((int)c)) {
268 return (c - '0');
269 } else if(islower((int)c)) {
270 return (c - 'a' + 10);
271 } else {
272 return (c - 'A' + 10);
273 }
274 }
276 static char *
277 get_spec_by_x(int n, const char *t)
278 {
279 struct uuidCache_s *uc;
281 uuidcache_init();
282 uc = uuidCache;
284 while(uc) {
285 switch(n) {
286 case UUID:
287 if(!memcmp(t, uc->uuid, sizeof(uc->uuid))) {
288 return sstrdup(uc->device);
289 }
290 break;
291 case VOL:
292 if(!strcmp(t, uc->label)) {
293 return sstrdup(uc->device);
294 }
295 break;
296 }
297 uc = uc->next;
298 }
299 return NULL;
300 }
302 static char *
303 get_spec_by_uuid(const char *s)
304 {
305 char uuid[16];
306 int i;
308 if(strlen(s) != 36
309 || s[8] != '-' || s[13] != '-' || s[18] != '-' || s[23] != '-') {
310 goto bad_uuid;
311 }
313 for(i=0; i<16; i++) {
314 if(*s == '-') {
315 s++;
316 }
317 if(!isxdigit((int)s[0]) || !isxdigit((int)s[1])) {
318 goto bad_uuid;
319 }
320 uuid[i] = ((fromhex(s[0]) << 4) | fromhex(s[1]));
321 s += 2;
322 }
323 return get_spec_by_x(UUID, uuid);
325 bad_uuid:
326 DBG("Found an invalid UUID: %s", s);
327 return NULL;
328 }
330 static char *get_spec_by_volume_label(const char *s)
331 {
332 return get_spec_by_x (VOL, s);
333 }
335 static char *get_device_name(const char *optstr)
336 {
337 char *rc;
339 if (optstr == NULL)
340 {
341 return (NULL);
342 }
343 else if (strncmp (optstr, "UUID=", 5) == 0)
344 {
345 DBG ("TODO: check UUID= code!");
346 rc = get_spec_by_uuid (optstr + 5);
347 }
348 else if (strncmp (optstr, "LABEL=", 6) == 0)
349 {
350 DBG ("TODO: check LABEL= code!");
351 rc = get_spec_by_volume_label (optstr + 6);
352 }
353 else
354 {
355 rc = sstrdup (optstr);
356 }
358 if(!rc)
359 {
360 DBG ("Error checking device name: optstr = %s", optstr);
361 }
362 return rc;
363 }
365 /* What weird OS is this..? I can't find any info with google :/ -octo */
366 #if HAVE_LISTMNTENT && 0
367 static cu_mount_t *cu_mount_listmntent (void)
368 {
369 cu_mount_t *last = *list;
370 struct tabmntent *p;
371 struct mntent *mnt;
373 struct tabmntent *mntlist;
374 if(listmntent(&mntlist, COLLECTD_MNTTAB, NULL, NULL) < 0) {
375 DBG("calling listmntent() failed: %s", strerror(errno));
376 }
378 for(p = mntlist; p; p = p->next) {
379 char *loop = NULL, *device = NULL;
381 mnt = p->ment;
382 loop = cu_mount_getoptionvalue(mnt->mnt_opts, "loop=");
383 if(loop == NULL) { /* no loop= mount */
384 device = get_device_name(mnt->mnt_fsname);
385 if(device == NULL) {
386 DBG("can't get devicename for fs (%s) %s (%s)"
387 ": ignored", mnt->mnt_type,
388 mnt->mnt_dir, mnt->mnt_fsname);
389 continue;
390 }
391 } else {
392 device = loop;
393 }
394 if(*list == NULL) {
395 *list = (cu_mount_t *)smalloc(sizeof(cu_mount_t));
396 last = *list;
397 } else {
398 while(last->next != NULL) { /* is last really last? */
399 last = last->next;
400 }
401 last->next = (cu_mount_t *)smalloc(sizeof(cu_mount_t));
402 last = last->next;
403 }
404 last->dir = sstrdup(mnt->mnt_dir);
405 last->spec_device = sstrdup(mnt->mnt_fsname);
406 last->device = device;
407 last->type = sstrdup(mnt->mnt_type);
408 last->options = sstrdup(mnt->mnt_opts);
409 last->next = NULL;
410 } /* for(p = mntlist; p; p = p->next) */
412 return(last);
413 } /* cu_mount_t *cu_mount_listmntent(void) */
414 /* #endif HAVE_LISTMNTENT */
416 /* 4.4BSD and Mac OS X */
417 #elif HAVE_GETFSSTAT
418 static cu_mount_t *cu_mount_getfsstat (void)
419 {
420 int bufsize;
421 struct statfs *buf;
423 int num;
424 int i;
426 cu_mount_t *first = NULL;
427 cu_mount_t *last = NULL;
428 cu_mount_t *new = NULL;
430 /* Get the number of mounted file systems */
431 if ((bufsize = getfsstat (NULL, 0, MNT_NOWAIT)) < 1)
432 {
433 DBG ("getfsstat failed: %s", strerror (errno));
434 return (NULL);
435 }
437 if ((buf = (struct statfs *) malloc (bufsize * sizeof (struct statfs)))
438 == NULL)
439 return (NULL);
440 memset (buf, '\0', bufsize * sizeof (struct statfs));
442 /* The bufsize needs to be passed in bytes. Really. This is not in the
443 * manpage.. -octo */
444 if ((num = getfsstat (buf, bufsize * sizeof (struct statfs), MNT_NOWAIT)) < 1)
445 {
446 DBG ("getfsstat failed: %s", strerror (errno));
447 free (buf);
448 return (NULL);
449 }
451 for (i = 0; i < num; i++)
452 {
453 if ((new = malloc (sizeof (cu_mount_t))) == NULL)
454 break;
455 memset (new, '\0', sizeof (cu_mount_t));
457 /* Copy values from `struct mnttab' */
458 new->dir = sstrdup (buf[i].f_mntonname);
459 new->spec_device = sstrdup (buf[i].f_mntfromname);
460 new->type = sstrdup (buf[i].f_fstypename);
461 new->options = NULL;
462 new->device = get_device_name (new->options);
463 new->next = NULL;
465 /* Append to list */
466 if (first == NULL)
467 {
468 first = new;
469 last = new;
470 }
471 else
472 {
473 last->next = new;
474 last = new;
475 }
476 }
478 free (buf);
480 return (first);
481 }
482 /* #endif HAVE_GETFSSTAT */
484 /* Solaris (SunOS 10): int getmntent(FILE *fp, struct mnttab *mp); */
485 #elif HAVE_GEN_GETMNTENT
486 static cu_mount_t *cu_mount_gen_getmntent (void)
487 {
488 struct mnttab mt;
489 FILE *fp;
491 cu_mount_t *first = NULL;
492 cu_mount_t *last = NULL;
493 cu_mount_t *new = NULL;
495 DBG ("(void); COLLECTD_MNTTAB = %s", COLLECTD_MNTTAB);
497 if ((fp = fopen (COLLECTD_MNTTAB, "r")) == NULL)
498 {
499 syslog (LOG_ERR, "fopen (%s): %s", COLLECTD_MNTTAB, strerror (errno));
500 return (NULL);
501 }
503 while (getmntent (fp, &mt) == 0)
504 {
505 if ((new = malloc (sizeof (cu_mount_t))) == NULL)
506 break;
507 memset (new, '\0', sizeof (cu_mount_t));
509 /* Copy values from `struct mnttab' */
510 new->dir = sstrdup (mt.mnt_mountp);
511 new->spec_device = sstrdup (mt.mnt_special);
512 new->type = sstrdup (mt.mnt_fstype);
513 new->options = sstrdup (mt.mnt_mntopts);
514 new->device = get_device_name (new->options);
515 new->next = NULL;
517 /* Append to list */
518 if (first == NULL)
519 {
520 first = new;
521 last = new;
522 }
523 else
524 {
525 last->next = new;
526 last = new;
527 }
528 }
530 fclose (fp);
532 return (first);
533 } /* static cu_mount_t *cu_mount_gen_getmntent (void) */
534 /* #endif HAVE_GEN_GETMNTENT */
536 #elif HAVE_SEQ_GETMNTENT
537 #warn "This version of `getmntent' hat not yet been implemented!"
538 /* #endif HAVE_SEQ_GETMNTENT */
540 #elif HAVE_SUN_GETMNTENT
541 #warn "This version of `getmntent' hat not yet been implemented!"
542 /* #endif HAVE_SUN_GETMNTENT */
544 #elif HAVE_GETMNTENT
545 static cu_mount_t *cu_mount_getmntent (void)
546 {
547 FILE *fp;
548 struct mntent *me;
550 cu_mount_t *first = NULL;
551 cu_mount_t *last = NULL;
552 cu_mount_t *new = NULL;
554 DBG ("(void); COLLECTD_MNTTAB = %s", COLLECTD_MNTTAB);
556 if ((fp = setmntent (COLLECTD_MNTTAB, "r")) == NULL)
557 {
558 syslog (LOG_ERR, "setmntent (%s): %s", COLLECTD_MNTTAB, strerror (errno));
559 return (NULL);
560 }
562 while ((me = getmntent (fp)) != NULL)
563 {
564 if ((new = malloc (sizeof (cu_mount_t))) == NULL)
565 break;
566 memset (new, '\0', sizeof (cu_mount_t));
568 /* Copy values from `struct mntent *' */
569 new->dir = sstrdup (me->mnt_dir);
570 new->spec_device = sstrdup (me->mnt_fsname);
571 new->type = sstrdup (me->mnt_type);
572 new->options = sstrdup (me->mnt_opts);
573 new->device = get_device_name (new->options);
574 new->next = NULL;
576 DBG ("new = {dir = %s, spec_device = %s, type = %s, options = %s, device = %s}",
577 new->dir, new->spec_device, new->type, new->options, new->device);
579 /* Append to list */
580 if (first == NULL)
581 {
582 first = new;
583 last = new;
584 }
585 else
586 {
587 last->next = new;
588 last = new;
589 }
590 }
592 endmntent (fp);
594 DBG ("return (0x%p)", (void *) first);
596 return (first);
597 }
598 #endif /* HAVE_GETMNTENT */
600 /* *** *** *** ******************************************** *** *** *** */
601 /* *** *** *** *** *** *** public functions *** *** *** *** *** *** */
602 /* *** *** *** ******************************************** *** *** *** */
604 cu_mount_t *cu_mount_getlist(cu_mount_t **list)
605 {
606 cu_mount_t *new;
607 cu_mount_t *first = NULL;
608 cu_mount_t *last = NULL;
610 if (list == NULL)
611 return (NULL);
613 if (*list != NULL)
614 {
615 first = *list;
616 last = first;
617 while (last->next != NULL)
618 last = last->next;
619 }
621 #if HAVE_LISTMNTENT && 0
622 new = cu_mount_listmntent ();
623 #elif HAVE_GETFSSTAT
624 new = cu_mount_getfsstat ();
625 #elif HAVE_GEN_GETMNTENT
626 new = cu_mount_gen_getmntent ();
627 #elif HAVE_GETMNTENT
628 new = cu_mount_getmntent ();
629 #else
630 new = NULL;
631 #endif
633 if (first != NULL)
634 {
635 last->next = new;
636 }
637 else
638 {
639 first = new;
640 last = new;
641 *list = first;
642 }
644 while ((last != NULL) && (last->next != NULL))
645 last = last->next;
647 return (last);
648 } /* cu_mount_t *cu_mount_getlist(cu_mount_t **list) */
650 void cu_mount_freelist (cu_mount_t *list)
651 {
652 cu_mount_t *this;
653 cu_mount_t *next;
655 DBG ("(list = 0x%p)", (void *) list);
657 for (this = list; this != NULL; this = next)
658 {
659 next = this->next;
661 sfree (this->dir);
662 sfree (this->spec_device);
663 sfree (this->device);
664 sfree (this->type);
665 sfree (this->options);
666 sfree (this);
667 }
668 } /* void cu_mount_freelist(cu_mount_t *list) */
670 char *
671 cu_mount_checkoption(char *line, char *keyword, int full)
672 {
673 char *line2, *l2;
674 int l = strlen(keyword);
675 char *p1, *p2;
677 if(line == NULL || keyword == NULL) {
678 return NULL;
679 }
680 if(full != 0) {
681 full = 1;
682 }
684 line2 = sstrdup(line);
685 l2 = line2;
686 while(*l2 != '\0') {
687 if(*l2 == ',') {
688 *l2 = '\0';
689 }
690 l2++;
691 }
693 p1 = line - 1;
694 p2 = strchr(line, ',');
695 do {
696 if(strncmp(line2+(p1-line)+1, keyword, l+full) == 0) {
697 free(line2);
698 return p1+1;
699 }
700 p1 = p2;
701 if(p1 != NULL) {
702 p2 = strchr(p1+1, ',');
703 }
704 } while(p1 != NULL);
706 free(line2);
707 return NULL;
708 } /* char *cu_mount_checkoption(char *line, char *keyword, int full) */
710 char *
711 cu_mount_getoptionvalue(char *line, char *keyword)
712 {
713 char *r;
715 r = cu_mount_checkoption(line, keyword, 0);
716 if(r != NULL) {
717 char *p;
718 r += strlen(keyword);
719 p = strchr(r, ',');
720 if(p == NULL) {
721 if(strlen(r) == 0) {
722 return NULL;
723 }
724 return sstrdup(r);
725 } else {
726 char *m;
727 if((p-r) == 1) {
728 return NULL;
729 }
730 m = (char *)smalloc(p-r+1);
731 sstrncpy(m, r, p-r+1);
732 return m;
733 }
734 }
735 return r;
736 } /* char *cu_mount_getoptionvalue(char *line, char *keyword) */
740 int
741 cu_mount_type(const char *type)
742 {
743 if(strcmp(type, "ext3") == 0) return CUMT_EXT3;
744 if(strcmp(type, "ext2") == 0) return CUMT_EXT2;
745 if(strcmp(type, "ufs") == 0) return CUMT_UFS;
746 if(strcmp(type, "vxfs") == 0) return CUMT_VXFS;
747 if(strcmp(type, "zfs") == 0) return CUMT_ZFS;
748 return CUMT_UNKNOWN;
749 } /* int cu_mount_type(const char *type) */