ping6.c revision 1.36 1 1.36 itojun /* $NetBSD: ping6.c,v 1.36 2001/06/22 13:25:03 itojun Exp $ */
2 1.36 itojun /* $KAME: ping6.c,v 1.129 2001/06/22 13:16:02 itojun Exp $ */
3 1.6 itojun
4 1.1 itojun /*
5 1.1 itojun * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
6 1.1 itojun * All rights reserved.
7 1.15 itojun *
8 1.1 itojun * Redistribution and use in source and binary forms, with or without
9 1.1 itojun * modification, are permitted provided that the following conditions
10 1.1 itojun * are met:
11 1.1 itojun * 1. Redistributions of source code must retain the above copyright
12 1.1 itojun * notice, this list of conditions and the following disclaimer.
13 1.1 itojun * 2. Redistributions in binary form must reproduce the above copyright
14 1.1 itojun * notice, this list of conditions and the following disclaimer in the
15 1.1 itojun * documentation and/or other materials provided with the distribution.
16 1.1 itojun * 3. Neither the name of the project nor the names of its contributors
17 1.1 itojun * may be used to endorse or promote products derived from this software
18 1.1 itojun * without specific prior written permission.
19 1.15 itojun *
20 1.1 itojun * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
21 1.1 itojun * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 1.1 itojun * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 1.1 itojun * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
24 1.1 itojun * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 1.1 itojun * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26 1.1 itojun * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 1.1 itojun * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28 1.1 itojun * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29 1.1 itojun * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30 1.1 itojun * SUCH DAMAGE.
31 1.1 itojun */
32 1.1 itojun
33 1.1 itojun /* BSDI ping.c,v 2.3 1996/01/21 17:56:50 jch Exp */
34 1.1 itojun
35 1.1 itojun /*
36 1.1 itojun * Copyright (c) 1989, 1993
37 1.1 itojun * The Regents of the University of California. All rights reserved.
38 1.1 itojun *
39 1.1 itojun * This code is derived from software contributed to Berkeley by
40 1.1 itojun * Mike Muuss.
41 1.1 itojun *
42 1.1 itojun * Redistribution and use in source and binary forms, with or without
43 1.1 itojun * modification, are permitted provided that the following conditions
44 1.1 itojun * are met:
45 1.1 itojun * 1. Redistributions of source code must retain the above copyright
46 1.1 itojun * notice, this list of conditions and the following disclaimer.
47 1.1 itojun * 2. Redistributions in binary form must reproduce the above copyright
48 1.1 itojun * notice, this list of conditions and the following disclaimer in the
49 1.1 itojun * documentation and/or other materials provided with the distribution.
50 1.1 itojun * 3. All advertising materials mentioning features or use of this software
51 1.1 itojun * must display the following acknowledgement:
52 1.1 itojun * This product includes software developed by the University of
53 1.1 itojun * California, Berkeley and its contributors.
54 1.1 itojun * 4. Neither the name of the University nor the names of its contributors
55 1.1 itojun * may be used to endorse or promote products derived from this software
56 1.1 itojun * without specific prior written permission.
57 1.1 itojun *
58 1.1 itojun * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
59 1.1 itojun * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
60 1.1 itojun * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
61 1.1 itojun * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
62 1.1 itojun * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
63 1.1 itojun * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
64 1.1 itojun * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
65 1.1 itojun * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
66 1.1 itojun * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
67 1.1 itojun * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
68 1.1 itojun * SUCH DAMAGE.
69 1.1 itojun */
70 1.1 itojun
71 1.4 itojun #if 0
72 1.1 itojun #ifndef lint
73 1.6 itojun static char copyright[] =
74 1.1 itojun "@(#) Copyright (c) 1989, 1993\n\
75 1.6 itojun The Regents of the University of California. All rights reserved.\n";
76 1.6 itojun #endif /* not lint */
77 1.6 itojun
78 1.6 itojun #ifndef lint
79 1.6 itojun static char sccsid[] = "@(#)ping.c 8.1 (Berkeley) 6/5/93";
80 1.1 itojun #endif /* not lint */
81 1.6 itojun #else
82 1.6 itojun #include <sys/cdefs.h>
83 1.6 itojun #ifndef lint
84 1.36 itojun __RCSID("$NetBSD: ping6.c,v 1.36 2001/06/22 13:25:03 itojun Exp $");
85 1.4 itojun #endif
86 1.1 itojun #endif
87 1.1 itojun
88 1.1 itojun /*
89 1.1 itojun * Using the InterNet Control Message Protocol (ICMP) "ECHO" facility,
90 1.1 itojun * measure round-trip-delays and packet loss across network paths.
91 1.1 itojun *
92 1.1 itojun * Author -
93 1.1 itojun * Mike Muuss
94 1.1 itojun * U. S. Army Ballistic Research Laboratory
95 1.1 itojun * December, 1983
96 1.1 itojun *
97 1.1 itojun * Status -
98 1.1 itojun * Public Domain. Distribution Unlimited.
99 1.1 itojun * Bugs -
100 1.1 itojun * More statistics could always be gathered.
101 1.1 itojun * This program has to run SUID to ROOT to access the ICMP socket.
102 1.1 itojun */
103 1.9 itojun /*
104 1.9 itojun * NOTE:
105 1.9 itojun * USE_SIN6_SCOPE_ID assumes that sin6_scope_id has the same semantics
106 1.28 itojun * as IPV6_PKTINFO. Some people object it (sin6_scope_id specifies *link*
107 1.28 itojun * while IPV6_PKTINFO specifies *interface*. Link is defined as collection of
108 1.9 itojun * network attached to 1 or more interfaces)
109 1.9 itojun */
110 1.1 itojun
111 1.1 itojun #include <sys/param.h>
112 1.1 itojun #include <sys/uio.h>
113 1.1 itojun #include <sys/socket.h>
114 1.1 itojun #include <sys/time.h>
115 1.1 itojun
116 1.1 itojun #include <net/if.h>
117 1.1 itojun #include <net/route.h>
118 1.1 itojun
119 1.1 itojun #include <netinet/in.h>
120 1.1 itojun #include <netinet/ip6.h>
121 1.1 itojun #include <netinet/icmp6.h>
122 1.1 itojun #include <arpa/inet.h>
123 1.17 itojun #include <arpa/nameser.h>
124 1.1 itojun #include <netdb.h>
125 1.1 itojun
126 1.1 itojun #include <ctype.h>
127 1.1 itojun #include <err.h>
128 1.1 itojun #include <errno.h>
129 1.1 itojun #include <fcntl.h>
130 1.19 itojun #if defined(__OpenBSD__) || defined(__NetBSD__)
131 1.18 itojun #include <math.h>
132 1.18 itojun #endif
133 1.1 itojun #include <signal.h>
134 1.1 itojun #include <stdio.h>
135 1.1 itojun #include <stdlib.h>
136 1.1 itojun #include <string.h>
137 1.1 itojun #include <unistd.h>
138 1.1 itojun
139 1.1 itojun #ifdef IPSEC
140 1.9 itojun #include <netinet6/ah.h>
141 1.1 itojun #include <netinet6/ipsec.h>
142 1.1 itojun #endif
143 1.1 itojun
144 1.18 itojun #if defined(__NetBSD__) || defined(__FreeBSD__) || defined(__OpenBSD__)
145 1.15 itojun #include <md5.h>
146 1.18 itojun #else
147 1.18 itojun #include "md5.h"
148 1.18 itojun #endif
149 1.15 itojun
150 1.1 itojun #define MAXPACKETLEN 131072
151 1.1 itojun #define IP6LEN 40
152 1.1 itojun #define ICMP6ECHOLEN 8 /* icmp echo header len excluding time */
153 1.1 itojun #define ICMP6ECHOTMLEN sizeof(struct timeval)
154 1.1 itojun #define ICMP6_NIQLEN (ICMP6ECHOLEN + 8)
155 1.17 itojun /* FQDN case, 64 bits of nonce + 32 bits ttl */
156 1.17 itojun #define ICMP6_NIRLEN (ICMP6ECHOLEN + 12)
157 1.1 itojun #define EXTRA 256 /* for AH and various other headers. weird. */
158 1.1 itojun #define DEFDATALEN ICMP6ECHOTMLEN
159 1.1 itojun #define MAXDATALEN MAXPACKETLEN - IP6LEN - ICMP6ECHOLEN
160 1.1 itojun #define NROUTES 9 /* number of record route slots */
161 1.1 itojun
162 1.1 itojun #define A(bit) rcvd_tbl[(bit)>>3] /* identify byte in array */
163 1.1 itojun #define B(bit) (1 << ((bit) & 0x07)) /* identify bit in byte */
164 1.1 itojun #define SET(bit) (A(bit) |= B(bit))
165 1.1 itojun #define CLR(bit) (A(bit) &= (~B(bit)))
166 1.1 itojun #define TST(bit) (A(bit) & B(bit))
167 1.1 itojun
168 1.1 itojun #define F_FLOOD 0x0001
169 1.1 itojun #define F_INTERVAL 0x0002
170 1.1 itojun #define F_PINGFILLED 0x0008
171 1.1 itojun #define F_QUIET 0x0010
172 1.1 itojun #define F_RROUTE 0x0020
173 1.1 itojun #define F_SO_DEBUG 0x0040
174 1.1 itojun #define F_VERBOSE 0x0100
175 1.1 itojun #ifdef IPSEC
176 1.1 itojun #ifdef IPSEC_POLICY_IPSEC
177 1.9 itojun #define F_POLICY 0x0400
178 1.1 itojun #else
179 1.1 itojun #define F_AUTHHDR 0x0200
180 1.1 itojun #define F_ENCRYPT 0x0400
181 1.1 itojun #endif /*IPSEC_POLICY_IPSEC*/
182 1.1 itojun #endif /*IPSEC*/
183 1.1 itojun #define F_NODEADDR 0x0800
184 1.1 itojun #define F_FQDN 0x1000
185 1.1 itojun #define F_INTERFACE 0x2000
186 1.9 itojun #define F_SRCADDR 0x4000
187 1.11 itojun #ifdef IPV6_REACHCONF
188 1.11 itojun #define F_REACHCONF 0x8000
189 1.11 itojun #endif
190 1.15 itojun #define F_HOSTNAME 0x10000
191 1.15 itojun #define F_FQDNOLD 0x20000
192 1.15 itojun #define F_NIGROUP 0x40000
193 1.17 itojun #define F_SUPTYPES 0x80000
194 1.36 itojun #define F_NOMINMTU 0x100000
195 1.17 itojun #define F_NOUSERDATA (F_NODEADDR | F_FQDN | F_FQDNOLD | F_SUPTYPES)
196 1.1 itojun u_int options;
197 1.1 itojun
198 1.1 itojun #define IN6LEN sizeof(struct in6_addr)
199 1.1 itojun #define SA6LEN sizeof(struct sockaddr_in6)
200 1.28 itojun #define DUMMY_PORT 10101
201 1.1 itojun
202 1.28 itojun #define SIN6(s) ((struct sockaddr_in6 *)(s))
203 1.1 itojun
204 1.1 itojun /*
205 1.1 itojun * MAX_DUP_CHK is the number of bits in received table, i.e. the maximum
206 1.1 itojun * number of received sequence numbers we can keep track of. Change 128
207 1.1 itojun * to 8192 for complete accuracy...
208 1.1 itojun */
209 1.1 itojun #define MAX_DUP_CHK (8 * 8192)
210 1.1 itojun int mx_dup_ck = MAX_DUP_CHK;
211 1.1 itojun char rcvd_tbl[MAX_DUP_CHK / 8];
212 1.1 itojun
213 1.28 itojun struct addrinfo *res;
214 1.28 itojun struct sockaddr_in6 dst; /* who to ping6 */
215 1.28 itojun struct sockaddr_in6 src; /* src addr of this packet */
216 1.1 itojun int datalen = DEFDATALEN;
217 1.1 itojun int s; /* socket file descriptor */
218 1.1 itojun u_char outpack[MAXPACKETLEN];
219 1.1 itojun char BSPACE = '\b'; /* characters written for flood */
220 1.1 itojun char DOT = '.';
221 1.1 itojun char *hostname;
222 1.1 itojun int ident; /* process id to identify our packets */
223 1.17 itojun u_int8_t nonce[8]; /* nonce field for node information */
224 1.9 itojun struct in6_addr srcaddr;
225 1.23 itojun int hoplimit = -1; /* hoplimit */
226 1.36 itojun int pathmtu = 0; /* path MTU for the destination. 0 = unspec. */
227 1.1 itojun
228 1.1 itojun /* counters */
229 1.1 itojun long npackets; /* max packets to transmit */
230 1.1 itojun long nreceived; /* # of packets we got back */
231 1.1 itojun long nrepeats; /* number of duplicates */
232 1.1 itojun long ntransmitted; /* sequence # for outbound packets = #sent */
233 1.18 itojun struct timeval interval = {1, 0}; /* interval between packets */
234 1.1 itojun
235 1.1 itojun /* timing */
236 1.1 itojun int timing; /* flag to do timing */
237 1.1 itojun double tmin = 999999999.0; /* minimum round trip time */
238 1.1 itojun double tmax = 0.0; /* maximum round trip time */
239 1.1 itojun double tsum = 0.0; /* sum of all times, for doing average */
240 1.19 itojun #if defined(__OpenBSD__) || defined(__NetBSD__)
241 1.18 itojun double tsumsq = 0.0; /* sum of all times squared, for std. dev. */
242 1.18 itojun #endif
243 1.1 itojun
244 1.1 itojun /* for node addresses */
245 1.1 itojun u_short naflags;
246 1.1 itojun
247 1.1 itojun /* for ancillary data(advanced API) */
248 1.1 itojun struct msghdr smsghdr;
249 1.1 itojun struct iovec smsgiov;
250 1.1 itojun char *scmsg = 0;
251 1.1 itojun
252 1.30 itojun volatile int signo;
253 1.31 itojun volatile sig_atomic_t seenalrm;
254 1.31 itojun volatile sig_atomic_t seenint;
255 1.31 itojun #ifdef SIGINFO
256 1.31 itojun volatile sig_atomic_t seeninfo;
257 1.31 itojun #endif
258 1.30 itojun
259 1.1 itojun int main __P((int, char *[]));
260 1.1 itojun void fill __P((char *, char *));
261 1.1 itojun int get_hoplim __P((struct msghdr *));
262 1.36 itojun int get_pathmtu __P((struct msghdr *));
263 1.11 itojun struct in6_pktinfo *get_rcvpktinfo __P((struct msghdr *));
264 1.30 itojun void onsignal __P((int));
265 1.30 itojun void retransmit __P((void));
266 1.1 itojun void onint __P((int));
267 1.36 itojun size_t pingerlen __P((void));
268 1.36 itojun int pinger __P((void));
269 1.31 itojun const char *pr_addr __P((struct sockaddr *, int));
270 1.1 itojun void pr_icmph __P((struct icmp6_hdr *, u_char *));
271 1.1 itojun void pr_iph __P((struct ip6_hdr *));
272 1.24 itojun void pr_suptypes __P((struct icmp6_nodeinfo *, size_t));
273 1.1 itojun void pr_nodeaddr __P((struct icmp6_nodeinfo *, int));
274 1.17 itojun int myechoreply __P((const struct icmp6_hdr *));
275 1.17 itojun int mynireply __P((const struct icmp6_nodeinfo *));
276 1.17 itojun char *dnsdecode __P((const u_char **, const u_char *, const u_char *,
277 1.17 itojun u_char *, size_t));
278 1.1 itojun void pr_pack __P((u_char *, int, struct msghdr *));
279 1.11 itojun void pr_exthdrs __P((struct msghdr *));
280 1.11 itojun void pr_ip6opt __P((void *));
281 1.11 itojun void pr_rthdr __P((void *));
282 1.24 itojun int pr_bitrange __P((u_int32_t, int, int));
283 1.1 itojun void pr_retip __P((struct ip6_hdr *, u_char *));
284 1.1 itojun void summary __P((void));
285 1.1 itojun void tvsub __P((struct timeval *, struct timeval *));
286 1.11 itojun int setpolicy __P((int, char *));
287 1.15 itojun char *nigroup __P((char *));
288 1.1 itojun void usage __P((void));
289 1.1 itojun
290 1.1 itojun int
291 1.1 itojun main(argc, argv)
292 1.1 itojun int argc;
293 1.1 itojun char *argv[];
294 1.1 itojun {
295 1.1 itojun struct itimerval itimer;
296 1.1 itojun struct sockaddr_in6 from;
297 1.30 itojun struct timeval timeout, *tv;
298 1.1 itojun struct addrinfo hints;
299 1.19 itojun fd_set *fdmaskp;
300 1.19 itojun int fdmasks;
301 1.1 itojun register int cc, i;
302 1.1 itojun int ch, fromlen, hold, packlen, preload, optval, ret_ga;
303 1.1 itojun u_char *datap, *packet;
304 1.1 itojun char *e, *target, *ifname = NULL;
305 1.1 itojun int ip6optlen = 0;
306 1.1 itojun struct cmsghdr *scmsgp = NULL;
307 1.1 itojun int sockbufsize = 0;
308 1.9 itojun int usepktinfo = 0;
309 1.9 itojun struct in6_pktinfo *pktinfo = NULL;
310 1.11 itojun #ifdef USE_RFC2292BIS
311 1.11 itojun struct ip6_rthdr *rthdr = NULL;
312 1.15 itojun #endif
313 1.1 itojun #ifdef IPSEC_POLICY_IPSEC
314 1.11 itojun char *policy_in = NULL;
315 1.11 itojun char *policy_out = NULL;
316 1.1 itojun #endif
317 1.18 itojun double intval;
318 1.22 itojun size_t rthlen;
319 1.1 itojun
320 1.1 itojun /* just to be sure */
321 1.1 itojun memset(&smsghdr, 0, sizeof(&smsghdr));
322 1.1 itojun memset(&smsgiov, 0, sizeof(&smsgiov));
323 1.1 itojun
324 1.1 itojun preload = 0;
325 1.1 itojun datap = &outpack[ICMP6ECHOLEN + ICMP6ECHOTMLEN];
326 1.1 itojun #ifndef IPSEC
327 1.24 itojun #define ADDOPTS
328 1.1 itojun #else
329 1.1 itojun #ifdef IPSEC_POLICY_IPSEC
330 1.24 itojun #define ADDOPTS "P:"
331 1.1 itojun #else
332 1.24 itojun #define ADDOPTS "AE"
333 1.1 itojun #endif /*IPSEC_POLICY_IPSEC*/
334 1.1 itojun #endif
335 1.28 itojun while ((ch = getopt(argc, argv,
336 1.36 itojun "a:b:c:dfHh:I:i:l:mnNp:qRS:s:tvwW" ADDOPTS)) != -1) {
337 1.24 itojun #undef ADDOPTS
338 1.17 itojun switch (ch) {
339 1.17 itojun case 'a':
340 1.17 itojun {
341 1.17 itojun char *cp;
342 1.17 itojun
343 1.17 itojun options &= ~F_NOUSERDATA;
344 1.17 itojun options |= F_NODEADDR;
345 1.17 itojun for (cp = optarg; *cp != '\0'; cp++) {
346 1.17 itojun switch (*cp) {
347 1.17 itojun case 'a':
348 1.17 itojun naflags |= NI_NODEADDR_FLAG_ALL;
349 1.17 itojun break;
350 1.17 itojun case 'c':
351 1.17 itojun case 'C':
352 1.17 itojun naflags |= NI_NODEADDR_FLAG_COMPAT;
353 1.17 itojun break;
354 1.17 itojun case 'l':
355 1.17 itojun case 'L':
356 1.17 itojun naflags |= NI_NODEADDR_FLAG_LINKLOCAL;
357 1.17 itojun break;
358 1.17 itojun case 's':
359 1.17 itojun case 'S':
360 1.17 itojun naflags |= NI_NODEADDR_FLAG_SITELOCAL;
361 1.17 itojun break;
362 1.17 itojun case 'g':
363 1.17 itojun case 'G':
364 1.17 itojun naflags |= NI_NODEADDR_FLAG_GLOBAL;
365 1.17 itojun break;
366 1.17 itojun case 'A': /* experimental. not in the spec */
367 1.31 itojun #ifdef NI_NODEADDR_FLAG_ANYCAST
368 1.17 itojun naflags |= NI_NODEADDR_FLAG_ANYCAST;
369 1.17 itojun break;
370 1.31 itojun #else
371 1.31 itojun errx(1,
372 1.31 itojun "-a A is not supported on the platform");
373 1.31 itojun /*NOTREACHED*/
374 1.31 itojun #endif
375 1.17 itojun default:
376 1.17 itojun usage();
377 1.17 itojun /*NOTREACHED*/
378 1.17 itojun }
379 1.17 itojun }
380 1.17 itojun break;
381 1.17 itojun }
382 1.17 itojun case 'b':
383 1.1 itojun #if defined(SO_SNDBUF) && defined(SO_RCVBUF)
384 1.1 itojun sockbufsize = atoi(optarg);
385 1.1 itojun #else
386 1.1 itojun err(1,
387 1.1 itojun "-b option ignored: SO_SNDBUF/SO_RCVBUF socket options not supported");
388 1.1 itojun #endif
389 1.1 itojun break;
390 1.1 itojun case 'c':
391 1.1 itojun npackets = strtol(optarg, &e, 10);
392 1.1 itojun if (npackets <= 0 || *optarg == '\0' || *e != '\0')
393 1.1 itojun errx(1,
394 1.1 itojun "illegal number of packets -- %s", optarg);
395 1.1 itojun break;
396 1.1 itojun case 'd':
397 1.1 itojun options |= F_SO_DEBUG;
398 1.1 itojun break;
399 1.1 itojun case 'f':
400 1.1 itojun if (getuid()) {
401 1.1 itojun errno = EPERM;
402 1.3 thorpej errx(1, "Must be superuser to flood ping");
403 1.1 itojun }
404 1.1 itojun options |= F_FLOOD;
405 1.1 itojun setbuf(stdout, (char *)NULL);
406 1.1 itojun break;
407 1.15 itojun case 'H':
408 1.15 itojun options |= F_HOSTNAME;
409 1.15 itojun break;
410 1.1 itojun case 'h': /* hoplimit */
411 1.1 itojun hoplimit = strtol(optarg, &e, 10);
412 1.1 itojun if (255 < hoplimit || hoplimit < -1)
413 1.1 itojun errx(1,
414 1.1 itojun "illegal hoplimit -- %s", optarg);
415 1.1 itojun break;
416 1.1 itojun case 'I':
417 1.1 itojun ifname = optarg;
418 1.1 itojun options |= F_INTERFACE;
419 1.9 itojun #ifndef USE_SIN6_SCOPE_ID
420 1.9 itojun usepktinfo++;
421 1.9 itojun #endif
422 1.1 itojun break;
423 1.1 itojun case 'i': /* wait between sending packets */
424 1.18 itojun intval = strtod(optarg, &e);
425 1.18 itojun if (*optarg == '\0' || *e != '\0')
426 1.18 itojun errx(1, "illegal timing interval %s", optarg);
427 1.18 itojun if (intval < 1 && getuid()) {
428 1.18 itojun errx(1, "%s: only root may use interval < 1s",
429 1.18 itojun strerror(EPERM));
430 1.18 itojun }
431 1.18 itojun interval.tv_sec = (long)intval;
432 1.18 itojun interval.tv_usec =
433 1.18 itojun (long)((intval - interval.tv_sec) * 1000000);
434 1.18 itojun if (interval.tv_sec < 0)
435 1.18 itojun errx(1, "illegal timing interval %s", optarg);
436 1.18 itojun /* less than 1/hz does not make sense */
437 1.18 itojun if (interval.tv_sec == 0 && interval.tv_usec < 10000) {
438 1.18 itojun warnx("too small interval, raised to 0.01");
439 1.18 itojun interval.tv_usec = 10000;
440 1.18 itojun }
441 1.1 itojun options |= F_INTERVAL;
442 1.1 itojun break;
443 1.1 itojun case 'l':
444 1.11 itojun if (getuid()) {
445 1.11 itojun errno = EPERM;
446 1.11 itojun errx(1, "Must be superuser to preload");
447 1.11 itojun }
448 1.1 itojun preload = strtol(optarg, &e, 10);
449 1.1 itojun if (preload < 0 || *optarg == '\0' || *e != '\0')
450 1.1 itojun errx(1, "illegal preload value -- %s", optarg);
451 1.35 itojun break;
452 1.36 itojun case 'm':
453 1.36 itojun #ifdef IPV6_USE_MIN_MTU
454 1.36 itojun options |= F_NOMINMTU;
455 1.36 itojun break;
456 1.36 itojun #else
457 1.36 itojun errx(1, "-%c is not supported on this platform", ch);
458 1.36 itojun /*NOTREACHED*/
459 1.36 itojun #endif
460 1.35 itojun case 'n':
461 1.35 itojun options &= ~F_HOSTNAME;
462 1.1 itojun break;
463 1.15 itojun case 'N':
464 1.15 itojun options |= F_NIGROUP;
465 1.15 itojun break;
466 1.1 itojun case 'p': /* fill buffer with user pattern */
467 1.1 itojun options |= F_PINGFILLED;
468 1.1 itojun fill((char *)datap, optarg);
469 1.1 itojun break;
470 1.1 itojun case 'q':
471 1.1 itojun options |= F_QUIET;
472 1.1 itojun break;
473 1.12 itojun case 'R':
474 1.11 itojun #ifdef IPV6_REACHCONF
475 1.11 itojun options |= F_REACHCONF;
476 1.1 itojun break;
477 1.12 itojun #else
478 1.12 itojun errx(1, "-R is not supported in this configuration");
479 1.11 itojun #endif
480 1.9 itojun case 'S':
481 1.9 itojun /* XXX: use getaddrinfo? */
482 1.9 itojun if (inet_pton(AF_INET6, optarg, (void *)&srcaddr) != 1)
483 1.9 itojun errx(1, "invalid IPv6 address: %s", optarg);
484 1.9 itojun options |= F_SRCADDR;
485 1.9 itojun usepktinfo++;
486 1.9 itojun break;
487 1.1 itojun case 's': /* size of packet to send */
488 1.1 itojun datalen = strtol(optarg, &e, 10);
489 1.1 itojun if (datalen <= 0 || *optarg == '\0' || *e != '\0')
490 1.1 itojun errx(1, "illegal datalen value -- %s", optarg);
491 1.17 itojun if (datalen > MAXDATALEN) {
492 1.1 itojun errx(1,
493 1.1 itojun "datalen value too large, maximum is %d",
494 1.1 itojun MAXDATALEN);
495 1.17 itojun }
496 1.17 itojun break;
497 1.17 itojun case 't':
498 1.17 itojun options &= ~F_NOUSERDATA;
499 1.17 itojun options |= F_SUPTYPES;
500 1.1 itojun break;
501 1.1 itojun case 'v':
502 1.1 itojun options |= F_VERBOSE;
503 1.1 itojun break;
504 1.1 itojun case 'w':
505 1.17 itojun options &= ~F_NOUSERDATA;
506 1.15 itojun options |= F_FQDN;
507 1.15 itojun break;
508 1.1 itojun case 'W':
509 1.17 itojun options &= ~F_NOUSERDATA;
510 1.15 itojun options |= F_FQDNOLD;
511 1.1 itojun break;
512 1.1 itojun #ifdef IPSEC
513 1.1 itojun #ifdef IPSEC_POLICY_IPSEC
514 1.1 itojun case 'P':
515 1.1 itojun options |= F_POLICY;
516 1.25 itojun if (!strncmp("in", optarg, 2)) {
517 1.25 itojun if ((policy_in = strdup(optarg)) == NULL)
518 1.25 itojun errx(1, "strdup");
519 1.25 itojun } else if (!strncmp("out", optarg, 3)) {
520 1.25 itojun if ((policy_out = strdup(optarg)) == NULL)
521 1.25 itojun errx(1, "strdup");
522 1.25 itojun } else
523 1.11 itojun errx(1, "invalid security policy");
524 1.1 itojun break;
525 1.1 itojun #else
526 1.1 itojun case 'A':
527 1.1 itojun options |= F_AUTHHDR;
528 1.1 itojun break;
529 1.1 itojun case 'E':
530 1.1 itojun options |= F_ENCRYPT;
531 1.1 itojun break;
532 1.1 itojun #endif /*IPSEC_POLICY_IPSEC*/
533 1.1 itojun #endif /*IPSEC*/
534 1.1 itojun default:
535 1.1 itojun usage();
536 1.15 itojun /*NOTREACHED*/
537 1.1 itojun }
538 1.15 itojun }
539 1.1 itojun argc -= optind;
540 1.1 itojun argv += optind;
541 1.1 itojun
542 1.15 itojun if (argc < 1) {
543 1.1 itojun usage();
544 1.15 itojun /*NOTREACHED*/
545 1.15 itojun }
546 1.1 itojun
547 1.11 itojun if (argc > 1) {
548 1.17 itojun #ifdef IPV6_RECVRTHDR /* 2292bis */
549 1.22 itojun rthlen = CMSG_SPACE(inet6_rth_space(IPV6_RTHDR_TYPE_0,
550 1.17 itojun argc - 1));
551 1.17 itojun #else /* RFC2292 */
552 1.22 itojun rthlen = inet6_rthdr_space(IPV6_RTHDR_TYPE_0, argc - 1);
553 1.11 itojun #endif
554 1.22 itojun if (rthlen == 0) {
555 1.22 itojun errx(1, "too many intermediate hops");
556 1.22 itojun /*NOTREACHED*/
557 1.22 itojun }
558 1.22 itojun ip6optlen += rthlen;
559 1.11 itojun }
560 1.1 itojun
561 1.15 itojun if (options & F_NIGROUP) {
562 1.15 itojun target = nigroup(argv[argc - 1]);
563 1.15 itojun if (target == NULL) {
564 1.15 itojun usage();
565 1.15 itojun /*NOTREACHED*/
566 1.15 itojun }
567 1.15 itojun } else
568 1.15 itojun target = argv[argc - 1];
569 1.1 itojun
570 1.1 itojun /* getaddrinfo */
571 1.1 itojun bzero(&hints, sizeof(struct addrinfo));
572 1.34 itojun hints.ai_flags = AI_CANONNAME;
573 1.1 itojun hints.ai_family = AF_INET6;
574 1.1 itojun hints.ai_socktype = SOCK_RAW;
575 1.1 itojun hints.ai_protocol = IPPROTO_ICMPV6;
576 1.1 itojun
577 1.1 itojun ret_ga = getaddrinfo(target, NULL, &hints, &res);
578 1.1 itojun if (ret_ga) {
579 1.1 itojun fprintf(stderr, "ping6: %s\n", gai_strerror(ret_ga));
580 1.1 itojun exit(1);
581 1.1 itojun }
582 1.1 itojun if (res->ai_canonname)
583 1.1 itojun hostname = res->ai_canonname;
584 1.1 itojun else
585 1.1 itojun hostname = target;
586 1.28 itojun
587 1.1 itojun if (!res->ai_addr)
588 1.1 itojun errx(1, "getaddrinfo failed");
589 1.1 itojun
590 1.1 itojun (void)memcpy(&dst, res->ai_addr, res->ai_addrlen);
591 1.1 itojun
592 1.28 itojun if ((s = socket(res->ai_family, res->ai_socktype,
593 1.28 itojun res->ai_protocol)) < 0)
594 1.26 itojun err(1, "socket");
595 1.26 itojun
596 1.26 itojun /*
597 1.26 itojun * let the kerel pass extension headers of incoming packets,
598 1.26 itojun * for privileged socket options
599 1.26 itojun */
600 1.26 itojun if ((options & F_VERBOSE) != 0) {
601 1.26 itojun int opton = 1;
602 1.26 itojun
603 1.26 itojun #ifdef IPV6_RECVHOPOPTS
604 1.26 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_RECVHOPOPTS, &opton,
605 1.28 itojun sizeof(opton)))
606 1.26 itojun err(1, "setsockopt(IPV6_RECVHOPOPTS)");
607 1.26 itojun #else /* old adv. API */
608 1.26 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_HOPOPTS, &opton,
609 1.28 itojun sizeof(opton)))
610 1.26 itojun err(1, "setsockopt(IPV6_HOPOPTS)");
611 1.26 itojun #endif
612 1.26 itojun #ifdef IPV6_RECVDSTOPTS
613 1.26 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_RECVDSTOPTS, &opton,
614 1.28 itojun sizeof(opton)))
615 1.26 itojun err(1, "setsockopt(IPV6_RECVDSTOPTS)");
616 1.26 itojun #else /* old adv. API */
617 1.26 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_DSTOPTS, &opton,
618 1.28 itojun sizeof(opton)))
619 1.26 itojun err(1, "setsockopt(IPV6_DSTOPTS)");
620 1.26 itojun #endif
621 1.26 itojun #ifdef IPV6_RECVRTHDRDSTOPTS
622 1.26 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_RECVRTHDRDSTOPTS, &opton,
623 1.28 itojun sizeof(opton)))
624 1.26 itojun err(1, "setsockopt(IPV6_RECVRTHDRDSTOPTS)");
625 1.26 itojun #endif
626 1.26 itojun }
627 1.26 itojun
628 1.26 itojun /* revoke root privilege */
629 1.27 itojun seteuid(getuid());
630 1.26 itojun setuid(getuid());
631 1.26 itojun
632 1.1 itojun if (options & F_FLOOD && options & F_INTERVAL)
633 1.1 itojun errx(1, "-f and -i incompatible options");
634 1.1 itojun
635 1.23 itojun if ((options & F_NOUSERDATA) == 0) {
636 1.23 itojun if (datalen >= sizeof(struct timeval)) {
637 1.23 itojun /* we can time transfer */
638 1.23 itojun timing = 1;
639 1.23 itojun } else
640 1.23 itojun timing = 0;
641 1.36 itojun /* in F_VERBOSE case, we may get non-echoreply packets*/
642 1.36 itojun if (options & F_VERBOSE)
643 1.36 itojun packlen = 2048 + IP6LEN + ICMP6ECHOLEN + EXTRA;
644 1.36 itojun else
645 1.36 itojun packlen = datalen + IP6LEN + ICMP6ECHOLEN + EXTRA;
646 1.17 itojun } else {
647 1.17 itojun /* suppress timing for node information query */
648 1.17 itojun timing = 0;
649 1.17 itojun datalen = 2048;
650 1.36 itojun packlen = 2048 + IP6LEN + ICMP6ECHOLEN + EXTRA;
651 1.17 itojun }
652 1.28 itojun
653 1.1 itojun if (!(packet = (u_char *)malloc((u_int)packlen)))
654 1.3 thorpej err(1, "Unable to allocate packet");
655 1.1 itojun if (!(options & F_PINGFILLED))
656 1.17 itojun for (i = ICMP6ECHOLEN; i < packlen; ++i)
657 1.1 itojun *datap++ = i;
658 1.1 itojun
659 1.1 itojun ident = getpid() & 0xFFFF;
660 1.18 itojun #ifndef __OpenBSD__
661 1.30 itojun gettimeofday(&timeout, NULL);
662 1.30 itojun srand((unsigned int)(timeout.tv_sec ^ timeout.tv_usec ^ (long)ident));
663 1.17 itojun memset(nonce, 0, sizeof(nonce));
664 1.17 itojun for (i = 0; i < sizeof(nonce); i += sizeof(int))
665 1.17 itojun *((int *)&nonce[i]) = rand();
666 1.18 itojun #else
667 1.18 itojun memset(nonce, 0, sizeof(nonce));
668 1.18 itojun for (i = 0; i < sizeof(nonce); i += sizeof(u_int32_t))
669 1.18 itojun *((u_int32_t *)&nonce[i]) = arc4random();
670 1.18 itojun #endif
671 1.1 itojun
672 1.1 itojun hold = 1;
673 1.1 itojun
674 1.1 itojun if (options & F_SO_DEBUG)
675 1.1 itojun (void)setsockopt(s, SOL_SOCKET, SO_DEBUG, (char *)&hold,
676 1.1 itojun sizeof(hold));
677 1.1 itojun optval = IPV6_DEFHLIM;
678 1.1 itojun if (IN6_IS_ADDR_MULTICAST(&dst.sin6_addr))
679 1.1 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_MULTICAST_HOPS,
680 1.28 itojun &optval, sizeof(optval)) == -1)
681 1.1 itojun err(1, "IPV6_MULTICAST_HOPS");
682 1.28 itojun #ifdef IPV6_USE_MIN_MTU
683 1.28 itojun if ((options & F_NOMINMTU) == 0) {
684 1.28 itojun optval = 1;
685 1.28 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_USE_MIN_MTU,
686 1.28 itojun &optval, sizeof(optval)) == -1)
687 1.28 itojun err(1, "setsockopt(IPV6_USE_MIN_MTU)");
688 1.28 itojun }
689 1.28 itojun #ifdef IPV6_RECVPATHMTU
690 1.28 itojun else {
691 1.28 itojun optval = 1;
692 1.28 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_RECVPATHMTU,
693 1.28 itojun &optval, sizeof(optval)) == -1)
694 1.28 itojun err(1, "setsockopt(IPV6_RECVPATHMTU)");
695 1.28 itojun }
696 1.28 itojun #endif /* IPV6_RECVPATHMTU */
697 1.28 itojun #endif /* IPV6_USE_MIN_MTU */
698 1.1 itojun
699 1.1 itojun #ifdef IPSEC
700 1.1 itojun #ifdef IPSEC_POLICY_IPSEC
701 1.1 itojun if (options & F_POLICY) {
702 1.11 itojun if (setpolicy(s, policy_in) < 0)
703 1.16 itojun errx(1, "%s", ipsec_strerror());
704 1.11 itojun if (setpolicy(s, policy_out) < 0)
705 1.16 itojun errx(1, "%s", ipsec_strerror());
706 1.1 itojun }
707 1.1 itojun #else
708 1.1 itojun if (options & F_AUTHHDR) {
709 1.1 itojun optval = IPSEC_LEVEL_REQUIRE;
710 1.1 itojun #ifdef IPV6_AUTH_TRANS_LEVEL
711 1.1 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_AUTH_TRANS_LEVEL,
712 1.28 itojun &optval, sizeof(optval)) == -1)
713 1.1 itojun err(1, "setsockopt(IPV6_AUTH_TRANS_LEVEL)");
714 1.1 itojun #else /* old def */
715 1.1 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_AUTH_LEVEL,
716 1.28 itojun &optval, sizeof(optval)) == -1)
717 1.1 itojun err(1, "setsockopt(IPV6_AUTH_LEVEL)");
718 1.1 itojun #endif
719 1.1 itojun }
720 1.1 itojun if (options & F_ENCRYPT) {
721 1.1 itojun optval = IPSEC_LEVEL_REQUIRE;
722 1.1 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_ESP_TRANS_LEVEL,
723 1.28 itojun &optval, sizeof(optval)) == -1)
724 1.1 itojun err(1, "setsockopt(IPV6_ESP_TRANS_LEVEL)");
725 1.1 itojun }
726 1.1 itojun #endif /*IPSEC_POLICY_IPSEC*/
727 1.1 itojun #endif
728 1.1 itojun
729 1.1 itojun #ifdef ICMP6_FILTER
730 1.1 itojun {
731 1.1 itojun struct icmp6_filter filt;
732 1.1 itojun if (!(options & F_VERBOSE)) {
733 1.1 itojun ICMP6_FILTER_SETBLOCKALL(&filt);
734 1.15 itojun if ((options & F_FQDN) || (options & F_FQDNOLD) ||
735 1.17 itojun (options & F_NODEADDR) || (options & F_SUPTYPES))
736 1.1 itojun ICMP6_FILTER_SETPASS(ICMP6_NI_REPLY, &filt);
737 1.1 itojun else
738 1.1 itojun ICMP6_FILTER_SETPASS(ICMP6_ECHO_REPLY, &filt);
739 1.1 itojun } else {
740 1.1 itojun ICMP6_FILTER_SETPASSALL(&filt);
741 1.1 itojun }
742 1.1 itojun if (setsockopt(s, IPPROTO_ICMPV6, ICMP6_FILTER, &filt,
743 1.28 itojun sizeof(filt)) < 0)
744 1.1 itojun err(1, "setsockopt(ICMP6_FILTER)");
745 1.1 itojun }
746 1.1 itojun #endif /*ICMP6_FILTER*/
747 1.1 itojun
748 1.11 itojun /* let the kerel pass extension headers of incoming packets */
749 1.11 itojun if ((options & F_VERBOSE) != 0) {
750 1.11 itojun int opton = 1;
751 1.11 itojun
752 1.11 itojun #ifdef IPV6_RECVRTHDR
753 1.11 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_RECVRTHDR, &opton,
754 1.28 itojun sizeof(opton)))
755 1.11 itojun err(1, "setsockopt(IPV6_RECVRTHDR)");
756 1.11 itojun #else /* old adv. API */
757 1.11 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_RTHDR, &opton,
758 1.28 itojun sizeof(opton)))
759 1.11 itojun err(1, "setsockopt(IPV6_RTHDR)");
760 1.15 itojun #endif
761 1.11 itojun }
762 1.11 itojun
763 1.1 itojun /*
764 1.15 itojun optval = 1;
765 1.1 itojun if (IN6_IS_ADDR_MULTICAST(&dst.sin6_addr))
766 1.1 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_MULTICAST_LOOP,
767 1.28 itojun &optval, sizeof(optval)) == -1)
768 1.1 itojun err(1, "IPV6_MULTICAST_LOOP");
769 1.1 itojun */
770 1.1 itojun
771 1.9 itojun /* Specify the outgoing interface and/or the source address */
772 1.9 itojun if (usepktinfo)
773 1.1 itojun ip6optlen += CMSG_SPACE(sizeof(struct in6_pktinfo));
774 1.1 itojun
775 1.1 itojun if (hoplimit != -1)
776 1.1 itojun ip6optlen += CMSG_SPACE(sizeof(int));
777 1.1 itojun
778 1.11 itojun #ifdef IPV6_REACHCONF
779 1.11 itojun if (options & F_REACHCONF)
780 1.11 itojun ip6optlen += CMSG_SPACE(0);
781 1.11 itojun #endif
782 1.11 itojun
783 1.1 itojun /* set IP6 packet options */
784 1.1 itojun if (ip6optlen) {
785 1.1 itojun if ((scmsg = (char *)malloc(ip6optlen)) == 0)
786 1.1 itojun errx(1, "can't allocate enough memory");
787 1.1 itojun smsghdr.msg_control = (caddr_t)scmsg;
788 1.1 itojun smsghdr.msg_controllen = ip6optlen;
789 1.1 itojun scmsgp = (struct cmsghdr *)scmsg;
790 1.1 itojun }
791 1.9 itojun if (usepktinfo) {
792 1.9 itojun pktinfo = (struct in6_pktinfo *)(CMSG_DATA(scmsgp));
793 1.9 itojun memset(pktinfo, 0, sizeof(*pktinfo));
794 1.1 itojun scmsgp->cmsg_len = CMSG_LEN(sizeof(struct in6_pktinfo));
795 1.1 itojun scmsgp->cmsg_level = IPPROTO_IPV6;
796 1.1 itojun scmsgp->cmsg_type = IPV6_PKTINFO;
797 1.9 itojun scmsgp = CMSG_NXTHDR(&smsghdr, scmsgp);
798 1.9 itojun }
799 1.1 itojun
800 1.9 itojun /* set the outgoing interface */
801 1.9 itojun if (ifname) {
802 1.9 itojun #ifndef USE_SIN6_SCOPE_ID
803 1.9 itojun /* pktinfo must have already been allocated */
804 1.9 itojun if ((pktinfo->ipi6_ifindex = if_nametoindex(ifname)) == 0)
805 1.28 itojun errx(1, "%s: invalid interface name", ifname);
806 1.1 itojun #else
807 1.9 itojun if ((dst.sin6_scope_id = if_nametoindex(ifname)) == 0)
808 1.1 itojun errx(1, "%s: invalid interface name", ifname);
809 1.1 itojun #endif
810 1.1 itojun }
811 1.9 itojun /* set the source address */
812 1.9 itojun if (options & F_SRCADDR)/* pktinfo must be valid */
813 1.9 itojun pktinfo->ipi6_addr = srcaddr;
814 1.9 itojun
815 1.1 itojun if (hoplimit != -1) {
816 1.1 itojun scmsgp->cmsg_len = CMSG_LEN(sizeof(int));
817 1.1 itojun scmsgp->cmsg_level = IPPROTO_IPV6;
818 1.1 itojun scmsgp->cmsg_type = IPV6_HOPLIMIT;
819 1.1 itojun *(int *)(CMSG_DATA(scmsgp)) = hoplimit;
820 1.1 itojun
821 1.1 itojun scmsgp = CMSG_NXTHDR(&smsghdr, scmsgp);
822 1.1 itojun }
823 1.11 itojun #ifdef IPV6_REACHCONF
824 1.11 itojun if (options & F_REACHCONF) {
825 1.11 itojun scmsgp->cmsg_len = CMSG_LEN(0);
826 1.11 itojun scmsgp->cmsg_level = IPPROTO_IPV6;
827 1.11 itojun scmsgp->cmsg_type = IPV6_REACHCONF;
828 1.11 itojun
829 1.11 itojun scmsgp = CMSG_NXTHDR(&smsghdr, scmsgp);
830 1.11 itojun }
831 1.11 itojun #endif
832 1.11 itojun
833 1.1 itojun if (argc > 1) { /* some intermediate addrs are specified */
834 1.1 itojun int hops, error;
835 1.11 itojun #ifdef USE_RFC2292BIS
836 1.11 itojun int rthdrlen;
837 1.15 itojun #endif
838 1.11 itojun
839 1.11 itojun #ifdef USE_RFC2292BIS
840 1.11 itojun rthdrlen = inet6_rth_space(IPV6_RTHDR_TYPE_0, argc - 1);
841 1.11 itojun scmsgp->cmsg_len = CMSG_LEN(rthdrlen);
842 1.11 itojun scmsgp->cmsg_level = IPPROTO_IPV6;
843 1.11 itojun scmsgp->cmsg_type = IPV6_RTHDR;
844 1.11 itojun rthdr = (struct ip6_rthdr *)CMSG_DATA(scmsgp);
845 1.11 itojun rthdr = inet6_rth_init((void *)rthdr, rthdrlen,
846 1.28 itojun IPV6_RTHDR_TYPE_0, argc - 1);
847 1.11 itojun if (rthdr == NULL)
848 1.11 itojun errx(1, "can't initialize rthdr");
849 1.11 itojun #else /* old advanced API */
850 1.1 itojun if ((scmsgp = (struct cmsghdr *)inet6_rthdr_init(scmsgp,
851 1.28 itojun IPV6_RTHDR_TYPE_0)) == 0)
852 1.1 itojun errx(1, "can't initialize rthdr");
853 1.11 itojun #endif /* USE_RFC2292BIS */
854 1.1 itojun
855 1.1 itojun for (hops = 0; hops < argc - 1; hops++) {
856 1.1 itojun struct addrinfo *iaip;
857 1.1 itojun
858 1.28 itojun if ((error = getaddrinfo(argv[hops], NULL, &hints,
859 1.28 itojun &iaip)))
860 1.21 is errx(1, "%s", gai_strerror(error));
861 1.19 itojun if (SIN6(iaip->ai_addr)->sin6_family != AF_INET6)
862 1.1 itojun errx(1,
863 1.28 itojun "bad addr family of an intermediate addr");
864 1.1 itojun
865 1.11 itojun #ifdef USE_RFC2292BIS
866 1.11 itojun if (inet6_rth_add(rthdr,
867 1.28 itojun &(SIN6(iaip->ai_addr))->sin6_addr))
868 1.11 itojun errx(1, "can't add an intermediate node");
869 1.11 itojun #else /* old advanced API */
870 1.1 itojun if (inet6_rthdr_add(scmsgp,
871 1.28 itojun &(SIN6(iaip->ai_addr))->sin6_addr,
872 1.28 itojun IPV6_RTHDR_LOOSE))
873 1.1 itojun errx(1, "can't add an intermediate node");
874 1.11 itojun #endif /* USE_RFC2292BIS */
875 1.19 itojun freeaddrinfo(iaip);
876 1.1 itojun }
877 1.1 itojun
878 1.11 itojun #ifndef USE_RFC2292BIS
879 1.1 itojun if (inet6_rthdr_lasthop(scmsgp, IPV6_RTHDR_LOOSE))
880 1.1 itojun errx(1, "can't set the last flag");
881 1.15 itojun #endif
882 1.1 itojun
883 1.1 itojun scmsgp = CMSG_NXTHDR(&smsghdr, scmsgp);
884 1.1 itojun }
885 1.1 itojun
886 1.1 itojun {
887 1.15 itojun /*
888 1.1 itojun * source selection
889 1.1 itojun */
890 1.1 itojun int dummy, len = sizeof(src);
891 1.28 itojun
892 1.1 itojun if ((dummy = socket(AF_INET6, SOCK_DGRAM, 0)) < 0)
893 1.1 itojun err(1, "UDP socket");
894 1.1 itojun
895 1.1 itojun src.sin6_family = AF_INET6;
896 1.1 itojun src.sin6_addr = dst.sin6_addr;
897 1.1 itojun src.sin6_port = ntohs(DUMMY_PORT);
898 1.9 itojun src.sin6_scope_id = dst.sin6_scope_id;
899 1.1 itojun
900 1.11 itojun #ifdef USE_RFC2292BIS
901 1.11 itojun if (pktinfo &&
902 1.11 itojun setsockopt(dummy, IPPROTO_IPV6, IPV6_PKTINFO,
903 1.28 itojun (void *)pktinfo, sizeof(*pktinfo)))
904 1.11 itojun err(1, "UDP setsockopt(IPV6_PKTINFO)");
905 1.11 itojun
906 1.11 itojun if (hoplimit != -1 &&
907 1.11 itojun setsockopt(dummy, IPPROTO_IPV6, IPV6_HOPLIMIT,
908 1.28 itojun (void *)&hoplimit, sizeof(hoplimit)))
909 1.11 itojun err(1, "UDP setsockopt(IPV6_HOPLIMIT)");
910 1.11 itojun
911 1.11 itojun if (rthdr &&
912 1.11 itojun setsockopt(dummy, IPPROTO_IPV6, IPV6_RTHDR,
913 1.28 itojun (void *)rthdr, (rthdr->ip6r_len + 1) << 3))
914 1.11 itojun err(1, "UDP setsockopt(IPV6_RTHDR)");
915 1.11 itojun #else /* old advanced API */
916 1.11 itojun if (smsghdr.msg_control &&
917 1.11 itojun setsockopt(dummy, IPPROTO_IPV6, IPV6_PKTOPTIONS,
918 1.28 itojun (void *)smsghdr.msg_control, smsghdr.msg_controllen))
919 1.9 itojun err(1, "UDP setsockopt(IPV6_PKTOPTIONS)");
920 1.15 itojun #endif
921 1.28 itojun
922 1.1 itojun if (connect(dummy, (struct sockaddr *)&src, len) < 0)
923 1.1 itojun err(1, "UDP connect");
924 1.28 itojun
925 1.1 itojun if (getsockname(dummy, (struct sockaddr *)&src, &len) < 0)
926 1.1 itojun err(1, "getsockname");
927 1.1 itojun
928 1.1 itojun close(dummy);
929 1.1 itojun }
930 1.1 itojun
931 1.1 itojun #if defined(SO_SNDBUF) && defined(SO_RCVBUF)
932 1.1 itojun if (sockbufsize) {
933 1.1 itojun if (datalen > sockbufsize)
934 1.15 itojun warnx("you need -b to increase socket buffer size");
935 1.1 itojun if (setsockopt(s, SOL_SOCKET, SO_SNDBUF, &sockbufsize,
936 1.28 itojun sizeof(sockbufsize)) < 0)
937 1.1 itojun err(1, "setsockopt(SO_SNDBUF)");
938 1.1 itojun if (setsockopt(s, SOL_SOCKET, SO_RCVBUF, &sockbufsize,
939 1.28 itojun sizeof(sockbufsize)) < 0)
940 1.1 itojun err(1, "setsockopt(SO_RCVBUF)");
941 1.1 itojun }
942 1.1 itojun else {
943 1.1 itojun if (datalen > 8 * 1024) /*XXX*/
944 1.1 itojun warnx("you need -b to increase socket buffer size");
945 1.1 itojun /*
946 1.1 itojun * When pinging the broadcast address, you can get a lot of
947 1.1 itojun * answers. Doing something so evil is useful if you are trying
948 1.1 itojun * to stress the ethernet, or just want to fill the arp cache
949 1.1 itojun * to get some stuff for /etc/ethers.
950 1.1 itojun */
951 1.1 itojun hold = 48 * 1024;
952 1.28 itojun setsockopt(s, SOL_SOCKET, SO_RCVBUF, (char *)&hold,
953 1.28 itojun sizeof(hold));
954 1.1 itojun }
955 1.1 itojun #endif
956 1.1 itojun
957 1.1 itojun optval = 1;
958 1.9 itojun #ifndef USE_SIN6_SCOPE_ID
959 1.11 itojun #ifdef IPV6_RECVPKTINFO
960 1.11 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_RECVPKTINFO, &optval,
961 1.28 itojun sizeof(optval)) < 0)
962 1.11 itojun warn("setsockopt(IPV6_RECVPKTINFO)"); /* XXX err? */
963 1.11 itojun #else /* old adv. API */
964 1.11 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_PKTINFO, &optval,
965 1.28 itojun sizeof(optval)) < 0)
966 1.11 itojun warn("setsockopt(IPV6_PKTINFO)"); /* XXX err? */
967 1.15 itojun #endif
968 1.11 itojun #endif /* USE_SIN6_SCOPE_ID */
969 1.11 itojun #ifdef IPV6_RECVHOPLIMIT
970 1.11 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_RECVHOPLIMIT, &optval,
971 1.28 itojun sizeof(optval)) < 0)
972 1.11 itojun warn("setsockopt(IPV6_RECVHOPLIMIT)"); /* XXX err? */
973 1.11 itojun #else /* old adv. API */
974 1.11 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_HOPLIMIT, &optval,
975 1.28 itojun sizeof(optval)) < 0)
976 1.11 itojun warn("setsockopt(IPV6_HOPLIMIT)"); /* XXX err? */
977 1.15 itojun #endif
978 1.1 itojun
979 1.36 itojun printf("PING6(%lu=40+8+%lu bytes) ", (unsigned long)(40 + pingerlen()),
980 1.36 itojun (unsigned long)(pingerlen() - 8));
981 1.31 itojun printf("%s --> ", pr_addr((struct sockaddr *)&src, sizeof(src)));
982 1.31 itojun printf("%s\n", pr_addr((struct sockaddr *)&dst, sizeof(dst)));
983 1.1 itojun
984 1.1 itojun while (preload--) /* Fire off them quickies. */
985 1.36 itojun (void)pinger();
986 1.1 itojun
987 1.30 itojun (void)signal(SIGINT, onsignal);
988 1.19 itojun #ifdef SIGINFO
989 1.30 itojun (void)signal(SIGINFO, onsignal);
990 1.19 itojun #endif
991 1.1 itojun
992 1.1 itojun if ((options & F_FLOOD) == 0) {
993 1.30 itojun (void)signal(SIGALRM, onsignal);
994 1.18 itojun itimer.it_interval = interval;
995 1.30 itojun itimer.it_value = interval;
996 1.1 itojun (void)setitimer(ITIMER_REAL, &itimer, NULL);
997 1.30 itojun retransmit();
998 1.1 itojun }
999 1.1 itojun
1000 1.29 itojun fdmasks = howmany(s + 1, NFDBITS) * sizeof(fd_mask);
1001 1.19 itojun if ((fdmaskp = malloc(fdmasks)) == NULL)
1002 1.19 itojun err(1, "malloc");
1003 1.19 itojun
1004 1.31 itojun signo = seenalrm = seenint = 0;
1005 1.31 itojun #ifdef SIGINFO
1006 1.31 itojun seeninfo = 0;
1007 1.31 itojun #endif
1008 1.30 itojun
1009 1.1 itojun for (;;) {
1010 1.1 itojun struct msghdr m;
1011 1.1 itojun struct cmsghdr *cm;
1012 1.11 itojun u_char buf[1024];
1013 1.1 itojun struct iovec iov[2];
1014 1.1 itojun
1015 1.31 itojun /* signal handling */
1016 1.31 itojun if (seenalrm) {
1017 1.31 itojun retransmit();
1018 1.31 itojun seenalrm = 0;
1019 1.31 itojun continue;
1020 1.31 itojun }
1021 1.31 itojun if (seenint) {
1022 1.31 itojun onint(SIGINT);
1023 1.31 itojun seenint = 0;
1024 1.31 itojun continue;
1025 1.31 itojun }
1026 1.31 itojun #ifdef SIGINFO
1027 1.31 itojun if (seeninfo) {
1028 1.31 itojun summary();
1029 1.31 itojun seeninfo = 0;
1030 1.31 itojun continue;
1031 1.31 itojun }
1032 1.31 itojun #endif
1033 1.31 itojun
1034 1.1 itojun if (options & F_FLOOD) {
1035 1.36 itojun (void)pinger();
1036 1.19 itojun timeout.tv_sec = 0;
1037 1.19 itojun timeout.tv_usec = 10000;
1038 1.30 itojun tv = &timeout;
1039 1.30 itojun } else
1040 1.30 itojun tv = NULL;
1041 1.30 itojun memset(fdmaskp, 0, fdmasks);
1042 1.30 itojun FD_SET(s, fdmaskp);
1043 1.30 itojun cc = select(s + 1, fdmaskp, NULL, NULL, tv);
1044 1.31 itojun if (cc < 0) {
1045 1.31 itojun if (errno != EINTR) {
1046 1.34 itojun warn("select");
1047 1.31 itojun sleep(1);
1048 1.30 itojun }
1049 1.30 itojun continue;
1050 1.34 itojun } else if (cc == 0)
1051 1.34 itojun continue;
1052 1.30 itojun
1053 1.1 itojun fromlen = sizeof(from);
1054 1.1 itojun m.msg_name = (caddr_t)&from;
1055 1.1 itojun m.msg_namelen = sizeof(from);
1056 1.1 itojun memset(&iov, 0, sizeof(iov));
1057 1.1 itojun iov[0].iov_base = (caddr_t)packet;
1058 1.1 itojun iov[0].iov_len = packlen;
1059 1.1 itojun m.msg_iov = iov;
1060 1.1 itojun m.msg_iovlen = 1;
1061 1.1 itojun cm = (struct cmsghdr *)buf;
1062 1.1 itojun m.msg_control = (caddr_t)buf;
1063 1.1 itojun m.msg_controllen = sizeof(buf);
1064 1.1 itojun
1065 1.30 itojun cc = recvmsg(s, &m, 0);
1066 1.30 itojun if (cc < 0) {
1067 1.30 itojun if (errno != EINTR) {
1068 1.30 itojun warn("recvmsg");
1069 1.31 itojun sleep(1);
1070 1.30 itojun }
1071 1.1 itojun continue;
1072 1.36 itojun } else if (cc == 0) {
1073 1.36 itojun int mtu;
1074 1.36 itojun
1075 1.36 itojun /*
1076 1.36 itojun * receive control messages only. Process the
1077 1.36 itojun * exceptions (currently the only possiblity is
1078 1.36 itojun * a path MTU notification.)
1079 1.36 itojun */
1080 1.36 itojun if ((mtu = get_pathmtu(&m)) > 0) {
1081 1.36 itojun if ((options & F_VERBOSE) != 0) {
1082 1.36 itojun printf("new path MTU (%d) is "
1083 1.36 itojun "notified\n", mtu);
1084 1.36 itojun }
1085 1.36 itojun }
1086 1.36 itojun continue;
1087 1.30 itojun } else {
1088 1.30 itojun /*
1089 1.30 itojun * an ICMPv6 message (probably an echoreply) arrived.
1090 1.30 itojun */
1091 1.30 itojun pr_pack(packet, cc, &m);
1092 1.1 itojun }
1093 1.1 itojun if (npackets && nreceived >= npackets)
1094 1.1 itojun break;
1095 1.1 itojun }
1096 1.1 itojun summary();
1097 1.1 itojun exit(nreceived == 0);
1098 1.1 itojun }
1099 1.1 itojun
1100 1.30 itojun void
1101 1.30 itojun onsignal(sig)
1102 1.30 itojun int sig;
1103 1.30 itojun {
1104 1.30 itojun signo = sig;
1105 1.30 itojun switch (sig) {
1106 1.30 itojun case SIGALRM:
1107 1.30 itojun seenalrm++;
1108 1.30 itojun break;
1109 1.30 itojun case SIGINT:
1110 1.30 itojun seenint++;
1111 1.30 itojun break;
1112 1.31 itojun #ifdef SIGINFO
1113 1.30 itojun case SIGINFO:
1114 1.30 itojun seeninfo++;
1115 1.30 itojun break;
1116 1.31 itojun #endif
1117 1.30 itojun }
1118 1.30 itojun }
1119 1.30 itojun
1120 1.1 itojun /*
1121 1.30 itojun * retransmit --
1122 1.1 itojun * This routine transmits another ping6.
1123 1.1 itojun */
1124 1.1 itojun void
1125 1.30 itojun retransmit()
1126 1.1 itojun {
1127 1.1 itojun struct itimerval itimer;
1128 1.1 itojun
1129 1.36 itojun if (pinger() == 0)
1130 1.1 itojun return;
1131 1.1 itojun
1132 1.1 itojun /*
1133 1.1 itojun * If we're not transmitting any more packets, change the timer
1134 1.1 itojun * to wait two round-trip times if we've received any packets or
1135 1.1 itojun * ten seconds if we haven't.
1136 1.1 itojun */
1137 1.1 itojun #define MAXWAIT 10
1138 1.1 itojun if (nreceived) {
1139 1.1 itojun itimer.it_value.tv_sec = 2 * tmax / 1000;
1140 1.1 itojun if (itimer.it_value.tv_sec == 0)
1141 1.1 itojun itimer.it_value.tv_sec = 1;
1142 1.1 itojun } else
1143 1.1 itojun itimer.it_value.tv_sec = MAXWAIT;
1144 1.1 itojun itimer.it_interval.tv_sec = 0;
1145 1.1 itojun itimer.it_interval.tv_usec = 0;
1146 1.1 itojun itimer.it_value.tv_usec = 0;
1147 1.1 itojun
1148 1.1 itojun (void)signal(SIGALRM, onint);
1149 1.1 itojun (void)setitimer(ITIMER_REAL, &itimer, NULL);
1150 1.1 itojun }
1151 1.1 itojun
1152 1.1 itojun /*
1153 1.1 itojun * pinger --
1154 1.1 itojun * Compose and transmit an ICMP ECHO REQUEST packet. The IP packet
1155 1.1 itojun * will be added on by the kernel. The ID field is our UNIX process ID,
1156 1.1 itojun * and the sequence number is an ascending integer. The first 8 bytes
1157 1.1 itojun * of the data portion are used to hold a UNIX "timeval" struct in VAX
1158 1.1 itojun * byte-order, to compute the round-trip time.
1159 1.1 itojun */
1160 1.36 itojun size_t
1161 1.36 itojun pingerlen()
1162 1.36 itojun {
1163 1.36 itojun size_t l;
1164 1.36 itojun
1165 1.36 itojun if (options & F_FQDN)
1166 1.36 itojun l = ICMP6_NIQLEN + sizeof(dst.sin6_addr);
1167 1.36 itojun else if (options & F_FQDNOLD)
1168 1.36 itojun l = ICMP6_NIQLEN;
1169 1.36 itojun else if (options & F_NODEADDR)
1170 1.36 itojun l = ICMP6_NIQLEN + sizeof(dst.sin6_addr);
1171 1.36 itojun else if (options & F_SUPTYPES)
1172 1.36 itojun l = ICMP6_NIQLEN;
1173 1.36 itojun else
1174 1.36 itojun l = ICMP6ECHOLEN + datalen;
1175 1.36 itojun
1176 1.36 itojun return l;
1177 1.36 itojun }
1178 1.36 itojun
1179 1.36 itojun int
1180 1.1 itojun pinger()
1181 1.1 itojun {
1182 1.1 itojun struct icmp6_hdr *icp;
1183 1.1 itojun struct iovec iov[2];
1184 1.1 itojun int i, cc;
1185 1.17 itojun struct icmp6_nodeinfo *nip;
1186 1.17 itojun int seq;
1187 1.1 itojun
1188 1.36 itojun if (npackets && ntransmitted >= npackets)
1189 1.36 itojun return(-1); /* no more transmission */
1190 1.36 itojun
1191 1.1 itojun icp = (struct icmp6_hdr *)outpack;
1192 1.17 itojun nip = (struct icmp6_nodeinfo *)outpack;
1193 1.14 itojun memset(icp, 0, sizeof(*icp));
1194 1.1 itojun icp->icmp6_cksum = 0;
1195 1.17 itojun seq = ntransmitted++;
1196 1.17 itojun CLR(seq % mx_dup_ck);
1197 1.1 itojun
1198 1.1 itojun if (options & F_FQDN) {
1199 1.1 itojun icp->icmp6_type = ICMP6_NI_QUERY;
1200 1.15 itojun icp->icmp6_code = ICMP6_NI_SUBJ_IPV6;
1201 1.17 itojun nip->ni_qtype = htons(NI_QTYPE_FQDN);
1202 1.17 itojun nip->ni_flags = htons(0);
1203 1.17 itojun
1204 1.28 itojun memcpy(nip->icmp6_ni_nonce, nonce,
1205 1.28 itojun sizeof(nip->icmp6_ni_nonce));
1206 1.17 itojun *(u_int16_t *)nip->icmp6_ni_nonce = ntohs(seq);
1207 1.17 itojun
1208 1.15 itojun memcpy(&outpack[ICMP6_NIQLEN], &dst.sin6_addr,
1209 1.15 itojun sizeof(dst.sin6_addr));
1210 1.15 itojun cc = ICMP6_NIQLEN + sizeof(dst.sin6_addr);
1211 1.15 itojun datalen = 0;
1212 1.15 itojun } else if (options & F_FQDNOLD) {
1213 1.15 itojun /* packet format in 03 draft - no Subject data on queries */
1214 1.15 itojun icp->icmp6_type = ICMP6_NI_QUERY;
1215 1.17 itojun icp->icmp6_code = 0; /* code field is always 0 */
1216 1.17 itojun nip->ni_qtype = htons(NI_QTYPE_FQDN);
1217 1.17 itojun nip->ni_flags = htons(0);
1218 1.17 itojun
1219 1.28 itojun memcpy(nip->icmp6_ni_nonce, nonce,
1220 1.28 itojun sizeof(nip->icmp6_ni_nonce));
1221 1.17 itojun *(u_int16_t *)nip->icmp6_ni_nonce = ntohs(seq);
1222 1.17 itojun
1223 1.1 itojun cc = ICMP6_NIQLEN;
1224 1.1 itojun datalen = 0;
1225 1.1 itojun } else if (options & F_NODEADDR) {
1226 1.1 itojun icp->icmp6_type = ICMP6_NI_QUERY;
1227 1.15 itojun icp->icmp6_code = ICMP6_NI_SUBJ_IPV6;
1228 1.17 itojun nip->ni_qtype = htons(NI_QTYPE_NODEADDR);
1229 1.17 itojun nip->ni_flags = naflags;
1230 1.17 itojun
1231 1.28 itojun memcpy(nip->icmp6_ni_nonce, nonce,
1232 1.28 itojun sizeof(nip->icmp6_ni_nonce));
1233 1.17 itojun *(u_int16_t *)nip->icmp6_ni_nonce = ntohs(seq);
1234 1.17 itojun
1235 1.15 itojun memcpy(&outpack[ICMP6_NIQLEN], &dst.sin6_addr,
1236 1.15 itojun sizeof(dst.sin6_addr));
1237 1.15 itojun cc = ICMP6_NIQLEN + sizeof(dst.sin6_addr);
1238 1.1 itojun datalen = 0;
1239 1.17 itojun } else if (options & F_SUPTYPES) {
1240 1.17 itojun icp->icmp6_type = ICMP6_NI_QUERY;
1241 1.17 itojun icp->icmp6_code = ICMP6_NI_SUBJ_FQDN; /*empty*/
1242 1.17 itojun nip->ni_qtype = htons(NI_QTYPE_SUPTYPES);
1243 1.24 itojun /* we support compressed bitmap */
1244 1.24 itojun nip->ni_flags = NI_SUPTYPE_FLAG_COMPRESS;
1245 1.17 itojun
1246 1.28 itojun memcpy(nip->icmp6_ni_nonce, nonce,
1247 1.28 itojun sizeof(nip->icmp6_ni_nonce));
1248 1.17 itojun *(u_int16_t *)nip->icmp6_ni_nonce = ntohs(seq);
1249 1.17 itojun cc = ICMP6_NIQLEN;
1250 1.17 itojun datalen = 0;
1251 1.17 itojun } else {
1252 1.1 itojun icp->icmp6_type = ICMP6_ECHO_REQUEST;
1253 1.17 itojun icp->icmp6_code = 0;
1254 1.17 itojun icp->icmp6_id = htons(ident);
1255 1.17 itojun icp->icmp6_seq = ntohs(seq);
1256 1.1 itojun if (timing)
1257 1.1 itojun (void)gettimeofday((struct timeval *)
1258 1.1 itojun &outpack[ICMP6ECHOLEN], NULL);
1259 1.1 itojun cc = ICMP6ECHOLEN + datalen;
1260 1.1 itojun }
1261 1.1 itojun
1262 1.36 itojun #ifdef DIAGNOSTIC
1263 1.36 itojun if (pingerlen() != cc)
1264 1.36 itojun errx(1, "internal error; length mismatch");
1265 1.36 itojun #endif
1266 1.36 itojun
1267 1.1 itojun smsghdr.msg_name = (caddr_t)&dst;
1268 1.1 itojun smsghdr.msg_namelen = sizeof(dst);
1269 1.1 itojun memset(&iov, 0, sizeof(iov));
1270 1.1 itojun iov[0].iov_base = (caddr_t)outpack;
1271 1.1 itojun iov[0].iov_len = cc;
1272 1.1 itojun smsghdr.msg_iov = iov;
1273 1.1 itojun smsghdr.msg_iovlen = 1;
1274 1.1 itojun
1275 1.1 itojun i = sendmsg(s, &smsghdr, 0);
1276 1.1 itojun
1277 1.1 itojun if (i < 0 || i != cc) {
1278 1.1 itojun if (i < 0)
1279 1.1 itojun warn("sendmsg");
1280 1.1 itojun (void)printf("ping6: wrote %s %d chars, ret=%d\n",
1281 1.1 itojun hostname, cc, i);
1282 1.1 itojun }
1283 1.1 itojun if (!(options & F_QUIET) && options & F_FLOOD)
1284 1.1 itojun (void)write(STDOUT_FILENO, &DOT, 1);
1285 1.36 itojun
1286 1.36 itojun return(0);
1287 1.1 itojun }
1288 1.1 itojun
1289 1.17 itojun int
1290 1.17 itojun myechoreply(icp)
1291 1.17 itojun const struct icmp6_hdr *icp;
1292 1.17 itojun {
1293 1.17 itojun if (ntohs(icp->icmp6_id) == ident)
1294 1.17 itojun return 1;
1295 1.17 itojun else
1296 1.17 itojun return 0;
1297 1.17 itojun }
1298 1.17 itojun
1299 1.17 itojun int
1300 1.17 itojun mynireply(nip)
1301 1.17 itojun const struct icmp6_nodeinfo *nip;
1302 1.17 itojun {
1303 1.17 itojun if (memcmp(nip->icmp6_ni_nonce + sizeof(u_int16_t),
1304 1.17 itojun nonce + sizeof(u_int16_t),
1305 1.17 itojun sizeof(nonce) - sizeof(u_int16_t)) == 0)
1306 1.17 itojun return 1;
1307 1.17 itojun else
1308 1.17 itojun return 0;
1309 1.17 itojun }
1310 1.17 itojun
1311 1.17 itojun char *
1312 1.17 itojun dnsdecode(sp, ep, base, buf, bufsiz)
1313 1.17 itojun const u_char **sp;
1314 1.17 itojun const u_char *ep;
1315 1.17 itojun const u_char *base; /*base for compressed name*/
1316 1.17 itojun u_char *buf;
1317 1.17 itojun size_t bufsiz;
1318 1.17 itojun {
1319 1.25 itojun int i;
1320 1.17 itojun const u_char *cp;
1321 1.17 itojun char cresult[MAXDNAME + 1];
1322 1.17 itojun const u_char *comp;
1323 1.28 itojun int l;
1324 1.17 itojun
1325 1.17 itojun cp = *sp;
1326 1.25 itojun *buf = '\0';
1327 1.17 itojun
1328 1.17 itojun if (cp >= ep)
1329 1.17 itojun return NULL;
1330 1.17 itojun while (cp < ep) {
1331 1.17 itojun i = *cp;
1332 1.17 itojun if (i == 0 || cp != *sp) {
1333 1.25 itojun if (strlcat(buf, ".", bufsiz) >= bufsiz)
1334 1.17 itojun return NULL; /*result overrun*/
1335 1.17 itojun }
1336 1.17 itojun if (i == 0)
1337 1.17 itojun break;
1338 1.17 itojun cp++;
1339 1.17 itojun
1340 1.17 itojun if ((i & 0xc0) == 0xc0 && cp - base > (i & 0x3f)) {
1341 1.17 itojun /* DNS compression */
1342 1.17 itojun if (!base)
1343 1.17 itojun return NULL;
1344 1.17 itojun
1345 1.17 itojun comp = base + (i & 0x3f);
1346 1.17 itojun if (dnsdecode(&comp, cp, base, cresult,
1347 1.17 itojun sizeof(cresult)) == NULL)
1348 1.17 itojun return NULL;
1349 1.25 itojun if (strlcat(buf, cresult, bufsiz) >= bufsiz)
1350 1.17 itojun return NULL; /*result overrun*/
1351 1.17 itojun break;
1352 1.17 itojun } else if ((i & 0x3f) == i) {
1353 1.17 itojun if (i > ep - cp)
1354 1.17 itojun return NULL; /*source overrun*/
1355 1.17 itojun while (i-- > 0 && cp < ep) {
1356 1.28 itojun l = snprintf(cresult, sizeof(cresult),
1357 1.25 itojun isprint(*cp) ? "%c" : "\\%03o", *cp & 0xff);
1358 1.28 itojun if (l >= sizeof(cresult))
1359 1.28 itojun return NULL;
1360 1.25 itojun if (strlcat(buf, cresult, bufsiz) >= bufsiz)
1361 1.17 itojun return NULL; /*result overrun*/
1362 1.17 itojun cp++;
1363 1.17 itojun }
1364 1.17 itojun } else
1365 1.17 itojun return NULL; /*invalid label*/
1366 1.17 itojun }
1367 1.17 itojun if (i != 0)
1368 1.17 itojun return NULL; /*not terminated*/
1369 1.17 itojun cp++;
1370 1.17 itojun *sp = cp;
1371 1.17 itojun return buf;
1372 1.17 itojun }
1373 1.17 itojun
1374 1.1 itojun /*
1375 1.1 itojun * pr_pack --
1376 1.1 itojun * Print out the packet, if it came from us. This logic is necessary
1377 1.1 itojun * because ALL readers of the ICMP socket get a copy of ALL ICMP packets
1378 1.1 itojun * which arrive ('tis only fair). This permits multiple copies of this
1379 1.1 itojun * program to be run without having intermingled output (or statistics!).
1380 1.1 itojun */
1381 1.1 itojun void
1382 1.1 itojun pr_pack(buf, cc, mhdr)
1383 1.1 itojun u_char *buf;
1384 1.1 itojun int cc;
1385 1.1 itojun struct msghdr *mhdr;
1386 1.1 itojun {
1387 1.15 itojun #define safeputc(c) printf((isprint((c)) ? "%c" : "\\%03o"), c)
1388 1.1 itojun struct icmp6_hdr *icp;
1389 1.17 itojun struct icmp6_nodeinfo *ni;
1390 1.1 itojun int i;
1391 1.1 itojun int hoplim;
1392 1.31 itojun struct sockaddr *from;
1393 1.31 itojun int fromlen;
1394 1.1 itojun u_char *cp = NULL, *dp, *end = buf + cc;
1395 1.11 itojun struct in6_pktinfo *pktinfo = NULL;
1396 1.1 itojun struct timeval tv, *tp;
1397 1.1 itojun double triptime = 0;
1398 1.1 itojun int dupflag;
1399 1.1 itojun size_t off;
1400 1.15 itojun int oldfqdn;
1401 1.17 itojun u_int16_t seq;
1402 1.17 itojun char dnsname[MAXDNAME + 1];
1403 1.1 itojun
1404 1.1 itojun (void)gettimeofday(&tv, NULL);
1405 1.1 itojun
1406 1.32 itojun if (!mhdr || !mhdr->msg_name ||
1407 1.32 itojun mhdr->msg_namelen != sizeof(struct sockaddr_in6) ||
1408 1.31 itojun ((struct sockaddr *)mhdr->msg_name)->sa_family != AF_INET6) {
1409 1.31 itojun if (options & F_VERBOSE)
1410 1.31 itojun warnx("invalid peername\n");
1411 1.31 itojun return;
1412 1.31 itojun }
1413 1.31 itojun from = (struct sockaddr *)mhdr->msg_name;
1414 1.31 itojun fromlen = mhdr->msg_namelen;
1415 1.1 itojun if (cc < sizeof(struct icmp6_hdr)) {
1416 1.1 itojun if (options & F_VERBOSE)
1417 1.1 itojun warnx("packet too short (%d bytes) from %s\n", cc,
1418 1.31 itojun pr_addr(from, fromlen));
1419 1.1 itojun return;
1420 1.1 itojun }
1421 1.1 itojun icp = (struct icmp6_hdr *)buf;
1422 1.17 itojun ni = (struct icmp6_nodeinfo *)buf;
1423 1.1 itojun off = 0;
1424 1.1 itojun
1425 1.1 itojun if ((hoplim = get_hoplim(mhdr)) == -1) {
1426 1.1 itojun warnx("failed to get receiving hop limit");
1427 1.1 itojun return;
1428 1.1 itojun }
1429 1.11 itojun if ((pktinfo = get_rcvpktinfo(mhdr)) == NULL) {
1430 1.11 itojun warnx("failed to get receiving pakcet information");
1431 1.11 itojun return;
1432 1.11 itojun }
1433 1.1 itojun
1434 1.17 itojun if (icp->icmp6_type == ICMP6_ECHO_REPLY && myechoreply(icp)) {
1435 1.17 itojun seq = ntohs(icp->icmp6_seq);
1436 1.1 itojun ++nreceived;
1437 1.1 itojun if (timing) {
1438 1.1 itojun tp = (struct timeval *)(icp + 1);
1439 1.1 itojun tvsub(&tv, tp);
1440 1.1 itojun triptime = ((double)tv.tv_sec) * 1000.0 +
1441 1.1 itojun ((double)tv.tv_usec) / 1000.0;
1442 1.1 itojun tsum += triptime;
1443 1.19 itojun #if defined(__OpenBSD__) || defined(__NetBSD__)
1444 1.18 itojun tsumsq += triptime * triptime;
1445 1.18 itojun #endif
1446 1.1 itojun if (triptime < tmin)
1447 1.1 itojun tmin = triptime;
1448 1.1 itojun if (triptime > tmax)
1449 1.1 itojun tmax = triptime;
1450 1.1 itojun }
1451 1.1 itojun
1452 1.17 itojun if (TST(seq % mx_dup_ck)) {
1453 1.1 itojun ++nrepeats;
1454 1.1 itojun --nreceived;
1455 1.1 itojun dupflag = 1;
1456 1.1 itojun } else {
1457 1.17 itojun SET(seq % mx_dup_ck);
1458 1.1 itojun dupflag = 0;
1459 1.1 itojun }
1460 1.1 itojun
1461 1.1 itojun if (options & F_QUIET)
1462 1.1 itojun return;
1463 1.1 itojun
1464 1.1 itojun if (options & F_FLOOD)
1465 1.1 itojun (void)write(STDOUT_FILENO, &BSPACE, 1);
1466 1.1 itojun else {
1467 1.1 itojun (void)printf("%d bytes from %s, icmp_seq=%u", cc,
1468 1.31 itojun pr_addr(from, fromlen), seq);
1469 1.1 itojun (void)printf(" hlim=%d", hoplim);
1470 1.11 itojun if ((options & F_VERBOSE) != 0) {
1471 1.11 itojun struct sockaddr_in6 dstsa;
1472 1.11 itojun
1473 1.11 itojun memset(&dstsa, 0, sizeof(dstsa));
1474 1.11 itojun dstsa.sin6_family = AF_INET6;
1475 1.31 itojun #ifdef SIN6_LEN
1476 1.11 itojun dstsa.sin6_len = sizeof(dstsa);
1477 1.31 itojun #endif
1478 1.11 itojun dstsa.sin6_scope_id = pktinfo->ipi6_ifindex;
1479 1.11 itojun dstsa.sin6_addr = pktinfo->ipi6_addr;
1480 1.31 itojun (void)printf(" dst=%s",
1481 1.31 itojun pr_addr((struct sockaddr *)&dstsa,
1482 1.31 itojun sizeof(dstsa)));
1483 1.11 itojun }
1484 1.1 itojun if (timing)
1485 1.1 itojun (void)printf(" time=%g ms", triptime);
1486 1.1 itojun if (dupflag)
1487 1.1 itojun (void)printf("(DUP!)");
1488 1.1 itojun /* check the data */
1489 1.1 itojun cp = buf + off + ICMP6ECHOLEN + ICMP6ECHOTMLEN;
1490 1.1 itojun dp = outpack + ICMP6ECHOLEN + ICMP6ECHOTMLEN;
1491 1.1 itojun for (i = 8; cp < end; ++i, ++cp, ++dp) {
1492 1.1 itojun if (*cp != *dp) {
1493 1.1 itojun (void)printf("\nwrong data byte #%d should be 0x%x but was 0x%x", i, *dp, *cp);
1494 1.1 itojun break;
1495 1.1 itojun }
1496 1.1 itojun }
1497 1.1 itojun }
1498 1.17 itojun } else if (icp->icmp6_type == ICMP6_NI_REPLY && mynireply(ni)) {
1499 1.17 itojun seq = ntohs(*(u_int16_t *)ni->icmp6_ni_nonce);
1500 1.17 itojun ++nreceived;
1501 1.17 itojun if (TST(seq % mx_dup_ck)) {
1502 1.17 itojun ++nrepeats;
1503 1.17 itojun --nreceived;
1504 1.17 itojun dupflag = 1;
1505 1.17 itojun } else {
1506 1.17 itojun SET(seq % mx_dup_ck);
1507 1.17 itojun dupflag = 0;
1508 1.17 itojun }
1509 1.17 itojun
1510 1.17 itojun if (options & F_QUIET)
1511 1.17 itojun return;
1512 1.1 itojun
1513 1.31 itojun (void)printf("%d bytes from %s: ", cc, pr_addr(from, fromlen));
1514 1.1 itojun
1515 1.17 itojun switch (ntohs(ni->ni_code)) {
1516 1.17 itojun case ICMP6_NI_SUCCESS:
1517 1.17 itojun break;
1518 1.17 itojun case ICMP6_NI_REFUSED:
1519 1.17 itojun printf("refused, type 0x%x", ntohs(ni->ni_type));
1520 1.17 itojun goto fqdnend;
1521 1.17 itojun case ICMP6_NI_UNKNOWN:
1522 1.17 itojun printf("unknown, type 0x%x", ntohs(ni->ni_type));
1523 1.17 itojun goto fqdnend;
1524 1.17 itojun default:
1525 1.17 itojun printf("unknown code 0x%x, type 0x%x",
1526 1.17 itojun ntohs(ni->ni_code), ntohs(ni->ni_type));
1527 1.17 itojun goto fqdnend;
1528 1.17 itojun }
1529 1.17 itojun
1530 1.17 itojun switch (ntohs(ni->ni_qtype)) {
1531 1.17 itojun case NI_QTYPE_NOOP:
1532 1.17 itojun printf("NodeInfo NOOP");
1533 1.17 itojun break;
1534 1.17 itojun case NI_QTYPE_SUPTYPES:
1535 1.24 itojun pr_suptypes(ni, end - (u_char *)ni);
1536 1.17 itojun break;
1537 1.17 itojun case NI_QTYPE_NODEADDR:
1538 1.17 itojun pr_nodeaddr(ni, end - (u_char *)ni);
1539 1.17 itojun break;
1540 1.17 itojun case NI_QTYPE_FQDN:
1541 1.17 itojun default: /* XXX: for backward compatibility */
1542 1.15 itojun cp = (u_char *)ni + ICMP6_NIRLEN;
1543 1.15 itojun if (buf[off + ICMP6_NIRLEN] ==
1544 1.15 itojun cc - off - ICMP6_NIRLEN - 1)
1545 1.15 itojun oldfqdn = 1;
1546 1.15 itojun else
1547 1.15 itojun oldfqdn = 0;
1548 1.15 itojun if (oldfqdn) {
1549 1.17 itojun cp++; /* skip length */
1550 1.15 itojun while (cp < end) {
1551 1.15 itojun safeputc(*cp & 0xff);
1552 1.15 itojun cp++;
1553 1.15 itojun }
1554 1.15 itojun } else {
1555 1.17 itojun i = 0;
1556 1.15 itojun while (cp < end) {
1557 1.17 itojun if (dnsdecode((const u_char **)&cp, end,
1558 1.17 itojun (const u_char *)(ni + 1), dnsname,
1559 1.17 itojun sizeof(dnsname)) == NULL) {
1560 1.17 itojun printf("???");
1561 1.15 itojun break;
1562 1.15 itojun }
1563 1.17 itojun /*
1564 1.17 itojun * name-lookup special handling for
1565 1.17 itojun * truncated name
1566 1.17 itojun */
1567 1.18 itojun if (cp + 1 <= end && !*cp &&
1568 1.17 itojun strlen(dnsname) > 0) {
1569 1.17 itojun dnsname[strlen(dnsname) - 1] = '\0';
1570 1.17 itojun cp++;
1571 1.17 itojun }
1572 1.17 itojun printf("%s%s", i > 0 ? "," : "",
1573 1.17 itojun dnsname);
1574 1.15 itojun }
1575 1.15 itojun }
1576 1.15 itojun if (options & F_VERBOSE) {
1577 1.15 itojun int32_t ttl;
1578 1.15 itojun int comma = 0;
1579 1.15 itojun
1580 1.15 itojun (void)printf(" ("); /*)*/
1581 1.15 itojun
1582 1.17 itojun switch (ni->ni_code) {
1583 1.15 itojun case ICMP6_NI_REFUSED:
1584 1.15 itojun (void)printf("refused");
1585 1.15 itojun comma++;
1586 1.15 itojun break;
1587 1.15 itojun case ICMP6_NI_UNKNOWN:
1588 1.15 itojun (void)printf("unknwon qtype");
1589 1.15 itojun comma++;
1590 1.15 itojun break;
1591 1.15 itojun }
1592 1.1 itojun
1593 1.15 itojun if ((end - (u_char *)ni) < ICMP6_NIRLEN) {
1594 1.19 itojun /* case of refusion, unknown */
1595 1.19 itojun /*(*/
1596 1.19 itojun putchar(')');
1597 1.15 itojun goto fqdnend;
1598 1.15 itojun }
1599 1.15 itojun ttl = (int32_t)ntohl(*(u_long *)&buf[off+ICMP6ECHOLEN+8]);
1600 1.15 itojun if (comma)
1601 1.15 itojun printf(",");
1602 1.17 itojun if (!(ni->ni_flags & NI_FQDN_FLAG_VALIDTTL)) {
1603 1.15 itojun (void)printf("TTL=%d:meaningless",
1604 1.17 itojun (int)ttl);
1605 1.17 itojun } else {
1606 1.15 itojun if (ttl < 0) {
1607 1.15 itojun (void)printf("TTL=%d:invalid",
1608 1.17 itojun ttl);
1609 1.15 itojun } else
1610 1.15 itojun (void)printf("TTL=%d", ttl);
1611 1.15 itojun }
1612 1.15 itojun comma++;
1613 1.1 itojun
1614 1.15 itojun if (oldfqdn) {
1615 1.15 itojun if (comma)
1616 1.15 itojun printf(",");
1617 1.15 itojun printf("03 draft");
1618 1.15 itojun comma++;
1619 1.15 itojun } else {
1620 1.15 itojun cp = (u_char *)ni + ICMP6_NIRLEN;
1621 1.15 itojun if (cp == end) {
1622 1.15 itojun if (comma)
1623 1.15 itojun printf(",");
1624 1.15 itojun printf("no name");
1625 1.15 itojun comma++;
1626 1.15 itojun }
1627 1.15 itojun }
1628 1.1 itojun
1629 1.15 itojun if (buf[off + ICMP6_NIRLEN] !=
1630 1.15 itojun cc - off - ICMP6_NIRLEN - 1 && oldfqdn) {
1631 1.15 itojun if (comma)
1632 1.15 itojun printf(",");
1633 1.15 itojun (void)printf("invalid namelen:%d/%lu",
1634 1.17 itojun buf[off + ICMP6_NIRLEN],
1635 1.17 itojun (u_long)cc - off - ICMP6_NIRLEN - 1);
1636 1.15 itojun comma++;
1637 1.15 itojun }
1638 1.15 itojun /*(*/
1639 1.15 itojun putchar(')');
1640 1.15 itojun }
1641 1.17 itojun fqdnend:
1642 1.15 itojun ;
1643 1.1 itojun }
1644 1.1 itojun } else {
1645 1.1 itojun /* We've got something other than an ECHOREPLY */
1646 1.1 itojun if (!(options & F_VERBOSE))
1647 1.1 itojun return;
1648 1.31 itojun (void)printf("%d bytes from %s: ", cc, pr_addr(from, fromlen));
1649 1.1 itojun pr_icmph(icp, end);
1650 1.1 itojun }
1651 1.1 itojun
1652 1.1 itojun if (!(options & F_FLOOD)) {
1653 1.1 itojun (void)putchar('\n');
1654 1.11 itojun if (options & F_VERBOSE)
1655 1.11 itojun pr_exthdrs(mhdr);
1656 1.1 itojun (void)fflush(stdout);
1657 1.1 itojun }
1658 1.15 itojun #undef safeputc
1659 1.1 itojun }
1660 1.1 itojun
1661 1.1 itojun void
1662 1.11 itojun pr_exthdrs(mhdr)
1663 1.11 itojun struct msghdr *mhdr;
1664 1.11 itojun {
1665 1.11 itojun struct cmsghdr *cm;
1666 1.11 itojun
1667 1.11 itojun for (cm = (struct cmsghdr *)CMSG_FIRSTHDR(mhdr); cm;
1668 1.11 itojun cm = (struct cmsghdr *)CMSG_NXTHDR(mhdr, cm)) {
1669 1.11 itojun if (cm->cmsg_level != IPPROTO_IPV6)
1670 1.11 itojun continue;
1671 1.11 itojun
1672 1.17 itojun switch (cm->cmsg_type) {
1673 1.11 itojun case IPV6_HOPOPTS:
1674 1.11 itojun printf(" HbH Options: ");
1675 1.11 itojun pr_ip6opt(CMSG_DATA(cm));
1676 1.11 itojun break;
1677 1.11 itojun case IPV6_DSTOPTS:
1678 1.11 itojun #ifdef IPV6_RTHDRDSTOPTS
1679 1.11 itojun case IPV6_RTHDRDSTOPTS:
1680 1.11 itojun #endif
1681 1.11 itojun printf(" Dst Options: ");
1682 1.11 itojun pr_ip6opt(CMSG_DATA(cm));
1683 1.11 itojun break;
1684 1.11 itojun case IPV6_RTHDR:
1685 1.11 itojun printf(" Routing: ");
1686 1.11 itojun pr_rthdr(CMSG_DATA(cm));
1687 1.11 itojun break;
1688 1.11 itojun }
1689 1.11 itojun }
1690 1.11 itojun }
1691 1.11 itojun
1692 1.11 itojun #ifdef USE_RFC2292BIS
1693 1.11 itojun void
1694 1.11 itojun pr_ip6opt(void *extbuf)
1695 1.11 itojun {
1696 1.11 itojun struct ip6_hbh *ext;
1697 1.11 itojun int currentlen;
1698 1.11 itojun u_int8_t type;
1699 1.11 itojun size_t extlen, len;
1700 1.11 itojun void *databuf;
1701 1.11 itojun size_t offset;
1702 1.11 itojun u_int16_t value2;
1703 1.11 itojun u_int32_t value4;
1704 1.11 itojun
1705 1.11 itojun ext = (struct ip6_hbh *)extbuf;
1706 1.11 itojun extlen = (ext->ip6h_len + 1) * 8;
1707 1.23 itojun printf("nxt %u, len %u (%lu bytes)\n", ext->ip6h_nxt,
1708 1.28 itojun (unsigned int)ext->ip6h_len, (unsigned long)extlen);
1709 1.11 itojun
1710 1.11 itojun currentlen = 0;
1711 1.11 itojun while (1) {
1712 1.11 itojun currentlen = inet6_opt_next(extbuf, extlen, currentlen,
1713 1.28 itojun &type, &len, &databuf);
1714 1.11 itojun if (currentlen == -1)
1715 1.11 itojun break;
1716 1.11 itojun switch (type) {
1717 1.11 itojun /*
1718 1.11 itojun * Note that inet6_opt_next automatically skips any padding
1719 1.11 itojun * optins.
1720 1.11 itojun */
1721 1.11 itojun case IP6OPT_JUMBO:
1722 1.11 itojun offset = 0;
1723 1.11 itojun offset = inet6_opt_get_val(databuf, offset,
1724 1.28 itojun &value4, sizeof(value4));
1725 1.11 itojun printf(" Jumbo Payload Opt: Length %u\n",
1726 1.28 itojun (u_int32_t)ntohl(value4));
1727 1.11 itojun break;
1728 1.11 itojun case IP6OPT_ROUTER_ALERT:
1729 1.11 itojun offset = 0;
1730 1.11 itojun offset = inet6_opt_get_val(databuf, offset,
1731 1.11 itojun &value2, sizeof(value2));
1732 1.11 itojun printf(" Router Alert Opt: Type %u\n",
1733 1.28 itojun ntohs(value2));
1734 1.11 itojun break;
1735 1.11 itojun default:
1736 1.23 itojun printf(" Received Opt %u len %lu\n",
1737 1.28 itojun type, (unsigned long)len);
1738 1.11 itojun break;
1739 1.11 itojun }
1740 1.11 itojun }
1741 1.11 itojun return;
1742 1.11 itojun }
1743 1.11 itojun #else /* !USE_RFC2292BIS */
1744 1.11 itojun /* ARGSUSED */
1745 1.11 itojun void
1746 1.11 itojun pr_ip6opt(void *extbuf)
1747 1.11 itojun {
1748 1.11 itojun putchar('\n');
1749 1.11 itojun return;
1750 1.11 itojun }
1751 1.11 itojun #endif /* USE_RFC2292BIS */
1752 1.11 itojun
1753 1.11 itojun #ifdef USE_RFC2292BIS
1754 1.11 itojun void
1755 1.11 itojun pr_rthdr(void *extbuf)
1756 1.11 itojun {
1757 1.11 itojun struct in6_addr *in6;
1758 1.11 itojun char ntopbuf[INET6_ADDRSTRLEN];
1759 1.11 itojun struct ip6_rthdr *rh = (struct ip6_rthdr *)extbuf;
1760 1.11 itojun int i, segments;
1761 1.11 itojun
1762 1.11 itojun /* print fixed part of the header */
1763 1.11 itojun printf("nxt %u, len %u (%d bytes), type %u, ", rh->ip6r_nxt,
1764 1.28 itojun rh->ip6r_len, (rh->ip6r_len + 1) << 3, rh->ip6r_type);
1765 1.11 itojun if ((segments = inet6_rth_segments(extbuf)) >= 0)
1766 1.11 itojun printf("%d segments, ", segments);
1767 1.11 itojun else
1768 1.11 itojun printf("segments unknown, ");
1769 1.11 itojun printf("%d left\n", rh->ip6r_segleft);
1770 1.11 itojun
1771 1.11 itojun for (i = 0; i < segments; i++) {
1772 1.11 itojun in6 = inet6_rth_getaddr(extbuf, i);
1773 1.11 itojun if (in6 == NULL)
1774 1.11 itojun printf(" [%d]<NULL>\n", i);
1775 1.19 itojun else {
1776 1.28 itojun if (!inet_ntop(AF_INET6, in6, ntopbuf,
1777 1.28 itojun sizeof(ntopbuf)))
1778 1.19 itojun strncpy(ntopbuf, "?", sizeof(ntopbuf));
1779 1.19 itojun printf(" [%d]%s\n", i, ntopbuf);
1780 1.19 itojun }
1781 1.11 itojun }
1782 1.11 itojun
1783 1.11 itojun return;
1784 1.28 itojun
1785 1.11 itojun }
1786 1.28 itojun
1787 1.11 itojun #else /* !USE_RFC2292BIS */
1788 1.11 itojun /* ARGSUSED */
1789 1.11 itojun void
1790 1.11 itojun pr_rthdr(void *extbuf)
1791 1.11 itojun {
1792 1.11 itojun putchar('\n');
1793 1.11 itojun return;
1794 1.11 itojun }
1795 1.11 itojun #endif /* USE_RFC2292BIS */
1796 1.11 itojun
1797 1.24 itojun int
1798 1.24 itojun pr_bitrange(v, s, ii)
1799 1.24 itojun u_int32_t v;
1800 1.24 itojun int s;
1801 1.24 itojun int ii;
1802 1.24 itojun {
1803 1.24 itojun int off;
1804 1.24 itojun int i;
1805 1.24 itojun
1806 1.24 itojun off = 0;
1807 1.24 itojun while (off < 32) {
1808 1.24 itojun /* shift till we have 0x01 */
1809 1.24 itojun if ((v & 0x01) == 0) {
1810 1.24 itojun if (ii > 1)
1811 1.24 itojun printf("-%u", s + off - 1);
1812 1.24 itojun ii = 0;
1813 1.24 itojun switch (v & 0x0f) {
1814 1.24 itojun case 0x00:
1815 1.28 itojun v >>= 4;
1816 1.28 itojun off += 4;
1817 1.28 itojun continue;
1818 1.24 itojun case 0x08:
1819 1.28 itojun v >>= 3;
1820 1.28 itojun off += 3;
1821 1.28 itojun continue;
1822 1.24 itojun case 0x04: case 0x0c:
1823 1.28 itojun v >>= 2;
1824 1.28 itojun off += 2;
1825 1.28 itojun continue;
1826 1.24 itojun default:
1827 1.28 itojun v >>= 1;
1828 1.28 itojun off += 1;
1829 1.28 itojun continue;
1830 1.24 itojun }
1831 1.24 itojun }
1832 1.24 itojun
1833 1.24 itojun /* we have 0x01 with us */
1834 1.24 itojun for (i = 0; i < 32 - off; i++) {
1835 1.24 itojun if ((v & (0x01 << i)) == 0)
1836 1.24 itojun break;
1837 1.24 itojun }
1838 1.24 itojun if (!ii)
1839 1.24 itojun printf(" %u", s + off);
1840 1.24 itojun ii += i;
1841 1.24 itojun v >>= i; off += i;
1842 1.24 itojun }
1843 1.24 itojun return ii;
1844 1.24 itojun }
1845 1.24 itojun
1846 1.24 itojun void
1847 1.24 itojun pr_suptypes(ni, nilen)
1848 1.24 itojun struct icmp6_nodeinfo *ni; /* ni->qtype must be SUPTYPES */
1849 1.24 itojun size_t nilen;
1850 1.24 itojun {
1851 1.24 itojun size_t clen;
1852 1.24 itojun u_int32_t v;
1853 1.24 itojun const u_char *cp, *end;
1854 1.24 itojun u_int16_t cur;
1855 1.24 itojun struct cbit {
1856 1.24 itojun u_int16_t words; /*32bit count*/
1857 1.24 itojun u_int16_t skip;
1858 1.24 itojun } cbit;
1859 1.24 itojun #define MAXQTYPES (1 << 16)
1860 1.24 itojun size_t off;
1861 1.24 itojun int b;
1862 1.24 itojun
1863 1.24 itojun cp = (u_char *)(ni + 1);
1864 1.24 itojun end = ((u_char *)ni) + nilen;
1865 1.24 itojun cur = 0;
1866 1.24 itojun b = 0;
1867 1.24 itojun
1868 1.24 itojun printf("NodeInfo Supported Qtypes");
1869 1.24 itojun if (options & F_VERBOSE) {
1870 1.24 itojun if (ni->ni_flags & NI_SUPTYPE_FLAG_COMPRESS)
1871 1.24 itojun printf(", compressed bitmap");
1872 1.24 itojun else
1873 1.24 itojun printf(", raw bitmap");
1874 1.24 itojun }
1875 1.24 itojun
1876 1.24 itojun while (cp < end) {
1877 1.24 itojun clen = (size_t)(end - cp);
1878 1.24 itojun if ((ni->ni_flags & NI_SUPTYPE_FLAG_COMPRESS) == 0) {
1879 1.24 itojun if (clen == 0 || clen > MAXQTYPES / 8 ||
1880 1.24 itojun clen % sizeof(v)) {
1881 1.24 itojun printf("???");
1882 1.24 itojun return;
1883 1.24 itojun }
1884 1.24 itojun } else {
1885 1.24 itojun if (clen < sizeof(cbit) || clen % sizeof(v))
1886 1.24 itojun return;
1887 1.24 itojun memcpy(&cbit, cp, sizeof(cbit));
1888 1.28 itojun if (sizeof(cbit) + ntohs(cbit.words) * sizeof(v) >
1889 1.28 itojun clen)
1890 1.24 itojun return;
1891 1.24 itojun cp += sizeof(cbit);
1892 1.24 itojun clen = ntohs(cbit.words) * sizeof(v);
1893 1.28 itojun if (cur + clen * 8 + (u_long)ntohs(cbit.skip) * 32 >
1894 1.28 itojun MAXQTYPES)
1895 1.24 itojun return;
1896 1.24 itojun }
1897 1.24 itojun
1898 1.24 itojun for (off = 0; off < clen; off += sizeof(v)) {
1899 1.24 itojun memcpy(&v, cp + off, sizeof(v));
1900 1.24 itojun v = (u_int32_t)ntohl(v);
1901 1.24 itojun b = pr_bitrange(v, (int)(cur + off * 8), b);
1902 1.24 itojun }
1903 1.24 itojun /* flush the remaining bits */
1904 1.24 itojun b = pr_bitrange(0, (int)(cur + off * 8), b);
1905 1.24 itojun
1906 1.24 itojun cp += clen;
1907 1.24 itojun cur += clen * 8;
1908 1.24 itojun if ((ni->ni_flags & NI_SUPTYPE_FLAG_COMPRESS) != 0)
1909 1.24 itojun cur += ntohs(cbit.skip) * 32;
1910 1.24 itojun }
1911 1.24 itojun }
1912 1.11 itojun
1913 1.11 itojun void
1914 1.1 itojun pr_nodeaddr(ni, nilen)
1915 1.1 itojun struct icmp6_nodeinfo *ni; /* ni->qtype must be NODEADDR */
1916 1.1 itojun int nilen;
1917 1.1 itojun {
1918 1.24 itojun u_char *cp = (u_char *)(ni + 1);
1919 1.12 itojun char ntop_buf[INET6_ADDRSTRLEN];
1920 1.24 itojun int withttl = 0;
1921 1.1 itojun
1922 1.1 itojun nilen -= sizeof(struct icmp6_nodeinfo);
1923 1.1 itojun
1924 1.1 itojun if (options & F_VERBOSE) {
1925 1.17 itojun switch (ni->ni_code) {
1926 1.17 itojun case ICMP6_NI_REFUSED:
1927 1.17 itojun (void)printf("refused");
1928 1.17 itojun break;
1929 1.17 itojun case ICMP6_NI_UNKNOWN:
1930 1.17 itojun (void)printf("unknown qtype");
1931 1.17 itojun break;
1932 1.1 itojun }
1933 1.20 itojun if (ni->ni_flags & NI_NODEADDR_FLAG_TRUNCATE)
1934 1.1 itojun (void)printf(" truncated");
1935 1.1 itojun }
1936 1.1 itojun putchar('\n');
1937 1.1 itojun if (nilen <= 0)
1938 1.1 itojun printf(" no address\n");
1939 1.24 itojun
1940 1.24 itojun /*
1941 1.24 itojun * In icmp-name-lookups 05 and later, TTL of each returned address
1942 1.24 itojun * is contained in the resposne. We try to detect the version
1943 1.24 itojun * by the length of the data, but note that the detection algorithm
1944 1.24 itojun * is incomplete. We assume the latest draft by default.
1945 1.24 itojun */
1946 1.24 itojun if (nilen % (sizeof(u_int32_t) + sizeof(struct in6_addr)) == 0)
1947 1.24 itojun withttl = 1;
1948 1.24 itojun while (nilen > 0) {
1949 1.24 itojun u_int32_t ttl;
1950 1.24 itojun
1951 1.24 itojun if (withttl) {
1952 1.28 itojun /* XXX: alignment? */
1953 1.28 itojun ttl = (u_int32_t)ntohl(*(u_int32_t *)cp);
1954 1.24 itojun cp += sizeof(u_int32_t);
1955 1.24 itojun nilen -= sizeof(u_int32_t);
1956 1.24 itojun }
1957 1.24 itojun
1958 1.24 itojun if (inet_ntop(AF_INET6, cp, ntop_buf, sizeof(ntop_buf)) ==
1959 1.24 itojun NULL)
1960 1.24 itojun strncpy(ntop_buf, "?", sizeof(ntop_buf));
1961 1.24 itojun printf(" %s", ntop_buf);
1962 1.24 itojun if (withttl) {
1963 1.24 itojun if (ttl == 0xffffffff) {
1964 1.24 itojun /*
1965 1.24 itojun * XXX: can this convention be applied to all
1966 1.24 itojun * type of TTL (i.e. non-ND TTL)?
1967 1.24 itojun */
1968 1.24 itojun printf("(TTL=infty)");
1969 1.24 itojun }
1970 1.24 itojun else
1971 1.24 itojun printf("(TTL=%u)", ttl);
1972 1.24 itojun }
1973 1.24 itojun putchar('\n');
1974 1.24 itojun
1975 1.24 itojun nilen -= sizeof(struct in6_addr);
1976 1.24 itojun cp += sizeof(struct in6_addr);
1977 1.1 itojun }
1978 1.1 itojun }
1979 1.1 itojun
1980 1.1 itojun int
1981 1.1 itojun get_hoplim(mhdr)
1982 1.1 itojun struct msghdr *mhdr;
1983 1.1 itojun {
1984 1.1 itojun struct cmsghdr *cm;
1985 1.1 itojun
1986 1.1 itojun for (cm = (struct cmsghdr *)CMSG_FIRSTHDR(mhdr); cm;
1987 1.1 itojun cm = (struct cmsghdr *)CMSG_NXTHDR(mhdr, cm)) {
1988 1.25 itojun if (cm->cmsg_len == 0)
1989 1.25 itojun return(-1);
1990 1.25 itojun
1991 1.1 itojun if (cm->cmsg_level == IPPROTO_IPV6 &&
1992 1.1 itojun cm->cmsg_type == IPV6_HOPLIMIT &&
1993 1.1 itojun cm->cmsg_len == CMSG_LEN(sizeof(int)))
1994 1.1 itojun return(*(int *)CMSG_DATA(cm));
1995 1.1 itojun }
1996 1.1 itojun
1997 1.1 itojun return(-1);
1998 1.1 itojun }
1999 1.1 itojun
2000 1.11 itojun struct in6_pktinfo *
2001 1.11 itojun get_rcvpktinfo(mhdr)
2002 1.11 itojun struct msghdr *mhdr;
2003 1.11 itojun {
2004 1.11 itojun struct cmsghdr *cm;
2005 1.11 itojun
2006 1.11 itojun for (cm = (struct cmsghdr *)CMSG_FIRSTHDR(mhdr); cm;
2007 1.11 itojun cm = (struct cmsghdr *)CMSG_NXTHDR(mhdr, cm)) {
2008 1.25 itojun if (cm->cmsg_len == 0)
2009 1.25 itojun return(NULL);
2010 1.25 itojun
2011 1.11 itojun if (cm->cmsg_level == IPPROTO_IPV6 &&
2012 1.11 itojun cm->cmsg_type == IPV6_PKTINFO &&
2013 1.11 itojun cm->cmsg_len == CMSG_LEN(sizeof(struct in6_pktinfo)))
2014 1.11 itojun return((struct in6_pktinfo *)CMSG_DATA(cm));
2015 1.11 itojun }
2016 1.11 itojun
2017 1.11 itojun return(NULL);
2018 1.11 itojun }
2019 1.11 itojun
2020 1.36 itojun int
2021 1.36 itojun get_pathmtu(mhdr)
2022 1.36 itojun struct msghdr *mhdr;
2023 1.36 itojun {
2024 1.36 itojun #ifdef IPV6_RECVPATHMTU
2025 1.36 itojun struct cmsghdr *cm;
2026 1.36 itojun struct ip6_mtuinfo *mtuctl = NULL;
2027 1.36 itojun
2028 1.36 itojun for (cm = (struct cmsghdr *)CMSG_FIRSTHDR(mhdr); cm;
2029 1.36 itojun cm = (struct cmsghdr *)CMSG_NXTHDR(mhdr, cm)) {
2030 1.36 itojun if (cm->cmsg_len == 0)
2031 1.36 itojun return(0);
2032 1.36 itojun
2033 1.36 itojun if (cm->cmsg_level == IPPROTO_IPV6 &&
2034 1.36 itojun cm->cmsg_type == IPV6_PATHMTU &&
2035 1.36 itojun cm->cmsg_len == CMSG_LEN(sizeof(struct ip6_mtuinfo))) {
2036 1.36 itojun mtuctl = (struct ip6_mtuinfo *)CMSG_DATA(cm);
2037 1.36 itojun
2038 1.36 itojun /*
2039 1.36 itojun * If the notified destination is different from
2040 1.36 itojun * the one we are pinging, just ignore the info.
2041 1.36 itojun * We check the scope ID only when both notified value
2042 1.36 itojun * and our own value have non-0 values, because we may
2043 1.36 itojun * have used the default scope zone ID for sending,
2044 1.36 itojun * in which case the scope ID value is 0.
2045 1.36 itojun */
2046 1.36 itojun if (!IN6_ARE_ADDR_EQUAL(&mtuctl->ip6m_addr.sin6_addr,
2047 1.36 itojun &dst.sin6_addr) ||
2048 1.36 itojun (mtuctl->ip6m_addr.sin6_scope_id &&
2049 1.36 itojun dst.sin6_scope_id &&
2050 1.36 itojun mtuctl->ip6m_addr.sin6_scope_id !=
2051 1.36 itojun dst.sin6_scope_id)) {
2052 1.36 itojun if ((options & F_VERBOSE) != 0) {
2053 1.36 itojun printf("path MTU for %s is notified. "
2054 1.36 itojun "(ignored)\n",
2055 1.36 itojun pr_addr((struct sockaddr *)&mtuctl->ip6m_addr,
2056 1.36 itojun sizeof(mtuctl->ip6m_addr)));
2057 1.36 itojun }
2058 1.36 itojun return(0);
2059 1.36 itojun }
2060 1.36 itojun
2061 1.36 itojun /*
2062 1.36 itojun * Ignore an invalid MTU. XXX: can we just believe
2063 1.36 itojun * the kernel check?
2064 1.36 itojun */
2065 1.36 itojun if (mtuctl->ip6m_mtu < IPV6_MMTU)
2066 1.36 itojun return(0);
2067 1.36 itojun
2068 1.36 itojun /* notification for our destination. return the MTU. */
2069 1.36 itojun return((int)mtuctl->ip6m_mtu);
2070 1.36 itojun }
2071 1.36 itojun }
2072 1.36 itojun #endif
2073 1.36 itojun return(0);
2074 1.36 itojun }
2075 1.36 itojun
2076 1.1 itojun /*
2077 1.1 itojun * tvsub --
2078 1.1 itojun * Subtract 2 timeval structs: out = out - in. Out is assumed to
2079 1.1 itojun * be >= in.
2080 1.1 itojun */
2081 1.1 itojun void
2082 1.1 itojun tvsub(out, in)
2083 1.1 itojun register struct timeval *out, *in;
2084 1.1 itojun {
2085 1.1 itojun if ((out->tv_usec -= in->tv_usec) < 0) {
2086 1.1 itojun --out->tv_sec;
2087 1.1 itojun out->tv_usec += 1000000;
2088 1.1 itojun }
2089 1.1 itojun out->tv_sec -= in->tv_sec;
2090 1.1 itojun }
2091 1.1 itojun
2092 1.1 itojun /*
2093 1.1 itojun * onint --
2094 1.1 itojun * SIGINT handler.
2095 1.1 itojun */
2096 1.11 itojun /* ARGSUSED */
2097 1.1 itojun void
2098 1.1 itojun onint(notused)
2099 1.1 itojun int notused;
2100 1.1 itojun {
2101 1.1 itojun summary();
2102 1.1 itojun
2103 1.1 itojun (void)signal(SIGINT, SIG_DFL);
2104 1.1 itojun (void)kill(getpid(), SIGINT);
2105 1.1 itojun
2106 1.1 itojun /* NOTREACHED */
2107 1.1 itojun exit(1);
2108 1.1 itojun }
2109 1.1 itojun
2110 1.1 itojun /*
2111 1.1 itojun * summary --
2112 1.1 itojun * Print out statistics.
2113 1.1 itojun */
2114 1.1 itojun void
2115 1.1 itojun summary()
2116 1.1 itojun {
2117 1.1 itojun
2118 1.1 itojun (void)printf("\n--- %s ping6 statistics ---\n", hostname);
2119 1.1 itojun (void)printf("%ld packets transmitted, ", ntransmitted);
2120 1.1 itojun (void)printf("%ld packets received, ", nreceived);
2121 1.1 itojun if (nrepeats)
2122 1.1 itojun (void)printf("+%ld duplicates, ", nrepeats);
2123 1.1 itojun if (ntransmitted) {
2124 1.1 itojun if (nreceived > ntransmitted)
2125 1.1 itojun (void)printf("-- somebody's printing up packets!");
2126 1.1 itojun else
2127 1.1 itojun (void)printf("%d%% packet loss",
2128 1.1 itojun (int) (((ntransmitted - nreceived) * 100) /
2129 1.1 itojun ntransmitted));
2130 1.1 itojun }
2131 1.1 itojun (void)putchar('\n');
2132 1.1 itojun if (nreceived && timing) {
2133 1.1 itojun /* Only display average to microseconds */
2134 1.18 itojun double num = nreceived + nrepeats;
2135 1.18 itojun double avg = tsum / num;
2136 1.19 itojun #if defined(__OpenBSD__) || defined(__NetBSD__)
2137 1.18 itojun double dev = sqrt(tsumsq / num - avg * avg);
2138 1.18 itojun (void)printf(
2139 1.18 itojun "round-trip min/avg/max/std-dev = %.3f/%.3f/%.3f/%.3f ms\n",
2140 1.18 itojun tmin, avg, tmax, dev);
2141 1.18 itojun #else
2142 1.18 itojun (void)printf(
2143 1.18 itojun "round-trip min/avg/max = %.3f/%.3f/%.3f ms\n",
2144 1.18 itojun tmin, avg, tmax);
2145 1.18 itojun #endif
2146 1.1 itojun (void)fflush(stdout);
2147 1.1 itojun }
2148 1.23 itojun (void)fflush(stdout);
2149 1.1 itojun }
2150 1.1 itojun
2151 1.17 itojun /*subject type*/
2152 1.17 itojun static char *niqcode[] = {
2153 1.17 itojun "IPv6 address",
2154 1.17 itojun "DNS label", /*or empty*/
2155 1.17 itojun "IPv4 address",
2156 1.1 itojun };
2157 1.17 itojun
2158 1.17 itojun /*result code*/
2159 1.17 itojun static char *nircode[] = {
2160 1.17 itojun "Success", "Refused", "Unknown",
2161 1.17 itojun };
2162 1.17 itojun
2163 1.1 itojun
2164 1.1 itojun /*
2165 1.1 itojun * pr_icmph --
2166 1.1 itojun * Print a descriptive string about an ICMP header.
2167 1.1 itojun */
2168 1.1 itojun void
2169 1.1 itojun pr_icmph(icp, end)
2170 1.1 itojun struct icmp6_hdr *icp;
2171 1.1 itojun u_char *end;
2172 1.1 itojun {
2173 1.12 itojun char ntop_buf[INET6_ADDRSTRLEN];
2174 1.17 itojun struct nd_redirect *red;
2175 1.17 itojun struct icmp6_nodeinfo *ni;
2176 1.17 itojun char dnsname[MAXDNAME + 1];
2177 1.17 itojun const u_char *cp;
2178 1.17 itojun size_t l;
2179 1.12 itojun
2180 1.17 itojun switch (icp->icmp6_type) {
2181 1.1 itojun case ICMP6_DST_UNREACH:
2182 1.17 itojun switch (icp->icmp6_code) {
2183 1.1 itojun case ICMP6_DST_UNREACH_NOROUTE:
2184 1.1 itojun (void)printf("No Route to Destination\n");
2185 1.1 itojun break;
2186 1.1 itojun case ICMP6_DST_UNREACH_ADMIN:
2187 1.1 itojun (void)printf("Destination Administratively "
2188 1.28 itojun "Unreachable\n");
2189 1.1 itojun break;
2190 1.9 itojun case ICMP6_DST_UNREACH_BEYONDSCOPE:
2191 1.9 itojun (void)printf("Destination Unreachable Beyond Scope\n");
2192 1.1 itojun break;
2193 1.1 itojun case ICMP6_DST_UNREACH_ADDR:
2194 1.1 itojun (void)printf("Destination Host Unreachable\n");
2195 1.1 itojun break;
2196 1.1 itojun case ICMP6_DST_UNREACH_NOPORT:
2197 1.1 itojun (void)printf("Destination Port Unreachable\n");
2198 1.1 itojun break;
2199 1.1 itojun default:
2200 1.1 itojun (void)printf("Destination Unreachable, Bad Code: %d\n",
2201 1.1 itojun icp->icmp6_code);
2202 1.1 itojun break;
2203 1.1 itojun }
2204 1.1 itojun /* Print returned IP header information */
2205 1.1 itojun pr_retip((struct ip6_hdr *)(icp + 1), end);
2206 1.1 itojun break;
2207 1.1 itojun case ICMP6_PACKET_TOO_BIG:
2208 1.1 itojun (void)printf("Packet too big mtu = %d\n",
2209 1.28 itojun (int)ntohl(icp->icmp6_mtu));
2210 1.11 itojun pr_retip((struct ip6_hdr *)(icp + 1), end);
2211 1.1 itojun break;
2212 1.1 itojun case ICMP6_TIME_EXCEEDED:
2213 1.17 itojun switch (icp->icmp6_code) {
2214 1.1 itojun case ICMP6_TIME_EXCEED_TRANSIT:
2215 1.1 itojun (void)printf("Time to live exceeded\n");
2216 1.1 itojun break;
2217 1.1 itojun case ICMP6_TIME_EXCEED_REASSEMBLY:
2218 1.1 itojun (void)printf("Frag reassembly time exceeded\n");
2219 1.1 itojun break;
2220 1.1 itojun default:
2221 1.1 itojun (void)printf("Time exceeded, Bad Code: %d\n",
2222 1.1 itojun icp->icmp6_code);
2223 1.1 itojun break;
2224 1.1 itojun }
2225 1.1 itojun pr_retip((struct ip6_hdr *)(icp + 1), end);
2226 1.1 itojun break;
2227 1.1 itojun case ICMP6_PARAM_PROB:
2228 1.1 itojun (void)printf("Parameter problem: ");
2229 1.17 itojun switch (icp->icmp6_code) {
2230 1.17 itojun case ICMP6_PARAMPROB_HEADER:
2231 1.17 itojun (void)printf("Erroneous Header ");
2232 1.17 itojun break;
2233 1.17 itojun case ICMP6_PARAMPROB_NEXTHEADER:
2234 1.17 itojun (void)printf("Unknown Nextheader ");
2235 1.17 itojun break;
2236 1.17 itojun case ICMP6_PARAMPROB_OPTION:
2237 1.17 itojun (void)printf("Unrecognized Option ");
2238 1.17 itojun break;
2239 1.17 itojun default:
2240 1.17 itojun (void)printf("Bad code(%d) ", icp->icmp6_code);
2241 1.17 itojun break;
2242 1.1 itojun }
2243 1.1 itojun (void)printf("pointer = 0x%02x\n",
2244 1.28 itojun (u_int32_t)ntohl(icp->icmp6_pptr));
2245 1.1 itojun pr_retip((struct ip6_hdr *)(icp + 1), end);
2246 1.1 itojun break;
2247 1.1 itojun case ICMP6_ECHO_REQUEST:
2248 1.11 itojun (void)printf("Echo Request");
2249 1.1 itojun /* XXX ID + Seq + Data */
2250 1.1 itojun break;
2251 1.1 itojun case ICMP6_ECHO_REPLY:
2252 1.11 itojun (void)printf("Echo Reply");
2253 1.1 itojun /* XXX ID + Seq + Data */
2254 1.1 itojun break;
2255 1.1 itojun case ICMP6_MEMBERSHIP_QUERY:
2256 1.11 itojun (void)printf("Listener Query");
2257 1.1 itojun break;
2258 1.1 itojun case ICMP6_MEMBERSHIP_REPORT:
2259 1.11 itojun (void)printf("Listener Report");
2260 1.1 itojun break;
2261 1.1 itojun case ICMP6_MEMBERSHIP_REDUCTION:
2262 1.11 itojun (void)printf("Listener Done");
2263 1.1 itojun break;
2264 1.1 itojun case ND_ROUTER_SOLICIT:
2265 1.11 itojun (void)printf("Router Solicitation");
2266 1.1 itojun break;
2267 1.1 itojun case ND_ROUTER_ADVERT:
2268 1.11 itojun (void)printf("Router Advertisement");
2269 1.1 itojun break;
2270 1.1 itojun case ND_NEIGHBOR_SOLICIT:
2271 1.11 itojun (void)printf("Neighbor Solicitation");
2272 1.1 itojun break;
2273 1.1 itojun case ND_NEIGHBOR_ADVERT:
2274 1.11 itojun (void)printf("Neighbor Advertisement");
2275 1.1 itojun break;
2276 1.1 itojun case ND_REDIRECT:
2277 1.17 itojun red = (struct nd_redirect *)icp;
2278 1.1 itojun (void)printf("Redirect\n");
2279 1.19 itojun if (!inet_ntop(AF_INET6, &red->nd_rd_dst, ntop_buf,
2280 1.19 itojun sizeof(ntop_buf)))
2281 1.19 itojun strncpy(ntop_buf, "?", sizeof(ntop_buf));
2282 1.19 itojun (void)printf("Destination: %s", ntop_buf);
2283 1.19 itojun if (!inet_ntop(AF_INET6, &red->nd_rd_target, ntop_buf,
2284 1.19 itojun sizeof(ntop_buf)))
2285 1.19 itojun strncpy(ntop_buf, "?", sizeof(ntop_buf));
2286 1.25 itojun (void)printf(" New Target: %s", ntop_buf);
2287 1.1 itojun break;
2288 1.1 itojun case ICMP6_NI_QUERY:
2289 1.11 itojun (void)printf("Node Information Query");
2290 1.1 itojun /* XXX ID + Seq + Data */
2291 1.17 itojun ni = (struct icmp6_nodeinfo *)icp;
2292 1.17 itojun l = end - (u_char *)(ni + 1);
2293 1.17 itojun printf(", ");
2294 1.17 itojun switch (ntohs(ni->ni_qtype)) {
2295 1.17 itojun case NI_QTYPE_NOOP:
2296 1.17 itojun (void)printf("NOOP");
2297 1.17 itojun break;
2298 1.17 itojun case NI_QTYPE_SUPTYPES:
2299 1.17 itojun (void)printf("Supported qtypes");
2300 1.17 itojun break;
2301 1.17 itojun case NI_QTYPE_FQDN:
2302 1.17 itojun (void)printf("DNS name");
2303 1.17 itojun break;
2304 1.17 itojun case NI_QTYPE_NODEADDR:
2305 1.17 itojun (void)printf("nodeaddr");
2306 1.17 itojun break;
2307 1.17 itojun case NI_QTYPE_IPV4ADDR:
2308 1.17 itojun (void)printf("IPv4 nodeaddr");
2309 1.17 itojun break;
2310 1.17 itojun default:
2311 1.17 itojun (void)printf("unknown qtype");
2312 1.17 itojun break;
2313 1.17 itojun }
2314 1.17 itojun if (options & F_VERBOSE) {
2315 1.17 itojun switch (ni->ni_code) {
2316 1.17 itojun case ICMP6_NI_SUBJ_IPV6:
2317 1.17 itojun if (l == sizeof(struct in6_addr) &&
2318 1.28 itojun inet_ntop(AF_INET6, ni + 1, ntop_buf,
2319 1.28 itojun sizeof(ntop_buf)) != NULL) {
2320 1.17 itojun (void)printf(", subject=%s(%s)",
2321 1.17 itojun niqcode[ni->ni_code], ntop_buf);
2322 1.17 itojun } else {
2323 1.17 itojun #if 1
2324 1.17 itojun /* backward compat to -W */
2325 1.17 itojun (void)printf(", oldfqdn");
2326 1.17 itojun #else
2327 1.17 itojun (void)printf(", invalid");
2328 1.17 itojun #endif
2329 1.17 itojun }
2330 1.17 itojun break;
2331 1.17 itojun case ICMP6_NI_SUBJ_FQDN:
2332 1.17 itojun if (end == (u_char *)(ni + 1)) {
2333 1.17 itojun (void)printf(", no subject");
2334 1.17 itojun break;
2335 1.17 itojun }
2336 1.17 itojun printf(", subject=%s", niqcode[ni->ni_code]);
2337 1.17 itojun cp = (const u_char *)(ni + 1);
2338 1.28 itojun if (dnsdecode(&cp, end, NULL, dnsname,
2339 1.28 itojun sizeof(dnsname)) != NULL)
2340 1.17 itojun printf("(%s)", dnsname);
2341 1.17 itojun else
2342 1.17 itojun printf("(invalid)");
2343 1.17 itojun break;
2344 1.17 itojun case ICMP6_NI_SUBJ_IPV4:
2345 1.17 itojun if (l == sizeof(struct in_addr) &&
2346 1.28 itojun inet_ntop(AF_INET, ni + 1, ntop_buf,
2347 1.28 itojun sizeof(ntop_buf)) != NULL) {
2348 1.17 itojun (void)printf(", subject=%s(%s)",
2349 1.17 itojun niqcode[ni->ni_code], ntop_buf);
2350 1.17 itojun } else
2351 1.17 itojun (void)printf(", invalid");
2352 1.17 itojun break;
2353 1.17 itojun default:
2354 1.17 itojun (void)printf(", invalid");
2355 1.17 itojun break;
2356 1.17 itojun }
2357 1.17 itojun }
2358 1.1 itojun break;
2359 1.1 itojun case ICMP6_NI_REPLY:
2360 1.11 itojun (void)printf("Node Information Reply");
2361 1.1 itojun /* XXX ID + Seq + Data */
2362 1.17 itojun ni = (struct icmp6_nodeinfo *)icp;
2363 1.17 itojun printf(", ");
2364 1.17 itojun switch (ntohs(ni->ni_qtype)) {
2365 1.17 itojun case NI_QTYPE_NOOP:
2366 1.17 itojun (void)printf("NOOP");
2367 1.17 itojun break;
2368 1.17 itojun case NI_QTYPE_SUPTYPES:
2369 1.17 itojun (void)printf("Supported qtypes");
2370 1.17 itojun break;
2371 1.17 itojun case NI_QTYPE_FQDN:
2372 1.17 itojun (void)printf("DNS name");
2373 1.17 itojun break;
2374 1.17 itojun case NI_QTYPE_NODEADDR:
2375 1.17 itojun (void)printf("nodeaddr");
2376 1.17 itojun break;
2377 1.17 itojun case NI_QTYPE_IPV4ADDR:
2378 1.17 itojun (void)printf("IPv4 nodeaddr");
2379 1.17 itojun break;
2380 1.17 itojun default:
2381 1.17 itojun (void)printf("unknown qtype");
2382 1.17 itojun break;
2383 1.17 itojun }
2384 1.17 itojun if (options & F_VERBOSE) {
2385 1.17 itojun if (ni->ni_code > sizeof(nircode) / sizeof(nircode[0]))
2386 1.17 itojun printf(", invalid");
2387 1.17 itojun else
2388 1.17 itojun printf(", %s", nircode[ni->ni_code]);
2389 1.17 itojun }
2390 1.1 itojun break;
2391 1.1 itojun default:
2392 1.11 itojun (void)printf("Bad ICMP type: %d", icp->icmp6_type);
2393 1.1 itojun }
2394 1.1 itojun }
2395 1.1 itojun
2396 1.1 itojun /*
2397 1.1 itojun * pr_iph --
2398 1.1 itojun * Print an IP6 header.
2399 1.1 itojun */
2400 1.1 itojun void
2401 1.1 itojun pr_iph(ip6)
2402 1.1 itojun struct ip6_hdr *ip6;
2403 1.1 itojun {
2404 1.1 itojun u_int32_t flow = ip6->ip6_flow & IPV6_FLOWLABEL_MASK;
2405 1.1 itojun u_int8_t tc;
2406 1.12 itojun char ntop_buf[INET6_ADDRSTRLEN];
2407 1.1 itojun
2408 1.1 itojun tc = *(&ip6->ip6_vfc + 1); /* XXX */
2409 1.1 itojun tc = (tc >> 4) & 0x0f;
2410 1.1 itojun tc |= (ip6->ip6_vfc << 4);
2411 1.1 itojun
2412 1.1 itojun printf("Vr TC Flow Plen Nxt Hlim\n");
2413 1.1 itojun printf(" %1x %02x %05x %04x %02x %02x\n",
2414 1.28 itojun (ip6->ip6_vfc & IPV6_VERSION_MASK) >> 4, tc, (u_int32_t)ntohl(flow),
2415 1.28 itojun ntohs(ip6->ip6_plen), ip6->ip6_nxt, ip6->ip6_hlim);
2416 1.19 itojun if (!inet_ntop(AF_INET6, &ip6->ip6_src, ntop_buf, sizeof(ntop_buf)))
2417 1.19 itojun strncpy(ntop_buf, "?", sizeof(ntop_buf));
2418 1.19 itojun printf("%s->", ntop_buf);
2419 1.19 itojun if (!inet_ntop(AF_INET6, &ip6->ip6_dst, ntop_buf, sizeof(ntop_buf)))
2420 1.19 itojun strncpy(ntop_buf, "?", sizeof(ntop_buf));
2421 1.19 itojun printf("%s\n", ntop_buf);
2422 1.1 itojun }
2423 1.1 itojun
2424 1.1 itojun /*
2425 1.1 itojun * pr_addr --
2426 1.1 itojun * Return an ascii host address as a dotted quad and optionally with
2427 1.1 itojun * a hostname.
2428 1.1 itojun */
2429 1.12 itojun const char *
2430 1.31 itojun pr_addr(addr, addrlen)
2431 1.31 itojun struct sockaddr *addr;
2432 1.31 itojun int addrlen;
2433 1.1 itojun {
2434 1.31 itojun static char buf[NI_MAXHOST];
2435 1.31 itojun int flag;
2436 1.1 itojun
2437 1.31 itojun #ifdef NI_WITHSCOPEID
2438 1.31 itojun flag = NI_WITHSCOPEID;
2439 1.31 itojun #else
2440 1.31 itojun flag = 0;
2441 1.31 itojun #endif
2442 1.15 itojun if ((options & F_HOSTNAME) == 0)
2443 1.1 itojun flag |= NI_NUMERICHOST;
2444 1.1 itojun
2445 1.31 itojun if (getnameinfo(addr, addrlen, buf, sizeof(buf), NULL, 0, flag) == 0)
2446 1.17 itojun return (buf);
2447 1.17 itojun else
2448 1.17 itojun return "?";
2449 1.1 itojun }
2450 1.1 itojun
2451 1.1 itojun /*
2452 1.1 itojun * pr_retip --
2453 1.1 itojun * Dump some info on a returned (via ICMPv6) IPv6 packet.
2454 1.1 itojun */
2455 1.1 itojun void
2456 1.1 itojun pr_retip(ip6, end)
2457 1.1 itojun struct ip6_hdr *ip6;
2458 1.1 itojun u_char *end;
2459 1.1 itojun {
2460 1.1 itojun u_char *cp = (u_char *)ip6, nh;
2461 1.1 itojun int hlen;
2462 1.1 itojun
2463 1.1 itojun if (end - (u_char *)ip6 < sizeof(*ip6)) {
2464 1.1 itojun printf("IP6");
2465 1.1 itojun goto trunc;
2466 1.1 itojun }
2467 1.1 itojun pr_iph(ip6);
2468 1.1 itojun hlen = sizeof(*ip6);
2469 1.1 itojun
2470 1.1 itojun nh = ip6->ip6_nxt;
2471 1.1 itojun cp += hlen;
2472 1.9 itojun while (end - cp >= 8) {
2473 1.9 itojun switch (nh) {
2474 1.17 itojun case IPPROTO_HOPOPTS:
2475 1.17 itojun printf("HBH ");
2476 1.17 itojun hlen = (((struct ip6_hbh *)cp)->ip6h_len+1) << 3;
2477 1.17 itojun nh = ((struct ip6_hbh *)cp)->ip6h_nxt;
2478 1.17 itojun break;
2479 1.17 itojun case IPPROTO_DSTOPTS:
2480 1.17 itojun printf("DSTOPT ");
2481 1.17 itojun hlen = (((struct ip6_dest *)cp)->ip6d_len+1) << 3;
2482 1.17 itojun nh = ((struct ip6_dest *)cp)->ip6d_nxt;
2483 1.17 itojun break;
2484 1.17 itojun case IPPROTO_FRAGMENT:
2485 1.17 itojun printf("FRAG ");
2486 1.17 itojun hlen = sizeof(struct ip6_frag);
2487 1.17 itojun nh = ((struct ip6_frag *)cp)->ip6f_nxt;
2488 1.17 itojun break;
2489 1.17 itojun case IPPROTO_ROUTING:
2490 1.17 itojun printf("RTHDR ");
2491 1.17 itojun hlen = (((struct ip6_rthdr *)cp)->ip6r_len+1) << 3;
2492 1.17 itojun nh = ((struct ip6_rthdr *)cp)->ip6r_nxt;
2493 1.17 itojun break;
2494 1.9 itojun #ifdef IPSEC
2495 1.17 itojun case IPPROTO_AH:
2496 1.17 itojun printf("AH ");
2497 1.17 itojun hlen = (((struct ah *)cp)->ah_len+2) << 2;
2498 1.17 itojun nh = ((struct ah *)cp)->ah_nxt;
2499 1.17 itojun break;
2500 1.17 itojun #endif
2501 1.17 itojun case IPPROTO_ICMPV6:
2502 1.28 itojun printf("ICMP6: type = %d, code = %d\n",
2503 1.28 itojun *cp, *(cp + 1));
2504 1.17 itojun return;
2505 1.17 itojun case IPPROTO_ESP:
2506 1.17 itojun printf("ESP\n");
2507 1.17 itojun return;
2508 1.17 itojun case IPPROTO_TCP:
2509 1.17 itojun printf("TCP: from port %u, to port %u (decimal)\n",
2510 1.17 itojun (*cp * 256 + *(cp + 1)),
2511 1.17 itojun (*(cp + 2) * 256 + *(cp + 3)));
2512 1.17 itojun return;
2513 1.17 itojun case IPPROTO_UDP:
2514 1.17 itojun printf("UDP: from port %u, to port %u (decimal)\n",
2515 1.17 itojun (*cp * 256 + *(cp + 1)),
2516 1.17 itojun (*(cp + 2) * 256 + *(cp + 3)));
2517 1.17 itojun return;
2518 1.17 itojun default:
2519 1.17 itojun printf("Unknown Header(%d)\n", nh);
2520 1.17 itojun return;
2521 1.1 itojun }
2522 1.1 itojun
2523 1.1 itojun if ((cp += hlen) >= end)
2524 1.1 itojun goto trunc;
2525 1.1 itojun }
2526 1.1 itojun if (end - cp < 8)
2527 1.1 itojun goto trunc;
2528 1.1 itojun
2529 1.1 itojun putchar('\n');
2530 1.1 itojun return;
2531 1.1 itojun
2532 1.1 itojun trunc:
2533 1.1 itojun printf("...\n");
2534 1.1 itojun return;
2535 1.1 itojun }
2536 1.1 itojun
2537 1.1 itojun void
2538 1.1 itojun fill(bp, patp)
2539 1.1 itojun char *bp, *patp;
2540 1.1 itojun {
2541 1.1 itojun register int ii, jj, kk;
2542 1.1 itojun int pat[16];
2543 1.1 itojun char *cp;
2544 1.1 itojun
2545 1.1 itojun for (cp = patp; *cp; cp++)
2546 1.1 itojun if (!isxdigit(*cp))
2547 1.1 itojun errx(1, "patterns must be specified as hex digits");
2548 1.1 itojun ii = sscanf(patp,
2549 1.1 itojun "%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x",
2550 1.1 itojun &pat[0], &pat[1], &pat[2], &pat[3], &pat[4], &pat[5], &pat[6],
2551 1.1 itojun &pat[7], &pat[8], &pat[9], &pat[10], &pat[11], &pat[12],
2552 1.1 itojun &pat[13], &pat[14], &pat[15]);
2553 1.1 itojun
2554 1.28 itojun /* xxx */
2555 1.1 itojun if (ii > 0)
2556 1.1 itojun for (kk = 0;
2557 1.1 itojun kk <= MAXDATALEN - (8 + sizeof(struct timeval) + ii);
2558 1.1 itojun kk += ii)
2559 1.1 itojun for (jj = 0; jj < ii; ++jj)
2560 1.1 itojun bp[jj + kk] = pat[jj];
2561 1.1 itojun if (!(options & F_QUIET)) {
2562 1.1 itojun (void)printf("PATTERN: 0x");
2563 1.1 itojun for (jj = 0; jj < ii; ++jj)
2564 1.1 itojun (void)printf("%02x", bp[jj] & 0xFF);
2565 1.1 itojun (void)printf("\n");
2566 1.1 itojun }
2567 1.1 itojun }
2568 1.1 itojun
2569 1.11 itojun #ifdef IPSEC
2570 1.11 itojun #ifdef IPSEC_POLICY_IPSEC
2571 1.11 itojun int
2572 1.11 itojun setpolicy(so, policy)
2573 1.11 itojun int so;
2574 1.11 itojun char *policy;
2575 1.11 itojun {
2576 1.11 itojun char *buf;
2577 1.11 itojun
2578 1.11 itojun if (policy == NULL)
2579 1.11 itojun return 0; /* ignore */
2580 1.11 itojun
2581 1.11 itojun buf = ipsec_set_policy(policy, strlen(policy));
2582 1.11 itojun if (buf == NULL)
2583 1.16 itojun errx(1, "%s", ipsec_strerror());
2584 1.28 itojun if (setsockopt(s, IPPROTO_IPV6, IPV6_IPSEC_POLICY, buf,
2585 1.28 itojun ipsec_get_policylen(buf)) < 0)
2586 1.11 itojun warnx("Unable to set IPSec policy");
2587 1.11 itojun free(buf);
2588 1.11 itojun
2589 1.11 itojun return 0;
2590 1.11 itojun }
2591 1.11 itojun #endif
2592 1.11 itojun #endif
2593 1.11 itojun
2594 1.15 itojun char *
2595 1.15 itojun nigroup(name)
2596 1.15 itojun char *name;
2597 1.15 itojun {
2598 1.15 itojun char *p;
2599 1.19 itojun unsigned char *q;
2600 1.15 itojun MD5_CTX ctxt;
2601 1.15 itojun u_int8_t digest[16];
2602 1.28 itojun u_int8_t c;
2603 1.28 itojun size_t l;
2604 1.15 itojun char hbuf[NI_MAXHOST];
2605 1.15 itojun struct in6_addr in6;
2606 1.15 itojun
2607 1.19 itojun p = strchr(name, '.');
2608 1.19 itojun if (!p)
2609 1.19 itojun p = name + strlen(name);
2610 1.19 itojun l = p - name;
2611 1.28 itojun if (l > 63 || l > sizeof(hbuf) - 1)
2612 1.15 itojun return NULL; /*label too long*/
2613 1.19 itojun strncpy(hbuf, name, l);
2614 1.19 itojun hbuf[(int)l] = '\0';
2615 1.19 itojun
2616 1.19 itojun for (q = name; *q; q++) {
2617 1.19 itojun if (isupper(*q))
2618 1.19 itojun *q = tolower(*q);
2619 1.19 itojun }
2620 1.15 itojun
2621 1.15 itojun /* generate 8 bytes of pseudo-random value. */
2622 1.15 itojun bzero(&ctxt, sizeof(ctxt));
2623 1.15 itojun MD5Init(&ctxt);
2624 1.28 itojun c = l & 0xff;
2625 1.28 itojun MD5Update(&ctxt, &c, sizeof(c));
2626 1.19 itojun MD5Update(&ctxt, name, l);
2627 1.15 itojun MD5Final(digest, &ctxt);
2628 1.15 itojun
2629 1.17 itojun if (inet_pton(AF_INET6, "ff02::2:0000:0000", &in6) != 1)
2630 1.17 itojun return NULL; /*XXX*/
2631 1.15 itojun bcopy(digest, &in6.s6_addr[12], 4);
2632 1.15 itojun
2633 1.15 itojun if (inet_ntop(AF_INET6, &in6, hbuf, sizeof(hbuf)) == NULL)
2634 1.15 itojun return NULL;
2635 1.15 itojun
2636 1.15 itojun return strdup(hbuf);
2637 1.15 itojun }
2638 1.15 itojun
2639 1.1 itojun void
2640 1.1 itojun usage()
2641 1.1 itojun {
2642 1.1 itojun (void)fprintf(stderr,
2643 1.36 itojun "usage: ping6 [-dfH"
2644 1.36 itojun #ifdef IPV6_USE_MIN_MTU
2645 1.36 itojun "m"
2646 1.36 itojun #endif
2647 1.36 itojun "nNqtvwW"
2648 1.15 itojun #ifdef IPV6_REACHCONF
2649 1.28 itojun "R"
2650 1.15 itojun #endif
2651 1.1 itojun #ifdef IPSEC
2652 1.1 itojun #ifdef IPSEC_POLICY_IPSEC
2653 1.28 itojun "] [-P policy"
2654 1.1 itojun #else
2655 1.28 itojun "AE"
2656 1.28 itojun #endif
2657 1.1 itojun #endif
2658 1.28 itojun "] [-a [aAclsg]] [-b sockbufsiz] [-c count] \n"
2659 1.28 itojun "\t[-I interface] [-i wait] [-l preload] [-p pattern] "
2660 1.28 itojun "[-S sourceaddr]\n"
2661 1.28 itojun "\t[-s packetsize] [-h hoplimit] [hops...] host\n");
2662 1.1 itojun exit(1);
2663 1.1 itojun }
2664