1 /*
2 * Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl>
3 * Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
4 * Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
5 * Copyright (c) 1996-2000 Wichert Akkerman <wichert@cistron.nl>
6 * All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. The name of the author may not be used to endorse or promote products
17 * derived from this software without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
20 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
23 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29 */
30
31 #include "defs.h"
32 #include <sys/stat.h>
33 #include <sys/socket.h>
34 #include <sys/un.h>
35 #if defined(HAVE_SIN6_SCOPE_ID_LINUX)
36 # define in6_addr in6_addr_libc
37 # define ipv6_mreq ipv6_mreq_libc
38 # define sockaddr_in6 sockaddr_in6_libc
39 #endif
40 #include <netinet/in.h>
41 #ifdef HAVE_NETINET_TCP_H
42 # include <netinet/tcp.h>
43 #endif
44 #ifdef HAVE_NETINET_UDP_H
45 # include <netinet/udp.h>
46 #endif
47 #ifdef HAVE_NETINET_SCTP_H
48 # include <netinet/sctp.h>
49 #endif
50 #include <arpa/inet.h>
51 #include <net/if.h>
52 #include <asm/types.h>
53 #if defined(__GLIBC__)
54 # include <netipx/ipx.h>
55 #else
56 # include <linux/ipx.h>
57 #endif
58
59 #if defined(__GLIBC__) && defined(HAVE_SIN6_SCOPE_ID_LINUX)
60 # if defined(HAVE_LINUX_IN6_H)
61 # if defined(HAVE_SIN6_SCOPE_ID_LINUX)
62 # undef in6_addr
63 # undef ipv6_mreq
64 # undef sockaddr_in6
65 # define in6_addr in6_addr_kernel
66 # define ipv6_mreq ipv6_mreq_kernel
67 # define sockaddr_in6 sockaddr_in6_kernel
68 # endif
69 # include <linux/in6.h>
70 # if defined(HAVE_SIN6_SCOPE_ID_LINUX)
71 # undef in6_addr
72 # undef ipv6_mreq
73 # undef sockaddr_in6
74 # define in6_addr in6_addr_libc
75 # define ipv6_mreq ipv6_mreq_libc
76 # define sockaddr_in6 sockaddr_in6_kernel
77 # endif
78 # endif
79 #endif
80
81 #if defined(HAVE_SYS_UIO_H)
82 # include <sys/uio.h>
83 #endif
84 #if defined(HAVE_LINUX_NETLINK_H)
85 # include <linux/netlink.h>
86 #endif
87 #if defined(HAVE_LINUX_IF_PACKET_H)
88 # include <linux/if_packet.h>
89 #endif
90 #if defined(HAVE_LINUX_ICMP_H)
91 # include <linux/icmp.h>
92 #endif
93 #ifndef PF_UNSPEC
94 # define PF_UNSPEC AF_UNSPEC
95 #endif
96
97 #include "xlat/domains.h"
98 #include "xlat/addrfams.h"
99 #include "xlat/socktypes.h"
100 #include "xlat/sock_type_flags.h"
101 #ifndef SOCK_TYPE_MASK
102 # define SOCK_TYPE_MASK 0xf
103 #endif
104 #include "xlat/socketlayers.h"
105 /*** WARNING: DANGER WILL ROBINSON: NOTE "socketlayers" array above
106 falls into "inet_protocols" array below!!!! This is intended!!! ***/
107 #include "xlat/inet_protocols.h"
108
109 #ifdef PF_NETLINK
110 #include "xlat/netlink_protocols.h"
111 #endif
112
113 #include "xlat/msg_flags.h"
114 #include "xlat/sockoptions.h"
115
116 #if !defined(SOL_IP) && defined(IPPROTO_IP)
117 #define SOL_IP IPPROTO_IP
118 #endif
119
120 #ifdef SOL_IP
121 #include "xlat/sockipoptions.h"
122 #endif /* SOL_IP */
123
124 #ifdef SOL_IPV6
125 #include "xlat/sockipv6options.h"
126 #endif /* SOL_IPV6 */
127
128 #ifdef SOL_IPX
129 #include "xlat/sockipxoptions.h"
130 #endif /* SOL_IPX */
131
132 #ifdef SOL_RAW
133 #include "xlat/sockrawoptions.h"
134 #endif /* SOL_RAW */
135
136 #ifdef SOL_PACKET
137 #include "xlat/sockpacketoptions.h"
138 #endif /* SOL_PACKET */
139
140 #ifdef SOL_SCTP
141 #include "xlat/socksctpoptions.h"
142 #endif
143
144 #if !defined(SOL_TCP) && defined(IPPROTO_TCP)
145 #define SOL_TCP IPPROTO_TCP
146 #endif
147
148 #ifdef SOL_TCP
149 #include "xlat/socktcpoptions.h"
150 #endif /* SOL_TCP */
151
152 #ifdef SOL_RAW
153 #include "xlat/icmpfilterflags.h"
154 #endif /* SOL_RAW */
155
156 #if defined(AF_PACKET) /* from e.g. linux/if_packet.h */
157 #include "xlat/af_packet_types.h"
158 #endif /* defined(AF_PACKET) */
159
160 void
printsock(struct tcb * tcp,long addr,int addrlen)161 printsock(struct tcb *tcp, long addr, int addrlen)
162 {
163 union {
164 char pad[128];
165 struct sockaddr sa;
166 struct sockaddr_in sin;
167 struct sockaddr_un sau;
168 #ifdef HAVE_INET_NTOP
169 struct sockaddr_in6 sa6;
170 #endif
171 #if defined(AF_IPX)
172 struct sockaddr_ipx sipx;
173 #endif
174 #ifdef AF_PACKET
175 struct sockaddr_ll ll;
176 #endif
177 #ifdef AF_NETLINK
178 struct sockaddr_nl nl;
179 #endif
180 } addrbuf;
181 char string_addr[100];
182
183 if (addr == 0) {
184 tprints("NULL");
185 return;
186 }
187 if (!verbose(tcp)) {
188 tprintf("%#lx", addr);
189 return;
190 }
191
192 if (addrlen < 2 || addrlen > sizeof(addrbuf))
193 addrlen = sizeof(addrbuf);
194
195 memset(&addrbuf, 0, sizeof(addrbuf));
196 if (umoven(tcp, addr, addrlen, addrbuf.pad) < 0) {
197 tprints("{...}");
198 return;
199 }
200 addrbuf.pad[sizeof(addrbuf.pad) - 1] = '\0';
201
202 tprints("{sa_family=");
203 printxval(addrfams, addrbuf.sa.sa_family, "AF_???");
204 tprints(", ");
205
206 switch (addrbuf.sa.sa_family) {
207 case AF_UNIX:
208 if (addrlen == 2) {
209 tprints("NULL");
210 } else if (addrbuf.sau.sun_path[0]) {
211 tprints("sun_path=");
212 printpathn(tcp, addr + 2, strlen(addrbuf.sau.sun_path));
213 } else {
214 tprints("sun_path=@");
215 printpathn(tcp, addr + 3, strlen(addrbuf.sau.sun_path + 1));
216 }
217 break;
218 case AF_INET:
219 tprintf("sin_port=htons(%u), sin_addr=inet_addr(\"%s\")",
220 ntohs(addrbuf.sin.sin_port), inet_ntoa(addrbuf.sin.sin_addr));
221 break;
222 #ifdef HAVE_INET_NTOP
223 case AF_INET6:
224 inet_ntop(AF_INET6, &addrbuf.sa6.sin6_addr, string_addr, sizeof(string_addr));
225 tprintf("sin6_port=htons(%u), inet_pton(AF_INET6, \"%s\", &sin6_addr), sin6_flowinfo=%u",
226 ntohs(addrbuf.sa6.sin6_port), string_addr,
227 addrbuf.sa6.sin6_flowinfo);
228 #ifdef HAVE_STRUCT_SOCKADDR_IN6_SIN6_SCOPE_ID
229 {
230 #if defined(HAVE_IF_INDEXTONAME) && defined(IN6_IS_ADDR_LINKLOCAL) && defined(IN6_IS_ADDR_MC_LINKLOCAL)
231 int numericscope = 0;
232 if (IN6_IS_ADDR_LINKLOCAL(&addrbuf.sa6.sin6_addr)
233 || IN6_IS_ADDR_MC_LINKLOCAL(&addrbuf.sa6.sin6_addr)) {
234 char scopebuf[IFNAMSIZ + 1];
235
236 if (if_indextoname(addrbuf.sa6.sin6_scope_id, scopebuf) == NULL)
237 numericscope++;
238 else
239 tprintf(", sin6_scope_id=if_nametoindex(\"%s\")", scopebuf);
240 } else
241 numericscope++;
242
243 if (numericscope)
244 #endif
245 tprintf(", sin6_scope_id=%u", addrbuf.sa6.sin6_scope_id);
246 }
247 #endif
248 break;
249 #endif
250 #if defined(AF_IPX)
251 case AF_IPX:
252 {
253 int i;
254 tprintf("sipx_port=htons(%u), ",
255 ntohs(addrbuf.sipx.sipx_port));
256 /* Yes, I know, this does not look too
257 * strace-ish, but otherwise the IPX
258 * addresses just look monstrous...
259 * Anyways, feel free if you don't like
260 * this way.. :)
261 */
262 tprintf("%08lx:", (unsigned long)ntohl(addrbuf.sipx.sipx_network));
263 for (i = 0; i < IPX_NODE_LEN; i++)
264 tprintf("%02x", addrbuf.sipx.sipx_node[i]);
265 tprintf("/[%02x]", addrbuf.sipx.sipx_type);
266 }
267 break;
268 #endif /* AF_IPX */
269 #ifdef AF_PACKET
270 case AF_PACKET:
271 {
272 int i;
273 tprintf("proto=%#04x, if%d, pkttype=",
274 ntohs(addrbuf.ll.sll_protocol),
275 addrbuf.ll.sll_ifindex);
276 printxval(af_packet_types, addrbuf.ll.sll_pkttype, "?");
277 tprintf(", addr(%d)={%d, ",
278 addrbuf.ll.sll_halen,
279 addrbuf.ll.sll_hatype);
280 for (i = 0; i < addrbuf.ll.sll_halen; i++)
281 tprintf("%02x", addrbuf.ll.sll_addr[i]);
282 }
283 break;
284
285 #endif /* AF_PACKET */
286 #ifdef AF_NETLINK
287 case AF_NETLINK:
288 tprintf("pid=%d, groups=%08x", addrbuf.nl.nl_pid, addrbuf.nl.nl_groups);
289 break;
290 #endif /* AF_NETLINK */
291 /* AF_AX25 AF_APPLETALK AF_NETROM AF_BRIDGE AF_AAL5
292 AF_X25 AF_ROSE etc. still need to be done */
293
294 default:
295 tprints("sa_data=");
296 printstr(tcp, (long) &((struct sockaddr *) addr)->sa_data,
297 sizeof addrbuf.sa.sa_data);
298 break;
299 }
300 tprints("}");
301 }
302
303 #if HAVE_SENDMSG
304 #include "xlat/scmvals.h"
305
306 static void
printcmsghdr(struct tcb * tcp,unsigned long addr,unsigned long len)307 printcmsghdr(struct tcb *tcp, unsigned long addr, unsigned long len)
308 {
309 struct cmsghdr *cmsg = len < sizeof(struct cmsghdr) ?
310 NULL : malloc(len);
311 if (cmsg == NULL || umoven(tcp, addr, len, (char *) cmsg) < 0) {
312 tprintf(", msg_control=%#lx", addr);
313 free(cmsg);
314 return;
315 }
316
317 tprintf(", {cmsg_len=%u, cmsg_level=", (unsigned) cmsg->cmsg_len);
318 printxval(socketlayers, cmsg->cmsg_level, "SOL_???");
319 tprints(", cmsg_type=");
320
321 if (cmsg->cmsg_level == SOL_SOCKET) {
322 unsigned long cmsg_len;
323
324 printxval(scmvals, cmsg->cmsg_type, "SCM_???");
325 cmsg_len = (len < cmsg->cmsg_len) ? len : cmsg->cmsg_len;
326
327 if (cmsg->cmsg_type == SCM_RIGHTS
328 && CMSG_LEN(sizeof(int)) <= cmsg_len) {
329 int *fds = (int *) CMSG_DATA(cmsg);
330 int first = 1;
331
332 tprints(", {");
333 while ((char *) fds < ((char *) cmsg + cmsg_len)) {
334 if (!first)
335 tprints(", ");
336 printfd(tcp, *fds++);
337 first = 0;
338 }
339 tprints("}}");
340 free(cmsg);
341 return;
342 }
343 if (cmsg->cmsg_type == SCM_CREDENTIALS
344 && CMSG_LEN(sizeof(struct ucred)) <= cmsg_len) {
345 struct ucred *uc = (struct ucred *) CMSG_DATA(cmsg);
346
347 tprintf("{pid=%ld, uid=%ld, gid=%ld}}",
348 (long)uc->pid, (long)uc->uid, (long)uc->gid);
349 free(cmsg);
350 return;
351 }
352 }
353 free(cmsg);
354 tprints(", ...}");
355 }
356
357 static void
do_msghdr(struct tcb * tcp,struct msghdr * msg,unsigned long data_size)358 do_msghdr(struct tcb *tcp, struct msghdr *msg, unsigned long data_size)
359 {
360 tprintf("{msg_name(%d)=", msg->msg_namelen);
361 printsock(tcp, (long)msg->msg_name, msg->msg_namelen);
362
363 tprintf(", msg_iov(%lu)=", (unsigned long)msg->msg_iovlen);
364 tprint_iov_upto(tcp, (unsigned long)msg->msg_iovlen,
365 (unsigned long)msg->msg_iov, 1, data_size);
366
367 #ifdef HAVE_STRUCT_MSGHDR_MSG_CONTROL
368 tprintf(", msg_controllen=%lu", (unsigned long)msg->msg_controllen);
369 if (msg->msg_controllen)
370 printcmsghdr(tcp, (unsigned long) msg->msg_control,
371 msg->msg_controllen);
372 tprints(", msg_flags=");
373 printflags(msg_flags, msg->msg_flags, "MSG_???");
374 #else /* !HAVE_STRUCT_MSGHDR_MSG_CONTROL */
375 tprintf("msg_accrights=%#lx, msg_accrightslen=%u",
376 (unsigned long) msg->msg_accrights, msg->msg_accrightslen);
377 #endif /* !HAVE_STRUCT_MSGHDR_MSG_CONTROL */
378 tprints("}");
379 }
380
381 struct msghdr32 {
382 uint32_t /* void* */ msg_name;
383 uint32_t /* socklen_t */msg_namelen;
384 uint32_t /* iovec* */ msg_iov;
385 uint32_t /* size_t */ msg_iovlen;
386 uint32_t /* void* */ msg_control;
387 uint32_t /* size_t */ msg_controllen;
388 uint32_t /* int */ msg_flags;
389 };
390 struct mmsghdr32 {
391 struct msghdr32 msg_hdr;
392 uint32_t /* unsigned */ msg_len;
393 };
394
395 static void
printmsghdr(struct tcb * tcp,long addr,unsigned long data_size)396 printmsghdr(struct tcb *tcp, long addr, unsigned long data_size)
397 {
398 struct msghdr msg;
399
400 #if SUPPORTED_PERSONALITIES > 1 && SIZEOF_LONG > 4
401 if (current_wordsize == 4) {
402 struct msghdr32 msg32;
403
404 if (umove(tcp, addr, &msg32) < 0) {
405 tprintf("%#lx", addr);
406 return;
407 }
408 msg.msg_name = (void*)(long)msg32.msg_name;
409 msg.msg_namelen = msg32.msg_namelen;
410 msg.msg_iov = (void*)(long)msg32.msg_iov;
411 msg.msg_iovlen = msg32.msg_iovlen;
412 msg.msg_control = (void*)(long)msg32.msg_control;
413 msg.msg_controllen = msg32.msg_controllen;
414 msg.msg_flags = msg32.msg_flags;
415 } else
416 #endif
417 if (umove(tcp, addr, &msg) < 0) {
418 tprintf("%#lx", addr);
419 return;
420 }
421 do_msghdr(tcp, &msg, data_size);
422 }
423
424 static void
printmmsghdr(struct tcb * tcp,long addr,unsigned int idx,unsigned long msg_len)425 printmmsghdr(struct tcb *tcp, long addr, unsigned int idx, unsigned long msg_len)
426 {
427 struct mmsghdr {
428 struct msghdr msg_hdr;
429 unsigned msg_len;
430 } mmsg;
431
432 #if SUPPORTED_PERSONALITIES > 1 && SIZEOF_LONG > 4
433 if (current_wordsize == 4) {
434 struct mmsghdr32 mmsg32;
435
436 addr += sizeof(mmsg32) * idx;
437 if (umove(tcp, addr, &mmsg32) < 0) {
438 tprintf("%#lx", addr);
439 return;
440 }
441 mmsg.msg_hdr.msg_name = (void*)(long)mmsg32.msg_hdr.msg_name;
442 mmsg.msg_hdr.msg_namelen = mmsg32.msg_hdr.msg_namelen;
443 mmsg.msg_hdr.msg_iov = (void*)(long)mmsg32.msg_hdr.msg_iov;
444 mmsg.msg_hdr.msg_iovlen = mmsg32.msg_hdr.msg_iovlen;
445 mmsg.msg_hdr.msg_control = (void*)(long)mmsg32.msg_hdr.msg_control;
446 mmsg.msg_hdr.msg_controllen = mmsg32.msg_hdr.msg_controllen;
447 mmsg.msg_hdr.msg_flags = mmsg32.msg_hdr.msg_flags;
448 mmsg.msg_len = mmsg32.msg_len;
449 } else
450 #endif
451 {
452 addr += sizeof(mmsg) * idx;
453 if (umove(tcp, addr, &mmsg) < 0) {
454 tprintf("%#lx", addr);
455 return;
456 }
457 }
458 tprints("{");
459 do_msghdr(tcp, &mmsg.msg_hdr, msg_len ? msg_len : mmsg.msg_len);
460 tprintf(", %u}", mmsg.msg_len);
461 }
462
463 static void
decode_mmsg(struct tcb * tcp,unsigned long msg_len)464 decode_mmsg(struct tcb *tcp, unsigned long msg_len)
465 {
466 /* mmsgvec */
467 if (syserror(tcp)) {
468 tprintf("%#lx", tcp->u_arg[1]);
469 } else {
470 unsigned int len = tcp->u_rval;
471 unsigned int i;
472
473 tprints("{");
474 for (i = 0; i < len; ++i) {
475 if (i)
476 tprints(", ");
477 printmmsghdr(tcp, tcp->u_arg[1], i, msg_len);
478 }
479 tprints("}");
480 }
481 /* vlen */
482 tprintf(", %u, ", (unsigned int) tcp->u_arg[2]);
483 /* flags */
484 printflags(msg_flags, tcp->u_arg[3], "MSG_???");
485 }
486
487 #endif /* HAVE_SENDMSG */
488
489 /*
490 * low bits of the socket type define real socket type,
491 * other bits are socket type flags.
492 */
493 static void
tprint_sock_type(struct tcb * tcp,int flags)494 tprint_sock_type(struct tcb *tcp, int flags)
495 {
496 const char *str = xlookup(socktypes, flags & SOCK_TYPE_MASK);
497
498 if (str) {
499 tprints(str);
500 flags &= ~SOCK_TYPE_MASK;
501 if (!flags)
502 return;
503 tprints("|");
504 }
505 printflags(sock_type_flags, flags, "SOCK_???");
506 }
507
508 int
sys_socket(struct tcb * tcp)509 sys_socket(struct tcb *tcp)
510 {
511 if (entering(tcp)) {
512 printxval(domains, tcp->u_arg[0], "PF_???");
513 tprints(", ");
514 tprint_sock_type(tcp, tcp->u_arg[1]);
515 tprints(", ");
516 switch (tcp->u_arg[0]) {
517 case PF_INET:
518 #ifdef PF_INET6
519 case PF_INET6:
520 #endif
521 printxval(inet_protocols, tcp->u_arg[2], "IPPROTO_???");
522 break;
523 #ifdef PF_IPX
524 case PF_IPX:
525 /* BTW: I don't believe this.. */
526 tprints("[");
527 printxval(domains, tcp->u_arg[2], "PF_???");
528 tprints("]");
529 break;
530 #endif /* PF_IPX */
531 #ifdef PF_NETLINK
532 case PF_NETLINK:
533 printxval(netlink_protocols, tcp->u_arg[2], "NETLINK_???");
534 break;
535 #endif
536 default:
537 tprintf("%lu", tcp->u_arg[2]);
538 break;
539 }
540 }
541 return 0;
542 }
543
544 int
sys_bind(struct tcb * tcp)545 sys_bind(struct tcb *tcp)
546 {
547 if (entering(tcp)) {
548 printfd(tcp, tcp->u_arg[0]);
549 tprints(", ");
550 printsock(tcp, tcp->u_arg[1], tcp->u_arg[2]);
551 tprintf(", %lu", tcp->u_arg[2]);
552 }
553 return 0;
554 }
555
556 int
sys_connect(struct tcb * tcp)557 sys_connect(struct tcb *tcp)
558 {
559 return sys_bind(tcp);
560 }
561
562 int
sys_listen(struct tcb * tcp)563 sys_listen(struct tcb *tcp)
564 {
565 if (entering(tcp)) {
566 printfd(tcp, tcp->u_arg[0]);
567 tprints(", ");
568 tprintf("%lu", tcp->u_arg[1]);
569 }
570 return 0;
571 }
572
573 static int
do_accept(struct tcb * tcp,int flags_arg)574 do_accept(struct tcb *tcp, int flags_arg)
575 {
576 if (entering(tcp)) {
577 printfd(tcp, tcp->u_arg[0]);
578 tprints(", ");
579 return 0;
580 }
581 if (!tcp->u_arg[2])
582 tprintf("%#lx, NULL", tcp->u_arg[1]);
583 else {
584 int len;
585 if (tcp->u_arg[1] == 0 || syserror(tcp)
586 || umove(tcp, tcp->u_arg[2], &len) < 0) {
587 tprintf("%#lx", tcp->u_arg[1]);
588 } else {
589 printsock(tcp, tcp->u_arg[1], len);
590 }
591 tprints(", ");
592 printnum_int(tcp, tcp->u_arg[2], "%u");
593 }
594 if (flags_arg >= 0) {
595 tprints(", ");
596 printflags(sock_type_flags, tcp->u_arg[flags_arg],
597 "SOCK_???");
598 }
599 return 0;
600 }
601
602 int
sys_accept(struct tcb * tcp)603 sys_accept(struct tcb *tcp)
604 {
605 return do_accept(tcp, -1);
606 }
607
608 int
sys_accept4(struct tcb * tcp)609 sys_accept4(struct tcb *tcp)
610 {
611 return do_accept(tcp, 3);
612 }
613
614 int
sys_send(struct tcb * tcp)615 sys_send(struct tcb *tcp)
616 {
617 if (entering(tcp)) {
618 printfd(tcp, tcp->u_arg[0]);
619 tprints(", ");
620 printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
621 tprintf(", %lu, ", tcp->u_arg[2]);
622 /* flags */
623 printflags(msg_flags, tcp->u_arg[3], "MSG_???");
624 }
625 return 0;
626 }
627
628 int
sys_sendto(struct tcb * tcp)629 sys_sendto(struct tcb *tcp)
630 {
631 if (entering(tcp)) {
632 printfd(tcp, tcp->u_arg[0]);
633 tprints(", ");
634 printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
635 tprintf(", %lu, ", tcp->u_arg[2]);
636 /* flags */
637 printflags(msg_flags, tcp->u_arg[3], "MSG_???");
638 /* to address */
639 tprints(", ");
640 printsock(tcp, tcp->u_arg[4], tcp->u_arg[5]);
641 /* to length */
642 tprintf(", %lu", tcp->u_arg[5]);
643 }
644 return 0;
645 }
646
647 #ifdef HAVE_SENDMSG
648
649 int
sys_sendmsg(struct tcb * tcp)650 sys_sendmsg(struct tcb *tcp)
651 {
652 if (entering(tcp)) {
653 printfd(tcp, tcp->u_arg[0]);
654 tprints(", ");
655 printmsghdr(tcp, tcp->u_arg[1], (unsigned long) -1L);
656 /* flags */
657 tprints(", ");
658 printflags(msg_flags, tcp->u_arg[2], "MSG_???");
659 }
660 return 0;
661 }
662
663 int
sys_sendmmsg(struct tcb * tcp)664 sys_sendmmsg(struct tcb *tcp)
665 {
666 if (entering(tcp)) {
667 /* sockfd */
668 printfd(tcp, tcp->u_arg[0]);
669 tprints(", ");
670 if (!verbose(tcp)) {
671 tprintf("%#lx, %u, ",
672 tcp->u_arg[1], (unsigned int) tcp->u_arg[2]);
673 printflags(msg_flags, tcp->u_arg[3], "MSG_???");
674 }
675 } else {
676 if (verbose(tcp))
677 decode_mmsg(tcp, (unsigned long) -1L);
678 }
679 return 0;
680 }
681
682 #endif /* HAVE_SENDMSG */
683
684 int
sys_recv(struct tcb * tcp)685 sys_recv(struct tcb *tcp)
686 {
687 if (entering(tcp)) {
688 printfd(tcp, tcp->u_arg[0]);
689 tprints(", ");
690 } else {
691 if (syserror(tcp))
692 tprintf("%#lx", tcp->u_arg[1]);
693 else
694 printstr(tcp, tcp->u_arg[1], tcp->u_rval);
695
696 tprintf(", %lu, ", tcp->u_arg[2]);
697 printflags(msg_flags, tcp->u_arg[3], "MSG_???");
698 }
699 return 0;
700 }
701
702 int
sys_recvfrom(struct tcb * tcp)703 sys_recvfrom(struct tcb *tcp)
704 {
705 int fromlen;
706
707 if (entering(tcp)) {
708 printfd(tcp, tcp->u_arg[0]);
709 tprints(", ");
710 } else {
711 if (syserror(tcp)) {
712 tprintf("%#lx, %lu, %lu, %#lx, %#lx",
713 tcp->u_arg[1], tcp->u_arg[2], tcp->u_arg[3],
714 tcp->u_arg[4], tcp->u_arg[5]);
715 return 0;
716 }
717 /* buf */
718 printstr(tcp, tcp->u_arg[1], tcp->u_rval);
719 /* len */
720 tprintf(", %lu, ", tcp->u_arg[2]);
721 /* flags */
722 printflags(msg_flags, tcp->u_arg[3], "MSG_???");
723 /* from address, len */
724 if (!tcp->u_arg[4] || !tcp->u_arg[5]) {
725 if (tcp->u_arg[4] == 0)
726 tprints(", NULL");
727 else
728 tprintf(", %#lx", tcp->u_arg[4]);
729 if (tcp->u_arg[5] == 0)
730 tprints(", NULL");
731 else
732 tprintf(", %#lx", tcp->u_arg[5]);
733 return 0;
734 }
735 if (umove(tcp, tcp->u_arg[5], &fromlen) < 0) {
736 tprints(", {...}, [?]");
737 return 0;
738 }
739 tprints(", ");
740 printsock(tcp, tcp->u_arg[4], tcp->u_arg[5]);
741 /* from length */
742 tprintf(", [%u]", fromlen);
743 }
744 return 0;
745 }
746
747 #ifdef HAVE_SENDMSG
748
749 int
sys_recvmsg(struct tcb * tcp)750 sys_recvmsg(struct tcb *tcp)
751 {
752 if (entering(tcp)) {
753 printfd(tcp, tcp->u_arg[0]);
754 tprints(", ");
755 } else {
756 if (syserror(tcp) || !verbose(tcp))
757 tprintf("%#lx", tcp->u_arg[1]);
758 else
759 printmsghdr(tcp, tcp->u_arg[1], tcp->u_rval);
760 /* flags */
761 tprints(", ");
762 printflags(msg_flags, tcp->u_arg[2], "MSG_???");
763 }
764 return 0;
765 }
766
767 int
sys_recvmmsg(struct tcb * tcp)768 sys_recvmmsg(struct tcb *tcp)
769 {
770 /* +5 chars are for "left " prefix */
771 static char str[5 + TIMESPEC_TEXT_BUFSIZE];
772
773 if (entering(tcp)) {
774 printfd(tcp, tcp->u_arg[0]);
775 tprints(", ");
776 if (verbose(tcp)) {
777 sprint_timespec(str, tcp, tcp->u_arg[4]);
778 /* Abusing tcp->auxstr as temp storage.
779 * Will be used and freed on syscall exit.
780 */
781 tcp->auxstr = strdup(str);
782 } else {
783 tprintf("%#lx, %ld, ", tcp->u_arg[1], tcp->u_arg[2]);
784 printflags(msg_flags, tcp->u_arg[3], "MSG_???");
785 tprints(", ");
786 print_timespec(tcp, tcp->u_arg[4]);
787 }
788 return 0;
789 } else {
790 if (verbose(tcp)) {
791 decode_mmsg(tcp, 0);
792 /* timeout on entrance */
793 tprintf(", %s", tcp->auxstr ? tcp->auxstr : "{...}");
794 free((void *) tcp->auxstr);
795 tcp->auxstr = NULL;
796 }
797 if (syserror(tcp))
798 return 0;
799 if (tcp->u_rval == 0) {
800 tcp->auxstr = "Timeout";
801 return RVAL_STR;
802 }
803 if (!verbose(tcp))
804 return 0;
805 /* timeout on exit */
806 sprint_timespec(stpcpy(str, "left "), tcp, tcp->u_arg[4]);
807 tcp->auxstr = str;
808 return RVAL_STR;
809 }
810 }
811
812 #endif /* HAVE_SENDMSG */
813
814 #include "xlat/shutdown_modes.h"
815
816 int
sys_shutdown(struct tcb * tcp)817 sys_shutdown(struct tcb *tcp)
818 {
819 if (entering(tcp)) {
820 printfd(tcp, tcp->u_arg[0]);
821 tprints(", ");
822 printxval(shutdown_modes, tcp->u_arg[1], "SHUT_???");
823 }
824 return 0;
825 }
826
827 int
sys_getsockname(struct tcb * tcp)828 sys_getsockname(struct tcb *tcp)
829 {
830 return sys_accept(tcp);
831 }
832
833 int
sys_getpeername(struct tcb * tcp)834 sys_getpeername(struct tcb *tcp)
835 {
836 return sys_accept(tcp);
837 }
838
839 static int
do_pipe(struct tcb * tcp,int flags_arg)840 do_pipe(struct tcb *tcp, int flags_arg)
841 {
842 if (exiting(tcp)) {
843 if (syserror(tcp)) {
844 tprintf("%#lx", tcp->u_arg[0]);
845 } else {
846 #if !defined(SPARC) && !defined(SPARC64) && !defined(SH) && !defined(IA64)
847 int fds[2];
848
849 if (umoven(tcp, tcp->u_arg[0], sizeof fds, (char *) fds) < 0)
850 tprints("[...]");
851 else
852 tprintf("[%u, %u]", fds[0], fds[1]);
853 #elif defined(SPARC) || defined(SPARC64) || defined(SH) || defined(IA64)
854 tprintf("[%lu, %lu]", tcp->u_rval, getrval2(tcp));
855 #else
856 tprintf("%#lx", tcp->u_arg[0]);
857 #endif
858 }
859 if (flags_arg >= 0) {
860 tprints(", ");
861 printflags(open_mode_flags, tcp->u_arg[flags_arg], "O_???");
862 }
863 }
864 return 0;
865 }
866
867 int
sys_pipe(struct tcb * tcp)868 sys_pipe(struct tcb *tcp)
869 {
870 return do_pipe(tcp, -1);
871 }
872
873 int
sys_pipe2(struct tcb * tcp)874 sys_pipe2(struct tcb *tcp)
875 {
876 return do_pipe(tcp, 1);
877 }
878
879 int
sys_socketpair(struct tcb * tcp)880 sys_socketpair(struct tcb *tcp)
881 {
882 int fds[2];
883
884 if (entering(tcp)) {
885 printxval(domains, tcp->u_arg[0], "PF_???");
886 tprints(", ");
887 tprint_sock_type(tcp, tcp->u_arg[1]);
888 tprintf(", %lu", tcp->u_arg[2]);
889 } else {
890 if (syserror(tcp)) {
891 tprintf(", %#lx", tcp->u_arg[3]);
892 return 0;
893 }
894 if (umoven(tcp, tcp->u_arg[3], sizeof fds, (char *) fds) < 0)
895 tprints(", [...]");
896 else
897 tprintf(", [%u, %u]", fds[0], fds[1]);
898 }
899 return 0;
900 }
901
902 int
sys_getsockopt(struct tcb * tcp)903 sys_getsockopt(struct tcb *tcp)
904 {
905 if (entering(tcp)) {
906 printfd(tcp, tcp->u_arg[0]);
907 tprints(", ");
908 printxval(socketlayers, tcp->u_arg[1], "SOL_???");
909 tprints(", ");
910 switch (tcp->u_arg[1]) {
911 case SOL_SOCKET:
912 printxval(sockoptions, tcp->u_arg[2], "SO_???");
913 break;
914 #ifdef SOL_IP
915 case SOL_IP:
916 printxval(sockipoptions, tcp->u_arg[2], "IP_???");
917 break;
918 #endif
919 #ifdef SOL_IPV6
920 case SOL_IPV6:
921 printxval(sockipv6options, tcp->u_arg[2], "IPV6_???");
922 break;
923 #endif
924 #ifdef SOL_IPX
925 case SOL_IPX:
926 printxval(sockipxoptions, tcp->u_arg[2], "IPX_???");
927 break;
928 #endif
929 #ifdef SOL_PACKET
930 case SOL_PACKET:
931 printxval(sockpacketoptions, tcp->u_arg[2], "PACKET_???");
932 break;
933 #endif
934 #ifdef SOL_TCP
935 case SOL_TCP:
936 printxval(socktcpoptions, tcp->u_arg[2], "TCP_???");
937 break;
938 #endif
939 #ifdef SOL_SCTP
940 case SOL_SCTP:
941 printxval(socksctpoptions, tcp->u_arg[2], "SCTP_???");
942 break;
943 #endif
944
945 /* SOL_AX25 SOL_ROSE SOL_ATALK SOL_NETROM SOL_UDP SOL_DECNET SOL_X25
946 * etc. still need work */
947 default:
948 tprintf("%lu", tcp->u_arg[2]);
949 break;
950 }
951 tprints(", ");
952 } else {
953 int len;
954 if (syserror(tcp) || umove(tcp, tcp->u_arg[4], &len) < 0) {
955 tprintf("%#lx, %#lx",
956 tcp->u_arg[3], tcp->u_arg[4]);
957 return 0;
958 }
959
960 switch (tcp->u_arg[1]) {
961 case SOL_SOCKET:
962 switch (tcp->u_arg[2]) {
963 #ifdef SO_LINGER
964 case SO_LINGER:
965 if (len == sizeof(struct linger)) {
966 struct linger linger;
967 if (umove(tcp,
968 tcp->u_arg[3],
969 &linger) < 0)
970 break;
971 tprintf("{onoff=%d, linger=%d}, "
972 "[%d]",
973 linger.l_onoff,
974 linger.l_linger,
975 len);
976 return 0;
977 }
978 break;
979 #endif
980 #ifdef SO_PEERCRED
981 case SO_PEERCRED:
982 if (len == sizeof(struct ucred)) {
983 struct ucred uc;
984 if (umove(tcp,
985 tcp->u_arg[3],
986 &uc) < 0)
987 break;
988 tprintf("{pid=%ld, uid=%ld, gid=%ld}, "
989 "[%d]",
990 (long)uc.pid,
991 (long)uc.uid,
992 (long)uc.gid,
993 len);
994 return 0;
995 }
996 break;
997 #endif
998 }
999 break;
1000 case SOL_PACKET:
1001 switch (tcp->u_arg[2]) {
1002 #ifdef PACKET_STATISTICS
1003 case PACKET_STATISTICS:
1004 if (len == sizeof(struct tpacket_stats)) {
1005 struct tpacket_stats stats;
1006 if (umove(tcp,
1007 tcp->u_arg[3],
1008 &stats) < 0)
1009 break;
1010 tprintf("{packets=%u, drops=%u}, "
1011 "[%d]",
1012 stats.tp_packets,
1013 stats.tp_drops,
1014 len);
1015 return 0;
1016 }
1017 break;
1018 #endif
1019 }
1020 break;
1021 }
1022
1023 if (len == sizeof(int)) {
1024 printnum_int(tcp, tcp->u_arg[3], "%d");
1025 }
1026 else {
1027 printstr(tcp, tcp->u_arg[3], len);
1028 }
1029 tprintf(", [%d]", len);
1030 }
1031 return 0;
1032 }
1033
1034 #if defined(ICMP_FILTER)
printicmpfilter(struct tcb * tcp,long addr)1035 static void printicmpfilter(struct tcb *tcp, long addr)
1036 {
1037 struct icmp_filter filter;
1038
1039 if (!addr) {
1040 tprints("NULL");
1041 return;
1042 }
1043 if (syserror(tcp) || !verbose(tcp)) {
1044 tprintf("%#lx", addr);
1045 return;
1046 }
1047 if (umove(tcp, addr, &filter) < 0) {
1048 tprints("{...}");
1049 return;
1050 }
1051
1052 tprints("~(");
1053 printflags(icmpfilterflags, ~filter.data, "ICMP_???");
1054 tprints(")");
1055 }
1056 #endif /* ICMP_FILTER */
1057
1058 static int
printsockopt(struct tcb * tcp,int level,int name,long addr,int len)1059 printsockopt(struct tcb *tcp, int level, int name, long addr, int len)
1060 {
1061 printxval(socketlayers, level, "SOL_??");
1062 tprints(", ");
1063 switch (level) {
1064 case SOL_SOCKET:
1065 printxval(sockoptions, name, "SO_???");
1066 switch (name) {
1067 #if defined(SO_LINGER)
1068 case SO_LINGER:
1069 if (len == sizeof(struct linger)) {
1070 struct linger linger;
1071 if (umove(tcp, addr, &linger) < 0)
1072 break;
1073 tprintf(", {onoff=%d, linger=%d}",
1074 linger.l_onoff,
1075 linger.l_linger);
1076 return 0;
1077 }
1078 break;
1079 #endif
1080 }
1081 break;
1082 #ifdef SOL_IP
1083 case SOL_IP:
1084 printxval(sockipoptions, name, "IP_???");
1085 break;
1086 #endif
1087 #ifdef SOL_IPV6
1088 case SOL_IPV6:
1089 printxval(sockipv6options, name, "IPV6_???");
1090 break;
1091 #endif
1092 #ifdef SOL_IPX
1093 case SOL_IPX:
1094 printxval(sockipxoptions, name, "IPX_???");
1095 break;
1096 #endif
1097 #ifdef SOL_PACKET
1098 case SOL_PACKET:
1099 printxval(sockpacketoptions, name, "PACKET_???");
1100 /* TODO: decode packate_mreq for PACKET_*_MEMBERSHIP */
1101 switch (name) {
1102 #ifdef PACKET_RX_RING
1103 case PACKET_RX_RING:
1104 #endif
1105 #ifdef PACKET_TX_RING
1106 case PACKET_TX_RING:
1107 #endif
1108 #if defined(PACKET_RX_RING) || defined(PACKET_TX_RING)
1109 if (len == sizeof(struct tpacket_req)) {
1110 struct tpacket_req req;
1111 if (umove(tcp, addr, &req) < 0)
1112 break;
1113 tprintf(", {block_size=%u, block_nr=%u, frame_size=%u, frame_nr=%u}",
1114 req.tp_block_size,
1115 req.tp_block_nr,
1116 req.tp_frame_size,
1117 req.tp_frame_nr);
1118 return 0;
1119 }
1120 break;
1121 #endif /* PACKET_RX_RING || PACKET_TX_RING */
1122 }
1123 break;
1124 #endif
1125 #ifdef SOL_TCP
1126 case SOL_TCP:
1127 printxval(socktcpoptions, name, "TCP_???");
1128 break;
1129 #endif
1130 #ifdef SOL_SCTP
1131 case SOL_SCTP:
1132 printxval(socksctpoptions, name, "SCTP_???");
1133 break;
1134 #endif
1135 #ifdef SOL_RAW
1136 case SOL_RAW:
1137 printxval(sockrawoptions, name, "RAW_???");
1138 switch (name) {
1139 #if defined(ICMP_FILTER)
1140 case ICMP_FILTER:
1141 tprints(", ");
1142 printicmpfilter(tcp, addr);
1143 return 0;
1144 #endif
1145 }
1146 break;
1147 #endif
1148
1149 /* SOL_AX25 SOL_ATALK SOL_NETROM SOL_UDP SOL_DECNET SOL_X25
1150 * etc. still need work */
1151
1152 default:
1153 tprintf("%u", name);
1154 }
1155
1156 /* default arg printing */
1157
1158 tprints(", ");
1159
1160 if (len == sizeof(int)) {
1161 printnum_int(tcp, addr, "%d");
1162 }
1163 else {
1164 printstr(tcp, addr, len);
1165 }
1166 return 0;
1167 }
1168
1169 int
sys_setsockopt(struct tcb * tcp)1170 sys_setsockopt(struct tcb *tcp)
1171 {
1172 if (entering(tcp)) {
1173 printfd(tcp, tcp->u_arg[0]);
1174 tprints(", ");
1175 printsockopt(tcp, tcp->u_arg[1], tcp->u_arg[2],
1176 tcp->u_arg[3], tcp->u_arg[4]);
1177 tprintf(", %lu", tcp->u_arg[4]);
1178 }
1179 return 0;
1180 }
1181