projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
only do name lookup for nfs filesystems
[unix-history] / usr / src / sbin / umount / umount.c
diff --git a/usr/src/sbin/umount/umount.c b/usr/src/sbin/umount/umount.c
index 2849101..25b7eb2 100644 (file)
--- a/usr/src/sbin/umount/umount.c
+++ b/usr/src/sbin/umount/umount.c
@@ -1,113 +1,400 @@
-static char *sccsid = "@(#)umount.c    4.7 (Berkeley) %G%";
+/*-
+ * Copyright (c) 1980, 1989, 1993
+ *     The Regents of the University of California.  All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */
 
 
-#include <stdio.h>
-#include <fstab.h>
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1980, 1989, 1993\n\
+       The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
 
 
-/*
- * umount
- */
+#ifndef lint
+static char sccsid[] = "@(#)umount.c   8.6 (Berkeley) %G%";
+#endif /* not lint */
+
+#include <sys/param.h>
+#include <sys/stat.h>
+#include <sys/mount.h>
+#include <sys/time.h>
+#include <sys/socket.h>
+#include <sys/socketvar.h>
 
 
-#define        NMOUNT  16
-#define        NAMSIZ  32
+#include <netdb.h>
+#include <rpc/rpc.h>
+#include <rpc/pmap_clnt.h>
+#include <rpc/pmap_prot.h>
+#include <nfs/rpcv2.h>
 
 
-struct mtab {
-       char    file[NAMSIZ];
-       char    spec[NAMSIZ];
-} mtab[NMOUNT];
+#include <err.h>
+#include <fstab.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+
+typedef enum { MNTON, MNTFROM } mntwhat;
 
 
-char   *rindex();
-int    vflag, all, errs;
+int    fake, fflag, vflag, *typelist;
+char   *nfshost;
 
 
+int     fsnametotype __P((char *));
+char   *getmntname __P((char *, mntwhat, int *));
+void    maketypelist __P((char *));
+int     selected __P((int));
+int     namematch __P((struct hostent *));
+int     umountall __P((void));
+int     umountfs __P((char *));
+void    usage __P((void));
+int     xdr_dir __P((XDR *, char *));
+
+int
 main(argc, argv)
        int argc;
 main(argc, argv)
        int argc;
-       char **argv;
+       char *argv[];
 {
 {
-       register struct mtab *mp;
-       register char *p1, *p2;
-       int mf;
+       int all, ch, errs;
 
 
-       argc--, argv++;
+       /* Start disks transferring immediately. */
        sync();
        sync();
-       mf = open("/etc/mtab", 0);
-       read(mf, (char *)mtab, sizeof (mtab));
-again:
-       if (argc > 0 && !strcmp(*argv, "-v")) {
-               vflag++;
-               argc--, argv++;
-               goto again;
-       }
-       if (argc > 0 && !strcmp(*argv, "-a")) {
-               all++;
-               argc--, argv++;
-               goto again;
-       }
-       if (argc == 0 && !all) {
-               fprintf(stderr, "Usage: umount [ -a ] [ -v ] [ dev ... ]\n");
-               exit(1);
-       }
+
+       all = 0;
+       while ((ch = getopt(argc, argv, "aFfh:t:v")) != EOF)
+               switch (ch) {
+               case 'a':
+                       all = 1;
+                       break;
+               case 'F':
+                       fake = 1;
+                       break;
+               case 'f':
+                       fflag = MNT_FORCE;
+                       break;
+               case 'h':       /* -h implies -a. */
+                       all = 1;
+                       nfshost = optarg;
+                       break;
+               case 't':
+                       maketypelist(optarg);
+                       break;
+               case 'v':
+                       vflag = 1;
+                       break;
+               default:
+                       usage();
+                       /* NOTREACHED */
+               }
+       argc -= optind;
+       argv += optind;
+
+       if (argc == 0 && !all || argc != 0 && all)
+               usage();
+
+       /* -h implies "-t nfs" if no -t flag. */
+       if ((nfshost != NULL) && (typelist == NULL))
+               maketypelist("nfs");
+               
        if (all) {
                if (setfsent() == 0)
        if (all) {
                if (setfsent() == 0)
-                       perror(FSTAB), exit(1);
-               umountall();
-               exit(0);
-       }
-       while (argc > 0) {
-               if (umountfs(*argv++) == 0)
-                       errs++;
-               argc--;
-       }
+                       err(1, "%s", _PATH_FSTAB);
+               errs = umountall();
+       } else
+               for (errs = 0; *argv != NULL; ++argv)
+                       if (umountfs(*argv) != 0)
+                               errs = 1;
        exit(errs);
 }
 
        exit(errs);
 }
 
+int
 umountall()
 {
 umountall()
 {
-       struct fstab fs, *fsp;
-
-       if ((fsp = getfsent()) == 0)
-               return;
-       fs = *fsp;      /* save info locally; it is static from getfsent() */
-       umountall();
-       if (strcmp(fs.fs_file, "/") == 0)
-               return;
-       if (strcmp(fs.fs_type, FSTAB_RW) && strcmp(fs.fs_type, FSTAB_RO))
-               return;
-       if (umountfs(fs.fs_spec) < 0) {
-               perror(fs.fs_spec);
-               return;
+       struct fstab *fs;
+       int rval, type;
+       char *cp;
+
+       while ((fs = getfsent()) != NULL) {
+               /* Ignore the root. */
+               if (strcmp(fs->fs_file, "/") == 0)
+                       continue;
+               /*
+                * !!!
+                * Historic practice: ignore unknown FSTAB_* fields.
+                */
+               if (strcmp(fs->fs_type, FSTAB_RW) &&
+                   strcmp(fs->fs_type, FSTAB_RO) &&
+                   strcmp(fs->fs_type, FSTAB_RQ))
+                       continue;
+               /* If an unknown file system type, complain. */
+               if ((type = fsnametotype(fs->fs_vfstype)) == MOUNT_NONE) {
+                       warnx("%s: unknown mount type", fs->fs_vfstype);
+                       continue;
+               }
+               if (!selected(type))
+                       continue;
+
+               /* 
+                * We want to unmount the file systems in the reverse order
+                * that they were mounted.  So, we save off the file name
+                * in some allocated memory, and then call recursively.
+                */
+               if ((cp = malloc((size_t)strlen(fs->fs_file) + 1)) == NULL)
+                       err(1, NULL);
+               (void)strcpy(cp, fs->fs_file);
+               rval = umountall();
+               return (umountfs(cp) || rval);
        }
        }
+       return (0);
 }
 
 }
 
-struct mtab zeromtab;
-
+int
 umountfs(name)
        char *name;
 {
 umountfs(name)
        char *name;
 {
-       register char *p1, *p2;
-       register struct mtab *mp;
-       int mf;
+       enum clnt_stat clnt_stat;
+       struct hostent *hp;
+       struct sockaddr_in saddr;
+       struct stat sb;
+       struct timeval pertry, try;
+       CLIENT *clp;
+       int so, type;
+       char *delimp, *hostp, *mntpt, rname[MAXPATHLEN];
 
 
-       if (umount(name) < 0) {
-               perror(name);
-               return (0);
+       if (realpath(name, rname) == NULL) {
+               warn("%s", rname);
+               return (1);
+       }
+
+       name = rname;
+
+       if (stat(name, &sb) < 0) {
+               if (((mntpt = getmntname(name, MNTFROM, &type)) == NULL) &&
+                   ((mntpt = getmntname(name, MNTON, &type)) == NULL)) {
+                       warnx("%s: not currently mounted", name);
+                       return (1);
+               }
+       } else if (S_ISBLK(sb.st_mode)) {
+               if ((mntpt = getmntname(name, MNTON, &type)) == NULL) {
+                       warnx("%s: not currently mounted", name);
+                       return (1);
+               }
+       } else if (S_ISDIR(sb.st_mode)) {
+               mntpt = name;
+               if ((name = getmntname(mntpt, MNTFROM, &type)) == NULL) {
+                       warnx("%s: not currently mounted", mntpt);
+                       return (1);
+               }
+       } else {
+               warnx("%s: not a directory or special device", name);
+               return (1);
+       }
+
+       if (!selected(type))
+               return (1);
+
+       hp = NULL;
+       if (type == MOUNT_NFS) {
+               if ((delimp = strchr(name, '@')) != NULL) {
+                       hostp = delimp + 1;
+                       *delimp = '\0';
+                       hp = gethostbyname(hostp);
+                       *delimp = '@';
+               } else if ((delimp = strchr(name, ':')) != NULL) {
+                       *delimp = '\0';
+                       hostp = name;
+                       hp = gethostbyname(hostp);
+                       name = delimp + 1;
+                       *delimp = ':';
+               }
        }
        }
+
+       if (!namematch(hp))
+               return (1);
+
        if (vflag)
        if (vflag)
-               fprintf(stderr, "%s: Unmounted\n", name);
-       while ((p1 = rindex(name, '/')) && p1[1] == 0)
-               *p1 = 0;
-       if (p1)
-               name = p1 + 1;
-       for (mp = mtab; mp < &mtab[NMOUNT]; mp++) {
-               if (strncmp(mp->spec, name, sizeof (mp->spec)))
-                       continue;
-               *mp = zeromtab;
-               for (mp = &mtab[NMOUNT]; mp >= mtab; mp--)
-                       if (mp->file[0])
-                               break;
-               mp++;
-               mf = creat("/etc/mtab", 0644);
-               write(mf, (char *)mtab, (mp-mtab) * sizeof (struct mtab));
+               (void)printf("%s: unmount from %s\n", name, mntpt);
+       if (fake)
+               return (0);
+
+       if (unmount(mntpt, fflag) < 0) {
+               warn("%s", mntpt);
                return (1);
        }
                return (1);
        }
-       fprintf(stderr, "%s: Not mounted\n", name);
+
+       if ((hp != NULL) && !(fflag & MNT_FORCE)) {
+               *delimp = '\0';
+               memset(&saddr, 0, sizeof(saddr));
+               saddr.sin_family = AF_INET;
+               saddr.sin_port = 0;
+               memmove(&saddr.sin_addr, hp->h_addr, hp->h_length);
+               pertry.tv_sec = 3;
+               pertry.tv_usec = 0;
+               so = RPC_ANYSOCK;
+               if ((clp = clntudp_create(&saddr,
+                   RPCPROG_MNT, RPCMNT_VER1, pertry, &so)) == NULL) {
+                       clnt_pcreateerror("Cannot MNT PRC");
+                       return (1);
+               }
+               clp->cl_auth = authunix_create_default();
+               try.tv_sec = 20;
+               try.tv_usec = 0;
+               clnt_stat = clnt_call(clp,
+                   RPCMNT_UMOUNT, xdr_dir, name, xdr_void, (caddr_t)0, try);
+               if (clnt_stat != RPC_SUCCESS) {
+                       clnt_perror(clp, "Bad MNT RPC");
+                       return (1);
+               }
+               auth_destroy(clp->cl_auth);
+               clnt_destroy(clp);
+       }
        return (0);
 }
        return (0);
 }
+
+char *
+getmntname(name, what, type)
+       char *name;
+       mntwhat what;
+       int *type;
+{
+       struct statfs *mntbuf;
+       int i, mntsize;
+
+       if ((mntsize = getmntinfo(&mntbuf, MNT_NOWAIT)) == 0) {
+               warn("getmntinfo");
+               return (NULL);
+       }
+       for (i = 0; i < mntsize; i++) {
+               if ((what == MNTON) && !strcmp(mntbuf[i].f_mntfromname, name)) {
+                       if (type)
+                               *type = mntbuf[i].f_type;
+                       return (mntbuf[i].f_mntonname);
+               }
+               if ((what == MNTFROM) && !strcmp(mntbuf[i].f_mntonname, name)) {
+                       if (type)
+                               *type = mntbuf[i].f_type;
+                       return (mntbuf[i].f_mntfromname);
+               }
+       }
+       return (NULL);
+}
+
+static enum { IN_LIST, NOT_IN_LIST } which;
+
+int
+selected(type)
+       int type;
+{
+       int *av;
+
+       /* If no type specified, it's always selected. */
+       if (typelist == NULL)
+               return (1);
+       for (av = typelist; *av != NULL; ++av)
+               if (type == *typelist)
+                       return (which == IN_LIST ? 1 : 0);
+       return (which == IN_LIST ? 0 : 1);
+}
+
+void
+maketypelist(fslist)
+       char *fslist;
+{
+       int *av, i;
+       char *nextcp;
+
+       if ((fslist == NULL) || (fslist[0] == '\0'))
+               errx(1, "empty type list");
+
+       /*
+        * XXX
+        * Note: the syntax is "noxxx,yyy" for no xxx's and
+        * no yyy's, not the more intuitive "noyyy,noyyy".
+        */
+       if (fslist[0] == 'n' && fslist[1] == 'o') {
+               fslist += 2;
+               which = NOT_IN_LIST;
+       } else
+               which = IN_LIST;
+
+       /* Count the number of types. */
+       for (i = 0, nextcp = fslist; *nextcp != NULL; ++nextcp)
+               if (*nextcp == ',')
+                       i++;
+
+       /* Build an array of that many types. */
+       if ((av = typelist = malloc((i + 2) * sizeof(int))) == NULL)
+               err(1, NULL);
+       for (i = 0; fslist != NULL; fslist = nextcp, ++i) {
+               if ((nextcp = strchr(fslist, ',')) != NULL)
+                       *nextcp++ = '\0';
+               av[i] = fsnametotype(fslist);
+               if (av[i] == MOUNT_NONE)
+                       errx(1, "%s: unknown mount type", fslist);
+       }
+       /* Terminate the array. */
+       av[i++] = MOUNT_NONE;
+}
+
+int
+fsnametotype(name)
+       char *name;
+{
+       static char const *namelist[] = INITMOUNTNAMES;
+       char const **cp;
+
+       for (cp = namelist; *cp; ++cp)
+               if (strcmp(name, *cp) == 0)
+                       return (cp - namelist);
+       return (MOUNT_NONE);
+}
+
+int
+namematch(hp)
+       struct hostent *hp;
+{
+       char *cp, **np;
+
+       if ((hp == NULL) || (nfshost == NULL))
+               return (1);
+
+       if (strcasecmp(nfshost, hp->h_name) == 0)
+               return (1);
+
+       if ((cp = strchr(hp->h_name, '.')) != NULL) {
+               *cp = '\0';
+               if (strcasecmp(nfshost, hp->h_name) == 0)
+                       return (1);
+       }
+       for (np = hp->h_aliases; *np; np++) {
+               if (strcasecmp(nfshost, *np) == 0)
+                       return (1);
+               if ((cp = strchr(*np, '.')) != NULL) {
+                       *cp = '\0';
+                       if (strcasecmp(nfshost, *np) == 0)
+                               return (1);
+               }
+       }
+       return (0);
+}
+
+/*
+ * xdr routines for mount rpc's
+ */
+int
+xdr_dir(xdrsp, dirp)
+       XDR *xdrsp;
+       char *dirp;
+{
+       return (xdr_string(xdrsp, &dirp, RPCMNT_PATHLEN));
+}
+
+void
+usage()
+{
+       (void)fprintf(stderr,
+           "usage: %s\n       %s\n",
+           "umount [-fv] [-t fstypelist] special | node",
+           "umount -a[fv] [-h host] [-t fstypelist]");
+       exit(1);
+}
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.