#include <sys/param.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <ctype.h>
#include <err.h>
#include <netdb.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <rpc/rpc.h>
#include <rpc/xdr.h>
#include <rpcsvc/yp.h>
#include <rpcsvc/ypclnt.h>
#include "yplib_host.h"
static const struct ypalias {
char *alias, *name;
} ypaliases[] = {
{ "passwd", "passwd.byname" },
{ "master.passwd", "master.passwd.byname" },
{ "shadow", "shadow.byname" },
{ "group", "group.byname" },
{ "networks", "networks.byaddr" },
{ "hosts", "hosts.byaddr" },
{ "protocols", "protocols.bynumber" },
{ "services", "services.byname" },
{ "aliases", "mail.aliases" },
{ "ethers", "ethers.byname" },
};
static void
usage(void)
{
fprintf(stderr,
"usage: ypwhich [-t] [-d domain] [[-h] host]\n"
" ypwhich [-t] [-d domain] [-h host] -m [mname]\n"
" ypwhich -x\n");
exit(1);
}
static int
bind_host(char *dom, struct sockaddr_in *sin)
{
struct hostent *hent = NULL;
struct ypbind_resp ypbr;
struct in_addr ss_addr;
struct timeval tv;
CLIENT *client;
int sock, r;
sock = RPC_ANYSOCK;
tv.tv_sec = 15;
tv.tv_usec = 0;
client = clntudp_create(sin, YPBINDPROG, YPBINDVERS, tv, &sock);
if (client == NULL) {
warnx("host is not bound to a ypmaster");
return (YPERR_YPBIND);
}
tv.tv_sec = 5;
tv.tv_usec = 0;
r = clnt_call(client, YPBINDPROC_DOMAIN,
(xdrproc_t)xdr_domainname, &dom,
(xdrproc_t)xdr_ypbind_resp, &ypbr, tv);
if (r != RPC_SUCCESS) {
warnx("can't clnt_call: %s", yperr_string(YPERR_YPBIND));
clnt_destroy(client);
return (YPERR_YPBIND);
} else {
if (ypbr.ypbind_status != YPBIND_SUCC_VAL) {
warnx("can't yp_bind: reason: %s",
yperr_string(ypbr.ypbind_status));
clnt_destroy(client);
return (r);
}
}
clnt_destroy(client);
memmove(&ss_addr.s_addr, &ypbr.ypbind_resp_u.ypbind_bindinfo.ypbind_binding_addr,
sizeof (ss_addr));
hent = gethostbyaddr((char *)&ss_addr.s_addr, sizeof(ss_addr.s_addr),
AF_INET);
if (hent != NULL)
printf("%s\n", hent->h_name);
else
printf("%s\n", inet_ntoa(ss_addr));
return (0);
}
int
main(int argc, char *argv[])
{
char *domain, *master, *map = NULL, *host = NULL;
int notrans = 0, mode = 0, c, r, i;
struct ypmaplist *ypml, *y;
struct sockaddr_in sin;
struct hostent *hent;
CLIENT *client = NULL;
yp_get_default_domain(&domain);
if (domain == NULL)
errx(1, "YP domain name not set");
while ((c = getopt(argc, argv, "xd:h:mt")) != -1)
switch (c) {
case 'x':
for (i = 0; i < nitems(ypaliases); i++)
printf("\"%s\" is an alias for \"%s\"\n",
ypaliases[i].alias,
ypaliases[i].name);
exit(0);
case 'h':
host = optarg;
break;
case 'd':
domain = optarg;
break;
case 't':
notrans = 1;
break;
case 'm':
mode = 1;
break;
default:
usage();
}
argc -= optind;
argv += optind;
if (mode == 0) {
switch (argc) {
case 0:
memset(&sin, 0, sizeof sin);
sin.sin_family = AF_INET;
sin.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
if (bind_host(domain, &sin))
exit(1);
break;
case 1:
bzero(&sin, sizeof sin);
sin.sin_family = AF_INET;
if (inet_aton(argv[0], &sin.sin_addr) == 0) {
hent = gethostbyname(argv[0]);
if (!hent) {
errx(1, "host %s unknown",
argv[0]);
}
}
if (bind_host(domain, &sin))
exit(1);
break;
default:
usage();
}
exit(0);
}
if (argc > 1)
usage();
if (host != NULL)
client = yp_bind_host(host, YPPROG, YPVERS, 0, 1);
if (argv[0]) {
map = argv[0];
if (notrans == 0) {
for (i = 0; i < nitems(ypaliases); i++)
if (strcmp(map, ypaliases[i].alias) == 0)
map = ypaliases[i].name;
}
if (host != NULL)
r = yp_master_host(client, domain, map, &master);
else
r = yp_master(domain, map, &master);
switch (r) {
case 0:
printf("%s\n", master);
free(master);
break;
case YPERR_YPBIND:
errx(1, "not running ypbind");
default:
errx(1, "can't find master for map %s: reason: %s",
map, yperr_string(r));
}
exit(0);
}
ypml = NULL;
if (host != NULL)
r = yp_maplist_host(client, domain, &ypml);
else
r = yp_maplist(domain, &ypml);
r = 0;
switch (r) {
case 0:
for (y = ypml; y; ) {
ypml = y;
if (host != NULL) {
r = yp_master_host(client,
domain, ypml->map, &master);
} else {
r = yp_master(domain, ypml->map, &master);
}
switch (r) {
case 0:
printf("%s %s\n", ypml->map, master);
free(master);
break;
default:
warnx("can't find the master of %s: reason: %s",
ypml->map, yperr_string(r));
break;
}
y = ypml->next;
free(ypml);
}
break;
case YPERR_YPBIND:
errx(1, "not running ypbind");
default:
errx(1, "can't get map list for domain %s: reason: %s",
domain, yperr_string(r));
}
exit(0);
}
