2 * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
3 * unrestricted use provided that this legend is included on all tape
4 * media and as a part of the software program in whole or part. Users
5 * may copy or modify Sun RPC without charge, but are not authorized
6 * to license or distribute it to anyone else except as part of a product or
7 * program developed by the user.
9 * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
10 * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
11 * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
13 * Sun RPC is provided with no support and without any obligation on the
14 * part of Sun Microsystems, Inc. to assist in its use, correction,
15 * modification or enhancement.
17 * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
18 * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
19 * OR ANY PART THEREOF.
21 * In no event will Sun Microsystems, Inc. be liable for any lost revenue
22 * or profits or other special, indirect and consequential damages, even if
23 * Sun has been advised of the possibility of such damages.
25 * Sun Microsystems, Inc.
27 * Mountain View, California 94043
29 * @(#)pmap_svc.c 1.14 93/07/05 SMI; 1.23 89/04/05 Copyr 1984 Sun Micro
30 * $NetBSD: pmap_svc.c,v 1.2 2000/10/20 11:49:40 fvdl Exp $
31 * $FreeBSD: src/usr.sbin/rpcbind/pmap_svc.c,v 1.5 2007/11/07 10:53:39 kevlo Exp $
35 * Copyright (c) 1984 - 1991 by Sun Microsystems, Inc.
40 * The server procedure for the version 2 portmaper.
41 * All the portmapper related interface from the portmap side.
45 #include <sys/types.h>
46 #include <sys/socket.h>
49 #include <rpc/pmap_prot.h>
50 #include <rpc/rpcb_prot.h>
56 static struct pmaplist
*find_service_pmap(rpcprog_t
, rpcvers_t
, rpcprot_t
);
57 static bool_t
pmapproc_change(struct svc_req
*, SVCXPRT
*, u_long
);
58 static bool_t
pmapproc_getport(struct svc_req
*, SVCXPRT
*);
59 static bool_t
pmapproc_dump(struct svc_req
*, SVCXPRT
*);
62 * Called for all the version 2 inquiries.
65 pmap_service(struct svc_req
*rqstp
, SVCXPRT
*xprt
)
67 rpcbs_procinfo(RPCBVERS_2_STAT
, rqstp
->rq_proc
);
68 switch (rqstp
->rq_proc
) {
75 fprintf(stderr
, "PMAPPROC_NULL\n");
77 check_access(xprt
, rqstp
->rq_proc
, NULL
, PMAPVERS
);
78 if ((!svc_sendreply(xprt
, (xdrproc_t
) xdr_void
, NULL
)) &&
88 * Set a program, version to port mapping
90 pmapproc_change(rqstp
, xprt
, rqstp
->rq_proc
);
95 * Remove a program, version to port mapping.
97 pmapproc_change(rqstp
, xprt
, rqstp
->rq_proc
);
100 case PMAPPROC_GETPORT
:
102 * Lookup the mapping for a program, version and return its
105 pmapproc_getport(rqstp
, xprt
);
110 * Return the current set of mapped program, version
114 fprintf(stderr
, "PMAPPROC_DUMP\n");
116 pmapproc_dump(rqstp
, xprt
);
119 case PMAPPROC_CALLIT
:
121 * Calls a procedure on the local machine. If the requested
122 * procedure is not registered this procedure does not return
123 * error information!!
124 * This procedure is only supported on rpc/udp and calls via
125 * rpc/udp. It passes null authentication parameters.
127 rpcbproc_callit_com(rqstp
, xprt
, PMAPPROC_CALLIT
, PMAPVERS
);
137 * returns the item with the given program, version number. If that version
138 * number is not found, it returns the item with that program number, so that
139 * the port number is now returned to the caller. The caller when makes a
140 * call to this program, version number, the call will fail and it will
141 * return with PROGVERS_MISMATCH. The user can then determine the highest
142 * and the lowest version number for this program using clnt_geterr() and
143 * use those program version numbers.
145 static struct pmaplist
*
146 find_service_pmap(rpcprog_t prog
, rpcvers_t vers
, rpcprot_t prot
)
148 struct pmaplist
*hit
= NULL
;
149 struct pmaplist
*pml
;
151 for (pml
= list_pml
; pml
!= NULL
; pml
= pml
->pml_next
) {
152 if ((pml
->pml_map
.pm_prog
!= prog
) ||
153 (pml
->pml_map
.pm_prot
!= prot
))
156 if (pml
->pml_map
.pm_vers
== vers
)
163 pmapproc_change(struct svc_req
*rqstp __unused
, SVCXPRT
*xprt
, unsigned long op
)
168 struct sockaddr_in
*who
;
174 fprintf(stderr
, "%s request for (%lu, %lu) : ",
175 op
== PMAPPROC_SET
? "PMAP_SET" : "PMAP_UNSET",
176 reg
.pm_prog
, reg
.pm_vers
);
179 if (!svc_getargs(xprt
, (xdrproc_t
) xdr_pmap
, (char *)®
)) {
184 if (!check_access(xprt
, op
, ®
, PMAPVERS
)) {
185 svcerr_weakauth(xprt
);
189 who
= svc_getcaller(xprt
);
192 * Can't use getpwnam here. We might end up calling ourselves
195 if (__rpc_get_local_uid(xprt
, &uid
) < 0)
196 rpcbreg
.r_owner
= "unknown";
198 rpcbreg
.r_owner
= "superuser";
200 /* r_owner will be strdup-ed later */
201 snprintf(uidbuf
, sizeof uidbuf
, "%d", uid
);
202 rpcbreg
.r_owner
= uidbuf
;
205 rpcbreg
.r_prog
= reg
.pm_prog
;
206 rpcbreg
.r_vers
= reg
.pm_vers
;
208 if (op
== PMAPPROC_SET
) {
211 snprintf(buf
, sizeof buf
, "0.0.0.0.%d.%d",
212 (int)((reg
.pm_port
>> 8) & 0xff),
213 (int)(reg
.pm_port
& 0xff));
214 rpcbreg
.r_addr
= buf
;
215 if (reg
.pm_prot
== IPPROTO_UDP
) {
216 rpcbreg
.r_netid
= udptrans
;
217 } else if (reg
.pm_prot
== IPPROTO_TCP
) {
218 rpcbreg
.r_netid
= tcptrans
;
223 ans
= map_set(&rpcbreg
, rpcbreg
.r_owner
);
224 } else if (op
== PMAPPROC_UNSET
) {
227 rpcbreg
.r_addr
= NULL
;
228 rpcbreg
.r_netid
= tcptrans
;
229 ans1
= map_unset(&rpcbreg
, rpcbreg
.r_owner
);
230 rpcbreg
.r_netid
= udptrans
;
231 ans2
= map_unset(&rpcbreg
, rpcbreg
.r_owner
);
237 if ((!svc_sendreply(xprt
, (xdrproc_t
) xdr_long
, (caddr_t
) &ans
)) &&
239 fprintf(stderr
, "portmap: svc_sendreply\n");
246 fprintf(stderr
, "%s\n", ans
== TRUE
? "succeeded" : "failed");
248 if (op
== PMAPPROC_SET
)
249 rpcbs_set(RPCBVERS_2_STAT
, ans
);
251 rpcbs_unset(RPCBVERS_2_STAT
, ans
);
257 pmapproc_getport(struct svc_req
*rqstp __unused
, SVCXPRT
*xprt
)
262 struct pmaplist
*fnd
;
267 if (!svc_getargs(xprt
, (xdrproc_t
) xdr_pmap
, (char *)®
)) {
272 if (!check_access(xprt
, PMAPPROC_GETPORT
, ®
, PMAPVERS
)) {
273 svcerr_weakauth(xprt
);
279 uaddr
= taddr2uaddr(rpcbind_get_conf(xprt
->xp_netid
),
280 svc_getrpccaller(xprt
));
281 fprintf(stderr
, "PMAP_GETPORT req for (%lu, %lu, %s) from %s :",
282 reg
.pm_prog
, reg
.pm_vers
,
283 reg
.pm_prot
== IPPROTO_UDP
? "udp" : "tcp", uaddr
);
287 fnd
= find_service_pmap(reg
.pm_prog
, reg
.pm_vers
, reg
.pm_prot
);
289 char serveuaddr
[32], *ua
;
290 int h1
, h2
, h3
, h4
, p1
, p2
;
293 if (reg
.pm_prot
== IPPROTO_UDP
) {
297 ua
= tcp_uaddr
; /* To get the len */
303 if (sscanf(ua
, "%d.%d.%d.%d.%d.%d", &h1
, &h2
, &h3
,
304 &h4
, &p1
, &p2
) == 6) {
305 p1
= (fnd
->pml_map
.pm_port
>> 8) & 0xff;
306 p2
= (fnd
->pml_map
.pm_port
) & 0xff;
307 snprintf(serveuaddr
, sizeof serveuaddr
,
308 "%d.%d.%d.%d.%d.%d", h1
, h2
, h3
, h4
, p1
, p2
);
309 if (is_bound(netid
, serveuaddr
)) {
310 port
= fnd
->pml_map
.pm_port
;
311 } else { /* this service is dead; delete it */
312 delete_prog(reg
.pm_prog
);
318 if ((!svc_sendreply(xprt
, (xdrproc_t
) xdr_long
, (caddr_t
)&lport
)) &&
320 fprintf(stderr
, "portmap: svc_sendreply\n");
327 fprintf(stderr
, "port = %d\n", port
);
329 rpcbs_getaddr(RPCBVERS_2_STAT
, reg
.pm_prog
, reg
.pm_vers
,
330 reg
.pm_prot
== IPPROTO_UDP
? udptrans
: tcptrans
,
331 port
? udptrans
: "");
338 pmapproc_dump(struct svc_req
*rqstp __unused
, SVCXPRT
*xprt
)
340 if (!svc_getargs(xprt
, (xdrproc_t
)xdr_void
, NULL
)) {
345 if (!check_access(xprt
, PMAPPROC_DUMP
, NULL
, PMAPVERS
)) {
346 svcerr_weakauth(xprt
);
350 if ((!svc_sendreply(xprt
, (xdrproc_t
) xdr_pmaplist_ptr
,
351 (caddr_t
)&list_pml
)) && debugging
) {
353 fprintf(stderr
, "portmap: svc_sendreply\n");