ypbind.c revision 1.11
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.11 1994/07/16 11:50:58 ws 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 width = getdtablesize(); 379 while(1) { 380 fdsr = svc_fdset; 381 FD_SET(rpcsock, &fdsr); 382 FD_SET(pingsock, &fdsr); 383 tv.tv_sec = 1; 384 tv.tv_usec = 0; 385 386 switch(select(width, &fdsr, NULL, NULL, &tv)) { 387 case 0: 388 checkwork(); 389 break; 390 case -1: 391 perror("select\n"); 392 break; 393 default: 394 if(FD_ISSET(rpcsock, &fdsr)) { 395 FD_CLR(rpcsock, &fdsr); 396 handle_replies(); 397 } 398 if (FD_ISSET(pingsock, &fdsr)) { 399 FD_CLR(pingsock, &fdsr); 400 handle_ping(); 401 } 402 svc_getreqset(&fdsr); 403 if(check) 404 checkwork(); 405 break; 406 } 407 } 408 } 409 410 /* 411 * State transition is done like this: 412 * 413 * STATE EVENT ACTION NEWSTATE TIMEOUT 414 * no binding timeout broadcast no binding 5 sec 415 * no binding answer -- binding 60 sec 416 * binding timeout ping server checking 5 sec 417 * checking timeout ping server + broadcast checking 5 sec 418 * checking answer -- binding 60 sec 419 */ 420 checkwork() 421 { 422 struct _dom_binding *ypdb; 423 time_t t; 424 425 check = 0; 426 427 time(&t); 428 for(ypdb=ypbindlist; ypdb; ypdb=ypdb->dom_pnext) { 429 if(ypdb->dom_check_t < t) { 430 if (ypdb->dom_alive == 1) 431 ping(ypdb); 432 else 433 broadcast(ypdb); 434 time(&t); 435 ypdb->dom_check_t = t + 5; 436 } 437 } 438 } 439 440 ping(ypdb) 441 struct _dom_binding *ypdb; 442 { 443 char *dom = ypdb->dom_domain; 444 struct rpc_msg rpcmsg; 445 char buf[1400]; 446 enum clnt_stat st; 447 int outlen; 448 AUTH *rpcua; 449 XDR rpcxdr; 450 451 bzero((char *)&rpcxdr, sizeof rpcxdr); 452 bzero((char *)&rpcmsg, sizeof rpcmsg); 453 454 rpcua = authunix_create_default(); 455 if( rpcua == (AUTH *)NULL) { 456 /*printf("cannot get unix auth\n");*/ 457 return RPC_SYSTEMERROR; 458 } 459 rpcmsg.rm_direction = CALL; 460 rpcmsg.rm_call.cb_rpcvers = RPC_MSG_VERSION; 461 rpcmsg.rm_call.cb_prog = YPPROG; 462 rpcmsg.rm_call.cb_vers = YPVERS; 463 rpcmsg.rm_call.cb_proc = YPPROC_DOMAIN_NONACK; 464 rpcmsg.rm_call.cb_cred = rpcua->ah_cred; 465 rpcmsg.rm_call.cb_verf = rpcua->ah_verf; 466 467 rpcmsg.rm_xid = (int)dom; 468 xdrmem_create(&rpcxdr, buf, sizeof buf, XDR_ENCODE); 469 if( (!xdr_callmsg(&rpcxdr, &rpcmsg)) ) { 470 st = RPC_CANTENCODEARGS; 471 AUTH_DESTROY(rpcua); 472 return st; 473 } 474 if( (!xdr_domainname(&rpcxdr, dom)) ) { 475 st = RPC_CANTENCODEARGS; 476 AUTH_DESTROY(rpcua); 477 return st; 478 } 479 outlen = (int)xdr_getpos(&rpcxdr); 480 xdr_destroy(&rpcxdr); 481 if(outlen<1) { 482 st = RPC_CANTENCODEARGS; 483 AUTH_DESTROY(rpcua); 484 return st; 485 } 486 AUTH_DESTROY(rpcua); 487 488 ypdb->dom_alive = 2; 489 if (sendto(pingsock, buf, outlen, 0, 490 (struct sockaddr *)&ypdb->dom_server_addr, 491 sizeof ypdb->dom_server_addr) < 0) 492 perror("sendto"); 493 return 0; 494 495 } 496 497 broadcast(ypdb) 498 struct _dom_binding *ypdb; 499 { 500 char *dom = ypdb->dom_domain; 501 struct rpc_msg rpcmsg; 502 char buf[1400], inbuf[8192]; 503 char path[MAXPATHLEN]; 504 enum clnt_stat st; 505 int outlen, i, sock, len; 506 struct sockaddr_in bsin; 507 struct ifconf ifc; 508 struct ifreq ifreq, *ifr; 509 struct in_addr in; 510 AUTH *rpcua; 511 XDR rpcxdr; 512 513 rmtca.xdr_args = xdr_domainname; 514 rmtca.args_ptr = dom; 515 516 bzero((char *)&rpcxdr, sizeof rpcxdr); 517 bzero((char *)&rpcmsg, sizeof rpcmsg); 518 519 rpcua = authunix_create_default(); 520 if( rpcua == (AUTH *)NULL) { 521 /*printf("cannot get unix auth\n");*/ 522 return RPC_SYSTEMERROR; 523 } 524 rpcmsg.rm_direction = CALL; 525 rpcmsg.rm_call.cb_rpcvers = RPC_MSG_VERSION; 526 rpcmsg.rm_call.cb_prog = PMAPPROG; 527 rpcmsg.rm_call.cb_vers = PMAPVERS; 528 rpcmsg.rm_call.cb_proc = PMAPPROC_CALLIT; 529 rpcmsg.rm_call.cb_cred = rpcua->ah_cred; 530 rpcmsg.rm_call.cb_verf = rpcua->ah_verf; 531 532 rpcmsg.rm_xid = (int)dom; 533 xdrmem_create(&rpcxdr, buf, sizeof buf, XDR_ENCODE); 534 if( (!xdr_callmsg(&rpcxdr, &rpcmsg)) ) { 535 st = RPC_CANTENCODEARGS; 536 AUTH_DESTROY(rpcua); 537 return st; 538 } 539 if( (!xdr_rmtcall_args(&rpcxdr, &rmtca)) ) { 540 st = RPC_CANTENCODEARGS; 541 AUTH_DESTROY(rpcua); 542 return st; 543 } 544 outlen = (int)xdr_getpos(&rpcxdr); 545 xdr_destroy(&rpcxdr); 546 if(outlen<1) { 547 st = RPC_CANTENCODEARGS; 548 AUTH_DESTROY(rpcua); 549 return st; 550 } 551 AUTH_DESTROY(rpcua); 552 553 if(ypdb->dom_lockfd!=-1) { 554 close(ypdb->dom_lockfd); 555 ypdb->dom_lockfd = -1; 556 sprintf(path, "%s/%s.%d", BINDINGDIR, 557 ypdb->dom_domain, ypdb->dom_vers); 558 unlink(path); 559 } 560 561 bzero((char *)&bsin, sizeof bsin); 562 bsin.sin_family = AF_INET; 563 bsin.sin_port = htons(PMAPPORT); 564 565 if (ypdb->dom_alive == 2) { 566 /* 567 * This resolves the following situation: 568 * ypserver on other subnet was once bound, 569 * but rebooted and is now using a different port 570 */ 571 bsin.sin_addr = ypdb->dom_server_addr.sin_addr; 572 if (sendto(rpcsock, buf, outlen, 0, (struct sockaddr *)&bsin, 573 sizeof bsin) < 0) 574 perror("sendto"); 575 } 576 /* find all networks and send the RPC packet out them all */ 577 if( (sock = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0) { 578 perror("socket"); 579 return -1; 580 } 581 582 ifc.ifc_len = sizeof inbuf; 583 ifc.ifc_buf = inbuf; 584 if( ioctl(sock, SIOCGIFCONF, &ifc) < 0) { 585 close(sock); 586 perror("ioctl(SIOCGIFCONF)"); 587 return -1; 588 } 589 ifr = ifc.ifc_req; 590 ifreq.ifr_name[0] = '\0'; 591 for(i=0; i<ifc.ifc_len; i+=len, ifr=(struct ifreq *)((caddr_t)ifr+len)) { 592 #if defined(BSD) && BSD >= 199103 593 len = sizeof ifr->ifr_name + ifr->ifr_addr.sa_len; 594 #else 595 len = sizeof ifc.ifc_len / sizeof(struct ifreq); 596 #endif 597 ifreq = *ifr; 598 if( ifreq.ifr_addr.sa_family != AF_INET) 599 continue; 600 if( ioctl(sock, SIOCGIFFLAGS, &ifreq) < 0) { 601 perror("ioctl(SIOCGIFFLAGS)"); 602 continue; 603 } 604 if( (ifreq.ifr_flags & IFF_UP) == 0) 605 continue; 606 607 ifreq.ifr_flags &= (IFF_LOOPBACK | IFF_BROADCAST); 608 if( ifreq.ifr_flags==IFF_BROADCAST ) { 609 if( ioctl(sock, SIOCGIFBRDADDR, &ifreq) < 0 ) { 610 perror("ioctl(SIOCGIFBRDADDR)"); 611 continue; 612 } 613 } else if( ifreq.ifr_flags==IFF_LOOPBACK ) { 614 if( ioctl(sock, SIOCGIFADDR, &ifreq) < 0 ) { 615 perror("ioctl(SIOCGIFADDR)"); 616 continue; 617 } 618 } else 619 continue; 620 621 in = ((struct sockaddr_in *)&ifreq.ifr_addr)->sin_addr; 622 bsin.sin_addr = in; 623 if( sendto(rpcsock, buf, outlen, 0, (struct sockaddr *)&bsin, 624 sizeof bsin) < 0 ) 625 perror("sendto"); 626 } 627 close(sock); 628 return 0; 629 } 630 631 /*enum clnt_stat*/ 632 handle_replies() 633 { 634 char buf[1400]; 635 int fromlen, inlen; 636 struct sockaddr_in raddr; 637 struct rpc_msg msg; 638 XDR xdr; 639 640 recv_again: 641 bzero((char *)&xdr, sizeof(xdr)); 642 bzero((char *)&msg, sizeof(msg)); 643 msg.acpted_rply.ar_verf = _null_auth; 644 msg.acpted_rply.ar_results.where = (caddr_t)&rmtcr; 645 msg.acpted_rply.ar_results.proc = xdr_rmtcallres; 646 647 try_again: 648 fromlen = sizeof (struct sockaddr); 649 inlen = recvfrom(rpcsock, buf, sizeof buf, 0, 650 (struct sockaddr *)&raddr, &fromlen); 651 if(inlen<0) { 652 if(errno==EINTR) 653 goto try_again; 654 return RPC_CANTRECV; 655 } 656 if(inlen<sizeof(u_long)) 657 goto recv_again; 658 659 /* 660 * see if reply transaction id matches sent id. 661 * If so, decode the results. 662 */ 663 xdrmem_create(&xdr, buf, (u_int)inlen, XDR_DECODE); 664 if( xdr_replymsg(&xdr, &msg)) { 665 if( (msg.rm_reply.rp_stat == MSG_ACCEPTED) && 666 (msg.acpted_rply.ar_stat == SUCCESS)) { 667 raddr.sin_port = htons((u_short)rmtcr_port); 668 rpc_received(msg.rm_xid, &raddr, 0); 669 } 670 } 671 xdr.x_op = XDR_FREE; 672 msg.acpted_rply.ar_results.proc = xdr_void; 673 xdr_destroy(&xdr); 674 675 return RPC_SUCCESS; 676 } 677 678 /*enum clnt_stat*/ 679 handle_ping() 680 { 681 char buf[1400]; 682 int fromlen, inlen; 683 struct sockaddr_in raddr; 684 struct rpc_msg msg; 685 XDR xdr; 686 bool_t res; 687 688 recv_again: 689 bzero((char *)&xdr, sizeof(xdr)); 690 bzero((char *)&msg, sizeof(msg)); 691 msg.acpted_rply.ar_verf = _null_auth; 692 msg.acpted_rply.ar_results.where = (caddr_t)&res; 693 msg.acpted_rply.ar_results.proc = xdr_bool; 694 695 try_again: 696 fromlen = sizeof (struct sockaddr); 697 inlen = recvfrom(pingsock, buf, sizeof buf, 0, 698 (struct sockaddr *)&raddr, &fromlen); 699 if(inlen<0) { 700 if(errno==EINTR) 701 goto try_again; 702 return RPC_CANTRECV; 703 } 704 if(inlen<sizeof(u_long)) 705 goto recv_again; 706 707 /* 708 * see if reply transaction id matches sent id. 709 * If so, decode the results. 710 */ 711 xdrmem_create(&xdr, buf, (u_int)inlen, XDR_DECODE); 712 if( xdr_replymsg(&xdr, &msg)) { 713 if( (msg.rm_reply.rp_stat == MSG_ACCEPTED) && 714 (msg.acpted_rply.ar_stat == SUCCESS)) { 715 rpc_received(msg.rm_xid, &raddr, 0); 716 } 717 } 718 xdr.x_op = XDR_FREE; 719 msg.acpted_rply.ar_results.proc = xdr_void; 720 xdr_destroy(&xdr); 721 722 return RPC_SUCCESS; 723 } 724 725 /* 726 * LOOPBACK IS MORE IMPORTANT: PUT IN HACK 727 */ 728 rpc_received(dom, raddrp, force) 729 char *dom; 730 struct sockaddr_in *raddrp; 731 int force; 732 { 733 struct _dom_binding *ypdb; 734 struct iovec iov[2]; 735 struct ypbind_resp ybr; 736 char path[MAXPATHLEN]; 737 int fd; 738 739 /*printf("returned from %s about %s\n", inet_ntoa(raddrp->sin_addr), dom);*/ 740 741 if(dom==NULL) 742 return; 743 744 for(ypdb=ypbindlist; ypdb; ypdb=ypdb->dom_pnext) 745 if( strcmp(ypdb->dom_domain, dom) == 0) 746 break; 747 748 if(ypdb==NULL) { 749 if(force==0) 750 return; 751 ypdb = (struct _dom_binding *)malloc(sizeof *ypdb); 752 bzero((char *)ypdb, sizeof *ypdb); 753 strncpy(ypdb->dom_domain, dom, sizeof ypdb->dom_domain); 754 ypdb->dom_lockfd = -1; 755 ypdb->dom_pnext = ypbindlist; 756 ypbindlist = ypdb; 757 } 758 759 /* soft update, alive */ 760 if(ypdb->dom_alive==1 && force==0) { 761 if (bcmp((char *)raddrp, (char *)&ypdb->dom_server_addr, 762 sizeof ypdb->dom_server_addr) == 0) { 763 ypdb->dom_alive = 1; 764 ypdb->dom_check_t = time(NULL) + 60; /* recheck binding in 60 sec */ 765 } 766 return; 767 } 768 769 bcopy((char *)raddrp, (char *)&ypdb->dom_server_addr, 770 sizeof ypdb->dom_server_addr); 771 ypdb->dom_check_t = time(NULL) + 60; /* recheck binding in 60 seconds */ 772 ypdb->dom_vers = YPVERS; 773 ypdb->dom_alive = 1; 774 775 if(ypdb->dom_lockfd != -1) 776 close(ypdb->dom_lockfd); 777 778 sprintf(path, "%s/%s.%d", BINDINGDIR, 779 ypdb->dom_domain, ypdb->dom_vers); 780 #ifdef O_SHLOCK 781 if( (fd=open(path, O_CREAT|O_SHLOCK|O_RDWR|O_TRUNC, 0644)) == -1) { 782 (void)mkdir(BINDINGDIR, 0755); 783 if( (fd=open(path, O_CREAT|O_SHLOCK|O_RDWR|O_TRUNC, 0644)) == -1) 784 return; 785 } 786 #else 787 if( (fd=open(path, O_CREAT|O_RDWR|O_TRUNC, 0644)) == -1) { 788 (void)mkdir(BINDINGDIR, 0755); 789 if( (fd=open(path, O_CREAT|O_RDWR|O_TRUNC, 0644)) == -1) 790 return; 791 } 792 flock(fd, LOCK_SH); 793 #endif 794 795 /* 796 * ok, if BINDINGDIR exists, and we can create the binding file, 797 * then write to it.. 798 */ 799 ypdb->dom_lockfd = fd; 800 801 iov[0].iov_base = (caddr_t)&(udptransp->xp_port); 802 iov[0].iov_len = sizeof udptransp->xp_port; 803 iov[1].iov_base = (caddr_t)&ybr; 804 iov[1].iov_len = sizeof ybr; 805 806 bzero(&ybr, sizeof ybr); 807 ybr.ypbind_status = YPBIND_SUCC_VAL; 808 ybr.ypbind_respbody.ypbind_bindinfo.ypbind_binding_addr = raddrp->sin_addr; 809 ybr.ypbind_respbody.ypbind_bindinfo.ypbind_binding_port = raddrp->sin_port; 810 811 if( writev(ypdb->dom_lockfd, iov, 2) != iov[0].iov_len + iov[1].iov_len) { 812 perror("write"); 813 close(ypdb->dom_lockfd); 814 unlink(path); 815 ypdb->dom_lockfd = -1; 816 return; 817 } 818 } 819
Indexes created Tue Sep 30 20:09:53 GMT 2025