2 * clnt_udp.c, Implements a UDP/IP based, client side RPC.
4 * Copyright (c) 2010, Oracle America, Inc.
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions are
10 * * Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * * Redistributions in binary form must reproduce the above
13 * copyright notice, this list of conditions and the following
14 * disclaimer in the documentation and/or other materials
15 * provided with the distribution.
16 * * Neither the name of the "Oracle America, Inc." nor the names of its
17 * contributors may be used to endorse or promote products derived
18 * from this software without specific prior written permission.
20 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
21 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
22 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
23 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
24 * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
25 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
27 * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
28 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
29 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
30 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
31 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
41 #include <sys/socket.h>
42 #include <sys/ioctl.h>
46 #include <rpc/pmap_clnt.h>
57 #include <kernel-features.h>
59 extern u_long
_create_xid (void);
62 * UDP bases client side rpc operations
64 static enum clnt_stat
clntudp_call (CLIENT
*, u_long
, xdrproc_t
, caddr_t
,
65 xdrproc_t
, caddr_t
, struct timeval
);
66 static void clntudp_abort (void);
67 static void clntudp_geterr (CLIENT
*, struct rpc_err
*);
68 static bool_t
clntudp_freeres (CLIENT
*, xdrproc_t
, caddr_t
);
69 static bool_t
clntudp_control (CLIENT
*, int, char *);
70 static void clntudp_destroy (CLIENT
*);
72 static const struct clnt_ops udp_ops
=
83 * Private data kept per client handle
89 struct sockaddr_in cu_raddr
;
91 struct timeval cu_wait
;
92 struct timeval cu_total
;
93 struct rpc_err cu_error
;
103 * Create a UDP based client handle.
104 * If *sockp<0, *sockp is set to a newly created UPD socket.
105 * If raddr->sin_port is 0 a binder on the remote machine
106 * is consulted for the correct port number.
107 * NB: It is the clients responsibility to close *sockp.
108 * NB: The rpch->cl_auth is initialized to null authentication.
109 * Caller may wish to set this something more useful.
111 * wait is the amount of time used between retransmitting a call if
112 * no response has been heard; retransmission occurs until the actual
113 * rpc call times out.
115 * sendsz and recvsz are the maximum allowable packet sizes that can be
119 __libc_clntudp_bufcreate (struct sockaddr_in
*raddr
, u_long program
,
120 u_long version
, struct timeval wait
, int *sockp
,
121 u_int sendsz
, u_int recvsz
, int flags
)
124 struct cu_data
*cu
= NULL
;
125 struct rpc_msg call_msg
;
127 cl
= (CLIENT
*) mem_alloc (sizeof (CLIENT
));
128 sendsz
= ((sendsz
+ 3) / 4) * 4;
129 recvsz
= ((recvsz
+ 3) / 4) * 4;
130 cu
= (struct cu_data
*) mem_alloc (sizeof (*cu
) + sendsz
+ recvsz
);
131 if (cl
== NULL
|| cu
== NULL
)
133 struct rpc_createerr
*ce
= &get_rpc_createerr ();
134 (void) __fxprintf (NULL
, "%s: %s",
135 "clntudp_create", _("out of memory\n"));
136 ce
->cf_stat
= RPC_SYSTEMERROR
;
137 ce
->cf_error
.re_errno
= ENOMEM
;
140 cu
->cu_outbuf
= &cu
->cu_inbuf
[recvsz
];
142 if (raddr
->sin_port
== 0)
146 pmap_getport (raddr
, program
, version
, IPPROTO_UDP
)) == 0)
150 raddr
->sin_port
= htons (port
);
152 cl
->cl_ops
= (struct clnt_ops
*) &udp_ops
;
153 cl
->cl_private
= (caddr_t
) cu
;
154 cu
->cu_raddr
= *raddr
;
155 cu
->cu_rlen
= sizeof (cu
->cu_raddr
);
157 cu
->cu_total
.tv_sec
= -1;
158 cu
->cu_total
.tv_usec
= -1;
159 cu
->cu_sendsz
= sendsz
;
160 cu
->cu_recvsz
= recvsz
;
161 call_msg
.rm_xid
= _create_xid ();
162 call_msg
.rm_direction
= CALL
;
163 call_msg
.rm_call
.cb_rpcvers
= RPC_MSG_VERSION
;
164 call_msg
.rm_call
.cb_prog
= program
;
165 call_msg
.rm_call
.cb_vers
= version
;
166 xdrmem_create (&(cu
->cu_outxdrs
), cu
->cu_outbuf
, sendsz
, XDR_ENCODE
);
167 if (!xdr_callhdr (&(cu
->cu_outxdrs
), &call_msg
))
171 cu
->cu_xdrpos
= XDR_GETPOS (&(cu
->cu_outxdrs
));
174 *sockp
= __socket (AF_INET
, SOCK_DGRAM
|SOCK_NONBLOCK
|flags
, IPPROTO_UDP
);
175 if (__glibc_unlikely (*sockp
< 0))
177 struct rpc_createerr
*ce
= &get_rpc_createerr ();
178 ce
->cf_stat
= RPC_SYSTEMERROR
;
179 ce
->cf_error
.re_errno
= errno
;
182 /* attempt to bind to prov port */
183 (void) bindresvport (*sockp
, (struct sockaddr_in
*) 0);
187 __setsockopt (*sockp
, SOL_IP
, IP_RECVERR
, &on
, sizeof(on
));
190 cu
->cu_closeit
= TRUE
;
194 cu
->cu_closeit
= FALSE
;
196 cu
->cu_sock
= *sockp
;
197 cl
->cl_auth
= authnone_create ();
201 mem_free ((caddr_t
) cu
, sizeof (*cu
) + sendsz
+ recvsz
);
203 mem_free ((caddr_t
) cl
, sizeof (CLIENT
));
204 return (CLIENT
*) NULL
;
206 #ifdef EXPORT_RPC_SYMBOLS
207 libc_hidden_def (__libc_clntudp_bufcreate
)
209 libc_hidden_nolink_sunrpc (__libc_clntudp_bufcreate
, GLIBC_PRIVATE
)
213 clntudp_bufcreate (struct sockaddr_in
*raddr
, u_long program
, u_long version
,
214 struct timeval wait
, int *sockp
, u_int sendsz
,
217 return __libc_clntudp_bufcreate (raddr
, program
, version
, wait
,
218 sockp
, sendsz
, recvsz
, 0);
220 libc_hidden_nolink_sunrpc (clntudp_bufcreate
, GLIBC_2_0
)
223 clntudp_create (struct sockaddr_in
*raddr
, u_long program
, u_long version
,
224 struct timeval wait
, int *sockp
)
226 return __libc_clntudp_bufcreate (raddr
, program
, version
, wait
,
227 sockp
, UDPMSGSIZE
, UDPMSGSIZE
, 0);
229 #ifdef EXPORT_RPC_SYMBOLS
230 libc_hidden_def (clntudp_create
)
232 libc_hidden_nolink_sunrpc (clntudp_create
, GLIBC_2_0
)
236 is_network_up (int sock
)
240 if (getifaddrs (&ifa
) != 0)
243 struct ifaddrs
*run
= ifa
;
246 if ((run
->ifa_flags
& IFF_UP
) != 0
247 && run
->ifa_addr
!= NULL
248 && run
->ifa_addr
->sa_family
== AF_INET
)
259 static enum clnt_stat
260 clntudp_call (/* client handle */
262 /* procedure number */
264 /* xdr routine for args */
266 /* pointer to args */
268 /* xdr routine for results */
270 /* pointer to results */
272 /* seconds to wait before giving up */
273 struct timeval utimeout
)
275 struct cu_data
*cu
= (struct cu_data
*) cl
->cl_private
;
281 int milliseconds
= (cu
->cu_wait
.tv_sec
* 1000) +
282 (cu
->cu_wait
.tv_usec
/ 1000);
283 struct sockaddr_in from
;
284 struct rpc_msg reply_msg
;
286 struct timeval time_waited
;
288 int nrefreshes
= 2; /* number of times to refresh cred */
289 struct timeval timeout
;
290 int anyup
; /* any network interface up */
292 if (cu
->cu_total
.tv_usec
== -1)
294 timeout
= utimeout
; /* use supplied timeout */
298 timeout
= cu
->cu_total
; /* use default timeout */
301 time_waited
.tv_sec
= 0;
302 time_waited
.tv_usec
= 0;
304 xdrs
= &(cu
->cu_outxdrs
);
307 xdrs
->x_op
= XDR_ENCODE
;
308 XDR_SETPOS (xdrs
, cu
->cu_xdrpos
);
310 * the transaction is the first thing in the out buffer
312 (*(uint32_t *) (cu
->cu_outbuf
))++;
313 if ((!XDR_PUTLONG (xdrs
, (long *) &proc
)) ||
314 (!AUTH_MARSHALL (cl
->cl_auth
, xdrs
)) ||
315 (!(*xargs
) (xdrs
, argsp
)))
316 return (cu
->cu_error
.re_status
= RPC_CANTENCODEARGS
);
317 outlen
= (int) XDR_GETPOS (xdrs
);
320 if (__sendto (cu
->cu_sock
, cu
->cu_outbuf
, outlen
, 0,
321 (struct sockaddr
*) &(cu
->cu_raddr
), cu
->cu_rlen
)
324 cu
->cu_error
.re_errno
= errno
;
325 return (cu
->cu_error
.re_status
= RPC_CANTSEND
);
329 * Hack to provide rpc-based message passing
331 if (timeout
.tv_sec
== 0 && timeout
.tv_usec
== 0)
333 return (cu
->cu_error
.re_status
= RPC_TIMEDOUT
);
337 * sub-optimal code appears here because we have
338 * some clock time to spare while the packets are in flight.
339 * (We assume that this is actually only executed once.)
341 reply_msg
.acpted_rply
.ar_verf
= _null_auth
;
342 reply_msg
.acpted_rply
.ar_results
.where
= resultsp
;
343 reply_msg
.acpted_rply
.ar_results
.proc
= xresults
;
349 switch (__poll (&fd
, 1, milliseconds
))
355 anyup
= is_network_up (cu
->cu_sock
);
357 return (cu
->cu_error
.re_status
= RPC_CANTRECV
);
360 time_waited
.tv_sec
+= cu
->cu_wait
.tv_sec
;
361 time_waited
.tv_usec
+= cu
->cu_wait
.tv_usec
;
362 while (time_waited
.tv_usec
>= 1000000)
364 time_waited
.tv_sec
++;
365 time_waited
.tv_usec
-= 1000000;
367 if ((time_waited
.tv_sec
< timeout
.tv_sec
) ||
368 ((time_waited
.tv_sec
== timeout
.tv_sec
) &&
369 (time_waited
.tv_usec
< timeout
.tv_usec
)))
371 return (cu
->cu_error
.re_status
= RPC_TIMEDOUT
);
374 * buggy in other cases because time_waited is not being
380 cu
->cu_error
.re_errno
= errno
;
381 return (cu
->cu_error
.re_status
= RPC_CANTRECV
);
384 if (fd
.revents
& POLLERR
)
387 struct cmsghdr
*cmsg
;
388 struct sock_extended_err
*e
;
389 struct sockaddr_in err_addr
;
391 char *cbuf
= malloc (outlen
+ 256);
396 cu
->cu_error
.re_errno
= errno
;
397 return (cu
->cu_error
.re_status
= RPC_CANTRECV
);
400 iov
.iov_base
= cbuf
+ 256;
401 iov
.iov_len
= outlen
;
402 msg
.msg_name
= (void *) &err_addr
;
403 msg
.msg_namelen
= sizeof (err_addr
);
407 msg
.msg_control
= cbuf
;
408 msg
.msg_controllen
= 256;
409 ret
= __recvmsg (cu
->cu_sock
, &msg
, MSG_ERRQUEUE
);
411 && memcmp (cbuf
+ 256, cu
->cu_outbuf
, ret
) == 0
412 && (msg
.msg_flags
& MSG_ERRQUEUE
)
413 && ((msg
.msg_namelen
== 0
415 || (msg
.msg_namelen
== sizeof (err_addr
)
416 && err_addr
.sin_family
== AF_INET
417 && memcmp (&err_addr
.sin_addr
, &cu
->cu_raddr
.sin_addr
,
418 sizeof (err_addr
.sin_addr
)) == 0
419 && err_addr
.sin_port
== cu
->cu_raddr
.sin_port
)))
420 for (cmsg
= CMSG_FIRSTHDR (&msg
); cmsg
;
421 cmsg
= CMSG_NXTHDR (&msg
, cmsg
))
422 if (cmsg
->cmsg_level
== SOL_IP
&& cmsg
->cmsg_type
== IP_RECVERR
)
425 e
= (struct sock_extended_err
*) CMSG_DATA(cmsg
);
426 cu
->cu_error
.re_errno
= e
->ee_errno
;
427 return (cu
->cu_error
.re_status
= RPC_CANTRECV
);
434 fromlen
= sizeof (struct sockaddr
);
435 inlen
= __recvfrom (cu
->cu_sock
, cu
->cu_inbuf
,
436 (int) cu
->cu_recvsz
, MSG_DONTWAIT
,
437 (struct sockaddr
*) &from
, &fromlen
);
439 while (inlen
< 0 && errno
== EINTR
);
442 if (errno
== EWOULDBLOCK
)
444 cu
->cu_error
.re_errno
= errno
;
445 return (cu
->cu_error
.re_status
= RPC_CANTRECV
);
450 /* see if reply transaction id matches sent id.
451 Don't do this if we only wait for a replay */
453 && memcmp (cu
->cu_inbuf
, cu
->cu_outbuf
, sizeof (u_int32_t
)) != 0)
455 /* we now assume we have the proper reply */
460 * now decode and validate the response
462 xdrmem_create (&reply_xdrs
, cu
->cu_inbuf
, (u_int
) inlen
, XDR_DECODE
);
463 ok
= xdr_replymsg (&reply_xdrs
, &reply_msg
);
464 /* XDR_DESTROY(&reply_xdrs); save a few cycles on noop destroy */
467 _seterr_reply (&reply_msg
, &(cu
->cu_error
));
468 if (cu
->cu_error
.re_status
== RPC_SUCCESS
)
470 if (!AUTH_VALIDATE (cl
->cl_auth
,
471 &reply_msg
.acpted_rply
.ar_verf
))
473 cu
->cu_error
.re_status
= RPC_AUTHERROR
;
474 cu
->cu_error
.re_why
= AUTH_INVALIDRESP
;
476 if (reply_msg
.acpted_rply
.ar_verf
.oa_base
!= NULL
)
478 xdrs
->x_op
= XDR_FREE
;
479 (void) xdr_opaque_auth (xdrs
, &(reply_msg
.acpted_rply
.ar_verf
));
481 } /* end successful completion */
484 /* maybe our credentials need to be refreshed ... */
485 if (nrefreshes
> 0 && AUTH_REFRESH (cl
->cl_auth
))
490 } /* end of unsuccessful completion */
491 } /* end of valid reply message */
494 cu
->cu_error
.re_status
= RPC_CANTDECODERES
;
496 return cu
->cu_error
.re_status
;
500 clntudp_geterr (CLIENT
*cl
, struct rpc_err
*errp
)
502 struct cu_data
*cu
= (struct cu_data
*) cl
->cl_private
;
504 *errp
= cu
->cu_error
;
509 clntudp_freeres (CLIENT
*cl
, xdrproc_t xdr_res
, caddr_t res_ptr
)
511 struct cu_data
*cu
= (struct cu_data
*) cl
->cl_private
;
512 XDR
*xdrs
= &(cu
->cu_outxdrs
);
514 xdrs
->x_op
= XDR_FREE
;
515 return (*xdr_res
) (xdrs
, res_ptr
);
524 clntudp_control (CLIENT
*cl
, int request
, char *info
)
526 struct cu_data
*cu
= (struct cu_data
*) cl
->cl_private
;
533 cu
->cu_closeit
= TRUE
;
535 case CLSET_FD_NCLOSE
:
536 cu
->cu_closeit
= FALSE
;
539 cu
->cu_total
= *(struct timeval
*) info
;
542 *(struct timeval
*) info
= cu
->cu_total
;
544 case CLSET_RETRY_TIMEOUT
:
545 cu
->cu_wait
= *(struct timeval
*) info
;
547 case CLGET_RETRY_TIMEOUT
:
548 *(struct timeval
*) info
= cu
->cu_wait
;
550 case CLGET_SERVER_ADDR
:
551 *(struct sockaddr_in
*) info
= cu
->cu_raddr
;
554 *(int *)info
= cu
->cu_sock
;
558 * use the knowledge that xid is the
559 * first element in the call structure *.
560 * This will get the xid of the PREVIOUS call
562 memcpy (&ui32
, cu
->cu_outbuf
, sizeof (ui32
));
564 memcpy (info
, &ul
, sizeof (ul
));
567 /* This will set the xid of the NEXT call */
568 memcpy (&ul
, info
, sizeof (ul
));
569 ui32
= htonl (ul
- 1);
570 memcpy (cu
->cu_outbuf
, &ui32
, sizeof (ui32
));
571 /* decrement by 1 as clntudp_call() increments once */
575 * This RELIES on the information that, in the call body,
576 * the version number field is the fifth field from the
577 * beginning of the RPC header. MUST be changed if the
578 * call_struct is changed
580 memcpy (&ui32
, cu
->cu_outbuf
+ 4 * BYTES_PER_XDR_UNIT
, sizeof (ui32
));
582 memcpy (info
, &ul
, sizeof (ul
));
585 memcpy (&ul
, info
, sizeof (ul
));
587 memcpy (cu
->cu_outbuf
+ 4 * BYTES_PER_XDR_UNIT
, &ui32
, sizeof (ui32
));
591 * This RELIES on the information that, in the call body,
592 * the program number field is the field from the
593 * beginning of the RPC header. MUST be changed if the
594 * call_struct is changed
596 memcpy (&ui32
, cu
->cu_outbuf
+ 3 * BYTES_PER_XDR_UNIT
, sizeof (ui32
));
598 memcpy (info
, &ul
, sizeof (ul
));
601 memcpy (&ul
, info
, sizeof (ul
));
603 memcpy (cu
->cu_outbuf
+ 3 * BYTES_PER_XDR_UNIT
, &ui32
, sizeof (ui32
));
605 /* The following are only possible with TI-RPC */
608 case CLSET_PUSH_TIMOD
:
609 case CLSET_POP_TIMOD
:
617 clntudp_destroy (CLIENT
*cl
)
619 struct cu_data
*cu
= (struct cu_data
*) cl
->cl_private
;
623 (void) __close (cu
->cu_sock
);
625 XDR_DESTROY (&(cu
->cu_outxdrs
));
626 mem_free ((caddr_t
) cu
, (sizeof (*cu
) + cu
->cu_sendsz
+ cu
->cu_recvsz
));
627 mem_free ((caddr_t
) cl
, sizeof (CLIENT
));