usr/src/cmd/krb5/kwarn/kwarnd_generic.c

   1 /*
   2  * Copyright (c) 1988-1999 by Sun Microsystems, Inc.
   3  * All rights reserved.
   4  */
   5
   6 #pragma ident   "%Z%%M% %I%     %E% SMI"
   7
   8 #include <stdio.h>
   9 #include <stdlib.h>
  10 #include <rpc/rpc.h>
  11 #include <errno.h>
  12 #include <syslog.h>
  13 #include <rpc/nettype.h>
  14 #include <netconfig.h>
  15 #include <netdir.h>
  16 #include <tiuser.h>
  17 #include <fcntl.h>
  18 #include <string.h>
  19 #include <rpc/svc.h>
  20 #include <locale.h>
  21
  22 extern int __rpc_negotiate_uid(int);
  23
  24 /*
  25  * The highest level interface for server creation.
  26  * Copied from svc_generic.c and cmd/keyserv/key_generic.c, but adapted
  27  * to work only for TPI_CLTS semantics, and to be called only once
  28  * from kwarnd.c. Returns 1 (interface created) on success and 0
  29  * (no interfaces created) on failure.
  30  */
  31 int
  32 svc_create_local_service(void (*dispatch) (),           /* Dispatch function */
  33                         u_long prognum,                 /* Program number */
  34                         u_long versnum,                 /* Version number */
  35                         char *nettype,                  /* Networktype token */
  36                         char *servname)                 /* name of the srvc */
  37 {
  38         int num = 0;
  39         SVCXPRT *xprt;
  40         struct netconfig *nconf;
  41         struct t_bind *bind_addr;
  42         void *net;
  43         int fd;
  44         struct nd_hostserv ns;
  45         struct nd_addrlist *nas;
  46
  47         if ((net = __rpc_setconf(nettype)) == 0) {
  48                 (void) syslog(LOG_ERR,
  49                 gettext("svc_create: could not read netconfig database"));
  50                 return (0);
  51         }
  52         while (nconf = __rpc_getconf(net)) {
  53                 if ((strcmp(nconf->nc_protofmly, NC_LOOPBACK)) ||
  54                                 (nconf->nc_semantics != NC_TPI_COTS_ORD))
  55                         continue;
  56
  57                 if ((fd = t_open(nconf->nc_device, O_RDWR, NULL)) < 0) {
  58                         (void) syslog(LOG_ERR,
  59                         gettext("svc_create: %s: cannot open connection: %s"),
  60                                 nconf->nc_netid, t_errlist[t_errno]);
  61                         break;
  62                 }
  63
  64                 /*
  65                  * Negotiate for returning the uid of the caller.
  66                  * This should be done before enabling the endpoint for
  67                  * service via t_bind() (called in svc_tli_create())
  68                  * so that requests to kwarnd contain the uid.
  69                  */
  70                 if (__rpc_negotiate_uid(fd) != 0) {
  71                         syslog(LOG_ERR,
  72                         gettext("Could not negotiate for"
  73                                 " uid with loopback transport %s"),
  74                                 nconf->nc_netid);
  75                         t_close(fd);
  76                         break;
  77                 }
  78
  79                 /* LINTED pointer alignment */
  80                 bind_addr = (struct t_bind *) t_alloc(fd, T_BIND, T_ADDR);
  81                 if ((bind_addr == NULL)) {
  82                         (void) t_close(fd);
  83                         (void) syslog(LOG_ERR,
  84                                 gettext("svc_create: t_alloc failed\n"));
  85                         break;
  86                 }
  87                 ns.h_host = HOST_SELF;
  88                 ns.h_serv = servname;
  89                 if (!netdir_getbyname(nconf, &ns, &nas)) {
  90                         /* Copy the address */
  91                         bind_addr->addr.len = nas->n_addrs->len;
  92                         (void) memcpy(bind_addr->addr.buf, nas->n_addrs->buf,
  93                                 (int) nas->n_addrs->len);
  94                         bind_addr->qlen = 8;
  95                         netdir_free((char *) nas, ND_ADDRLIST);
  96                 } else {
  97                         (void) syslog(LOG_ERR,
  98                         gettext("svc_create: no well known "
  99                                 "address for %s on %s\n"),
 100                                 servname, nconf->nc_netid);
 101                         (void) t_free((char *) bind_addr, T_BIND);
 102                         bind_addr = NULL;
 103                 }
 104
 105                 xprt = svc_tli_create(fd, nconf, bind_addr, 0, 0);
 106                 if (bind_addr)
 107                         (void) t_free((char *) bind_addr, T_BIND);
 108                 if (xprt == NULL) {
 109                         (void) t_close(fd);
 110                         (void) syslog(LOG_ERR,
 111                             gettext("svc_create: svc_tli_create failed\n"));
 112                         break;
 113                 } else {
 114                         (void) rpcb_unset(prognum, versnum, nconf);
 115                         if (svc_reg(xprt, prognum, versnum, dispatch, nconf)
 116                                         == FALSE) {
 117                                 (void) syslog(LOG_ERR,
 118                                 gettext("svc_create: cannot"
 119                                         " register %d vers %d on %s"),
 120                                         prognum, versnum, nconf->nc_netid);
 121                                 SVC_DESTROY(xprt);      /* also t_closes fd */
 122                                 break;
 123                         }
 124                         num = 1;
 125                         break;
 126                 }
 127         }
 128         __rpc_endconf(net);
 129         return (num);
 130 }