1 | /* |
---|
2 | * Copyright (c) 1983, 1993 |
---|
3 | * The Regents of the University of California. All rights reserved. |
---|
4 | * |
---|
5 | * Redistribution and use in source and binary forms, with or without |
---|
6 | * modification, are permitted provided that the following conditions |
---|
7 | * are met: |
---|
8 | * 1. Redistributions of source code must retain the above copyright |
---|
9 | * notice, this list of conditions and the following disclaimer. |
---|
10 | * 2. Redistributions in binary form must reproduce the above copyright |
---|
11 | * notice, this list of conditions and the following disclaimer in the |
---|
12 | * documentation and/or other materials provided with the distribution. |
---|
13 | * 3. All advertising materials mentioning features or use of this software |
---|
14 | * must display the following acknowledgement: |
---|
15 | * This product includes software developed by the University of |
---|
16 | * California, Berkeley and its contributors. |
---|
17 | * 4. Neither the name of the University nor the names of its contributors |
---|
18 | * may be used to endorse or promote products derived from this software |
---|
19 | * without specific prior written permission. |
---|
20 | * |
---|
21 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND |
---|
22 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
---|
23 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
---|
24 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE |
---|
25 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
---|
26 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
---|
27 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
---|
28 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
---|
29 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
---|
30 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
---|
31 | * SUCH DAMAGE. |
---|
32 | */ |
---|
33 | |
---|
34 | #if defined(LIBC_SCCS) && !defined(lint) |
---|
35 | static char sccsid[] = "@(#)getservent.c 8.1 (Berkeley) 6/4/93"; |
---|
36 | #endif /* LIBC_SCCS and not lint */ |
---|
37 | |
---|
38 | #include <sys/types.h> |
---|
39 | #include <sys/socket.h> |
---|
40 | #include <netdb.h> |
---|
41 | #include <stdio.h> |
---|
42 | #include <string.h> |
---|
43 | #include <stdlib.h> |
---|
44 | #ifdef YP |
---|
45 | #include <rpc/rpc.h> |
---|
46 | #include <rpcsvc/yp_prot.h> |
---|
47 | #include <rpcsvc/ypclnt.h> |
---|
48 | static int serv_stepping_yp = 0; |
---|
49 | extern int _yp_check __P(( char ** )); |
---|
50 | #endif |
---|
51 | |
---|
52 | |
---|
53 | #define MAXALIASES 35 |
---|
54 | |
---|
55 | static FILE *servf = NULL; |
---|
56 | static char line[BUFSIZ+1]; |
---|
57 | static struct servent serv; |
---|
58 | static char *serv_aliases[MAXALIASES]; |
---|
59 | int _serv_stayopen; |
---|
60 | |
---|
61 | #ifdef YP |
---|
62 | char *___getservbyname_yp = NULL; |
---|
63 | char *___getservbyproto_yp = NULL; |
---|
64 | int ___getservbyport_yp = 0; |
---|
65 | static char *yp_domain = NULL; |
---|
66 | |
---|
67 | static int |
---|
68 | _getservbyport_yp(line) |
---|
69 | char *line; |
---|
70 | { |
---|
71 | char *result; |
---|
72 | int resultlen; |
---|
73 | char buf[YPMAXRECORD + 2]; |
---|
74 | int rv; |
---|
75 | |
---|
76 | snprintf(buf, sizeof(buf), "%d/%s", ntohs(___getservbyport_yp), |
---|
77 | ___getservbyproto_yp); |
---|
78 | |
---|
79 | ___getservbyport_yp = 0; |
---|
80 | ___getservbyproto_yp = NULL; |
---|
81 | |
---|
82 | if(!yp_domain) { |
---|
83 | if(yp_get_default_domain(&yp_domain)) |
---|
84 | return (0); |
---|
85 | } |
---|
86 | |
---|
87 | /* |
---|
88 | * We have to be a little flexible here. Ideally you're supposed |
---|
89 | * to have both a services.byname and a services.byport map, but |
---|
90 | * some systems have only services.byname. FreeBSD cheats a little |
---|
91 | * by putting the services.byport information in the same map as |
---|
92 | * services.byname so that either case will work. We allow for both |
---|
93 | * possibilities here: if there is no services.byport map, we try |
---|
94 | * services.byname instead. |
---|
95 | */ |
---|
96 | if ((rv = yp_match(yp_domain, "services.byport", buf, strlen(buf), |
---|
97 | &result, &resultlen))) { |
---|
98 | if (rv == YPERR_MAP) { |
---|
99 | if (yp_match(yp_domain, "services.byname", buf, |
---|
100 | strlen(buf), &result, &resultlen)) |
---|
101 | return(0); |
---|
102 | } else |
---|
103 | return(0); |
---|
104 | } |
---|
105 | |
---|
106 | /* getservent() expects lines terminated with \n -- make it happy */ |
---|
107 | snprintf(line, BUFSIZ, "%.*s\n", resultlen, result); |
---|
108 | |
---|
109 | free(result); |
---|
110 | return(1); |
---|
111 | } |
---|
112 | |
---|
113 | static int |
---|
114 | _getservbyname_yp(line) |
---|
115 | char *line; |
---|
116 | { |
---|
117 | char *result; |
---|
118 | int resultlen; |
---|
119 | char buf[YPMAXRECORD + 2]; |
---|
120 | |
---|
121 | if(!yp_domain) { |
---|
122 | if(yp_get_default_domain(&yp_domain)) |
---|
123 | return (0); |
---|
124 | } |
---|
125 | |
---|
126 | snprintf(buf, sizeof(buf), "%s/%s", ___getservbyname_yp, |
---|
127 | ___getservbyproto_yp); |
---|
128 | |
---|
129 | ___getservbyname_yp = 0; |
---|
130 | ___getservbyproto_yp = NULL; |
---|
131 | |
---|
132 | if (yp_match(yp_domain, "services.byname", buf, strlen(buf), |
---|
133 | &result, &resultlen)) { |
---|
134 | return(0); |
---|
135 | } |
---|
136 | |
---|
137 | /* getservent() expects lines terminated with \n -- make it happy */ |
---|
138 | snprintf(line, BUFSIZ, "%.*s\n", resultlen, result); |
---|
139 | |
---|
140 | free(result); |
---|
141 | return(1); |
---|
142 | } |
---|
143 | |
---|
144 | static int |
---|
145 | _getservent_yp(line) |
---|
146 | char *line; |
---|
147 | { |
---|
148 | static char *key = NULL; |
---|
149 | static int keylen; |
---|
150 | char *lastkey, *result; |
---|
151 | int resultlen; |
---|
152 | int rv; |
---|
153 | |
---|
154 | if(!yp_domain) { |
---|
155 | if(yp_get_default_domain(&yp_domain)) |
---|
156 | return (0); |
---|
157 | } |
---|
158 | |
---|
159 | if (!serv_stepping_yp) { |
---|
160 | if (key) |
---|
161 | free(key); |
---|
162 | if ((rv = yp_first(yp_domain, "services.byname", &key, &keylen, |
---|
163 | &result, &resultlen))) { |
---|
164 | serv_stepping_yp = 0; |
---|
165 | return(0); |
---|
166 | } |
---|
167 | serv_stepping_yp = 1; |
---|
168 | } else { |
---|
169 | lastkey = key; |
---|
170 | rv = yp_next(yp_domain, "services.byname", key, keylen, &key, |
---|
171 | &keylen, &result, &resultlen); |
---|
172 | free(lastkey); |
---|
173 | if (rv) { |
---|
174 | serv_stepping_yp = 0; |
---|
175 | return (0); |
---|
176 | } |
---|
177 | } |
---|
178 | |
---|
179 | /* getservent() expects lines terminated with \n -- make it happy */ |
---|
180 | snprintf(line, BUFSIZ, "%.*s\n", resultlen, result); |
---|
181 | |
---|
182 | free(result); |
---|
183 | |
---|
184 | return(1); |
---|
185 | } |
---|
186 | #endif |
---|
187 | |
---|
188 | void |
---|
189 | setservent(f) |
---|
190 | int f; |
---|
191 | { |
---|
192 | if (servf == NULL) |
---|
193 | servf = fopen(_PATH_SERVICES, "r" ); |
---|
194 | else |
---|
195 | rewind(servf); |
---|
196 | _serv_stayopen |= f; |
---|
197 | } |
---|
198 | |
---|
199 | void |
---|
200 | endservent() |
---|
201 | { |
---|
202 | if (servf) { |
---|
203 | fclose(servf); |
---|
204 | servf = NULL; |
---|
205 | } |
---|
206 | _serv_stayopen = 0; |
---|
207 | } |
---|
208 | |
---|
209 | struct servent * |
---|
210 | getservent() |
---|
211 | { |
---|
212 | char *p; |
---|
213 | register char *cp, **q; |
---|
214 | |
---|
215 | #ifdef YP |
---|
216 | if (serv_stepping_yp && _getservent_yp(line)) { |
---|
217 | p = (char *)&line; |
---|
218 | goto unpack; |
---|
219 | } |
---|
220 | tryagain: |
---|
221 | #endif |
---|
222 | if (servf == NULL && (servf = fopen(_PATH_SERVICES, "r" )) == NULL) |
---|
223 | return (NULL); |
---|
224 | again: |
---|
225 | if ((p = fgets(line, BUFSIZ, servf)) == NULL) |
---|
226 | return (NULL); |
---|
227 | #ifdef YP |
---|
228 | if (*p == '+' && _yp_check(NULL)) { |
---|
229 | if (___getservbyname_yp != NULL) { |
---|
230 | if (!_getservbyname_yp(line)) |
---|
231 | goto tryagain; |
---|
232 | } |
---|
233 | else if (___getservbyport_yp != 0) { |
---|
234 | if (!_getservbyport_yp(line)) |
---|
235 | goto tryagain; |
---|
236 | } |
---|
237 | else if (!_getservent_yp(line)) |
---|
238 | goto tryagain; |
---|
239 | } |
---|
240 | unpack: |
---|
241 | #endif |
---|
242 | if (*p == '#') |
---|
243 | goto again; |
---|
244 | cp = strpbrk(p, "#\n"); |
---|
245 | if (cp == NULL) |
---|
246 | goto again; |
---|
247 | *cp = '\0'; |
---|
248 | serv.s_name = p; |
---|
249 | p = strpbrk(p, " \t"); |
---|
250 | if (p == NULL) |
---|
251 | goto again; |
---|
252 | *p++ = '\0'; |
---|
253 | while (*p == ' ' || *p == '\t') |
---|
254 | p++; |
---|
255 | cp = strpbrk(p, ",/"); |
---|
256 | if (cp == NULL) |
---|
257 | goto again; |
---|
258 | *cp++ = '\0'; |
---|
259 | serv.s_port = htons((u_short)atoi(p)); |
---|
260 | serv.s_proto = cp; |
---|
261 | q = serv.s_aliases = serv_aliases; |
---|
262 | cp = strpbrk(cp, " \t"); |
---|
263 | if (cp != NULL) |
---|
264 | *cp++ = '\0'; |
---|
265 | while (cp && *cp) { |
---|
266 | if (*cp == ' ' || *cp == '\t') { |
---|
267 | cp++; |
---|
268 | continue; |
---|
269 | } |
---|
270 | if (q < &serv_aliases[MAXALIASES - 1]) |
---|
271 | *q++ = cp; |
---|
272 | cp = strpbrk(cp, " \t"); |
---|
273 | if (cp != NULL) |
---|
274 | *cp++ = '\0'; |
---|
275 | } |
---|
276 | *q = NULL; |
---|
277 | return (&serv); |
---|
278 | } |
---|