Home | History | Annotate | Line # | Download | only in ping6
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