xref: /titanic_41/usr/src/cmd/cmd-inet/usr.sbin/ifconfig/revarp.c (revision 0689f76c08c5e553ff25ac43a852b56c430bb61e)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
23  * Use is subject to license terms.
24  */
25 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
26 /*	  All Rights Reserved	*/
27 
28 #include "defs.h"
29 #include "ifconfig.h"
30 #include <sys/types.h>
31 #include <libdlpi.h>
32 #include <sys/sysmacros.h>
33 #include <sys/time.h>
34 #include <deflt.h>
35 
36 #define	IPADDRL		sizeof (struct in_addr)
37 #define	RARPRETRIES	5
38 
39 /*
40  * The following value (8) is determined to work reliably in switched 10/100MB
41  * ethernet environments. Use caution if you plan on decreasing it.
42  */
43 #define	RARPTIMEOUT	8
44 
45 static char	defaultfile[] = "/etc/inet/rarp";
46 static char	retries_var[] = "RARP_RETRIES=";
47 static int rarp_timeout = RARPTIMEOUT;
48 static int rarp_retries = RARPRETRIES;
49 
50 static dlpi_handle_t rarp_open(const char *, size_t *, uchar_t *, uchar_t *);
51 static int rarp_recv(dlpi_handle_t, struct arphdr *, size_t, size_t, int64_t);
52 
53 int
doifrevarp(const char * linkname,struct sockaddr_in * laddr)54 doifrevarp(const char *linkname, struct sockaddr_in *laddr)
55 {
56 	int			s, retval;
57 	struct arphdr		*req, *ans;
58 	struct in_addr		from;
59 	struct in_addr		answer;
60 	struct lifreq		lifr;
61 	int			tries_left;
62 	size_t			physaddrlen, ifrarplen;
63 	uchar_t			my_macaddr[DLPI_PHYSADDR_MAX];
64 	uchar_t 		my_broadcast[DLPI_PHYSADDR_MAX];
65 	dlpi_handle_t		dh;
66 
67 	if (linkname[0] == '\0') {
68 		(void) fprintf(stderr, "ifconfig: doifrevarp: name not set\n");
69 		exit(1);
70 	}
71 
72 	if (debug)
73 		(void) printf("doifrevarp interface %s\n", linkname);
74 
75 	if ((s = socket(AF_INET, SOCK_DGRAM, 0)) < 0)
76 		Perror0_exit("socket");
77 
78 	(void) strlcpy(lifr.lifr_name, linkname, sizeof (lifr.lifr_name));
79 	if (ioctl(s, SIOCGLIFFLAGS, (char *)&lifr) < 0) {
80 		(void) close(s);
81 		Perror0_exit("SIOCGLIFFLAGS");
82 	}
83 
84 	/* don't try to revarp if we know it won't work */
85 	if ((lifr.lifr_flags & IFF_LOOPBACK) ||
86 	    (lifr.lifr_flags & IFF_NOARP) ||
87 	    (lifr.lifr_flags & IFF_IPMP) ||
88 	    (lifr.lifr_flags & IFF_POINTOPOINT)) {
89 		(void) close(s);
90 		return (0);
91 	}
92 
93 	/* open rarp interface */
94 	dh = rarp_open(linkname, &physaddrlen, my_macaddr, my_broadcast);
95 	if (dh == NULL) {
96 		(void) close(s);
97 		return (0);
98 	}
99 
100 	/*
101 	 * RARP looks at /etc/ethers and NIS, which only works
102 	 * with 6 byte addresses currently.
103 	 */
104 	if (physaddrlen != ETHERADDRL) {
105 		dlpi_close(dh);
106 		(void) close(s);
107 		return (0);
108 	}
109 
110 	ifrarplen = sizeof (struct arphdr) + (2 * IPADDRL) + (2 * physaddrlen);
111 
112 	/* look for adjustments to rarp_retries in the RARP defaults file */
113 	if (defopen(defaultfile) == 0) {
114 		char	*cp;
115 
116 		if (cp = defread(retries_var)) {
117 			int	ntries;
118 
119 			ntries = atoi(cp);
120 			if (ntries > 0)
121 				rarp_retries = ntries;
122 		}
123 		(void) defopen(NULL);	/* close default file */
124 	}
125 
126 	/* allocate request and response buffers */
127 	if (((req = malloc(ifrarplen)) == NULL) ||
128 	    ((ans = malloc(ifrarplen)) == NULL)) {
129 		dlpi_close(dh);
130 		(void) close(s);
131 		free(req);
132 		return (0);
133 	}
134 
135 	/* create rarp request */
136 	(void) memset(req, 0, ifrarplen);
137 	req->ar_hrd = htons(ARPHRD_ETHER);
138 	req->ar_pro = htons(ETHERTYPE_IP);
139 	req->ar_hln = physaddrlen;
140 	req->ar_pln = IPADDRL;
141 	req->ar_op = htons(REVARP_REQUEST);
142 
143 	(void) memcpy(&req[1], my_macaddr, physaddrlen);
144 	(void) memcpy((uchar_t *)req + sizeof (struct arphdr) + IPADDRL +
145 	    physaddrlen, my_macaddr, physaddrlen);
146 
147 	for (tries_left = rarp_retries; tries_left > 0; --tries_left) {
148 		/* send the request */
149 		retval = dlpi_send(dh, my_broadcast, physaddrlen, req,
150 		    ifrarplen, NULL);
151 		if (retval != DLPI_SUCCESS) {
152 			Perrdlpi("doifrevarp: cannot send rarp request",
153 			    linkname, retval);
154 			break;
155 		}
156 
157 		if (debug)
158 			(void) printf("rarp sent\n");
159 
160 		retval = rarp_recv(dh, ans, ifrarplen, physaddrlen,
161 		    rarp_timeout * MILLISEC);
162 
163 		if (retval != DLPI_ETIMEDOUT)
164 			break;
165 
166 		if (debug)
167 			(void) printf("rarp retry\n");
168 	}
169 
170 	if (retval == DLPI_SUCCESS) {
171 		(void) memcpy(&answer, (uchar_t *)ans +
172 		    sizeof (struct arphdr) + (2 * physaddrlen) + IPADDRL,
173 		    sizeof (answer));
174 		(void) memcpy(&from, (uchar_t *)ans + physaddrlen +
175 		    sizeof (struct arphdr), sizeof (from));
176 
177 		if (debug) {
178 			(void) printf("answer: %s", inet_ntoa(answer));
179 			(void) printf(" [from %s]\n", inet_ntoa(from));
180 		}
181 		laddr->sin_addr = answer;
182 	} else if (debug) {
183 		Perrdlpi("doifrevarp: could not receive rarp reply",
184 		    linkname, retval);
185 	}
186 
187 	dlpi_close(dh);
188 	(void) close(s);
189 	free(req);
190 	free(ans);
191 	return (retval == DLPI_SUCCESS);
192 }
193 
194 /*
195  * Open the datalink provider device and bind to the REVARP type.
196  * Return the resulting DLPI handle.
197  */
198 static	dlpi_handle_t
rarp_open(const char * linkname,size_t * alen,uchar_t * myaddr,uchar_t * mybaddr)199 rarp_open(const char *linkname, size_t *alen, uchar_t *myaddr, uchar_t *mybaddr)
200 {
201 	int		retval;
202 	char		*physaddr, *bcastaddr;
203 	dlpi_info_t	dlinfo;
204 	dlpi_handle_t	dh;
205 
206 	if (debug)
207 		(void) printf("rarp_open %s\n", linkname);
208 
209 	if ((retval = dlpi_open(linkname, &dh, 0)) != DLPI_SUCCESS) {
210 		Perrdlpi("rarp_open: dlpi_open failed", linkname, retval);
211 		return (NULL);
212 	}
213 
214 	if ((retval = dlpi_bind(dh, ETHERTYPE_REVARP, NULL)) != DLPI_SUCCESS) {
215 		Perrdlpi("rarp_open: dlpi_bind failed", linkname, retval);
216 		goto failed;
217 	}
218 
219 	if ((retval = dlpi_info(dh, &dlinfo, 0)) != DLPI_SUCCESS) {
220 		Perrdlpi("rarp_open: dlpi_info failed", linkname, retval);
221 		goto failed;
222 	}
223 
224 	if (dlinfo.di_bcastaddrlen == 0) {
225 		(void) fprintf(stderr, "ifconfig: rarp_open: %s broadcast "
226 		    "not supported\n", linkname);
227 		goto failed;
228 	}
229 
230 	/* we assume the following are equal and fill in 'alen' */
231 	assert(dlinfo.di_bcastaddrlen == dlinfo.di_physaddrlen);
232 
233 	(void) memcpy(mybaddr, dlinfo.di_bcastaddr, dlinfo.di_bcastaddrlen);
234 
235 	*alen = dlinfo.di_physaddrlen;
236 
237 	(void) memcpy(myaddr, dlinfo.di_physaddr, dlinfo.di_physaddrlen);
238 
239 	if (debug) {
240 		bcastaddr = _link_ntoa(mybaddr, NULL, dlinfo.di_bcastaddrlen,
241 		    IFT_OTHER);
242 
243 		physaddr = _link_ntoa(myaddr, NULL, dlinfo.di_physaddrlen,
244 		    IFT_OTHER);
245 
246 		if (physaddr != NULL && bcastaddr != NULL) {
247 			(void) printf("device %s: broadcast address %s, mac "
248 			    "address %s\n", linkname, bcastaddr, physaddr);
249 		}
250 
251 		free(physaddr);
252 		free(bcastaddr);
253 
254 		(void) printf("rarp_open: addr length = %d\n",
255 		    dlinfo.di_physaddrlen);
256 	}
257 
258 	return (dh);
259 
260 failed:
261 	dlpi_close(dh);
262 	return (NULL);
263 }
264 
265 /*
266  * Read reply for RARP request. If a reply is received within waitms,
267  * validate the reply. If it is a correct RARP reply return DLPI_SUCCESS,
268  * otherwise return DLPI_ETIMEDOUT. If there is an error while reading retrun
269  * the error code.
270  */
271 static int
rarp_recv(dlpi_handle_t dh,struct arphdr * ans,size_t msglen,size_t physaddrlen,int64_t waitms)272 rarp_recv(dlpi_handle_t dh, struct arphdr *ans, size_t msglen,
273     size_t physaddrlen, int64_t waitms)
274 {
275 	int		retval;
276 	char		*cause;
277 	size_t		anslen = msglen;
278 	hrtime_t	endtime = gethrtime() + MSEC2NSEC(waitms);
279 	hrtime_t	currtime;
280 
281 	while ((currtime = gethrtime()) < endtime) {
282 		waitms = NSEC2MSEC(endtime - currtime);
283 		retval = dlpi_recv(dh, NULL, NULL, ans, &anslen, waitms, NULL);
284 		if (retval == DLPI_SUCCESS) {
285 			cause = NULL;
286 
287 			if (anslen < msglen)
288 				cause = "short packet";
289 			else if (ans->ar_hrd != htons(ARPHRD_ETHER))
290 				cause = "hardware type not Ethernet";
291 			else if (ans->ar_pro != htons(ETHERTYPE_IP))
292 				cause = "protocol type not IP";
293 			else if (ans->ar_hln != physaddrlen)
294 				cause = "unexpected hardware address length";
295 			else if (ans->ar_pln != IPADDRL)
296 				cause = "unexpected protocol address length";
297 			if (cause != NULL) {
298 				(void) fprintf(stderr, "RARP packet received "
299 				    "but discarded (%s)\n", cause);
300 				continue;
301 			}
302 			switch (ntohs(ans->ar_op)) {
303 			case REVARP_REQUEST:
304 				if (debug)
305 					(void) printf("Got a rarp request.\n");
306 				break;
307 
308 			case REVARP_REPLY:
309 				return (DLPI_SUCCESS);
310 
311 			default:
312 				(void) fprintf(stderr, "ifconfig: unknown "
313 				    "RARP opcode 0x%x\n", ans->ar_op);
314 				break;
315 			}
316 		} else if (retval != DLPI_ETIMEDOUT) {
317 			Perrdlpi("doifrevarp: dlpi_recv failed",
318 			    dlpi_linkname(dh), retval);
319 			return (retval);
320 		}
321 	}
322 
323 	return (DLPI_ETIMEDOUT);
324 }
325 
326 void
dlpi_print_address(const char * linkname)327 dlpi_print_address(const char *linkname)
328 {
329 	uint_t	physaddrlen = DLPI_PHYSADDR_MAX;
330 	uchar_t	physaddr[DLPI_PHYSADDR_MAX];
331 	char	*str;
332 	int	retv;
333 	dlpi_handle_t	dh;
334 	dlpi_info_t	dlinfo;
335 
336 	if (dlpi_open(linkname, &dh, 0) != DLPI_SUCCESS) {
337 		/* Do not report an error */
338 		return;
339 	}
340 
341 	retv = dlpi_get_physaddr(dh, DL_CURR_PHYS_ADDR, physaddr, &physaddrlen);
342 	if (retv != DLPI_SUCCESS) {
343 		Perrdlpi("dlpi_get_physaddr failed", linkname, retv);
344 		dlpi_close(dh);
345 		return;
346 	}
347 
348 	retv = dlpi_info(dh, &dlinfo, 0);
349 	if (retv != DLPI_SUCCESS) {
350 		Perrdlpi("dlpi_info failed", linkname, retv);
351 		dlpi_close(dh);
352 		return;
353 	}
354 	dlpi_close(dh);
355 
356 	str = _link_ntoa(physaddr, NULL, physaddrlen, IFT_OTHER);
357 
358 	if (str != NULL && physaddrlen != 0) {
359 		switch (dlinfo.di_mactype) {
360 			case DL_IB:
361 				(void) printf("\tipib %s \n", str);
362 				break;
363 			default:
364 				(void) printf("\tether %s \n", str);
365 				break;
366 		}
367 		free(str);
368 	}
369 }
370