/*      $NetBSD: preen.c,v 1.32 2015/06/21 04:01:40 dholland Exp $      */

/*
 * Copyright (c) 1990, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include <sys/cdefs.h>
#ifndef lint
#if 0
static char sccsid[] = "@(#)preen.c     8.5 (Berkeley) 4/28/95";
#else
__RCSID("$NetBSD: preen.c,v 1.32 2015/06/21 04:01:40 dholland Exp $");
#endif
#endif /* not lint */

/*
 * used by sbin/fsck
 * used by usr.sbin/quotacheck
 */

#include <sys/param.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <sys/queue.h>
#include <sys/disk.h>
#include <sys/ioctl.h>

#include <err.h>
#include <ctype.h>
#include <fstab.h>
#include <fcntl.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <util.h>

#include "fsutil.h"
#include "exitvalues.h"

struct partentry {
        TAILQ_ENTRY(partentry)   p_entries;
        char                    *p_devname;     /* device name */
        char                    *p_mntpt;       /* mount point */
        char                    *p_type;        /* file system type */
        void                    *p_auxarg;      /* auxiliary argument */
};

TAILQ_HEAD(part, partentry) badh;

struct diskentry {
        TAILQ_ENTRY(diskentry)      d_entries;
        char                       *d_name;     /* disk base name */
        TAILQ_HEAD(prt, partentry)  d_part;     /* list of partitions on disk */
        int                         d_pid;      /* 0 or pid of fsck proc */
};

TAILQ_HEAD(diskinfo, diskentry) diskh;

static int nrun = 0, ndisks = 0;

static struct diskentry *finddisk(const char *);
static void addpart(const char *, const char *, const char *, void *);
static int startdisk(struct diskentry *, 
    int (*)(const char *, const char *, const char *, void *, pid_t *));
static void printpart(void);

int
checkfstab(int flags, int maxrun, void *(*docheck)(struct fstab *),
    int (*checkit)(const char *, const char *, const char *, void *, pid_t *))
{
        struct fstab *fs;
        struct diskentry *d, *nextdisk;
        struct partentry *p;
        int ret, pid, retcode, passno, sumstatus, status;
        void *auxarg;
        const char *name;
        int error = FSCK_EXIT_OK;

        TAILQ_INIT(&badh);
        TAILQ_INIT(&diskh);

        sumstatus = FSCK_EXIT_OK;

        for (passno = 1; passno <= 2; passno++) {
                if (setfsent() == 0) {
                        warnx("Can't open checklist file: %s", _PATH_FSTAB);
                        return FSCK_EXIT_CHECK_FAILED;
                }
                while ((fs = getfsent()) != 0) {
                        char buf[MAXPATHLEN];
                        const char *fsspec;
                        if ((auxarg = (*docheck)(fs)) == NULL)
                                continue;
                        fsspec = getfsspecname(buf, sizeof(buf), fs->fs_spec);
                        if (fsspec == NULL) {
                                warn("%s", buf);
                                return FSCK_EXIT_CHECK_FAILED;
                        }
                        name = blockcheck(fsspec);
                        if (flags & CHECK_DEBUG)
                                printf("pass %d, name %s\n", passno, name);

                        if ((flags & CHECK_PREEN) == 0 ||
                            (passno == 1 && fs->fs_passno == 1)) {
                                if (name == NULL) {
                                        if (flags & CHECK_PREEN)
                                                return FSCK_EXIT_CHECK_FAILED;
                                        else
                                                continue;
                                }
                                sumstatus = (*checkit)(fs->fs_vfstype,
                                    name, fs->fs_file, auxarg, NULL);

                                if (sumstatus) {
                                        if ((flags & CHECK_NOFIX) == 0)
                                                return sumstatus;
                                        else if (error < sumstatus)
                                                error = sumstatus;
                                }
                        } else if (passno == 2 && fs->fs_passno > 1) {
                                if (name == NULL) {
                                        (void) fprintf(stderr,
                                            "BAD DISK NAME %s\n", fsspec);
                                        sumstatus = FSCK_EXIT_CHECK_FAILED;
                                        continue;
                                }
                                addpart(fs->fs_vfstype, name, fs->fs_file,
                                    auxarg);
                        }
                }
                if ((flags & CHECK_PREEN) == 0)
                        return error;
        }

        if (flags & CHECK_DEBUG)
                printpart();

        if (flags & CHECK_PREEN) {
                if (maxrun == 0)
                        maxrun = ndisks;
                if (maxrun > ndisks)
                        maxrun = ndisks;
                nextdisk = TAILQ_FIRST(&diskh);
                for (passno = 0; passno < maxrun; ++passno) {
                        if ((ret = startdisk(nextdisk, checkit)) != 0) {
                                if ((flags & CHECK_NOFIX) == 0)
                                        return ret;
                                else if (error < ret)
                                        error = ret;
                        }
                        nextdisk = TAILQ_NEXT(nextdisk, d_entries);
                }

                while ((pid = wait(&status)) != -1) {
                        TAILQ_FOREACH(d, &diskh, d_entries)
                                if (d->d_pid == pid)
                                        break;

                        if (d == NULL) {
                                warnx("Unknown pid %d", pid);
                                continue;
                        }


                        if (WIFEXITED(status))
                                retcode = WEXITSTATUS(status);
                        else
                                retcode = 0;

                        p = TAILQ_FIRST(&d->d_part);

                        if (flags & (CHECK_DEBUG|CHECK_VERBOSE))
                                (void) printf("done %s: %s (%s) = 0x%x\n",
                                    p->p_type, p->p_devname, p->p_mntpt,
                                    status);

                        if (WIFSIGNALED(status)) {
                                (void) fprintf(stderr,
                                    "%s: %s (%s): EXITED WITH SIGNAL %d\n",
                                    p->p_type, p->p_devname, p->p_mntpt,
                                    WTERMSIG(status));
                                retcode = FSCK_EXIT_SIGNALLED;
                        }

                        TAILQ_REMOVE(&d->d_part, p, p_entries);

                        if (retcode != 0) {
                                TAILQ_INSERT_TAIL(&badh, p, p_entries);
                                sumstatus |= retcode;
                        } else {
                                free(p->p_type);
                                free(p->p_devname);
                                free(p);
                        }
                        d->d_pid = 0;
                        nrun--;

                        if (TAILQ_FIRST(&d->d_part) == NULL)
                                ndisks--;

                        if (nextdisk == NULL) {
                                if (TAILQ_FIRST(&d->d_part) != NULL) {
                                        if ((ret = startdisk(d, checkit)) != 0)
                                        {
                                                if ((flags & CHECK_NOFIX) == 0)
                                                        return ret;
                                                else if (error < ret)
                                                        error = ret;
                                        }
                                }
                        } else if (nrun < maxrun && nrun < ndisks) {
                                for ( ;; ) {
                                        nextdisk = TAILQ_NEXT(nextdisk,
                                            d_entries);
                                        if (nextdisk == NULL)
                                                nextdisk = TAILQ_FIRST(&diskh);
                                        if (TAILQ_FIRST(&nextdisk->d_part)
                                            != NULL && nextdisk->d_pid == 0)
                                                break;
                                }
                                if ((ret = startdisk(nextdisk, checkit)) != 0)
                                {
                                        if ((flags & CHECK_NOFIX) == 0)
                                                return ret;
                                        else if (error < ret)
                                                error = ret;
                                }
                        }
                }
        }
        if (sumstatus) {
                p = TAILQ_FIRST(&badh);
                if (p == NULL)
                        return sumstatus;

                (void) fprintf(stderr,
                        "THE FOLLOWING FILE SYSTEM%s HAD AN %s\n\t",
                        TAILQ_NEXT(p, p_entries) ? "S" : "",
                        "UNEXPECTED INCONSISTENCY:");

                TAILQ_FOREACH(p, &badh, p_entries)
                        (void) fprintf(stderr,
                            "%s: %s (%s)%s", p->p_type, p->p_devname,
                            p->p_mntpt, TAILQ_NEXT(p, p_entries) ? ", " : "\n");

                return sumstatus;
        }
        (void) endfsent();
        return error;
}


static struct diskentry *
finddisk(const char *name)
{
        const char *p;
        size_t len, dlen;
        struct diskentry *d;
        char buf[MAXPATHLEN];
        struct dkwedge_info dkw;
        int fd;

        if ((fd = opendisk(name, O_RDONLY, buf, sizeof(buf), 0)) != -1) {
                if (ioctl(fd, DIOCGWEDGEINFO, &dkw) != -1)
                        name = dkw.dkw_parent;
                (void)close(fd);
        }

        for (dlen = len = strlen(name), p = name + len - 1; p >= name; --p)
                if (isdigit((unsigned char)*p)) {
                        len = p - name + 1;
                        break;
                }
        if (p < name)
                len = dlen;

        TAILQ_FOREACH(d, &diskh, d_entries)
                if (strncmp(d->d_name, name, len) == 0 && d->d_name[len] == 0)
                        return d;

        d = emalloc(sizeof(*d));
        d->d_name = estrdup(name);
        d->d_name[len] = '\0';
        TAILQ_INIT(&d->d_part);
        d->d_pid = 0;

        TAILQ_INSERT_TAIL(&diskh, d, d_entries);
        ndisks++;

        return d;
}


static void
printpart(void)
{
        struct diskentry *d;
        struct partentry *p;

        TAILQ_FOREACH(d, &diskh, d_entries) {
                (void) printf("disk %s:", d->d_name);
                TAILQ_FOREACH(p, &d->d_part, p_entries)
                        (void) printf(" %s", p->p_devname);
                (void) printf("\n");
        }
}


static void
addpart(const char *type, const char *dev, const char *mntpt, void *auxarg)
{
        struct diskentry *d = finddisk(dev);
        struct partentry *p;

        TAILQ_FOREACH(p, &d->d_part, p_entries)
                if (strcmp(p->p_devname, dev) == 0) {
                        warnx("%s in fstab more than once!", dev);
                        return;
                }

        p = emalloc(sizeof(*p));
        p->p_devname = estrdup(dev);
        p->p_mntpt = estrdup(mntpt);
        p->p_type = estrdup(type);
        p->p_auxarg = auxarg;

        TAILQ_INSERT_TAIL(&d->d_part, p, p_entries);
}


static int
startdisk(struct diskentry *d,
    int (*checkit)(const char *, const char *, const char *, void *, pid_t *))
{
        struct partentry *p = TAILQ_FIRST(&d->d_part);
        int rv;

        while ((rv = (*checkit)(p->p_type, p->p_devname, p->p_mntpt,
            p->p_auxarg, &d->d_pid)) != 0 && nrun > 0)
                sleep(10);

        if (rv == 0)
                nrun++;

        return rv;
}