1 /* $NetBSD: sockaddr_snprintf.c,v 1.8 2007/07/24 08:45:45 dyoung Exp $ */ 2 3 /*- 4 * Copyright (c) 2004 The NetBSD Foundation, Inc. 5 * All rights reserved. 6 * 7 * This code is derived from software contributed to The NetBSD Foundation 8 * by Christos Zoulas. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 3. All advertising materials mentioning features or use of this software 19 * must display the following acknowledgement: 20 * This product includes software developed by the NetBSD 21 * Foundation, Inc. and its contributors. 22 * 4. Neither the name of The NetBSD Foundation nor the names of its 23 * contributors may be used to endorse or promote products derived 24 * from this software without specific prior written permission. 25 * 26 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 27 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 28 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 29 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 30 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 31 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 32 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 33 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 34 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 35 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 36 * POSSIBILITY OF SUCH DAMAGE. 37 */ 38 #include <sys/cdefs.h> 39 #if defined(LIBC_SCCS) && !defined(lint) 40 __RCSID("$NetBSD: sockaddr_snprintf.c,v 1.8 2007/07/24 08:45:45 dyoung Exp $"); 41 #endif /* LIBC_SCCS and not lint */ 42 43 #include <sys/types.h> 44 #include <sys/socket.h> 45 #include <sys/un.h> 46 47 #include <netinet/in.h> 48 #include <netatalk/at.h> 49 #include <net/if_dl.h> 50 51 #include <stdio.h> 52 #include <string.h> 53 #include <errno.h> 54 #include <util.h> 55 #include <netdb.h> 56 57 int 58 sockaddr_snprintf(char * const sbuf, const size_t len, const char * const fmt, 59 const struct sockaddr * const sa) 60 { 61 const void *a = NULL; 62 char abuf[1024], nbuf[1024], *addr = NULL, *w = NULL; 63 char Abuf[1024], pbuf[32], *name = NULL, *port = NULL; 64 char *ebuf = &sbuf[len - 1], *buf = sbuf; 65 const char *ptr, *s; 66 int p = -1; 67 const struct sockaddr_at *sat = NULL; 68 const struct sockaddr_in *sin4 = NULL; 69 const struct sockaddr_in6 *sin6 = NULL; 70 const struct sockaddr_un *sun = NULL; 71 const struct sockaddr_dl *sdl = NULL; 72 int na = 1; 73 74 #define ADDC(c) do { if (buf < ebuf) *buf++ = c; else buf++; } \ 75 while (/*CONSTCOND*/0) 76 #define ADDS(p) do { for (s = p; *s; s++) ADDC(*s); } \ 77 while (/*CONSTCOND*/0) 78 #define ADDNA() do { if (na) ADDS("N/A"); } \ 79 while (/*CONSTCOND*/0) 80 81 switch (sa->sa_family) { 82 case AF_UNSPEC: 83 goto done; 84 case AF_APPLETALK: 85 sat = ((const struct sockaddr_at *)(const void *)sa); 86 p = ntohs(sat->sat_port); 87 (void)snprintf(addr = abuf, sizeof(abuf), "%u.%u", 88 ntohs(sat->sat_addr.s_net), sat->sat_addr.s_node); 89 (void)snprintf(port = pbuf, sizeof(pbuf), "%d", p); 90 break; 91 case AF_LOCAL: 92 sun = ((const struct sockaddr_un *)(const void *)sa); 93 (void)strlcpy(addr = abuf, sun->sun_path, SUN_LEN(sun)); 94 break; 95 case AF_INET: 96 sin4 = ((const struct sockaddr_in *)(const void *)sa); 97 p = ntohs(sin4->sin_port); 98 a = &sin4->sin_addr; 99 break; 100 case AF_INET6: 101 sin6 = ((const struct sockaddr_in6 *)(const void *)sa); 102 p = ntohs(sin6->sin6_port); 103 a = &sin6->sin6_addr; 104 break; 105 case AF_LINK: 106 sdl = ((const struct sockaddr_dl *)(const void *)sa); 107 (void)strlcpy(addr = abuf, link_ntoa(sdl), sizeof(abuf)); 108 if ((w = strchr(addr, ':')) != 0) { 109 *w++ = '\0'; 110 addr = w; 111 } 112 break; 113 default: 114 errno = EAFNOSUPPORT; 115 return -1; 116 } 117 118 if (addr == abuf) 119 name = addr; 120 121 if (a && getnameinfo(sa, (socklen_t)sa->sa_len, addr = abuf, 122 (unsigned int)sizeof(abuf), NULL, 0, 123 NI_NUMERICHOST|NI_NUMERICSERV) != 0) 124 return -1; 125 126 for (ptr = fmt; *ptr; ptr++) { 127 if (*ptr != '%') { 128 ADDC(*ptr); 129 continue; 130 } 131 next_char: 132 switch (*++ptr) { 133 case '?': 134 na = 0; 135 goto next_char; 136 case 'a': 137 ADDS(addr); 138 break; 139 case 'p': 140 if (p != -1) { 141 (void)snprintf(nbuf, sizeof(nbuf), "%d", p); 142 ADDS(nbuf); 143 } else 144 ADDNA(); 145 break; 146 case 'f': 147 (void)snprintf(nbuf, sizeof(nbuf), "%d", sa->sa_family); 148 ADDS(nbuf); 149 break; 150 case 'l': 151 (void)snprintf(nbuf, sizeof(nbuf), "%d", sa->sa_len); 152 ADDS(nbuf); 153 break; 154 case 'A': 155 if (name) 156 ADDS(name); 157 else if (!a) 158 ADDNA(); 159 else { 160 getnameinfo(sa, (socklen_t)sa->sa_len, 161 name = Abuf, 162 (unsigned int)sizeof(nbuf), NULL, 0, 0); 163 ADDS(name); 164 } 165 break; 166 case 'P': 167 if (port) 168 ADDS(port); 169 else if (p == -1) 170 ADDNA(); 171 else { 172 getnameinfo(sa, (socklen_t)sa->sa_len, NULL, 0, 173 port = pbuf, 174 (unsigned int)sizeof(pbuf), 0); 175 ADDS(port); 176 } 177 break; 178 case 'I': 179 if (sdl && addr != abuf) { 180 ADDS(abuf); 181 } else { 182 ADDNA(); 183 } 184 break; 185 case 'F': 186 if (sin6) { 187 (void)snprintf(nbuf, sizeof(nbuf), "%d", 188 sin6->sin6_flowinfo); 189 ADDS(nbuf); 190 break; 191 } else { 192 ADDNA(); 193 } 194 break; 195 case 'S': 196 if (sin6) { 197 (void)snprintf(nbuf, sizeof(nbuf), "%d", 198 sin6->sin6_scope_id); 199 ADDS(nbuf); 200 break; 201 } else { 202 ADDNA(); 203 } 204 break; 205 case 'R': 206 if (sat) { 207 const struct netrange *n = 208 &sat->sat_range.r_netrange; 209 (void)snprintf(nbuf, sizeof(nbuf), 210 "%d:[%d,%d]", n->nr_phase , n->nr_firstnet, 211 n->nr_lastnet); 212 ADDS(nbuf); 213 } else { 214 ADDNA(); 215 } 216 break; 217 default: 218 ADDC('%'); 219 if (na == 0) 220 ADDC('?'); 221 if (*ptr == '\0') 222 goto done; 223 /*FALLTHROUGH*/ 224 case '%': 225 ADDC(*ptr); 226 break; 227 } 228 na = 1; 229 } 230 done: 231 if (buf < ebuf) 232 *buf = '\0'; 233 else if (len != 0) 234 sbuf[len - 1] = '\0'; 235 return (int)(buf - sbuf); 236 } 237