utils/mountd/mountd.c

   1 /*
   2  * utils/mountd/mountd.c
   3  *
   4  * Authenticate mount requests and retrieve file handle.
   5  *
   6  * Copyright (C) 1995, 1996 Olaf Kirch <okir@monad.swb.de>
   7  */
   8
   9 #include "config.h"
  10
  11 #include <signal.h>
  12 #include <sys/stat.h>
  13 #include <netinet/in.h>
  14 #include <arpa/inet.h>
  15 #include <unistd.h>
  16 #include <stdlib.h>
  17 #include <string.h>
  18 #include <getopt.h>
  19 #include <errno.h>
  20 #include <fcntl.h>
  21 #include <sys/resource.h>
  22 #include "xmalloc.h"
  23 #include "misc.h"
  24 #include "mountd.h"
  25 #include "rpcmisc.h"
  26
  27 extern void     cache_open(void);
  28 extern struct nfs_fh_len *cache_get_filehandle(nfs_export *exp, int len, char *p);
  29 extern void cache_export(nfs_export *exp);
  30
  31 extern void my_svc_run(void);
  32
  33 static void             usage(const char *, int exitcode);
  34 static exports          get_exportlist(void);
  35 static struct nfs_fh_len *get_rootfh(struct svc_req *, dirpath *, int *, int v3);
  36
  37 int new_cache = 0;
  38
  39 static struct option longopts[] =
  40 {
  41         { "foreground", 0, 0, 'F' },
  42         { "descriptors", 1, 0, 'o' },
  43         { "debug", 1, 0, 'd' },
  44         { "help", 0, 0, 'h' },
  45         { "exports-file", 1, 0, 'f' },
  46         { "nfs-version", 1, 0, 'V' },
  47         { "no-nfs-version", 1, 0, 'N' },
  48         { "version", 0, 0, 'v' },
  49         { "port", 1, 0, 'p' },
  50         { "no-tcp", 0, 0, 'n' },
  51         { NULL, 0, 0, 0 }
  52 };
  53
  54 static int nfs_version = -1;
  55
  56 /*
  57  * Signal handler.
  58  */
  59 static void
  60 killer (int sig)
  61 {
  62   if (nfs_version & 0x1)
  63     pmap_unset (MOUNTPROG, MOUNTVERS);
  64   if (nfs_version & (0x1 << 1))
  65     pmap_unset (MOUNTPROG, MOUNTVERS_POSIX);
  66   if (nfs_version & (0x1 << 2))
  67     pmap_unset (MOUNTPROG, MOUNTVERS_NFSV3);
  68   xlog (L_FATAL, "Caught signal %d, un-registering and exiting.", sig);
  69 }
  70
  71 bool_t
  72 mount_null_1_svc(struct svc_req *rqstp, void *argp, void *resp)
  73 {
  74         return 1;
  75 }
  76
  77 bool_t
  78 mount_mnt_1_svc(struct svc_req *rqstp, dirpath *path, fhstatus *res)
  79 {
  80         struct nfs_fh_len *fh;
  81
  82         xlog(D_CALL, "MNT1(%s) called", *path);
  83         if ((fh = get_rootfh(rqstp, path, &res->fhs_status, 0)) != NULL)
  84                 memcpy(&res->fhstatus_u.fhs_fhandle, fh->fh_handle, 32);
  85         return 1;
  86 }
  87
  88 bool_t
  89 mount_dump_1_svc(struct svc_req *rqstp, void *argp, mountlist *res)
  90 {
  91         struct sockaddr_in *addr =
  92                 (struct sockaddr_in *) svc_getcaller(rqstp->rq_xprt);
  93         xlog(L_NOTICE, "dump request from %s",
  94                 inet_ntoa(addr->sin_addr));
  95
  96         *res = mountlist_list();
  97         return 1;
  98 }
  99
 100 bool_t
 101 mount_umnt_1_svc(struct svc_req *rqstp, dirpath *argp, void *resp)
 102 {
 103         struct sockaddr_in *sin
 104                 = (struct sockaddr_in *) svc_getcaller(rqstp->rq_xprt);
 105         nfs_export      *exp;
 106         char            *p = *argp;
 107         char            rpath[MAXPATHLEN+1];
 108
 109         if (*p == '\0')
 110                 p = "/";
 111
 112         if (realpath(p, rpath) != NULL) {
 113                 rpath[sizeof (rpath) - 1] = '\0';
 114                 p = rpath;
 115         }
 116
 117         if (!(exp = auth_authenticate("unmount", sin, p))) {
 118                 return 1;
 119         }
 120         if (new_cache) {
 121                 if (strcmp(inet_ntoa(exp->m_client->m_addrlist[0]), exp->m_client->m_hostname))
 122                         mountlist_del(inet_ntoa(exp->m_client->m_addrlist[0]), exp->m_client->m_hostname);
 123                 mountlist_del(exp->m_client->m_hostname, p);
 124         } else {
 125                 mountlist_del(exp->m_client->m_hostname, p);
 126                 export_reset (exp);
 127         }
 128         return 1;
 129 }
 130
 131 bool_t
 132 mount_umntall_1_svc(struct svc_req *rqstp, void *argp, void *resp)
 133 {
 134         /* Reload /etc/xtab if necessary */
 135         auth_reload();
 136
 137         mountlist_del_all((struct sockaddr_in *) svc_getcaller(rqstp->rq_xprt));
 138         return 1;
 139 }
 140
 141 bool_t
 142 mount_export_1_svc(struct svc_req *rqstp, void *argp, exports *resp)
 143 {
 144         struct sockaddr_in *addr =
 145                 (struct sockaddr_in *) svc_getcaller(rqstp->rq_xprt);
 146         xlog(L_NOTICE, "export request from %s",
 147                 inet_ntoa(addr->sin_addr));
 148         *resp = get_exportlist();
 149         return 1;
 150 }
 151
 152 bool_t
 153 mount_exportall_1_svc(struct svc_req *rqstp, void *argp, exports *resp)
 154 {
 155         struct sockaddr_in *addr =
 156                 (struct sockaddr_in *) svc_getcaller(rqstp->rq_xprt);
 157         xlog(L_NOTICE, "exportall request from %s",
 158                 inet_ntoa(addr->sin_addr));
 159         *resp = get_exportlist();
 160         return 1;
 161 }
 162
 163 /*
 164  * MNTv2 pathconf procedure
 165  *
 166  * The protocol doesn't include a status field, so Sun apparently considers
 167  * it good practice to let anyone snoop on your system, even if it's
 168  * pretty harmless data such as pathconf. We don't.
 169  *
 170  * Besides, many of the pathconf values don't make much sense on NFS volumes.
 171  * FIFOs and tty device files represent devices on the *client*, so there's
 172  * no point in getting the server's buffer sizes etc.
 173  */
 174 bool_t
 175 mount_pathconf_2_svc(struct svc_req *rqstp, dirpath *path, ppathcnf *res)
 176 {
 177         struct sockaddr_in *sin
 178                 = (struct sockaddr_in *) svc_getcaller(rqstp->rq_xprt);
 179         struct stat     stb;
 180         nfs_export      *exp;
 181         char            rpath[MAXPATHLEN+1];
 182         char            *p = *path;
 183
 184         memset(res, 0, sizeof(*res));
 185
 186         if (*p == '\0')
 187                 p = "/";
 188
 189         /* Reload /etc/xtab if necessary */
 190         auth_reload();
 191
 192         /* Resolve symlinks */
 193         if (realpath(p, rpath) != NULL) {
 194                 rpath[sizeof (rpath) - 1] = '\0';
 195                 p = rpath;
 196         }
 197
 198         /* Now authenticate the intruder... */
 199         if (!(exp = auth_authenticate("pathconf", sin, p))) {
 200                 return 1;
 201         } else if (stat(p, &stb) < 0) {
 202                 xlog(L_WARNING, "can't stat exported dir %s: %s",
 203                                 p, strerror(errno));
 204                 export_reset (exp);
 205                 return 1;
 206         }
 207
 208         res->pc_link_max  = pathconf(p, _PC_LINK_MAX);
 209         res->pc_max_canon = pathconf(p, _PC_MAX_CANON);
 210         res->pc_max_input = pathconf(p, _PC_MAX_INPUT);
 211         res->pc_name_max  = pathconf(p, _PC_NAME_MAX);
 212         res->pc_path_max  = pathconf(p, _PC_PATH_MAX);
 213         res->pc_pipe_buf  = pathconf(p, _PC_PIPE_BUF);
 214         res->pc_vdisable  = pathconf(p, _PC_VDISABLE);
 215
 216         /* Can't figure out what to do with pc_mask */
 217         res->pc_mask[0]   = 0;
 218         res->pc_mask[1]   = 0;
 219
 220         export_reset (exp);
 221
 222         return 1;
 223 }
 224
 225 /*
 226  * NFSv3 MOUNT procedure
 227  */
 228 bool_t
 229 mount_mnt_3_svc(struct svc_req *rqstp, dirpath *path, mountres3 *res)
 230 {
 231         static int      flavors[] = { AUTH_NULL, AUTH_UNIX };
 232         struct nfs_fh_len *fh;
 233
 234         xlog(D_CALL, "MNT3(%s) called", *path);
 235         if ((fh = get_rootfh(rqstp, path, (int *) &res->fhs_status, 1)) != NULL) {
 236                 struct mountres3_ok     *ok = &res->mountres3_u.mountinfo;
 237
 238                 ok->fhandle.fhandle3_len = fh->fh_size;
 239                 ok->fhandle.fhandle3_val = fh->fh_handle;
 240                 ok->auth_flavors.auth_flavors_len = 2;
 241                 ok->auth_flavors.auth_flavors_val = flavors;
 242         }
 243         return 1;
 244 }
 245
 246 static struct nfs_fh_len *
 247 get_rootfh(struct svc_req *rqstp, dirpath *path, int *error, int v3)
 248 {
 249         struct sockaddr_in *sin =
 250                 (struct sockaddr_in *) svc_getcaller(rqstp->rq_xprt);
 251         struct stat     stb, estb;
 252         nfs_export      *exp;
 253         char            rpath[MAXPATHLEN+1];
 254         char            *p = *path;
 255
 256         if (*p == '\0')
 257                 p = "/";
 258
 259         /* Reload /var/lib/nfs/etab if necessary */
 260         auth_reload();
 261
 262         /* Resolve symlinks */
 263         if (realpath(p, rpath) != NULL) {
 264                 rpath[sizeof (rpath) - 1] = '\0';
 265                 p = rpath;
 266         }
 267
 268         /* Now authenticate the intruder... */
 269         if (!(exp = auth_authenticate("mount", sin, p))) {
 270                 *error = NFSERR_ACCES;
 271         } else if (stat(p, &stb) < 0) {
 272                 xlog(L_WARNING, "can't stat exported dir %s: %s",
 273                                 p, strerror(errno));
 274                 if (errno == ENOENT)
 275                         *error = NFSERR_NOENT;
 276                 else
 277                         *error = NFSERR_ACCES;
 278         } else if (!S_ISDIR(stb.st_mode) && !S_ISREG(stb.st_mode)) {
 279                 xlog(L_WARNING, "%s is not a directory or regular file", p);
 280                 *error = NFSERR_NOTDIR;
 281         } else if (stat(exp->m_export.e_path, &estb) < 0) {
 282                 xlog(L_WARNING, "can't stat export point %s: %s",
 283                      p, strerror(errno));
 284                 *error = NFSERR_NOENT;
 285         } else if (estb.st_dev != stb.st_dev
 286                    /* && (!new_cache || !(exp->m_export.e_flags & NFSEXP_CROSSMOUNT)) */
 287                 ) {
 288                 xlog(L_WARNING, "request to export directory %s below nearest filesystem %s",
 289                      p, exp->m_export.e_path);
 290                 *error = NFSERR_ACCES;
 291         } else if (exp->m_export.e_mountpoint &&
 292                    !is_mountpoint(exp->m_export.e_mountpoint[0]?
 293                                   exp->m_export.e_mountpoint:
 294                                   exp->m_export.e_path)) {
 295                 xlog(L_WARNING, "request to export an unmounted filesystem: %s",
 296                      p);
 297                 *error = NFSERR_NOENT;
 298         } else if (new_cache) {
 299                 /* This will be a static private nfs_export with just one
 300                  * address.  We feed it to kernel then extract the filehandle,
 301                  *
 302                  */
 303                 struct nfs_fh_len  *fh;
 304
 305                 cache_export(exp);
 306                 fh = cache_get_filehandle(exp, v3?64:32, p);
 307                 if (fh == NULL)
 308                         *error = NFSERR_ACCES;
 309                 else
 310                         *error = NFS_OK;
 311                 return fh;
 312         } else {
 313                 struct nfs_fh_len  *fh;
 314
 315                 if (exp->m_exported<1)
 316                         export_export(exp);
 317                 if (!exp->m_xtabent)
 318                         xtab_append(exp);
 319
 320                 if (v3)
 321                         fh = getfh_size ((struct sockaddr *) sin, p, 64);
 322                 if (!v3 || (fh == NULL && errno == EINVAL)) {
 323                         /* We first try the new nfs syscall. */
 324                         fh = getfh ((struct sockaddr *) sin, p);
 325                         if (fh == NULL && errno == EINVAL)
 326                                 /* Let's try the old one. */
 327                                 fh = getfh_old ((struct sockaddr *) sin,
 328                                                 stb.st_dev, stb.st_ino);
 329                 }
 330                 if (fh != NULL) {
 331                         mountlist_add(exp->m_client->m_hostname, p);
 332                         *error = NFS_OK;
 333                         export_reset (exp);
 334                         return fh;
 335                 }
 336                 xlog(L_WARNING, "getfh failed: %s", strerror(errno));
 337                 *error = NFSERR_ACCES;
 338         }
 339         export_reset (exp);
 340         return NULL;
 341 }
 342
 343 static exports
 344 get_exportlist(void)
 345 {
 346         static exports          elist = NULL;
 347         struct exportnode       *e, *ne;
 348         struct groupnode        *g, *ng, *c, **cp;
 349         nfs_export              *exp;
 350         int                     i;
 351
 352         if (!auth_reload() && elist)
 353                 return elist;
 354
 355         for (e = elist; e != NULL; e = ne) {
 356                 ne = e->ex_next;
 357                 for (g = e->ex_groups; g != NULL; g = ng) {
 358                         ng = g->gr_next;
 359                         xfree(g->gr_name);
 360                         xfree(g);
 361                 }
 362                 xfree(e->ex_dir);
 363                 xfree(e);
 364         }
 365         elist = NULL;
 366
 367         for (i = 0; i < MCL_MAXTYPES; i++) {
 368                 for (exp = exportlist[i]; exp; exp = exp->m_next) {
 369                         for (e = elist; e != NULL; e = e->ex_next) {
 370                                 if (!strcmp(exp->m_export.m_path, e->ex_dir))
 371                                         break;
 372                         }
 373                         if (!e) {
 374                                 e = (struct exportnode *) xmalloc(sizeof(*e));
 375                                 e->ex_next = elist;
 376                                 e->ex_groups = NULL;
 377                                 e->ex_dir = xstrdup(exp->m_export.m_path);
 378                                 elist = e;
 379                         }
 380
 381                         /* We need to check if we should remove
 382                            previous ones. */
 383                         if (i == MCL_ANONYMOUS && e->ex_groups) {
 384                                 for (g = e->ex_groups; g; g = ng) {
 385                                         ng = g->gr_next;
 386                                         xfree(g->gr_name);
 387                                         xfree(g);
 388                                 }
 389                                 e->ex_groups = NULL;
 390                                 continue;
 391                         }
 392
 393                         if (i != MCL_FQDN && e->ex_groups) {
 394                           struct hostent        *hp;
 395
 396                           cp = &e->ex_groups;
 397                           while ((c = *cp) != NULL) {
 398                             if (client_gettype (c->gr_name) == MCL_FQDN
 399                                 && (hp = gethostbyname(c->gr_name))) {
 400                               hp = hostent_dup (hp);
 401                               if (client_check(exp->m_client, hp)) {
 402                                 *cp = c->gr_next;
 403                                 xfree(c->gr_name);
 404                                 xfree(c);
 405                                 xfree (hp);
 406                                 if ((c = *cp) == NULL)
 407                                   break;
 408                               }
 409                               else
 410                                 xfree (hp);
 411                             }
 412                             cp = &(c->gr_next);
 413                           }
 414                         }
 415
 416                         if (exp->m_export.e_hostname [0] != '\0') {
 417                                 for (g = e->ex_groups; g; g = g->gr_next)
 418                                         if (strcmp (exp->m_export.e_hostname,
 419                                                     g->gr_name) == 0)
 420                                                 break;
 421                                 if (g)
 422                                         continue;
 423                                 g = (struct groupnode *) xmalloc(sizeof(*g));
 424                                 g->gr_name = xstrdup(exp->m_export.e_hostname);
 425                                 g->gr_next = e->ex_groups;
 426                                 e->ex_groups = g;
 427                         }
 428                 }
 429         }
 430
 431         return elist;
 432 }
 433
 434 int
 435 main(int argc, char **argv)
 436 {
 437         char    *export_file = _PATH_EXPORTS;
 438         int     foreground = 0;
 439         int     port = 0;
 440         int     descriptors = 0;
 441         int     c;
 442         struct sigaction sa;
 443         struct rlimit rlim;
 444
 445         /* Parse the command line options and arguments. */
 446         opterr = 0;
 447         while ((c = getopt_long(argc, argv, "o:n:Fd:f:p:P:hN:V:v", longopts, NULL)) != EOF)
 448                 switch (c) {
 449                 case 'o':
 450                         descriptors = atoi(optarg);
 451                         if (descriptors <= 0) {
 452                                 fprintf(stderr, "%s: bad descriptors: %s\n",
 453                                         argv [0], optarg);
 454                                 usage(argv [0], 1);
 455                         }
 456                         break;
 457                 case 'F':
 458                         foreground = 1;
 459                         break;
 460                 case 'd':
 461                         xlog_sconfig(optarg, 1);
 462                         break;
 463                 case 'f':
 464                         export_file = optarg;
 465                         break;
 466                 case 'h':
 467                         usage(argv [0], 0);
 468                         break;
 469                 case 'P':       /* XXX for nfs-server compatibility */
 470                 case 'p':
 471                         port = atoi(optarg);
 472                         if (port <= 0 || port > 65535) {
 473                                 fprintf(stderr, "%s: bad port number: %s\n",
 474                                         argv [0], optarg);
 475                                 usage(argv [0], 1);
 476                         }
 477                         break;
 478                 case 'N':
 479                         nfs_version &= ~(1 << (atoi (optarg) - 1));
 480                         break;
 481                 case 'n':
 482                         _rpcfdtype = SOCK_DGRAM;
 483                         break;
 484                 case 'V':
 485                         nfs_version |= 1 << (atoi (optarg) - 1);
 486                         break;
 487                 case 'v':
 488                         printf("kmountd %s\n", VERSION);
 489                         exit(0);
 490                 case 0:
 491                         break;
 492                 case '?':
 493                 default:
 494                         usage(argv [0], 1);
 495                 }
 496
 497         /* No more arguments allowed. */
 498         if (optind != argc || !(nfs_version & 0x7))
 499                 usage(argv [0], 1);
 500
 501         if (chdir(NFS_STATEDIR)) {
 502                 fprintf(stderr, "%s: chdir(%s) failed: %s\n",
 503                         argv [0], NFS_STATEDIR, strerror(errno));
 504                 exit(1);
 505         }
 506
 507         if (getrlimit (RLIMIT_NOFILE, &rlim) != 0)
 508                 fprintf(stderr, "%s: getrlimit (RLIMIT_NOFILE) failed: %s\n",
 509                                 argv [0], strerror(errno));
 510         else {
 511                 /* glibc sunrpc code dies if getdtablesize > FD_SETSIZE */
 512                 if (descriptors == 0 && rlim.rlim_cur > FD_SETSIZE)
 513                         descriptors = FD_SETSIZE;
 514                 if (descriptors) {
 515
 516                         rlim.rlim_cur = descriptors;
 517                         if (setrlimit (RLIMIT_NOFILE, &rlim) != 0) {
 518                                 fprintf(stderr, "%s: setrlimit (RLIMIT_NOFILE) failed: %s\n",
 519                                         argv [0], strerror(errno));
 520                                 exit(1);
 521                         }
 522                 }
 523         }
 524         /* Initialize logging. */
 525 /*      xlog_open("mountd"); */
 526
 527         sa.sa_handler = SIG_IGN;
 528         sa.sa_flags = 0;
 529         sigemptyset(&sa.sa_mask);
 530         sigaction(SIGHUP, &sa, NULL);
 531         sigaction(SIGINT, &sa, NULL);
 532         sigaction(SIGTERM, &sa, NULL);
 533         sigaction(SIGPIPE, &sa, NULL);
 534         /* WARNING: the following works on Linux and SysV, but not BSD! */
 535         sigaction(SIGCHLD, &sa, NULL);
 536
 537         /* Daemons should close all extra filehandles ... *before* RPC init. */
 538         if (!foreground) {
 539                 int fd = sysconf (_SC_OPEN_MAX);
 540                 while (--fd > 2)
 541                         (void) close(fd);
 542         }
 543
 544         new_cache = check_new_cache();
 545         if (new_cache)
 546                 cache_open();
 547
 548         if (nfs_version & 0x1)
 549                 rpc_init("mountd", MOUNTPROG, MOUNTVERS,
 550                          mount_dispatch, port);
 551         if (nfs_version & (0x1 << 1))
 552                 rpc_init("mountd", MOUNTPROG, MOUNTVERS_POSIX,
 553                          mount_dispatch, port);
 554         if (nfs_version & (0x1 << 2))
 555                 rpc_init("mountd", MOUNTPROG, MOUNTVERS_NFSV3,
 556                          mount_dispatch, port);
 557
 558         sa.sa_handler = killer;
 559         sigaction(SIGHUP, &sa, NULL);
 560         sigaction(SIGINT, &sa, NULL);
 561         sigaction(SIGTERM, &sa, NULL);
 562
 563         auth_init(export_file);
 564
 565         if (!foreground) {
 566                 /* We first fork off a child. */
 567                 if ((c = fork()) > 0)
 568                         exit(0);
 569                 if (c < 0) {
 570                         xlog(L_FATAL, "mountd: cannot fork: %s\n",
 571                                                 strerror(errno));
 572                 }
 573                 /* Now we remove ourselves from the foreground.
 574                    Redirect stdin/stdout/stderr first. */
 575                 {
 576                         int fd = open("/dev/null", O_RDWR);
 577                         (void) dup2(fd, 0);
 578                         (void) dup2(fd, 1);
 579                         (void) dup2(fd, 2);
 580                         if (fd > 2) (void) close(fd);
 581                 }
 582                 setsid();
 583                 xlog_background();
 584         }
 585
 586         my_svc_run();
 587
 588         xlog(L_ERROR, "Ack! Gack! svc_run returned!\n");
 589         exit(1);
 590 }
 591
 592 static void
 593 usage(const char *prog, int n)
 594 {
 595         fprintf(stderr,
 596 "Usage: %s [-F|--foreground] [-h|--help] [-v|--version] [-d kind|--debug kind]\n"
 597 "       [-o num|--descriptors num] [-f exports-file|--exports-file=file]\n"
 598 "       [-p|--port port] [-V version|--nfs-version version]\n"
 599 "       [-N version|--no-nfs-version version] [-n|--no-tcp]\n", prog);
 600         exit(n);
 601 }