lib/libcr/rpc/getrpcent.c

   1 /*
   2  * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
   3  * unrestricted use provided that this legend is included on all tape
   4  * media and as a part of the software program in whole or part.  Users
   5  * may copy or modify Sun RPC without charge, but are not authorized
   6  * to license or distribute it to anyone else except as part of a product or
   7  * program developed by the user or with the express written consent of
   8  * Sun Microsystems, Inc.
   9  *
  10  * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  11  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  12  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  13  *
  14  * Sun RPC is provided with no support and without any obligation on the
  15  * part of Sun Microsystems, Inc. to assist in its use, correction,
  16  * modification or enhancement.
  17  *
  18  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  19  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
  20  * OR ANY PART THEREOF.
  21  *
  22  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  23  * or profits or other special, indirect and consequential damages, even if
  24  * Sun has been advised of the possibility of such damages.
  25  *
  26  * Sun Microsystems, Inc.
  27  * 2550 Garcia Avenue
  28  * Mountain View, California  94043
  29  */
  30
  31 #if defined(LIBC_SCCS) && !defined(lint)
  32 /*static char *sccsid = "from: @(#)getrpcent.c 1.14 91/03/11 Copyr 1984 Sun Micro";*/
  33 static char *rcsid = "$FreeBSD: src/lib/libc/rpc/getrpcent.c,v 1.10 1999/08/28 00:00:39 peter Exp $";
  34 #endif
  35
  36 /*
  37  * Copyright (c) 1984 by Sun Microsystems, Inc.
  38  */
  39
  40 #include <stdio.h>
  41 #include <stdlib.h>
  42 #include <sys/types.h>
  43 #include <string.h>
  44 #include <rpc/rpc.h>
  45 #ifdef YP
  46 #include <rpcsvc/yp_prot.h>
  47 #include <rpcsvc/ypclnt.h>
  48 #endif
  49
  50 /*
  51  * Internet version.
  52  */
  53 struct rpcdata {
  54         FILE    *rpcf;
  55         int     stayopen;
  56 #define MAXALIASES      35
  57         char    *rpc_aliases[MAXALIASES];
  58         struct  rpcent rpc;
  59         char    line[BUFSIZ+1];
  60 #ifdef  YP
  61         char    *domain;
  62         char    *current;
  63         int     currentlen;
  64 #endif
  65 } *rpcdata;
  66
  67 #ifdef  YP
  68 static int      __yp_nomap = 0;
  69 extern int _yp_check(char **);
  70 #endif  /* YP */
  71
  72 static  struct rpcent *interpret();
  73 struct  hostent *gethostent();
  74 char    *inet_ntoa();
  75
  76 static char RPCDB[] = "/etc/rpc";
  77
  78 static struct rpcdata *
  79 _rpcdata()
  80 {
  81         register struct rpcdata *d = rpcdata;
  82
  83         if (d == 0) {
  84                 d = (struct rpcdata *)calloc(1, sizeof (struct rpcdata));
  85                 rpcdata = d;
  86         }
  87         return (d);
  88 }
  89
  90 struct rpcent *
  91 getrpcbynumber(number)
  92         register int number;
  93 {
  94         register struct rpcdata *d = _rpcdata();
  95         register struct rpcent *p;
  96 #ifdef  YP
  97         int reason;
  98         char adrstr[16];
  99 #endif
 100
 101         if (d == 0)
 102                 return (0);
 103 #ifdef  YP
 104         if (!__yp_nomap && _yp_check(&d->domain)) {
 105                 sprintf(adrstr, "%d", number);
 106                 reason = yp_match(d->domain, "rpc.bynumber", adrstr, strlen(adrstr),
 107                                   &d->current, &d->currentlen);
 108                 switch(reason) {
 109                 case 0:
 110                         break;
 111                 case YPERR_MAP:
 112                         __yp_nomap = 1;
 113                         goto no_yp;
 114                         break;
 115                 default:
 116                         return(0);
 117                         break;
 118                 }
 119                 d->current[d->currentlen] = '\0';
 120                 p = interpret(d->current, d->currentlen);
 121                 (void) free(d->current);
 122                 return p;
 123         }
 124 no_yp:
 125 #endif  /* YP */
 126         setrpcent(0);
 127         while ((p = getrpcent())) {
 128                 if (p->r_number == number)
 129                         break;
 130         }
 131         endrpcent();
 132         return (p);
 133 }
 134
 135 struct rpcent *
 136 getrpcbyname(name)
 137         char *name;
 138 {
 139         struct rpcent *rpc = NULL;
 140         char **rp;
 141
 142         setrpcent(0);
 143         while ((rpc = getrpcent())) {
 144                 if (strcmp(rpc->r_name, name) == 0)
 145                         goto done;
 146                 for (rp = rpc->r_aliases; *rp != NULL; rp++) {
 147                         if (strcmp(*rp, name) == 0)
 148                                 goto done;
 149                 }
 150         }
 151 done:
 152         endrpcent();
 153         return (rpc);
 154 }
 155
 156 void
 157 setrpcent(f)
 158         int f;
 159 {
 160         register struct rpcdata *d = _rpcdata();
 161
 162         if (d == 0)
 163                 return;
 164 #ifdef  YP
 165         if (!__yp_nomap && _yp_check(NULL)) {
 166                 if (d->current)
 167                         free(d->current);
 168                 d->current = NULL;
 169                 d->currentlen = 0;
 170                 return;
 171         }
 172         __yp_nomap = 0;
 173 #endif  /* YP */
 174         if (d->rpcf == NULL)
 175                 d->rpcf = fopen(RPCDB, "r");
 176         else
 177                 rewind(d->rpcf);
 178         d->stayopen |= f;
 179 }
 180
 181 void
 182 endrpcent()
 183 {
 184         register struct rpcdata *d = _rpcdata();
 185
 186         if (d == 0)
 187                 return;
 188 #ifdef  YP
 189         if (!__yp_nomap && _yp_check(NULL)) {
 190                 if (d->current && !d->stayopen)
 191                         free(d->current);
 192                 d->current = NULL;
 193                 d->currentlen = 0;
 194                 return;
 195         }
 196         __yp_nomap = 0;
 197 #endif  /* YP */
 198         if (d->rpcf && !d->stayopen) {
 199                 fclose(d->rpcf);
 200                 d->rpcf = NULL;
 201         }
 202 }
 203
 204 struct rpcent *
 205 getrpcent()
 206 {
 207         register struct rpcdata *d = _rpcdata();
 208 #ifdef  YP
 209         struct rpcent *hp;
 210         int reason;
 211         char *val = NULL;
 212         int vallen;
 213 #endif
 214
 215         if (d == 0)
 216                 return(NULL);
 217 #ifdef  YP
 218         if (!__yp_nomap && _yp_check(&d->domain)) {
 219                 if (d->current == NULL && d->currentlen == 0) {
 220                         reason = yp_first(d->domain, "rpc.bynumber",
 221                                           &d->current, &d->currentlen,
 222                                           &val, &vallen);
 223                 } else {
 224                         reason = yp_next(d->domain, "rpc.bynumber",
 225                                          d->current, d->currentlen,
 226                                          &d->current, &d->currentlen,
 227                                          &val, &vallen);
 228                 }
 229                 switch(reason) {
 230                 case 0:
 231                         break;
 232                 case YPERR_MAP:
 233                         __yp_nomap = 1;
 234                         goto no_yp;
 235                         break;
 236                 default:
 237                         return(0);
 238                         break;
 239                 }
 240                 val[vallen] = '\0';
 241                 hp = interpret(val, vallen);
 242                 (void) free(val);
 243                 return hp;
 244         }
 245 no_yp:
 246 #endif  /* YP */
 247         if (d->rpcf == NULL && (d->rpcf = fopen(RPCDB, "r")) == NULL)
 248                 return (NULL);
 249         /* -1 so there is room to append a \n below */
 250         if (fgets(d->line, BUFSIZ - 1, d->rpcf) == NULL)
 251                 return (NULL);
 252         return (interpret(d->line, strlen(d->line)));
 253 }
 254
 255 static struct rpcent *
 256 interpret(val, len)
 257         char *val;
 258         int len;
 259 {
 260         register struct rpcdata *d = _rpcdata();
 261         char *p;
 262         register char *cp, **q;
 263
 264         if (d == 0)
 265                 return (0);
 266         (void) strncpy(d->line, val, BUFSIZ);
 267         d->line[BUFSIZ] = '\0';
 268         p = d->line;
 269         p[len] = '\n';
 270         if (*p == '#')
 271                 return (getrpcent());
 272         cp = strpbrk(p, "#\n");
 273         if (cp == NULL)
 274                 return (getrpcent());
 275         *cp = '\0';
 276         cp = strpbrk(p, " \t");
 277         if (cp == NULL)
 278                 return (getrpcent());
 279         *cp++ = '\0';
 280         /* THIS STUFF IS INTERNET SPECIFIC */
 281         d->rpc.r_name = d->line;
 282         while (*cp == ' ' || *cp == '\t')
 283                 cp++;
 284         d->rpc.r_number = atoi(cp);
 285         q = d->rpc.r_aliases = d->rpc_aliases;
 286         cp = strpbrk(cp, " \t");
 287         if (cp != NULL)
 288                 *cp++ = '\0';
 289         while (cp && *cp) {
 290                 if (*cp == ' ' || *cp == '\t') {
 291                         cp++;
 292                         continue;
 293                 }
 294                 if (q < &(d->rpc_aliases[MAXALIASES - 1]))
 295                         *q++ = cp;
 296                 cp = strpbrk(cp, " \t");
 297                 if (cp != NULL)
 298                         *cp++ = '\0';
 299         }
 300         *q = NULL;
 301         return (&d->rpc);
 302 }
 303