ypbind.c revision 1.12
1 /* 2 * Copyright (c) 1992, 1993 Theo de Raadt <deraadt (at) fsa.ca> 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 3. All advertising materials mentioning features or use of this software 14 * must display the following acknowledgement: 15 * This product includes software developed by Theo de Raadt. 16 * 4. The name of the author may not be used to endorse or promote 17 * products derived from this software without specific prior written 18 * permission. 19 * 20 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS 21 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 22 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 23 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY 24 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 30 * SUCH DAMAGE. 31 */ 32 33 #ifndef LINT 34 static char rcsid[] = "$Id: ypbind.c,v 1.12 1994/09/20 07:21:46 deraadt Exp $"; 35 #endif 36 37 #include <sys/param.h> 38 #include <sys/types.h> 39 #include <sys/ioctl.h> 40 #include <sys/signal.h> 41 #include <sys/socket.h> 42 #include <sys/file.h> 43 #include <sys/fcntl.h> 44 #include <sys/uio.h> 45 #include <sys/syslog.h> 46 #include <stdio.h> 47 #include <errno.h> 48 #include <ctype.h> 49 #include <dirent.h> 50 #include <netdb.h> 51 #include <string.h> 52 #include <rpc/rpc.h> 53 #include <rpc/xdr.h> 54 #include <net/if.h> 55 #include <arpa/inet.h> 56 #include <rpc/pmap_clnt.h> 57 #include <rpc/pmap_prot.h> 58 #include <rpc/pmap_rmt.h> 59 #include <unistd.h> 60 #include <rpcsvc/yp_prot.h> 61 #include <rpcsvc/ypclnt.h> 62 63 #ifndef BINDINGDIR 64 #define BINDINGDIR "/var/yp/binding" 65 #endif 66 67 struct _dom_binding { 68 struct _dom_binding *dom_pnext; 69 char dom_domain[YPMAXDOMAIN + 1]; 70 struct sockaddr_in dom_server_addr; 71 unsigned short int dom_server_port; 72 int dom_socket; 73 CLIENT *dom_client; 74 long int dom_vers; 75 time_t dom_check_t; 76 time_t dom_ask_t; 77 int dom_lockfd; 78 int dom_alive; 79 }; 80 81 extern bool_t xdr_domainname(), xdr_ypbind_resp(); 82 extern bool_t xdr_ypreq_key(), xdr_ypresp_val(); 83 extern bool_t xdr_ypbind_setdom(); 84 85 char *domainname; 86 87 struct _dom_binding *ypbindlist; 88 int check; 89 90 #define YPSET_NO 0 91 #define YPSET_LOCAL 1 92 #define YPSET_ALL 2 93 int ypsetmode = YPSET_NO; 94 95 int rpcsock, pingsock; 96 struct rmtcallargs rmtca; 97 struct rmtcallres rmtcr; 98 char rmtcr_outval; 99 u_long rmtcr_port; 100 SVCXPRT *udptransp, *tcptransp; 101 102 void * 103 ypbindproc_null_2(transp, argp, clnt) 104 SVCXPRT *transp; 105 void *argp; 106 CLIENT *clnt; 107 { 108 static char res; 109 110 bzero((char *)&res, sizeof(res)); 111 return (void *)&res; 112 } 113 114 struct ypbind_resp * 115 ypbindproc_domain_2(transp, argp, clnt) 116 SVCXPRT *transp; 117 char *argp; 118 CLIENT *clnt; 119 { 120 static struct ypbind_resp res; 121 struct _dom_binding *ypdb; 122 char path[MAXPATHLEN]; 123 time_t now; 124 125 bzero((char *)&res, sizeof res); 126 res.ypbind_status = YPBIND_FAIL_VAL; 127 128 for(ypdb=ypbindlist; ypdb; ypdb=ypdb->dom_pnext) 129 if( strcmp(ypdb->dom_domain, argp) == 0) 130 break; 131 132 if(ypdb==NULL) { 133 ypdb = (struct _dom_binding *)malloc(sizeof *ypdb); 134 bzero((char *)ypdb, sizeof *ypdb); 135 strncpy(ypdb->dom_domain, argp, sizeof ypdb->dom_domain); 136 ypdb->dom_vers = YPVERS; 137 ypdb->dom_alive = 0; 138 ypdb->dom_lockfd = -1; 139 sprintf(path, "%s/%s.%d", BINDINGDIR, ypdb->dom_domain, ypdb->dom_vers); 140 unlink(path); 141 ypdb->dom_pnext = ypbindlist; 142 ypbindlist = ypdb; 143 check++; 144 return NULL; 145 } 146 147 if(ypdb->dom_alive==0) 148 return NULL; 149 150 #ifdef HEURISTIC 151 time(&now); 152 if (now < ypdb->dom_ask_t + 5) { 153 /* 154 * Hmm. More than 2 requests in 5 seconds have indicated 155 * that my binding is possibly incorrect. 156 * Ok, do an immediate poll of the server. 157 */ 158 if (ypdb->dom_check_t >= now) { 159 /* don't flood it */ 160 ypdb->dom_check_t = 0; 161 check++; 162 } 163 } 164 ypdb->dom_ask_t = now; 165 #endif 166 167 answer: 168 res.ypbind_status = YPBIND_SUCC_VAL; 169 res.ypbind_respbody.ypbind_bindinfo.ypbind_binding_addr.s_addr = 170 ypdb->dom_server_addr.sin_addr.s_addr; 171 res.ypbind_respbody.ypbind_bindinfo.ypbind_binding_port = 172 ypdb->dom_server_port; 173 /*printf("domain %s at %s/%d\n", ypdb->dom_domain, 174 inet_ntoa(ypdb->dom_server_addr.sin_addr), 175 ntohs(ypdb->dom_server_addr.sin_port));*/ 176 return &res; 177 } 178 179 bool_t * 180 ypbindproc_setdom_2(transp, argp, clnt) 181 SVCXPRT *transp; 182 struct ypbind_setdom *argp; 183 CLIENT *clnt; 184 { 185 struct sockaddr_in *fromsin, bindsin; 186 char res; 187 188 bzero((char *)&res, sizeof(res)); 189 fromsin = svc_getcaller(transp); 190 191 switch(ypsetmode) { 192 case YPSET_LOCAL: 193 if( fromsin->sin_addr.s_addr != htonl(INADDR_LOOPBACK)) 194 return (void *)NULL; 195 break; 196 case YPSET_ALL: 197 break; 198 case YPSET_NO: 199 default: 200 return (void *)NULL; 201 } 202 203 if(ntohs(fromsin->sin_port) >= IPPORT_RESERVED) 204 return (void *)&res; 205 206 if(argp->ypsetdom_vers != YPVERS) 207 return (void *)&res; 208 209 bzero((char *)&bindsin, sizeof bindsin); 210 bindsin.sin_family = AF_INET; 211 bindsin.sin_addr.s_addr = argp->ypsetdom_addr.s_addr; 212 bindsin.sin_port = argp->ypsetdom_port; 213 rpc_received(argp->ypsetdom_domain, &bindsin, 1); 214 215 res = 1; 216 return (void *)&res; 217 } 218 219 static void 220 ypbindprog_2(rqstp, transp) 221 struct svc_req *rqstp; 222 register SVCXPRT *transp; 223 { 224 union { 225 char ypbindproc_domain_2_arg[MAXHOSTNAMELEN]; 226 struct ypbind_setdom ypbindproc_setdom_2_arg; 227 } argument; 228 struct authunix_parms *creds; 229 char *result; 230 bool_t (*xdr_argument)(), (*xdr_result)(); 231 char *(*local)(); 232 233 switch (rqstp->rq_proc) { 234 case YPBINDPROC_NULL: 235 xdr_argument = xdr_void; 236 xdr_result = xdr_void; 237 local = (char *(*)()) ypbindproc_null_2; 238 break; 239 240 case YPBINDPROC_DOMAIN: 241 xdr_argument = xdr_domainname; 242 xdr_result = xdr_ypbind_resp; 243 local = (char *(*)()) ypbindproc_domain_2; 244 break; 245 246 case YPBINDPROC_SETDOM: 247 switch(rqstp->rq_cred.oa_flavor) { 248 case AUTH_UNIX: 249 creds = (struct authunix_parms *)rqstp->rq_clntcred; 250 if( creds->aup_uid != 0) { 251 svcerr_auth(transp, AUTH_BADCRED); 252 return; 253 } 254 break; 255 default: 256 svcerr_auth(transp, AUTH_TOOWEAK); 257 return; 258 } 259 260 xdr_argument = xdr_ypbind_setdom; 261 xdr_result = xdr_void; 262 local = (char *(*)()) ypbindproc_setdom_2; 263 break; 264 265 default: 266 svcerr_noproc(transp); 267 return; 268 } 269 bzero((char *)&argument, sizeof(argument)); 270 if (!svc_getargs(transp, xdr_argument, &argument)) { 271 svcerr_decode(transp); 272 return; 273 } 274 result = (*local)(transp, &argument, rqstp); 275 if (result != NULL && !svc_sendreply(transp, xdr_result, result)) { 276 svcerr_systemerr(transp); 277 } 278 return; 279 } 280 281 main(argc, argv) 282 char **argv; 283 { 284 char path[MAXPATHLEN]; 285 struct timeval tv; 286 fd_set fdsr; 287 int width; 288 int i; 289 290 yp_get_default_domain(&domainname); 291 if( domainname[0] == '\0') { 292 fprintf(stderr, "domainname not set. Aborting.\n"); 293 exit(1); 294 } 295 296 for(i=1; i<argc; i++) { 297 if( strcmp("-ypset", argv[i]) == 0) 298 ypsetmode = YPSET_ALL; 299 else if (strcmp("-ypsetme", argv[i]) == 0) 300 ypsetmode = YPSET_LOCAL; 301 } 302 303 /* blow away everything in BINDINGDIR */ 304 305 306 307 #ifdef DAEMON 308 switch(fork()) { 309 case 0: 310 break; 311 case -1: 312 perror("fork"); 313 exit(1); 314 default: 315 exit(0); 316 } 317 setsid(); 318 #endif 319 320 pmap_unset(YPBINDPROG, YPBINDVERS); 321 322 udptransp = svcudp_create(RPC_ANYSOCK); 323 if (udptransp == NULL) { 324 fprintf(stderr, "cannot create udp service."); 325 exit(1); 326 } 327 if (!svc_register(udptransp, YPBINDPROG, YPBINDVERS, ypbindprog_2, 328 IPPROTO_UDP)) { 329 fprintf(stderr, "unable to register (YPBINDPROG, YPBINDVERS, udp)."); 330 exit(1); 331 } 332 333 tcptransp = svctcp_create(RPC_ANYSOCK, 0, 0); 334 if (tcptransp == NULL) { 335 fprintf(stderr, "cannot create tcp service."); 336 exit(1); 337 } 338 339 if (!svc_register(tcptransp, YPBINDPROG, YPBINDVERS, ypbindprog_2, 340 IPPROTO_TCP)) { 341 fprintf(stderr, "unable to register (YPBINDPROG, YPBINDVERS, tcp)."); 342 exit(1); 343 } 344 345 if( (rpcsock=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0) { 346 perror("socket"); 347 return -1; 348 } 349 if( (pingsock=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0) { 350 perror("socket"); 351 return -1; 352 } 353 354 fcntl(rpcsock, F_SETFL, fcntl(rpcsock, F_GETFL, 0) | FNDELAY); 355 fcntl(pingsock, F_SETFL, fcntl(rpcsock, F_GETFL, 0) | FNDELAY); 356 i = 1; 357 setsockopt(rpcsock, SOL_SOCKET, SO_BROADCAST, &i, sizeof(i)); 358 rmtca.prog = YPPROG; 359 rmtca.vers = YPVERS; 360 rmtca.proc = YPPROC_DOMAIN_NONACK; 361 rmtca.xdr_args = NULL; /* set at call time */ 362 rmtca.args_ptr = NULL; /* set at call time */ 363 rmtcr.port_ptr = &rmtcr_port; 364 rmtcr.xdr_results = xdr_bool; 365 rmtcr.results_ptr = (caddr_t)&rmtcr_outval; 366 367 /* build initial domain binding, make it "unsuccessful" */ 368 ypbindlist = (struct _dom_binding *)malloc(sizeof *ypbindlist); 369 bzero((char *)ypbindlist, sizeof *ypbindlist); 370 strncpy(ypbindlist->dom_domain, domainname, sizeof ypbindlist->dom_domain); 371 ypbindlist->dom_vers = YPVERS; 372 ypbindlist->dom_alive = 0; 373 ypbindlist->dom_lockfd = -1; 374 sprintf(path, "%s/%s.%d", BINDINGDIR, ypbindlist->dom_domain, 375 ypbindlist->dom_vers); 376 (void)unlink(path); 377 378 checkwork(); 379 380 width = getdtablesize(); 381 while(1) { 382 fdsr = svc_fdset; 383 FD_SET(rpcsock, &fdsr); 384 FD_SET(pingsock, &fdsr); 385 tv.tv_sec = 1; 386 tv.tv_usec = 0; 387 388 switch(select(width, &fdsr, NULL, NULL, &tv)) { 389 case 0: 390 checkwork(); 391 break; 392 case -1: 393 perror("select\n"); 394 break; 395 default: 396 if(FD_ISSET(rpcsock, &fdsr)) { 397 FD_CLR(rpcsock, &fdsr); 398 handle_replies(); 399 } 400 if (FD_ISSET(pingsock, &fdsr)) { 401 FD_CLR(pingsock, &fdsr); 402 handle_ping(); 403 } 404 svc_getreqset(&fdsr); 405 if(check) 406 checkwork(); 407 break; 408 } 409 } 410 } 411 412 /* 413 * State transition is done like this: 414 * 415 * STATE EVENT ACTION NEWSTATE TIMEOUT 416 * no binding timeout broadcast no binding 5 sec 417 * no binding answer -- binding 60 sec 418 * binding timeout ping server checking 5 sec 419 * checking timeout ping server + broadcast checking 5 sec 420 * checking answer -- binding 60 sec 421 */ 422 checkwork() 423 { 424 struct _dom_binding *ypdb; 425 time_t t; 426 427 check = 0; 428 429 time(&t); 430 for(ypdb=ypbindlist; ypdb; ypdb=ypdb->dom_pnext) { 431 if(ypdb->dom_check_t < t) { 432 if (ypdb->dom_alive == 1) 433 ping(ypdb); 434 else 435 broadcast(ypdb); 436 time(&t); 437 ypdb->dom_check_t = t + 5; 438 } 439 } 440 } 441 442 ping(ypdb) 443 struct _dom_binding *ypdb; 444 { 445 char *dom = ypdb->dom_domain; 446 struct rpc_msg rpcmsg; 447 char buf[1400]; 448 enum clnt_stat st; 449 int outlen; 450 AUTH *rpcua; 451 XDR rpcxdr; 452 453 bzero((char *)&rpcxdr, sizeof rpcxdr); 454 bzero((char *)&rpcmsg, sizeof rpcmsg); 455 456 rpcua = authunix_create_default(); 457 if( rpcua == (AUTH *)NULL) { 458 /*printf("cannot get unix auth\n");*/ 459 return RPC_SYSTEMERROR; 460 } 461 rpcmsg.rm_direction = CALL; 462 rpcmsg.rm_call.cb_rpcvers = RPC_MSG_VERSION; 463 rpcmsg.rm_call.cb_prog = YPPROG; 464 rpcmsg.rm_call.cb_vers = YPVERS; 465 rpcmsg.rm_call.cb_proc = YPPROC_DOMAIN_NONACK; 466 rpcmsg.rm_call.cb_cred = rpcua->ah_cred; 467 rpcmsg.rm_call.cb_verf = rpcua->ah_verf; 468 469 rpcmsg.rm_xid = (int)dom; 470 xdrmem_create(&rpcxdr, buf, sizeof buf, XDR_ENCODE); 471 if( (!xdr_callmsg(&rpcxdr, &rpcmsg)) ) { 472 st = RPC_CANTENCODEARGS; 473 AUTH_DESTROY(rpcua); 474 return st; 475 } 476 if( (!xdr_domainname(&rpcxdr, dom)) ) { 477 st = RPC_CANTENCODEARGS; 478 AUTH_DESTROY(rpcua); 479 return st; 480 } 481 outlen = (int)xdr_getpos(&rpcxdr); 482 xdr_destroy(&rpcxdr); 483 if(outlen<1) { 484 st = RPC_CANTENCODEARGS; 485 AUTH_DESTROY(rpcua); 486 return st; 487 } 488 AUTH_DESTROY(rpcua); 489 490 ypdb->dom_alive = 2; 491 if (sendto(pingsock, buf, outlen, 0, 492 (struct sockaddr *)&ypdb->dom_server_addr, 493 sizeof ypdb->dom_server_addr) < 0) 494 perror("sendto"); 495 return 0; 496 497 } 498 499 broadcast(ypdb) 500 struct _dom_binding *ypdb; 501 { 502 char *dom = ypdb->dom_domain; 503 struct rpc_msg rpcmsg; 504 char buf[1400], inbuf[8192]; 505 char path[MAXPATHLEN]; 506 enum clnt_stat st; 507 int outlen, i, sock, len; 508 struct sockaddr_in bsin; 509 struct ifconf ifc; 510 struct ifreq ifreq, *ifr; 511 struct in_addr in; 512 AUTH *rpcua; 513 XDR rpcxdr; 514 515 rmtca.xdr_args = xdr_domainname; 516 rmtca.args_ptr = dom; 517 518 bzero((char *)&rpcxdr, sizeof rpcxdr); 519 bzero((char *)&rpcmsg, sizeof rpcmsg); 520 521 rpcua = authunix_create_default(); 522 if( rpcua == (AUTH *)NULL) { 523 /*printf("cannot get unix auth\n");*/ 524 return RPC_SYSTEMERROR; 525 } 526 rpcmsg.rm_direction = CALL; 527 rpcmsg.rm_call.cb_rpcvers = RPC_MSG_VERSION; 528 rpcmsg.rm_call.cb_prog = PMAPPROG; 529 rpcmsg.rm_call.cb_vers = PMAPVERS; 530 rpcmsg.rm_call.cb_proc = PMAPPROC_CALLIT; 531 rpcmsg.rm_call.cb_cred = rpcua->ah_cred; 532 rpcmsg.rm_call.cb_verf = rpcua->ah_verf; 533 534 rpcmsg.rm_xid = (int)dom; 535 xdrmem_create(&rpcxdr, buf, sizeof buf, XDR_ENCODE); 536 if( (!xdr_callmsg(&rpcxdr, &rpcmsg)) ) { 537 st = RPC_CANTENCODEARGS; 538 AUTH_DESTROY(rpcua); 539 return st; 540 } 541 if( (!xdr_rmtcall_args(&rpcxdr, &rmtca)) ) { 542 st = RPC_CANTENCODEARGS; 543 AUTH_DESTROY(rpcua); 544 return st; 545 } 546 outlen = (int)xdr_getpos(&rpcxdr); 547 xdr_destroy(&rpcxdr); 548 if(outlen<1) { 549 st = RPC_CANTENCODEARGS; 550 AUTH_DESTROY(rpcua); 551 return st; 552 } 553 AUTH_DESTROY(rpcua); 554 555 if(ypdb->dom_lockfd!=-1) { 556 close(ypdb->dom_lockfd); 557 ypdb->dom_lockfd = -1; 558 sprintf(path, "%s/%s.%d", BINDINGDIR, 559 ypdb->dom_domain, ypdb->dom_vers); 560 unlink(path); 561 } 562 563 bzero((char *)&bsin, sizeof bsin); 564 bsin.sin_family = AF_INET; 565 bsin.sin_port = htons(PMAPPORT); 566 567 if (ypdb->dom_alive == 2) { 568 /* 569 * This resolves the following situation: 570 * ypserver on other subnet was once bound, 571 * but rebooted and is now using a different port 572 */ 573 bsin.sin_addr = ypdb->dom_server_addr.sin_addr; 574 if (sendto(rpcsock, buf, outlen, 0, (struct sockaddr *)&bsin, 575 sizeof bsin) < 0) 576 perror("sendto"); 577 } 578 /* find all networks and send the RPC packet out them all */ 579 if( (sock = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0) { 580 perror("socket"); 581 return -1; 582 } 583 584 ifc.ifc_len = sizeof inbuf; 585 ifc.ifc_buf = inbuf; 586 if( ioctl(sock, SIOCGIFCONF, &ifc) < 0) { 587 close(sock); 588 perror("ioctl(SIOCGIFCONF)"); 589 return -1; 590 } 591 ifr = ifc.ifc_req; 592 ifreq.ifr_name[0] = '\0'; 593 for(i=0; i<ifc.ifc_len; i+=len, ifr=(struct ifreq *)((caddr_t)ifr+len)) { 594 #if defined(BSD) && BSD >= 199103 595 len = sizeof ifr->ifr_name + ifr->ifr_addr.sa_len; 596 #else 597 len = sizeof ifc.ifc_len / sizeof(struct ifreq); 598 #endif 599 ifreq = *ifr; 600 if( ifreq.ifr_addr.sa_family != AF_INET) 601 continue; 602 if( ioctl(sock, SIOCGIFFLAGS, &ifreq) < 0) { 603 perror("ioctl(SIOCGIFFLAGS)"); 604 continue; 605 } 606 if( (ifreq.ifr_flags & IFF_UP) == 0) 607 continue; 608 609 ifreq.ifr_flags &= (IFF_LOOPBACK | IFF_BROADCAST); 610 if( ifreq.ifr_flags==IFF_BROADCAST ) { 611 if( ioctl(sock, SIOCGIFBRDADDR, &ifreq) < 0 ) { 612 perror("ioctl(SIOCGIFBRDADDR)"); 613 continue; 614 } 615 } else if( ifreq.ifr_flags==IFF_LOOPBACK ) { 616 if( ioctl(sock, SIOCGIFADDR, &ifreq) < 0 ) { 617 perror("ioctl(SIOCGIFADDR)"); 618 continue; 619 } 620 } else 621 continue; 622 623 in = ((struct sockaddr_in *)&ifreq.ifr_addr)->sin_addr; 624 bsin.sin_addr = in; 625 if( sendto(rpcsock, buf, outlen, 0, (struct sockaddr *)&bsin, 626 sizeof bsin) < 0 ) 627 perror("sendto"); 628 } 629 close(sock); 630 return 0; 631 } 632 633 /*enum clnt_stat*/ 634 handle_replies() 635 { 636 char buf[1400]; 637 int fromlen, inlen; 638 struct sockaddr_in raddr; 639 struct rpc_msg msg; 640 XDR xdr; 641 642 recv_again: 643 bzero((char *)&xdr, sizeof(xdr)); 644 bzero((char *)&msg, sizeof(msg)); 645 msg.acpted_rply.ar_verf = _null_auth; 646 msg.acpted_rply.ar_results.where = (caddr_t)&rmtcr; 647 msg.acpted_rply.ar_results.proc = xdr_rmtcallres; 648 649 try_again: 650 fromlen = sizeof (struct sockaddr); 651 inlen = recvfrom(rpcsock, buf, sizeof buf, 0, 652 (struct sockaddr *)&raddr, &fromlen); 653 if(inlen<0) { 654 if(errno==EINTR) 655 goto try_again; 656 return RPC_CANTRECV; 657 } 658 if(inlen<sizeof(u_long)) 659 goto recv_again; 660 661 /* 662 * see if reply transaction id matches sent id. 663 * If so, decode the results. 664 */ 665 xdrmem_create(&xdr, buf, (u_int)inlen, XDR_DECODE); 666 if( xdr_replymsg(&xdr, &msg)) { 667 if( (msg.rm_reply.rp_stat == MSG_ACCEPTED) && 668 (msg.acpted_rply.ar_stat == SUCCESS)) { 669 raddr.sin_port = htons((u_short)rmtcr_port); 670 rpc_received(msg.rm_xid, &raddr, 0); 671 } 672 } 673 xdr.x_op = XDR_FREE; 674 msg.acpted_rply.ar_results.proc = xdr_void; 675 xdr_destroy(&xdr); 676 677 return RPC_SUCCESS; 678 } 679 680 /*enum clnt_stat*/ 681 handle_ping() 682 { 683 char buf[1400]; 684 int fromlen, inlen; 685 struct sockaddr_in raddr; 686 struct rpc_msg msg; 687 XDR xdr; 688 bool_t res; 689 690 recv_again: 691 bzero((char *)&xdr, sizeof(xdr)); 692 bzero((char *)&msg, sizeof(msg)); 693 msg.acpted_rply.ar_verf = _null_auth; 694 msg.acpted_rply.ar_results.where = (caddr_t)&res; 695 msg.acpted_rply.ar_results.proc = xdr_bool; 696 697 try_again: 698 fromlen = sizeof (struct sockaddr); 699 inlen = recvfrom(pingsock, buf, sizeof buf, 0, 700 (struct sockaddr *)&raddr, &fromlen); 701 if(inlen<0) { 702 if(errno==EINTR) 703 goto try_again; 704 return RPC_CANTRECV; 705 } 706 if(inlen<sizeof(u_long)) 707 goto recv_again; 708 709 /* 710 * see if reply transaction id matches sent id. 711 * If so, decode the results. 712 */ 713 xdrmem_create(&xdr, buf, (u_int)inlen, XDR_DECODE); 714 if( xdr_replymsg(&xdr, &msg)) { 715 if( (msg.rm_reply.rp_stat == MSG_ACCEPTED) && 716 (msg.acpted_rply.ar_stat == SUCCESS)) { 717 rpc_received(msg.rm_xid, &raddr, 0); 718 } 719 } 720 xdr.x_op = XDR_FREE; 721 msg.acpted_rply.ar_results.proc = xdr_void; 722 xdr_destroy(&xdr); 723 724 return RPC_SUCCESS; 725 } 726 727 /* 728 * LOOPBACK IS MORE IMPORTANT: PUT IN HACK 729 */ 730 rpc_received(dom, raddrp, force) 731 char *dom; 732 struct sockaddr_in *raddrp; 733 int force; 734 { 735 struct _dom_binding *ypdb; 736 struct iovec iov[2]; 737 struct ypbind_resp ybr; 738 char path[MAXPATHLEN]; 739 int fd; 740 741 /*printf("returned from %s about %s\n", inet_ntoa(raddrp->sin_addr), dom);*/ 742 743 if(dom==NULL) 744 return; 745 746 for(ypdb=ypbindlist; ypdb; ypdb=ypdb->dom_pnext) 747 if( strcmp(ypdb->dom_domain, dom) == 0) 748 break; 749 750 if(ypdb==NULL) { 751 if(force==0) 752 return; 753 ypdb = (struct _dom_binding *)malloc(sizeof *ypdb); 754 bzero((char *)ypdb, sizeof *ypdb); 755 strncpy(ypdb->dom_domain, dom, sizeof ypdb->dom_domain); 756 ypdb->dom_lockfd = -1; 757 ypdb->dom_pnext = ypbindlist; 758 ypbindlist = ypdb; 759 } 760 761 /* soft update, alive */ 762 if(ypdb->dom_alive==1 && force==0) { 763 if (bcmp((char *)raddrp, (char *)&ypdb->dom_server_addr, 764 sizeof ypdb->dom_server_addr) == 0) { 765 ypdb->dom_alive = 1; 766 ypdb->dom_check_t = time(NULL) + 60; /* recheck binding in 60 sec */ 767 } 768 return; 769 } 770 771 bcopy((char *)raddrp, (char *)&ypdb->dom_server_addr, 772 sizeof ypdb->dom_server_addr); 773 ypdb->dom_check_t = time(NULL) + 60; /* recheck binding in 60 seconds */ 774 ypdb->dom_vers = YPVERS; 775 ypdb->dom_alive = 1; 776 777 if(ypdb->dom_lockfd != -1) 778 close(ypdb->dom_lockfd); 779 780 sprintf(path, "%s/%s.%d", BINDINGDIR, 781 ypdb->dom_domain, ypdb->dom_vers); 782 #ifdef O_SHLOCK 783 if( (fd=open(path, O_CREAT|O_SHLOCK|O_RDWR|O_TRUNC, 0644)) == -1) { 784 (void)mkdir(BINDINGDIR, 0755); 785 if( (fd=open(path, O_CREAT|O_SHLOCK|O_RDWR|O_TRUNC, 0644)) == -1) 786 return; 787 } 788 #else 789 if( (fd=open(path, O_CREAT|O_RDWR|O_TRUNC, 0644)) == -1) { 790 (void)mkdir(BINDINGDIR, 0755); 791 if( (fd=open(path, O_CREAT|O_RDWR|O_TRUNC, 0644)) == -1) 792 return; 793 } 794 flock(fd, LOCK_SH); 795 #endif 796 797 /* 798 * ok, if BINDINGDIR exists, and we can create the binding file, 799 * then write to it.. 800 */ 801 ypdb->dom_lockfd = fd; 802 803 iov[0].iov_base = (caddr_t)&(udptransp->xp_port); 804 iov[0].iov_len = sizeof udptransp->xp_port; 805 iov[1].iov_base = (caddr_t)&ybr; 806 iov[1].iov_len = sizeof ybr; 807 808 bzero(&ybr, sizeof ybr); 809 ybr.ypbind_status = YPBIND_SUCC_VAL; 810 ybr.ypbind_respbody.ypbind_bindinfo.ypbind_binding_addr = raddrp->sin_addr; 811 ybr.ypbind_respbody.ypbind_bindinfo.ypbind_binding_port = raddrp->sin_port; 812 813 if( writev(ypdb->dom_lockfd, iov, 2) != iov[0].iov_len + iov[1].iov_len) { 814 perror("write"); 815 close(ypdb->dom_lockfd); 816 unlink(path); 817 ypdb->dom_lockfd = -1; 818 return; 819 } 820 } 821
Indexes created Tue Sep 30 20:09:53 GMT 2025