src/bin/fwcontrol/eui64.c

   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
  99 static 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  */
 106 static int
 107 eui64_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
 146 bad:
 147         free(linehead);
 148         return (-1);
 149 }
 150 #endif
 151
 152 /*
 153  * Convert an ASCII representation of an EUI-64 to binary form.
 154  */
 155 int
 156 eui64_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
 195 good:
 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  */
 211 int
 212 eui64_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  */
 228 int
 229 eui64_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  */
 279 int
 280 eui64_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