utils/gssd/gssd_proc.c

   1 /*
   2   gssd_proc.c
   3
   4   Copyright (c) 2000-2004 The Regents of the University of Michigan.
   5   All rights reserved.
   6
   7   Copyright (c) 2000 Dug Song <dugsong@UMICH.EDU>.
   8   Copyright (c) 2001 Andy Adamson <andros@UMICH.EDU>.
   9   Copyright (c) 2002 Marius Aamodt Eriksen <marius@UMICH.EDU>.
  10   Copyright (c) 2002 Bruce Fields <bfields@UMICH.EDU>
  11   Copyright (c) 2004 Kevin Coffman <kwc@umich.edu>
  12   All rights reserved, all wrongs reversed.
  13
  14   Redistribution and use in source and binary forms, with or without
  15   modification, are permitted provided that the following conditions
  16   are met:
  17
  18   1. Redistributions of source code must retain the above copyright
  19      notice, this list of conditions and the following disclaimer.
  20   2. Redistributions in binary form must reproduce the above copyright
  21      notice, this list of conditions and the following disclaimer in the
  22      documentation and/or other materials provided with the distribution.
  23   3. Neither the name of the University nor the names of its
  24      contributors may be used to endorse or promote products derived
  25      from this software without specific prior written permission.
  26
  27   THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
  28   WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  29   MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  30   DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  31   FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  32   CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  33   SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  34   BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
  35   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
  36   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  37   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  38
  39 */
  40
  41 #ifdef HAVE_CONFIG_H
  42 #include <config.h>
  43 #endif  /* HAVE_CONFIG_H */
  44
  45 #ifndef _GNU_SOURCE
  46 #define _GNU_SOURCE
  47 #endif
  48
  49 #include <sys/param.h>
  50 #include <rpc/rpc.h>
  51 #include <sys/stat.h>
  52 #include <sys/socket.h>
  53 #include <arpa/inet.h>
  54 #include <sys/fsuid.h>
  55
  56 #include <stdio.h>
  57 #include <stdlib.h>
  58 #include <pwd.h>
  59 #include <grp.h>
  60 #include <string.h>
  61 #include <dirent.h>
  62 #include <poll.h>
  63 #include <fcntl.h>
  64 #include <signal.h>
  65 #include <unistd.h>
  66 #include <errno.h>
  67 #include <gssapi/gssapi.h>
  68 #include <netdb.h>
  69
  70 #include "gssd.h"
  71 #include "err_util.h"
  72 #include "gss_util.h"
  73 #include "krb5_util.h"
  74 #include "context.h"
  75 #include "nfsrpc.h"
  76 #include "nfslib.h"
  77
  78 /*
  79  * pollarray:
  80  *      array of struct pollfd suitable to pass to poll. initialized to
  81  *      zero - a zero struct is ignored by poll() because the events mask is 0.
  82  *
  83  * clnt_list:
  84  *      linked list of struct clnt_info which associates a clntXXX directory
  85  *      with an index into pollarray[], and other basic data about that client.
  86  *
  87  * Directory structure: created by the kernel
  88  *      {rpc_pipefs}/{dir}/clntXX         : one per rpc_clnt struct in the kernel
  89  *      {rpc_pipefs}/{dir}/clntXX/krb5    : read uid for which kernel wants
  90  *                                          a context, write the resulting context
  91  *      {rpc_pipefs}/{dir}/clntXX/info    : stores info such as server name
  92  *      {rpc_pipefs}/{dir}/clntXX/gssd    : pipe for all gss mechanisms using
  93  *                                          a text-based string of parameters
  94  *
  95  * Algorithm:
  96  *      Poll all {rpc_pipefs}/{dir}/clntXX/YYYY files.  When data is ready,
  97  *      read and process; performs rpcsec_gss context initialization protocol to
  98  *      get a cred for that user.  Writes result to corresponding krb5 file
  99  *      in a form the kernel code will understand.
 100  *      In addition, we make sure we are notified whenever anything is
 101  *      created or destroyed in {rpc_pipefs} or in any of the clntXX directories,
 102  *      and rescan the whole {rpc_pipefs} when this happens.
 103  */
 104
 105 struct pollfd * pollarray;
 106
 107 int pollsize;  /* the size of pollaray (in pollfd's) */
 108
 109 /*
 110  * convert a presentation address string to a sockaddr_storage struct. Returns
 111  * true on success or false on failure.
 112  *
 113  * Note that we do not populate the sin6_scope_id field here for IPv6 addrs.
 114  * gssd nececessarily relies on hostname resolution and DNS AAAA records
 115  * do not generally contain scope-id's. This means that GSSAPI auth really
 116  * can't work with IPv6 link-local addresses.
 117  *
 118  * We *could* consider changing this if we did something like adopt the
 119  * Microsoft "standard" of using the ipv6-literal.net domainname, but it's
 120  * not really feasible at present.
 121  */
 122 static int
 123 addrstr_to_sockaddr(struct sockaddr *sa, const char *node, const char *port)
 124 {
 125         int rc;
 126         struct addrinfo *res;
 127         struct addrinfo hints = { .ai_flags = AI_NUMERICHOST | AI_NUMERICSERV };
 128
 129 #ifndef IPV6_SUPPORTED
 130         hints.ai_family = AF_INET;
 131 #endif /* IPV6_SUPPORTED */
 132
 133         rc = getaddrinfo(node, port, &hints, &res);
 134         if (rc) {
 135                 printerr(0, "ERROR: unable to convert %s|%s to sockaddr: %s\n",
 136                          node, port, rc == EAI_SYSTEM ? strerror(errno) :
 137                                                 gai_strerror(rc));
 138                 return 0;
 139         }
 140
 141 #ifdef IPV6_SUPPORTED
 142         /*
 143          * getnameinfo ignores the scopeid. If the address turns out to have
 144          * a non-zero scopeid, we can't use it -- the resolved host might be
 145          * completely different from the one intended.
 146          */
 147         if (res->ai_addr->sa_family == AF_INET6) {
 148                 struct sockaddr_in6 *sin6 = (struct sockaddr_in6 *)res->ai_addr;
 149                 if (sin6->sin6_scope_id) {
 150                         printerr(0, "ERROR: address %s has non-zero "
 151                                     "sin6_scope_id!\n", node);
 152                         freeaddrinfo(res);
 153                         return 0;
 154                 }
 155         }
 156 #endif /* IPV6_SUPPORTED */
 157
 158         memcpy(sa, res->ai_addr, res->ai_addrlen);
 159         freeaddrinfo(res);
 160         return 1;
 161 }
 162
 163 /*
 164  * convert a sockaddr to a hostname
 165  */
 166 static char *
 167 sockaddr_to_hostname(const struct sockaddr *sa, const char *addr)
 168 {
 169         socklen_t               addrlen;
 170         int                     err;
 171         char                    *hostname;
 172         char                    hbuf[NI_MAXHOST];
 173
 174         switch (sa->sa_family) {
 175         case AF_INET:
 176                 addrlen = sizeof(struct sockaddr_in);
 177                 break;
 178 #ifdef IPV6_SUPPORTED
 179         case AF_INET6:
 180                 addrlen = sizeof(struct sockaddr_in6);
 181                 break;
 182 #endif /* IPV6_SUPPORTED */
 183         default:
 184                 printerr(0, "ERROR: unrecognized addr family %d\n",
 185                          sa->sa_family);
 186                 return NULL;
 187         }
 188
 189         err = getnameinfo(sa, addrlen, hbuf, sizeof(hbuf), NULL, 0,
 190                           NI_NAMEREQD);
 191         if (err) {
 192                 printerr(0, "ERROR: unable to resolve %s to hostname: %s\n",
 193                          addr, err == EAI_SYSTEM ? strerror(err) :
 194                                                    gai_strerror(err));
 195                 return NULL;
 196         }
 197
 198         hostname = strdup(hbuf);
 199
 200         return hostname;
 201 }
 202
 203 /* XXX buffer problems: */
 204 static int
 205 read_service_info(char *info_file_name, char **servicename, char **servername,
 206                   int *prog, int *vers, char **protocol,
 207                   struct sockaddr *addr) {
 208 #define INFOBUFLEN 256
 209         char            buf[INFOBUFLEN + 1];
 210         static char     dummy[128];
 211         int             nbytes;
 212         static char     service[128];
 213         static char     address[128];
 214         char            program[16];
 215         char            version[16];
 216         char            protoname[16];
 217         char            port[128];
 218         char            *p;
 219         int             fd = -1;
 220         int             numfields;
 221
 222         *servicename = *servername = *protocol = NULL;
 223
 224         if ((fd = open(info_file_name, O_RDONLY)) == -1) {
 225                 printerr(0, "ERROR: can't open %s: %s\n", info_file_name,
 226                          strerror(errno));
 227                 goto fail;
 228         }
 229         if ((nbytes = read(fd, buf, INFOBUFLEN)) == -1)
 230                 goto fail;
 231         close(fd);
 232         buf[nbytes] = '\0';
 233
 234         numfields = sscanf(buf,"RPC server: %127s\n"
 235                    "service: %127s %15s version %15s\n"
 236                    "address: %127s\n"
 237                    "protocol: %15s\n",
 238                    dummy,
 239                    service, program, version,
 240                    address,
 241                    protoname);
 242
 243         if (numfields == 5) {
 244                 strcpy(protoname, "tcp");
 245         } else if (numfields != 6) {
 246                 goto fail;
 247         }
 248
 249         port[0] = '\0';
 250         if ((p = strstr(buf, "port")) != NULL)
 251                 sscanf(p, "port: %127s\n", port);
 252
 253         /* check service, program, and version */
 254         if (memcmp(service, "nfs", 3) != 0)
 255                 return -1;
 256         *prog = atoi(program + 1); /* skip open paren */
 257         *vers = atoi(version);
 258
 259         if (strlen(service) == 3 ) {
 260                 if ((*prog != 100003) || ((*vers != 2) && (*vers != 3) &&
 261                     (*vers != 4)))
 262                         goto fail;
 263         } else if (memcmp(service, "nfs4_cb", 7) == 0) {
 264                 if (*vers != 1)
 265                         goto fail;
 266         }
 267
 268         if (!addrstr_to_sockaddr(addr, address, port))
 269                 goto fail;
 270
 271         *servername = sockaddr_to_hostname(addr, address);
 272         if (*servername == NULL)
 273                 goto fail;
 274
 275         nbytes = snprintf(buf, INFOBUFLEN, "%s@%s", service, *servername);
 276         if (nbytes > INFOBUFLEN)
 277                 goto fail;
 278
 279         if (!(*servicename = calloc(strlen(buf) + 1, 1)))
 280                 goto fail;
 281         memcpy(*servicename, buf, strlen(buf));
 282
 283         if (!(*protocol = strdup(protoname)))
 284                 goto fail;
 285         return 0;
 286 fail:
 287         printerr(0, "ERROR: failed to read service info\n");
 288         if (fd != -1) close(fd);
 289         free(*servername);
 290         free(*servicename);
 291         free(*protocol);
 292         *servicename = *servername = *protocol = NULL;
 293         return -1;
 294 }
 295
 296 static void
 297 destroy_client(struct clnt_info *clp)
 298 {
 299         if (clp->krb5_poll_index != -1)
 300                 memset(&pollarray[clp->krb5_poll_index], 0,
 301                                         sizeof(struct pollfd));
 302         if (clp->spkm3_poll_index != -1)
 303                 memset(&pollarray[clp->spkm3_poll_index], 0,
 304                                         sizeof(struct pollfd));
 305         if (clp->gssd_poll_index != -1)
 306                 memset(&pollarray[clp->gssd_poll_index], 0,
 307                                         sizeof(struct pollfd));
 308         if (clp->dir_fd != -1) close(clp->dir_fd);
 309         if (clp->krb5_fd != -1) close(clp->krb5_fd);
 310         if (clp->spkm3_fd != -1) close(clp->spkm3_fd);
 311         if (clp->gssd_fd != -1) close(clp->gssd_fd);
 312         free(clp->dirname);
 313         free(clp->servicename);
 314         free(clp->servername);
 315         free(clp->protocol);
 316         free(clp);
 317 }
 318
 319 static struct clnt_info *
 320 insert_new_clnt(void)
 321 {
 322         struct clnt_info        *clp = NULL;
 323
 324         if (!(clp = (struct clnt_info *)calloc(1,sizeof(struct clnt_info)))) {
 325                 printerr(0, "ERROR: can't malloc clnt_info: %s\n",
 326                          strerror(errno));
 327                 goto out;
 328         }
 329         clp->krb5_poll_index = -1;
 330         clp->spkm3_poll_index = -1;
 331         clp->gssd_poll_index = -1;
 332         clp->krb5_fd = -1;
 333         clp->spkm3_fd = -1;
 334         clp->gssd_fd = -1;
 335         clp->dir_fd = -1;
 336
 337         TAILQ_INSERT_HEAD(&clnt_list, clp, list);
 338 out:
 339         return clp;
 340 }
 341
 342 static int
 343 process_clnt_dir_files(struct clnt_info * clp)
 344 {
 345         char    name[PATH_MAX];
 346         char    gname[PATH_MAX];
 347         char    info_file_name[PATH_MAX];
 348
 349         if (clp->gssd_fd == -1) {
 350                 snprintf(gname, sizeof(gname), "%s/gssd", clp->dirname);
 351                 clp->gssd_fd = open(gname, O_RDWR);
 352         }
 353         if (clp->gssd_fd == -1) {
 354                 if (clp->krb5_fd == -1) {
 355                         snprintf(name, sizeof(name), "%s/krb5", clp->dirname);
 356                         clp->krb5_fd = open(name, O_RDWR);
 357                 }
 358                 if (clp->spkm3_fd == -1) {
 359                         snprintf(name, sizeof(name), "%s/spkm3", clp->dirname);
 360                         clp->spkm3_fd = open(name, O_RDWR);
 361                 }
 362
 363                 /* If we opened a gss-specific pipe, let's try opening
 364                  * the new upcall pipe again. If we succeed, close
 365                  * gss-specific pipe(s).
 366                  */
 367                 if (clp->krb5_fd != -1 || clp->spkm3_fd != -1) {
 368                         clp->gssd_fd = open(gname, O_RDWR);
 369                         if (clp->gssd_fd != -1) {
 370                                 if (clp->krb5_fd != -1)
 371                                         close(clp->krb5_fd);
 372                                 clp->krb5_fd = -1;
 373                                 if (clp->spkm3_fd != -1)
 374                                         close(clp->spkm3_fd);
 375                                 clp->spkm3_fd = -1;
 376                         }
 377                 }
 378         }
 379
 380         if ((clp->krb5_fd == -1) && (clp->spkm3_fd == -1) &&
 381                         (clp->gssd_fd == -1))
 382                 return -1;
 383         snprintf(info_file_name, sizeof(info_file_name), "%s/info",
 384                         clp->dirname);
 385         if ((clp->servicename == NULL) &&
 386              read_service_info(info_file_name, &clp->servicename,
 387                                 &clp->servername, &clp->prog, &clp->vers,
 388                                 &clp->protocol, (struct sockaddr *) &clp->addr))
 389                 return -1;
 390         return 0;
 391 }
 392
 393 static int
 394 get_poll_index(int *ind)
 395 {
 396         int i;
 397
 398         *ind = -1;
 399         for (i=0; i<FD_ALLOC_BLOCK; i++) {
 400                 if (pollarray[i].events == 0) {
 401                         *ind = i;
 402                         break;
 403                 }
 404         }
 405         if (*ind == -1) {
 406                 printerr(0, "ERROR: No pollarray slots open\n");
 407                 return -1;
 408         }
 409         return 0;
 410 }
 411
 412
 413 static int
 414 insert_clnt_poll(struct clnt_info *clp)
 415 {
 416         if ((clp->gssd_fd != -1) && (clp->gssd_poll_index == -1)) {
 417                 if (get_poll_index(&clp->gssd_poll_index)) {
 418                         printerr(0, "ERROR: Too many gssd clients\n");
 419                         return -1;
 420                 }
 421                 pollarray[clp->gssd_poll_index].fd = clp->gssd_fd;
 422                 pollarray[clp->gssd_poll_index].events |= POLLIN;
 423         }
 424
 425         if ((clp->krb5_fd != -1) && (clp->krb5_poll_index == -1)) {
 426                 if (get_poll_index(&clp->krb5_poll_index)) {
 427                         printerr(0, "ERROR: Too many krb5 clients\n");
 428                         return -1;
 429                 }
 430                 pollarray[clp->krb5_poll_index].fd = clp->krb5_fd;
 431                 pollarray[clp->krb5_poll_index].events |= POLLIN;
 432         }
 433
 434         if ((clp->spkm3_fd != -1) && (clp->spkm3_poll_index == -1)) {
 435                 if (get_poll_index(&clp->spkm3_poll_index)) {
 436                         printerr(0, "ERROR: Too many spkm3 clients\n");
 437                         return -1;
 438                 }
 439                 pollarray[clp->spkm3_poll_index].fd = clp->spkm3_fd;
 440                 pollarray[clp->spkm3_poll_index].events |= POLLIN;
 441         }
 442
 443         return 0;
 444 }
 445
 446 static void
 447 process_clnt_dir(char *dir, char *pdir)
 448 {
 449         struct clnt_info *      clp;
 450
 451         if (!(clp = insert_new_clnt()))
 452                 goto fail_destroy_client;
 453
 454         /* An extra for the '/', and an extra for the null */
 455         if (!(clp->dirname = calloc(strlen(dir) + strlen(pdir) + 2, 1))) {
 456                 goto fail_destroy_client;
 457         }
 458         sprintf(clp->dirname, "%s/%s", pdir, dir);
 459         if ((clp->dir_fd = open(clp->dirname, O_RDONLY)) == -1) {
 460                 printerr(0, "ERROR: can't open %s: %s\n",
 461                          clp->dirname, strerror(errno));
 462                 goto fail_destroy_client;
 463         }
 464         fcntl(clp->dir_fd, F_SETSIG, DNOTIFY_SIGNAL);
 465         fcntl(clp->dir_fd, F_NOTIFY, DN_CREATE | DN_DELETE | DN_MULTISHOT);
 466
 467         if (process_clnt_dir_files(clp))
 468                 goto fail_keep_client;
 469
 470         if (insert_clnt_poll(clp))
 471                 goto fail_destroy_client;
 472
 473         return;
 474
 475 fail_destroy_client:
 476         if (clp) {
 477                 TAILQ_REMOVE(&clnt_list, clp, list);
 478                 destroy_client(clp);
 479         }
 480 fail_keep_client:
 481         /* We couldn't find some subdirectories, but we keep the client
 482          * around in case we get a notification on the directory when the
 483          * subdirectories are created. */
 484         return;
 485 }
 486
 487 void
 488 init_client_list(void)
 489 {
 490         TAILQ_INIT(&clnt_list);
 491         /* Eventually plan to grow/shrink poll array: */
 492         pollsize = FD_ALLOC_BLOCK;
 493         pollarray = calloc(pollsize, sizeof(struct pollfd));
 494 }
 495
 496 /*
 497  * This is run after a DNOTIFY signal, and should clear up any
 498  * directories that are no longer around, and re-scan any existing
 499  * directories, since the DNOTIFY could have been in there.
 500  */
 501 static void
 502 update_old_clients(struct dirent **namelist, int size, char *pdir)
 503 {
 504         struct clnt_info *clp;
 505         void *saveprev;
 506         int i, stillhere;
 507         char fname[PATH_MAX];
 508
 509         for (clp = clnt_list.tqh_first; clp != NULL; clp = clp->list.tqe_next) {
 510                 /* only compare entries in the global list that are from the
 511                  * same pipefs parent directory as "pdir"
 512                  */
 513                 if (strncmp(clp->dirname, pdir, strlen(pdir)) != 0) continue;
 514
 515                 stillhere = 0;
 516                 for (i=0; i < size; i++) {
 517                         snprintf(fname, sizeof(fname), "%s/%s",
 518                                  pdir, namelist[i]->d_name);
 519                         if (strcmp(clp->dirname, fname) == 0) {
 520                                 stillhere = 1;
 521                                 break;
 522                         }
 523                 }
 524                 if (!stillhere) {
 525                         printerr(2, "destroying client %s\n", clp->dirname);
 526                         saveprev = clp->list.tqe_prev;
 527                         TAILQ_REMOVE(&clnt_list, clp, list);
 528                         destroy_client(clp);
 529                         clp = saveprev;
 530                 }
 531         }
 532         for (clp = clnt_list.tqh_first; clp != NULL; clp = clp->list.tqe_next) {
 533                 if (!process_clnt_dir_files(clp))
 534                         insert_clnt_poll(clp);
 535         }
 536 }
 537
 538 /* Search for a client by directory name, return 1 if found, 0 otherwise */
 539 static int
 540 find_client(char *dirname, char *pdir)
 541 {
 542         struct clnt_info        *clp;
 543         char fname[PATH_MAX];
 544
 545         for (clp = clnt_list.tqh_first; clp != NULL; clp = clp->list.tqe_next) {
 546                 snprintf(fname, sizeof(fname), "%s/%s", pdir, dirname);
 547                 if (strcmp(clp->dirname, fname) == 0)
 548                         return 1;
 549         }
 550         return 0;
 551 }
 552
 553 static int
 554 process_pipedir(char *pipe_name)
 555 {
 556         struct dirent **namelist;
 557         int i, j;
 558
 559         if (chdir(pipe_name) < 0) {
 560                 printerr(0, "ERROR: can't chdir to %s: %s\n",
 561                          pipe_name, strerror(errno));
 562                 return -1;
 563         }
 564
 565         j = scandir(pipe_name, &namelist, NULL, alphasort);
 566         if (j < 0) {
 567                 printerr(0, "ERROR: can't scandir %s: %s\n",
 568                          pipe_name, strerror(errno));
 569                 return -1;
 570         }
 571
 572         update_old_clients(namelist, j, pipe_name);
 573         for (i=0; i < j; i++) {
 574                 if (i < FD_ALLOC_BLOCK
 575                                 && !strncmp(namelist[i]->d_name, "clnt", 4)
 576                                 && !find_client(namelist[i]->d_name, pipe_name))
 577                         process_clnt_dir(namelist[i]->d_name, pipe_name);
 578                 free(namelist[i]);
 579         }
 580
 581         free(namelist);
 582
 583         return 0;
 584 }
 585
 586 /* Used to read (and re-read) list of clients, set up poll array. */
 587 int
 588 update_client_list(void)
 589 {
 590         int retval = -1;
 591         struct topdirs_info *tdi;
 592
 593         TAILQ_FOREACH(tdi, &topdirs_list, list) {
 594                 retval = process_pipedir(tdi->dirname);
 595                 if (retval)
 596                         printerr(1, "WARNING: error processing %s\n",
 597                                  tdi->dirname);
 598
 599         }
 600         return retval;
 601 }
 602
 603 static int
 604 do_downcall(int k5_fd, uid_t uid, struct authgss_private_data *pd,
 605             gss_buffer_desc *context_token)
 606 {
 607         char    *buf = NULL, *p = NULL, *end = NULL;
 608         unsigned int timeout = context_timeout;
 609         unsigned int buf_size = 0;
 610
 611         printerr(1, "doing downcall\n");
 612         buf_size = sizeof(uid) + sizeof(timeout) + sizeof(pd->pd_seq_win) +
 613                 sizeof(pd->pd_ctx_hndl.length) + pd->pd_ctx_hndl.length +
 614                 sizeof(context_token->length) + context_token->length;
 615         p = buf = malloc(buf_size);
 616         end = buf + buf_size;
 617
 618         if (WRITE_BYTES(&p, end, uid)) goto out_err;
 619         if (WRITE_BYTES(&p, end, timeout)) goto out_err;
 620         if (WRITE_BYTES(&p, end, pd->pd_seq_win)) goto out_err;
 621         if (write_buffer(&p, end, &pd->pd_ctx_hndl)) goto out_err;
 622         if (write_buffer(&p, end, context_token)) goto out_err;
 623
 624         if (write(k5_fd, buf, p - buf) < p - buf) goto out_err;
 625         if (buf) free(buf);
 626         return 0;
 627 out_err:
 628         if (buf) free(buf);
 629         printerr(1, "Failed to write downcall!\n");
 630         return -1;
 631 }
 632
 633 static int
 634 do_error_downcall(int k5_fd, uid_t uid, int err)
 635 {
 636         char    buf[1024];
 637         char    *p = buf, *end = buf + 1024;
 638         unsigned int timeout = 0;
 639         int     zero = 0;
 640
 641         printerr(1, "doing error downcall\n");
 642
 643         if (WRITE_BYTES(&p, end, uid)) goto out_err;
 644         if (WRITE_BYTES(&p, end, timeout)) goto out_err;
 645         /* use seq_win = 0 to indicate an error: */
 646         if (WRITE_BYTES(&p, end, zero)) goto out_err;
 647         if (WRITE_BYTES(&p, end, err)) goto out_err;
 648
 649         if (write(k5_fd, buf, p - buf) < p - buf) goto out_err;
 650         return 0;
 651 out_err:
 652         printerr(1, "Failed to write error downcall!\n");
 653         return -1;
 654 }
 655
 656 /*
 657  * If the port isn't already set, do an rpcbind query to the remote server
 658  * using the program and version and get the port.
 659  *
 660  * Newer kernels send the value of the port= mount option in the "info"
 661  * file for the upcall or '0' for NFSv2/3. For NFSv4 it sends the value
 662  * of the port= option or '2049'. The port field in a new sockaddr should
 663  * reflect the value that was sent by the kernel.
 664  */
 665 static int
 666 populate_port(struct sockaddr *sa, const socklen_t salen,
 667               const rpcprog_t program, const rpcvers_t version,
 668               const unsigned short protocol)
 669 {
 670         struct sockaddr_in      *s4 = (struct sockaddr_in *) sa;
 671 #ifdef IPV6_SUPPORTED
 672         struct sockaddr_in6     *s6 = (struct sockaddr_in6 *) sa;
 673 #endif /* IPV6_SUPPORTED */
 674         unsigned short          port;
 675
 676         /*
 677          * Newer kernels send the port in the upcall. If we already have
 678          * the port, there's no need to look it up.
 679          */
 680         switch (sa->sa_family) {
 681         case AF_INET:
 682                 if (s4->sin_port != 0) {
 683                         printerr(2, "DEBUG: port already set to %d\n",
 684                                  ntohs(s4->sin_port));
 685                         return 1;
 686                 }
 687                 break;
 688 #ifdef IPV6_SUPPORTED
 689         case AF_INET6:
 690                 if (s6->sin6_port != 0) {
 691                         printerr(2, "DEBUG: port already set to %d\n",
 692                                  ntohs(s6->sin6_port));
 693                         return 1;
 694                 }
 695                 break;
 696 #endif /* IPV6_SUPPORTED */
 697         default:
 698                 printerr(0, "ERROR: unsupported address family %d\n",
 699                             sa->sa_family);
 700                 return 0;
 701         }
 702
 703         /*
 704          * Newer kernels that send the port in the upcall set the value to
 705          * 2049 for NFSv4 mounts when one isn't specified. The check below is
 706          * only for kernels that don't send the port in the upcall. For those
 707          * we either have to do an rpcbind query or set it to the standard
 708          * port. Doing a query could be problematic (firewalls, etc), so take
 709          * the latter approach.
 710          */
 711         if (program == 100003 && version == 4) {
 712                 port = 2049;
 713                 goto set_port;
 714         }
 715
 716         port = nfs_getport(sa, salen, program, version, protocol);
 717         if (!port) {
 718                 printerr(0, "ERROR: unable to obtain port for prog %ld "
 719                             "vers %ld\n", program, version);
 720                 return 0;
 721         }
 722
 723 set_port:
 724         printerr(2, "DEBUG: setting port to %hu for prog %lu vers %lu\n", port,
 725                  program, version);
 726
 727         switch (sa->sa_family) {
 728         case AF_INET:
 729                 s4->sin_port = htons(port);
 730                 break;
 731 #ifdef IPV6_SUPPORTED
 732         case AF_INET6:
 733                 s6->sin6_port = htons(port);
 734                 break;
 735 #endif /* IPV6_SUPPORTED */
 736         }
 737
 738         return 1;
 739 }
 740
 741 /*
 742  * Create an RPC connection and establish an authenticated
 743  * gss context with a server.
 744  */
 745 int create_auth_rpc_client(struct clnt_info *clp,
 746                            CLIENT **clnt_return,
 747                            AUTH **auth_return,
 748                            uid_t uid,
 749                            int authtype)
 750 {
 751         CLIENT                  *rpc_clnt = NULL;
 752         struct rpc_gss_sec      sec;
 753         AUTH                    *auth = NULL;
 754         uid_t                   save_uid = -1;
 755         int                     retval = -1;
 756         OM_uint32               min_stat;
 757         char                    rpc_errmsg[1024];
 758         int                     protocol;
 759         struct timeval          timeout = {5, 0};
 760         struct sockaddr         *addr = (struct sockaddr *) &clp->addr;
 761         socklen_t               salen;
 762
 763         /* Create the context as the user (not as root) */
 764         save_uid = geteuid();
 765         if (setfsuid(uid) != 0) {
 766                 printerr(0, "WARNING: Failed to setfsuid for "
 767                             "user with uid %d\n", uid);
 768                 goto out_fail;
 769         }
 770         printerr(2, "creating context using fsuid %d (save_uid %d)\n",
 771                         uid, save_uid);
 772
 773         sec.qop = GSS_C_QOP_DEFAULT;
 774         sec.svc = RPCSEC_GSS_SVC_NONE;
 775         sec.cred = GSS_C_NO_CREDENTIAL;
 776         sec.req_flags = 0;
 777         if (authtype == AUTHTYPE_KRB5) {
 778                 sec.mech = (gss_OID)&krb5oid;
 779                 sec.req_flags = GSS_C_MUTUAL_FLAG;
 780         }
 781         else if (authtype == AUTHTYPE_SPKM3) {
 782                 sec.mech = (gss_OID)&spkm3oid;
 783                 /* XXX sec.req_flags = GSS_C_ANON_FLAG;
 784                  * Need a way to switch....
 785                  */
 786                 sec.req_flags = GSS_C_MUTUAL_FLAG;
 787         }
 788         else {
 789                 printerr(0, "ERROR: Invalid authentication type (%d) "
 790                         "in create_auth_rpc_client\n", authtype);
 791                 goto out_fail;
 792         }
 793
 794
 795         if (authtype == AUTHTYPE_KRB5) {
 796 #ifdef HAVE_SET_ALLOWABLE_ENCTYPES
 797                 /*
 798                  * Do this before creating rpc connection since we won't need
 799                  * rpc connection if it fails!
 800                  */
 801                 if (limit_krb5_enctypes(&sec, uid)) {
 802                         printerr(1, "WARNING: Failed while limiting krb5 "
 803                                     "encryption types for user with uid %d\n",
 804                                  uid);
 805                         goto out_fail;
 806                 }
 807 #endif
 808         }
 809
 810         /* create an rpc connection to the nfs server */
 811
 812         printerr(2, "creating %s client for server %s\n", clp->protocol,
 813                         clp->servername);
 814
 815         if ((strcmp(clp->protocol, "tcp")) == 0) {
 816                 protocol = IPPROTO_TCP;
 817         } else if ((strcmp(clp->protocol, "udp")) == 0) {
 818                 protocol = IPPROTO_UDP;
 819         } else {
 820                 printerr(0, "WARNING: unrecognized protocol, '%s', requested "
 821                          "for connection to server %s for user with uid %d\n",
 822                          clp->protocol, clp->servername, uid);
 823                 goto out_fail;
 824         }
 825
 826         switch (addr->sa_family) {
 827         case AF_INET:
 828                 salen = sizeof(struct sockaddr_in);
 829                 break;
 830 #ifdef IPV6_SUPPORTED
 831         case AF_INET6:
 832                 salen = sizeof(struct sockaddr_in6);
 833                 break;
 834 #endif /* IPV6_SUPPORTED */
 835         default:
 836                 printerr(1, "ERROR: Unknown address family %d\n",
 837                          addr->sa_family);
 838                 goto out_fail;
 839         }
 840
 841         if (!populate_port(addr, salen, clp->prog, clp->vers, protocol))
 842                 goto out_fail;
 843
 844         rpc_clnt = nfs_get_rpcclient(addr, salen, protocol, clp->prog,
 845                                      clp->vers, &timeout);
 846         if (!rpc_clnt) {
 847                 snprintf(rpc_errmsg, sizeof(rpc_errmsg),
 848                          "WARNING: can't create %s rpc_clnt to server %s for "
 849                          "user with uid %d",
 850                          protocol == IPPROTO_TCP ? "tcp" : "udp",
 851                          clp->servername, uid);
 852                 printerr(0, "%s\n",
 853                          clnt_spcreateerror(rpc_errmsg));
 854                 goto out_fail;
 855         }
 856
 857         printerr(2, "creating context with server %s\n", clp->servicename);
 858         auth = authgss_create_default(rpc_clnt, clp->servicename, &sec);
 859         if (!auth) {
 860                 /* Our caller should print appropriate message */
 861                 printerr(2, "WARNING: Failed to create %s context for "
 862                             "user with uid %d for server %s\n",
 863                         (authtype == AUTHTYPE_KRB5 ? "krb5":"spkm3"),
 864                          uid, clp->servername);
 865                 goto out_fail;
 866         }
 867
 868         /* Success !!! */
 869         rpc_clnt->cl_auth = auth;
 870         *clnt_return = rpc_clnt;
 871         *auth_return = auth;
 872         retval = 0;
 873
 874   out:
 875         if (sec.cred != GSS_C_NO_CREDENTIAL)
 876                 gss_release_cred(&min_stat, &sec.cred);
 877         /* Restore euid to original value */
 878         if ((save_uid != -1) && (setfsuid(save_uid) != uid)) {
 879                 printerr(0, "WARNING: Failed to restore fsuid"
 880                             " to uid %d from %d\n", save_uid, uid);
 881         }
 882         return retval;
 883
 884   out_fail:
 885         /* Only destroy here if failure.  Otherwise, caller is responsible */
 886         if (rpc_clnt) clnt_destroy(rpc_clnt);
 887
 888         goto out;
 889 }
 890
 891 /*
 892  * this code uses the userland rpcsec gss library to create a krb5
 893  * context on behalf of the kernel
 894  */
 895 static void
 896 process_krb5_upcall(struct clnt_info *clp, uid_t uid, int fd, char *tgtname,
 897                     char *service)
 898 {
 899         CLIENT                  *rpc_clnt = NULL;
 900         AUTH                    *auth = NULL;
 901         struct authgss_private_data pd;
 902         gss_buffer_desc         token;
 903         char                    **credlist = NULL;
 904         char                    **ccname;
 905         char                    **dirname;
 906         int                     create_resp = -1;
 907
 908         printerr(1, "handling krb5 upcall (%s)\n", clp->dirname);
 909
 910         if (tgtname) {
 911                 if (clp->servicename) {
 912                         free(clp->servicename);
 913                         clp->servicename = strdup(tgtname);
 914                 }
 915         }
 916         token.length = 0;
 917         token.value = NULL;
 918         memset(&pd, 0, sizeof(struct authgss_private_data));
 919
 920         /*
 921          * If "service" is specified, then the kernel is indicating that
 922          * we must use machine credentials for this request.  (Regardless
 923          * of the uid value or the setting of root_uses_machine_creds.)
 924          * If the service value is "*", then any service name can be used.
 925          * Otherwise, it specifies the service name that should be used.
 926          * (For now, the values of service will only be "*" or "nfs".)
 927          *
 928          * Restricting gssd to use "nfs" service name is needed for when
 929          * the NFS server is doing a callback to the NFS client.  In this
 930          * case, the NFS server has to authenticate itself as "nfs" --
 931          * even if there are other service keys such as "host" or "root"
 932          * in the keytab.
 933          *
 934          * Another case when the kernel may specify the service attribute
 935          * is when gssd is being asked to create the context for a
 936          * SETCLIENT_ID operation.  In this case, machine credentials
 937          * must be used for the authentication.  However, the service name
 938          * used for this case is not important.
 939          *
 940          */
 941         printerr(2, "%s: service is '%s'\n", __func__,
 942                  service ? service : "<null>");
 943         if (uid != 0 || (uid == 0 && root_uses_machine_creds == 0 &&
 944                                 service == NULL)) {
 945                 /* Tell krb5 gss which credentials cache to use */
 946                 for (dirname = ccachesearch; *dirname != NULL; dirname++) {
 947                         if (gssd_setup_krb5_user_gss_ccache(uid, clp->servername, *dirname) == 0)
 948                                 create_resp = create_auth_rpc_client(clp, &rpc_clnt, &auth, uid,
 949                                                              AUTHTYPE_KRB5);
 950                         if (create_resp == 0)
 951                                 break;
 952                 }
 953         }
 954         if (create_resp != 0) {
 955                 if (uid == 0 && (root_uses_machine_creds == 1 ||
 956                                 service != NULL)) {
 957                         int nocache = 0;
 958                         int success = 0;
 959                         do {
 960                                 gssd_refresh_krb5_machine_credential(clp->servername,
 961                                                                      NULL, service);
 962                                 /*
 963                                  * Get a list of credential cache names and try each
 964                                  * of them until one works or we've tried them all
 965                                  */
 966                                 if (gssd_get_krb5_machine_cred_list(&credlist)) {
 967                                         printerr(0, "ERROR: No credentials found "
 968                                                  "for connection to server %s\n",
 969                                                  clp->servername);
 970                                                 goto out_return_error;
 971                                 }
 972                                 for (ccname = credlist; ccname && *ccname; ccname++) {
 973                                         gssd_setup_krb5_machine_gss_ccache(*ccname);
 974                                         if ((create_auth_rpc_client(clp, &rpc_clnt,
 975                                                                     &auth, uid,
 976                                                                     AUTHTYPE_KRB5)) == 0) {
 977                                                 /* Success! */
 978                                                 success++;
 979                                                 break;
 980                                         }
 981                                         printerr(2, "WARNING: Failed to create machine krb5 context "
 982                                                  "with credentials cache %s for server %s\n",
 983                                                  *ccname, clp->servername);
 984                                 }
 985                                 gssd_free_krb5_machine_cred_list(credlist);
 986                                 if (!success) {
 987                                         if(nocache == 0) {
 988                                                 nocache++;
 989                                                 printerr(2, "WARNING: Machine cache is prematurely expired or corrupted "
 990                                                             "trying to recreate cache for server %s\n", clp->servername);
 991                                         } else {
 992                                                 printerr(1, "WARNING: Failed to create machine krb5 context "
 993                                                  "with any credentials cache for server %s\n",
 994                                                  clp->servername);
 995                                                 goto out_return_error;
 996                                         }
 997                                 }
 998                         } while(!success);
 999                 } else {
1000                         printerr(1, "WARNING: Failed to create krb5 context "
1001                                  "for user with uid %d for server %s\n",
1002                                  uid, clp->servername);
1003                         goto out_return_error;
1004                 }
1005         }
1006
1007         if (!authgss_get_private_data(auth, &pd)) {
1008                 printerr(1, "WARNING: Failed to obtain authentication "
1009                             "data for user with uid %d for server %s\n",
1010                          uid, clp->servername);
1011                 goto out_return_error;
1012         }
1013
1014         if (serialize_context_for_kernel(pd.pd_ctx, &token, &krb5oid, NULL)) {
1015                 printerr(0, "WARNING: Failed to serialize krb5 context for "
1016                             "user with uid %d for server %s\n",
1017                          uid, clp->servername);
1018                 goto out_return_error;
1019         }
1020
1021         do_downcall(fd, uid, &pd, &token);
1022
1023 out:
1024         if (token.value)
1025                 free(token.value);
1026 #ifndef HAVE_LIBTIRPC
1027         if (pd.pd_ctx_hndl.length != 0)
1028                 authgss_free_private_data(&pd);
1029 #endif
1030         if (auth)
1031                 AUTH_DESTROY(auth);
1032         if (rpc_clnt)
1033                 clnt_destroy(rpc_clnt);
1034         return;
1035
1036 out_return_error:
1037         do_error_downcall(fd, uid, -1);
1038         goto out;
1039 }
1040
1041 /*
1042  * this code uses the userland rpcsec gss library to create an spkm3
1043  * context on behalf of the kernel
1044  */
1045 static void
1046 process_spkm3_upcall(struct clnt_info *clp, uid_t uid, int fd)
1047 {
1048         CLIENT                  *rpc_clnt = NULL;
1049         AUTH                    *auth = NULL;
1050         struct authgss_private_data pd;
1051         gss_buffer_desc         token;
1052
1053         printerr(2, "handling spkm3 upcall (%s)\n", clp->dirname);
1054
1055         token.length = 0;
1056         token.value = NULL;
1057
1058         if (create_auth_rpc_client(clp, &rpc_clnt, &auth, uid, AUTHTYPE_SPKM3)) {
1059                 printerr(0, "WARNING: Failed to create spkm3 context for "
1060                             "user with uid %d\n", uid);
1061                 goto out_return_error;
1062         }
1063
1064         if (!authgss_get_private_data(auth, &pd)) {
1065                 printerr(0, "WARNING: Failed to obtain authentication "
1066                             "data for user with uid %d for server %s\n",
1067                          uid, clp->servername);
1068                 goto out_return_error;
1069         }
1070
1071         if (serialize_context_for_kernel(pd.pd_ctx, &token, &spkm3oid, NULL)) {
1072                 printerr(0, "WARNING: Failed to serialize spkm3 context for "
1073                             "user with uid %d for server\n",
1074                          uid, clp->servername);
1075                 goto out_return_error;
1076         }
1077
1078         do_downcall(fd, uid, &pd, &token);
1079
1080 out:
1081         if (token.value)
1082                 free(token.value);
1083         if (auth)
1084                 AUTH_DESTROY(auth);
1085         if (rpc_clnt)
1086                 clnt_destroy(rpc_clnt);
1087         return;
1088
1089 out_return_error:
1090         do_error_downcall(fd, uid, -1);
1091         goto out;
1092 }
1093
1094 void
1095 handle_krb5_upcall(struct clnt_info *clp)
1096 {
1097         uid_t                   uid;
1098
1099         if (read(clp->krb5_fd, &uid, sizeof(uid)) < sizeof(uid)) {
1100                 printerr(0, "WARNING: failed reading uid from krb5 "
1101                             "upcall pipe: %s\n", strerror(errno));
1102                 return;
1103         }
1104
1105         return process_krb5_upcall(clp, uid, clp->krb5_fd, NULL, NULL);
1106 }
1107
1108 void
1109 handle_spkm3_upcall(struct clnt_info *clp)
1110 {
1111         uid_t                   uid;
1112
1113         if (read(clp->spkm3_fd, &uid, sizeof(uid)) < sizeof(uid)) {
1114                 printerr(0, "WARNING: failed reading uid from spkm3 "
1115                          "upcall pipe: %s\n", strerror(errno));
1116                 return;
1117         }
1118
1119         return process_spkm3_upcall(clp, uid, clp->spkm3_fd);
1120 }
1121
1122 void
1123 handle_gssd_upcall(struct clnt_info *clp)
1124 {
1125         uid_t                   uid;
1126         char                    *lbuf = NULL;
1127         int                     lbuflen = 0;
1128         char                    *p;
1129         char                    *mech = NULL;
1130         char                    *target = NULL;
1131         char                    *service = NULL;
1132
1133         printerr(1, "handling gssd upcall (%s)\n", clp->dirname);
1134
1135         if (readline(clp->gssd_fd, &lbuf, &lbuflen) != 1) {
1136                 printerr(0, "WARNING: handle_gssd_upcall: "
1137                             "failed reading request\n");
1138                 return;
1139         }
1140         printerr(2, "%s: '%s'\n", __func__, lbuf);
1141
1142         /* find the mechanism name */
1143         if ((p = strstr(lbuf, "mech=")) != NULL) {
1144                 mech = malloc(lbuflen);
1145                 if (!mech)
1146                         goto out;
1147                 if (sscanf(p, "mech=%s", mech) != 1) {
1148                         printerr(0, "WARNING: handle_gssd_upcall: "
1149                                     "failed to parse gss mechanism name "
1150                                     "in upcall string '%s'\n", lbuf);
1151                         goto out;
1152                 }
1153         } else {
1154                 printerr(0, "WARNING: handle_gssd_upcall: "
1155                             "failed to find gss mechanism name "
1156                             "in upcall string '%s'\n", lbuf);
1157                 goto out;
1158         }
1159
1160         /* read uid */
1161         if ((p = strstr(lbuf, "uid=")) != NULL) {
1162                 if (sscanf(p, "uid=%d", &uid) != 1) {
1163                         printerr(0, "WARNING: handle_gssd_upcall: "
1164                                     "failed to parse uid "
1165                                     "in upcall string '%s'\n", lbuf);
1166                         goto out;
1167                 }
1168         } else {
1169                 printerr(0, "WARNING: handle_gssd_upcall: "
1170                             "failed to find uid "
1171                             "in upcall string '%s'\n", lbuf);
1172                 goto out;
1173         }
1174
1175         /* read target name */
1176         if ((p = strstr(lbuf, "target=")) != NULL) {
1177                 target = malloc(lbuflen);
1178                 if (!target)
1179                         goto out;
1180                 if (sscanf(p, "target=%s", target) != 1) {
1181                         printerr(0, "WARNING: handle_gssd_upcall: "
1182                                     "failed to parse target name "
1183                                     "in upcall string '%s'\n", lbuf);
1184                         goto out;
1185                 }
1186         }
1187
1188         /*
1189          * read the service name
1190          *
1191          * The presence of attribute "service=" indicates that machine
1192          * credentials should be used for this request.  If the value
1193          * is "*", then any machine credentials available can be used.
1194          * If the value is anything else, then machine credentials for
1195          * the specified service name (always "nfs" for now) should be
1196          * used.
1197          */
1198         if ((p = strstr(lbuf, "service=")) != NULL) {
1199                 service = malloc(lbuflen);
1200                 if (!service)
1201                         goto out;
1202                 if (sscanf(p, "service=%s", service) != 1) {
1203                         printerr(0, "WARNING: handle_gssd_upcall: "
1204                                     "failed to parse service type "
1205                                     "in upcall string '%s'\n", lbuf);
1206                         goto out;
1207                 }
1208         }
1209
1210         if (strcmp(mech, "krb5") == 0)
1211                 process_krb5_upcall(clp, uid, clp->gssd_fd, target, service);
1212         else if (strcmp(mech, "spkm3") == 0)
1213                 process_spkm3_upcall(clp, uid, clp->gssd_fd);
1214         else
1215                 printerr(0, "WARNING: handle_gssd_upcall: "
1216                             "received unknown gss mech '%s'\n", mech);
1217
1218 out:
1219         free(lbuf);
1220         free(mech);
1221         free(target);
1222         free(service);
1223         return;
1224 }
1225