lib/libc/rpc/svc_generic.c
C | 320 lines | 215 code | 22 blank | 83 comment | 53 complexity | bef3ea8400fd3d870160f97dec3af7d7 MD5 | raw file
Possible License(s): MIT, WTFPL, AGPL-1.0, BSD-3-Clause, GPL-3.0, LGPL-2.0, JSON, 0BSD
- /* $NetBSD: svc_generic.c,v 1.10 2008/04/25 17:44:44 christos Exp $ */
- /*
- * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
- * unrestricted use provided that this legend is included on all tape
- * media and as a part of the software program in whole or part. Users
- * may copy or modify Sun RPC without charge, but are not authorized
- * to license or distribute it to anyone else except as part of a product or
- * program developed by the user.
- *
- * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
- * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
- * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
- *
- * Sun RPC is provided with no support and without any obligation on the
- * part of Sun Microsystems, Inc. to assist in its use, correction,
- * modification or enhancement.
- *
- * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
- * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
- * OR ANY PART THEREOF.
- *
- * In no event will Sun Microsystems, Inc. be liable for any lost revenue
- * or profits or other special, indirect and consequential damages, even if
- * Sun has been advised of the possibility of such damages.
- *
- * Sun Microsystems, Inc.
- * 2550 Garcia Avenue
- * Mountain View, California 94043
- */
- /*
- * Copyright (c) 1986-1991 by Sun Microsystems Inc.
- */
- /* #ident "@(#)svc_generic.c 1.19 94/04/24 SMI" */
- #include <sys/cdefs.h>
- #if defined(LIBC_SCCS) && !defined(lint)
- #if 0
- static char sccsid[] = "@(#)svc_generic.c 1.21 89/02/28 Copyr 1988 Sun Micro";
- #else
- __RCSID("$NetBSD: svc_generic.c,v 1.10 2008/04/25 17:44:44 christos Exp $");
- #endif
- #endif
- /*
- * svc_generic.c, Server side for RPC.
- *
- */
- #include "namespace.h"
- #include "reentrant.h"
- #include <sys/types.h>
- #include <sys/socket.h>
- #include <netinet/in.h>
- #include <rpc/rpc.h>
- #include <rpc/nettype.h>
- #include <stdio.h>
- #include <errno.h>
- #include <malloc.h>
- #include <string.h>
- #include <unistd.h>
- #include <err.h>
- #include "rpc_internal.h"
- #ifdef __weak_alias
- __weak_alias(svc_create,_svc_create)
- __weak_alias(svc_tp_create,_svc_tp_create)
- __weak_alias(svc_tli_create,_svc_tli_create)
- #endif
- extern int __svc_vc_setflag __P((SVCXPRT *, int));
- /*
- * The highest level interface for server creation.
- * It tries for all the nettokens in that particular class of token
- * and returns the number of handles it can create and/or find.
- *
- * It creates a link list of all the handles it could create.
- * If svc_create() is called multiple times, it uses the handle
- * created earlier instead of creating a new handle every time.
- */
- int
- svc_create(dispatch, prognum, versnum, nettype)
- void (*dispatch) __P((struct svc_req *, SVCXPRT *));
- rpcprog_t prognum; /* Program number */
- rpcvers_t versnum; /* Version number */
- const char *nettype; /* Networktype token */
- {
- struct xlist {
- SVCXPRT *xprt; /* Server handle */
- struct xlist *next; /* Next item */
- } *l;
- static struct xlist *xprtlist; /* A link list of all the handles */
- int num = 0;
- SVCXPRT *xprt;
- struct netconfig *nconf;
- void *handle;
- #ifdef _REENTRANT
- extern mutex_t xprtlist_lock;
- #endif
- /* VARIABLES PROTECTED BY xprtlist_lock: xprtlist */
- if ((handle = __rpc_setconf(nettype)) == NULL) {
- warnx("svc_create: unknown protocol");
- return (0);
- }
- while ((nconf = __rpc_getconf(handle)) != NULL) {
- mutex_lock(&xprtlist_lock);
- for (l = xprtlist; l; l = l->next) {
- if (strcmp(l->xprt->xp_netid, nconf->nc_netid) == 0) {
- /* Found an old one, use it */
- (void) rpcb_unset(prognum, versnum, nconf);
- if (svc_reg(l->xprt, prognum, versnum,
- dispatch, nconf) == FALSE)
- warnx(
- "svc_create: could not register prog %u vers %u on %s",
- (unsigned)prognum, (unsigned)versnum,
- nconf->nc_netid);
- else
- num++;
- break;
- }
- }
- if (l == NULL) {
- /* It was not found. Now create a new one */
- xprt = svc_tp_create(dispatch, prognum, versnum, nconf);
- if (xprt) {
- l = malloc(sizeof(*l));
- if (l == NULL) {
- warnx("svc_create: no memory");
- mutex_unlock(&xprtlist_lock);
- return (0);
- }
- l->xprt = xprt;
- l->next = xprtlist;
- xprtlist = l;
- num++;
- }
- }
- mutex_unlock(&xprtlist_lock);
- }
- __rpc_endconf(handle);
- /*
- * In case of num == 0; the error messages are generated by the
- * underlying layers; and hence not needed here.
- */
- return (num);
- }
- /*
- * The high level interface to svc_tli_create().
- * It tries to create a server for "nconf" and registers the service
- * with the rpcbind. It calls svc_tli_create();
- */
- SVCXPRT *
- svc_tp_create(dispatch, prognum, versnum, nconf)
- void (*dispatch) __P((struct svc_req *, SVCXPRT *));
- rpcprog_t prognum; /* Program number */
- rpcvers_t versnum; /* Version number */
- const struct netconfig *nconf; /* Netconfig structure for the network */
- {
- SVCXPRT *xprt;
- if (nconf == NULL) {
- warnx(
- "svc_tp_create: invalid netconfig structure for prog %u vers %u",
- (unsigned)prognum, (unsigned)versnum);
- return (NULL);
- }
- xprt = svc_tli_create(RPC_ANYFD, nconf, NULL, 0, 0);
- if (xprt == NULL) {
- return (NULL);
- }
- (void) rpcb_unset(prognum, versnum, __UNCONST(nconf));
- if (svc_reg(xprt, prognum, versnum, dispatch, nconf) == FALSE) {
- warnx(
- "svc_tp_create: Could not register prog %u vers %u on %s",
- (unsigned)prognum, (unsigned)versnum,
- nconf->nc_netid);
- SVC_DESTROY(xprt);
- return (NULL);
- }
- return (xprt);
- }
- /*
- * If fd is RPC_ANYFD, then it opens a fd for the given transport
- * provider (nconf cannot be NULL then). If the t_state is T_UNBND and
- * bindaddr is NON-NULL, it performs a t_bind using the bindaddr. For
- * NULL bindadr and Connection oriented transports, the value of qlen
- * is set to 8.
- *
- * If sendsz or recvsz are zero, their default values are chosen.
- */
- SVCXPRT *
- svc_tli_create(fd, nconf, bindaddr, sendsz, recvsz)
- int fd; /* Connection end point */
- const struct netconfig *nconf; /* Netconfig struct for nettoken */
- const struct t_bind *bindaddr; /* Local bind address */
- u_int sendsz; /* Max sendsize */
- u_int recvsz; /* Max recvsize */
- {
- SVCXPRT *xprt = NULL; /* service handle */
- bool_t madefd = FALSE; /* whether fd opened here */
- struct __rpc_sockinfo si;
- struct sockaddr_storage ss;
- socklen_t slen;
- if (fd == RPC_ANYFD) {
- if (nconf == NULL) {
- warnx("svc_tli_create: invalid netconfig");
- return (NULL);
- }
- fd = __rpc_nconf2fd(nconf);
- if (fd == -1) {
- warnx(
- "svc_tli_create: could not open connection for %s",
- nconf->nc_netid);
- return (NULL);
- }
- __rpc_nconf2sockinfo(nconf, &si);
- madefd = TRUE;
- } else {
- /*
- * It is an open descriptor. Get the transport info.
- */
- if (!__rpc_fd2sockinfo(fd, &si)) {
- warnx(
- "svc_tli_create: could not get transport information");
- return (NULL);
- }
- }
- /*
- * If the fd is unbound, try to bind it.
- */
- if (madefd || !__rpc_sockisbound(fd)) {
- if (bindaddr == NULL) {
- if (bindresvport(fd, NULL) < 0) {
- memset(&ss, 0, sizeof ss);
- ss.ss_family = si.si_af;
- ss.ss_len = si.si_alen;
- if (bind(fd, (struct sockaddr *)(void *)&ss,
- (socklen_t)si.si_alen) < 0) {
- warnx(
- "svc_tli_create: could not bind to anonymous port");
- goto freedata;
- }
- }
- listen(fd, SOMAXCONN);
- } else {
- if (bind(fd,
- (struct sockaddr *)bindaddr->addr.buf,
- (socklen_t)si.si_alen) < 0) {
- warnx(
- "svc_tli_create: could not bind to requested address");
- goto freedata;
- }
- listen(fd, (int)bindaddr->qlen);
- }
-
- }
- /*
- * call transport specific function.
- */
- switch (si.si_socktype) {
- case SOCK_STREAM:
- slen = sizeof ss;
- if (getpeername(fd, (struct sockaddr *)(void *)&ss, &slen)
- == 0) {
- /* accepted socket */
- xprt = svc_fd_create(fd, sendsz, recvsz);
- } else
- xprt = svc_vc_create(fd, sendsz, recvsz);
- if (!nconf || !xprt)
- break;
- #if 0
- /* XXX fvdl */
- if (strcmp(nconf->nc_protofmly, "inet") == 0 ||
- strcmp(nconf->nc_protofmly, "inet6") == 0)
- (void) __svc_vc_setflag(xprt, TRUE);
- #endif
- break;
- case SOCK_DGRAM:
- xprt = svc_dg_create(fd, sendsz, recvsz);
- break;
- default:
- warnx("svc_tli_create: bad service type");
- goto freedata;
- }
- if (xprt == NULL)
- /*
- * The error messages here are spitted out by the lower layers:
- * svc_vc_create(), svc_fd_create() and svc_dg_create().
- */
- goto freedata;
- /* Fill in type of service */
- xprt->xp_type = __rpc_socktype2seman(si.si_socktype);
- if (nconf) {
- xprt->xp_netid = strdup(nconf->nc_netid);
- xprt->xp_tp = strdup(nconf->nc_device);
- if (xprt->xp_netid == NULL || xprt->xp_tp == NULL) {
- svc_destroy(xprt);
- return NULL;
- }
- }
- return (xprt);
- freedata:
- if (madefd)
- (void) close(fd);
- return (NULL);
- }