src/utils_mount.c

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