1/*
2 * Copyright 2004 The Aerospace Corporation.  All rights reserved.
3 *
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions
6 * are met:
7 *
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.  The name of The Aerospace Corporation may not be used to endorse or
14 *     promote products derived from this software.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AEROSPACE CORPORATION "AS IS" AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AEROSPACE CORPORATION BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 *
28 * Copyright (c) 1995
29 *	Bill Paul <wpaul@ctr.columbia.edu>.  All rights reserved.
30 *
31 * Redistribution and use in source and binary forms, with or without
32 * modification, are permitted provided that the following conditions
33 * are met:
34 * 1. Redistributions of source code must retain the above copyright
35 *    notice, this list of conditions and the following disclaimer.
36 * 2. Redistributions in binary form must reproduce the above copyright
37 *    notice, this list of conditions and the following disclaimer in the
38 *    documentation and/or other materials provided with the distribution.
39 * 3. All advertising materials mentioning features or use of this software
40 *    must display the following acknowledgement:
41 *	This product includes software developed by Bill Paul.
42 * 4. Neither the name of the author nor the names of any co-contributors
43 *    may be used to endorse or promote products derived from this software
44 *    without specific prior written permission.
45 *
46 * THIS SOFTWARE IS PROVIDED BY Bill Paul AND CONTRIBUTORS ``AS IS'' AND
47 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
48 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
49 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
50 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
51 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
52 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
53 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
54 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
55 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
56 * SUCH DAMAGE.
57 *
58 * EUI-64 conversion and lookup routines
59 *
60 *
61 * Converted from ether_addr.c rev
62 * FreeBSD: src/lib/libc/net/eui64.c,v 1.15 2002/04/08 07:51:10 ru Exp
63 * by Brooks Davis
64 *
65 * Written by Bill Paul <wpaul@ctr.columbia.edu>
66 * Center for Telecommunications Research
67 * Columbia University, New York City
68 */
69
70#ifndef __HAIKU__
71#include <sys/cdefs.h>
72__FBSDID("$FreeBSD: src/lib/libc/net/eui64.c,v 1.2 2004/06/01 19:30:13 brooks Exp $");
73#endif
74
75#include <stdio.h>
76#ifndef __HAIKU__
77#include <paths.h>
78#endif
79#include <sys/types.h>
80#ifdef __HAIKU__
81#include "eui64.h"
82#else
83#include <sys/eui64.h>
84#endif
85#include <string.h>
86#include <stdlib.h>
87#include <sys/param.h>
88#ifndef __HAIKU__
89#ifdef YP
90#include <rpc/rpc.h>
91#include <rpcsvc/yp_prot.h>
92#include <rpcsvc/ypclnt.h>
93#endif
94
95#ifndef _PATH_EUI64
96#define _PATH_EUI64 "/etc/eui64"
97#endif
98
99static int eui64_line(const char *l, struct eui64 *e, char *hostname,
100    size_t len);
101
102/*
103 * Parse a string of text containing an EUI-64 and hostname
104 * and separate it into its component parts.
105 */
106static int
107eui64_line(const char *l, struct eui64 *e, char *hostname, size_t len)
108{
109	char *line, *linehead, *cur;
110
111	linehead = strdup(l);
112	if (linehead == NULL)
113		return (-1);
114	line = linehead;
115
116	/* Find and parse the EUI64 */
117	while ((cur = strsep(&line, " \t\r\n")) != NULL) {
118		if (*cur != '\0') {
119			if (eui64_aton(cur, e) == 0)
120				break;
121			else
122				goto bad;
123		}
124	}
125
126	/* Find the hostname */
127	while ((cur = strsep(&line, " \t\r\n")) != NULL) {
128		if (*cur != '\0') {
129			if (strlcpy(hostname, cur, len) <= len)
130				break;
131			else
132				goto bad;
133		}
134	}
135
136	/* Make sure what remains is either whitespace or a comment */
137	while ((cur = strsep(&line, " \t\r\n")) != NULL) {
138		if (*cur == '#')
139			break;
140		if (*cur != '\0')
141			goto bad;
142	}
143
144	return (0);
145
146bad:
147	free(linehead);
148	return (-1);
149}
150#endif
151
152/*
153 * Convert an ASCII representation of an EUI-64 to binary form.
154 */
155int
156eui64_aton(const char *a, struct eui64 *e)
157{
158	int i;
159	unsigned int o0, o1, o2, o3, o4, o5, o6, o7;
160
161	/* canonical form */
162	i = sscanf(a, "%x-%x-%x-%x-%x-%x-%x-%x",
163	    &o0, &o1, &o2, &o3, &o4, &o5, &o6, &o7);
164	if (i == EUI64_LEN)
165		goto good;
166	/* ethernet form */
167	i = sscanf(a, "%x:%x:%x:%x:%x:%x:%x:%x",
168	    &o0, &o1, &o2, &o3, &o4, &o5, &o6, &o7);
169	if (i == EUI64_LEN)
170		goto good;
171	/* classic fwcontrol/dconschat form */
172	i = sscanf(a, "0x%2x%2x%2x%2x%2x%2x%2x%2x",
173	    &o0, &o1, &o2, &o3, &o4, &o5, &o6, &o7);
174	if (i == EUI64_LEN)
175		goto good;
176	/* MAC format (-) */
177	i = sscanf(a, "%x-%x-%x-%x-%x-%x",
178	    &o0, &o1, &o2, &o5, &o6, &o7);
179	if (i == 6) {
180		o3 = 0xff;
181		o4 = 0xfe;
182		goto good;
183	}
184	/* MAC format (:) */
185	i = sscanf(a, "%x:%x:%x:%x:%x:%x",
186	    &o0, &o1, &o2, &o5, &o6, &o7);
187	if (i == 6) {
188		o3 = 0xff;
189		o4 = 0xfe;
190		goto good;
191	}
192
193	return (-1);
194
195good:
196        e->octet[0]=o0;
197	e->octet[1]=o1;
198	e->octet[2]=o2;
199	e->octet[3]=o3;
200	e->octet[4]=o4;
201	e->octet[5]=o5;
202	e->octet[6]=o6;
203	e->octet[7]=o7;
204
205        return (0);
206}
207
208/*
209 * Convert a binary representation of an EUI-64 to an ASCII string.
210 */
211int
212eui64_ntoa(const struct eui64 *id, char *a, size_t len)
213{
214        int i;
215
216        i = snprintf(a, len, "%02x-%02x-%02x-%02x-%02x-%02x-%02x-%02x",
217	    id->octet[0], id->octet[1], id->octet[2], id->octet[3],
218	    id->octet[4], id->octet[5], id->octet[6], id->octet[7]);
219        if (i < 23 || i >= len)
220                return (-1);
221        return (0);
222}
223
224#ifndef __HAIKU__
225/*
226 * Map an EUI-64 to a hostname. Use either /etc/eui64 or NIS/YP.
227 */
228int
229eui64_ntohost(char *hostname, size_t len, const struct eui64 *id)
230{
231	FILE *fp;
232	char buf[BUFSIZ + 2];
233	struct eui64 local_eui64;
234	char local_host[MAXHOSTNAMELEN];
235#ifdef YP
236	char *result;
237	int resultlen;
238	char eui64_a[24];
239	char *yp_domain;
240#endif
241	if ((fp = fopen(_PATH_EUI64, "r")) == NULL)
242		return (1);
243
244	while (fgets(buf,BUFSIZ,fp)) {
245		if (buf[0] == '#')
246			continue;
247#ifdef YP
248		if (buf[0] == '+') {
249			if (yp_get_default_domain(&yp_domain))
250				continue;
251			eui64_ntoa(id, eui64_a, sizeof(eui64_a));
252			if (yp_match(yp_domain, "eui64.byid", eui64_a,
253				strlen(eui64_a), &result, &resultlen)) {
254				continue;
255			}
256			strncpy(buf, result, resultlen);
257			buf[resultlen] = '\0';
258			free(result);
259		}
260#endif
261		if (eui64_line(buf, &local_eui64, local_host,
262		    sizeof(local_host)) == 0) {
263			if (bcmp(&local_eui64.octet[0],
264				&id->octet[0], EUI64_LEN) == 0) {
265			/* We have a match */
266				strcpy(hostname, local_host);
267				fclose(fp);
268				return(0);
269			}
270		}
271	}
272	fclose(fp);
273	return (1);
274}
275
276/*
277 * Map a hostname to an EUI-64 using /etc/eui64 or NIS/YP.
278 */
279int
280eui64_hostton(const char *hostname, struct eui64 *id)
281{
282	FILE *fp;
283	char buf[BUFSIZ + 2];
284	struct eui64 local_eui64;
285	char local_host[MAXHOSTNAMELEN];
286#ifdef YP
287	char *result;
288	int resultlen;
289	char *yp_domain;
290#endif
291	if ((fp = fopen(_PATH_EUI64, "r")) == NULL)
292		return (1);
293
294	while (fgets(buf,BUFSIZ,fp)) {
295		if (buf[0] == '#')
296			continue;
297#ifdef YP
298		if (buf[0] == '+') {
299			if (yp_get_default_domain(&yp_domain))
300				continue;
301			if (yp_match(yp_domain, "eui64.byname", hostname,
302				strlen(hostname), &result, &resultlen)) {
303				continue;
304			}
305			strncpy(buf, result, resultlen);
306			buf[resultlen] = '\0';
307			free(result);
308		}
309#endif
310		if (eui64_line(buf, &local_eui64, local_host,
311		    sizeof(local_host)) == 0) {
312			if (strcmp(hostname, local_host) == 0) {
313				/* We have a match */
314				bcopy(&local_eui64, id, sizeof(struct eui64));
315				fclose(fp);
316				return(0);
317			}
318		}
319	}
320	fclose(fp);
321	return (1);
322}
323#endif
324