xref: /src/usr.sbin/rpc.bootparamd/bootparamd.c

/*
 * This code is not copyright, and is placed in the public domain.
 * Feel free to use and modify. Please send modifications and/or
 * suggestions + bug fixes to Klas Heggemann <klas (at) nada.kth.se>
 *
 * Various small changes by Theo de Raadt <deraadt (at) fsa.ca>
 *
 * $Id: bootparamd.c,v 1.1 1994/01/08 13:22:04 deraadt Exp $
 */

#include <sys/types.h>
#include <sys/ioctl.h>
#include <sys/stat.h>
#include <sys/socket.h>
#include <rpc/rpc.h>
#include <rpcsvc/bootparam_prot.h>
#include <stdio.h>
#include <netdb.h>
#include <ctype.h>
#include <syslog.h>

#define MAXLEN 800

struct hostent *he;
static char buffer[MAXLEN];
static char hostname[MAX_MACHINE_NAME];
static char askname[MAX_MACHINE_NAME];
static char path[MAX_PATH_LEN];
static char domain_name[MAX_MACHINE_NAME];

extern void bootparamprog_1();

int     debug = 0;
int     dolog = 0;
unsigned long route_addr, inet_addr();
struct sockaddr_in my_addr;
char   *progname;
char   *bootpfile = "/etc/bootparams";

extern char *optarg;
extern int optind;

void
usage()
{
	fprintf(stderr,
		"usage: rpc.bootparamd [-d] [-s] [-r router] [-f bootparmsfile]\n");
}


/*
 * ever familiar
 */
int
main(argc, argv)
	int     argc;
	char  **argv;
{
	SVCXPRT *transp;
	int     i, s, pid;
	char   *rindex();
	struct hostent *he;
	struct stat buf;
	char   *optstring;
	char    c;

	progname = rindex(argv[0], '/');
	if (progname)
		progname++;
	else
		progname = argv[0];

	while ((c = getopt(argc, argv, "dsr:f:")) != EOF)
		switch (c) {
		case 'd':
			debug = 1;
			break;
		case 'r':
			if (isdigit(*optarg)) {
				route_addr = inet_addr(optarg);
				break;
			}
			he = gethostbyname(optarg);
			if (!he) {
				fprintf(stderr, "%s: No such host %s\n",
				    progname, optarg);
				usage();
				exit(1);
			}
			bcopy(he->h_addr, (char *) &route_addr, sizeof(route_addr));
			break;
		case 'f':
			bootpfile = optarg;
			break;
		case 's':
			dolog = 1;
#ifndef LOG_DAEMON
			openlog(progname, 0, 0);
#else
			openlog(progname, 0, LOG_DAEMON);
			setlogmask(LOG_UPTO(LOG_NOTICE));
#endif
			break;
		default:
			usage();
			exit(1);
		}

	if (stat(bootpfile, &buf)) {
		fprintf(stderr, "%s: ", progname);
		perror(bootpfile);
		exit(1);
	}
	if (!route_addr) {
		get_myaddress(&my_addr);
		bcopy(&my_addr.sin_addr.s_addr, &route_addr, sizeof(route_addr));
	}
	if (!debug)
		daemon();

	(void) pmap_unset(BOOTPARAMPROG, BOOTPARAMVERS);

	transp = svcudp_create(RPC_ANYSOCK);
	if (transp == NULL) {
		fprintf(stderr, "cannot create udp service.\n");
		exit(1);
	}
	if (!svc_register(transp, BOOTPARAMPROG, BOOTPARAMVERS,
		bootparamprog_1, IPPROTO_UDP)) {
		fprintf(stderr,
		    "bootparamd: unable to register BOOTPARAMPROG version %d, udp)\n",
		    BOOTPARAMVERS);
		exit(1);
	}
	svc_run();
	fprintf(stderr, "svc_run returned\n");
	exit(1);
}

bp_whoami_res *
bootparamproc_whoami_1(whoami)
	bp_whoami_arg *whoami;
{
	long    haddr;
	static bp_whoami_res res;
	if (debug)
		fprintf(stderr, "whoami got question for %d.%d.%d.%d\n",
		    255 & whoami->client_address.bp_address_u.ip_addr.net,
		    255 & whoami->client_address.bp_address_u.ip_addr.host,
		    255 & whoami->client_address.bp_address_u.ip_addr.lh,
		    255 & whoami->client_address.bp_address_u.ip_addr.impno);
	if (dolog)
		syslog(LOG_NOTICE, "whoami got question for %d.%d.%d.%d\n",
		    255 & whoami->client_address.bp_address_u.ip_addr.net,
		    255 & whoami->client_address.bp_address_u.ip_addr.host,
		    255 & whoami->client_address.bp_address_u.ip_addr.lh,
		    255 & whoami->client_address.bp_address_u.ip_addr.impno);

	bcopy((char *) &whoami->client_address.bp_address_u.ip_addr, (char *) &haddr,
	    sizeof(haddr));
	he = gethostbyaddr((char *) &haddr, sizeof(haddr), AF_INET);
	if (!he)
		goto failed;

	if (debug)
		fprintf(stderr, "This is host %s\n", he->h_name);
	if (dolog)
		syslog(LOG_NOTICE, "This is host %s\n", he->h_name);

	strcpy(askname, he->h_name);
	if (checkhost(askname, hostname)) {
		res.client_name = hostname;
		getdomainname(domain_name, MAX_MACHINE_NAME);
		res.domain_name = domain_name;

		if (res.router_address.address_type != IP_ADDR_TYPE) {
			res.router_address.address_type = IP_ADDR_TYPE;
			bcopy(&route_addr, &res.router_address.bp_address_u.ip_addr, 4);
		}
		if (debug)
			fprintf(stderr, "Returning %s   %s    %d.%d.%d.%d\n",
			    res.client_name, res.domain_name,
			    255 & res.router_address.bp_address_u.ip_addr.net,
			    255 & res.router_address.bp_address_u.ip_addr.host,
			    255 & res.router_address.bp_address_u.ip_addr.lh,
			    255 & res.router_address.bp_address_u.ip_addr.impno);
		if (dolog)
			syslog(LOG_NOTICE, "Returning %s   %s    %d.%d.%d.%d\n",
			    res.client_name, res.domain_name,
			    255 & res.router_address.bp_address_u.ip_addr.net,
			    255 & res.router_address.bp_address_u.ip_addr.host,
			    255 & res.router_address.bp_address_u.ip_addr.lh,
			    255 & res.router_address.bp_address_u.ip_addr.impno);

		return (&res);
	}
failed:
	if (debug)
		fprintf(stderr, "whoami failed\n");
	if (dolog)
		syslog(LOG_NOTICE, "whoami failed\n");
	return (NULL);
}


bp_getfile_res *
bootparamproc_getfile_1(getfile)
	bp_getfile_arg *getfile;
{
	char   *where, *index();
	static bp_getfile_res res;

	if (debug)
		fprintf(stderr, "getfile got question for \"%s\" and file \"%s\"\n",
		    getfile->client_name, getfile->file_id);

	if (dolog)
		syslog(LOG_NOTICE, "getfile got question for \"%s\" and file \"%s\"\n",
		    getfile->client_name, getfile->file_id);

	he = NULL;
	he = gethostbyname(getfile->client_name);
	if (!he)
		goto failed;

	strcpy(askname, he->h_name);
	if (getthefile(askname, getfile->file_id, buffer)) {
		if (where = index(buffer, ':')) {
			/* buffer is re-written to contain the name of the
			 * info of file */
			strncpy(hostname, buffer, where - buffer);
			hostname[where - buffer] = '\0';
			where++;
			strcpy(path, where);
			he = gethostbyname(hostname);
			if (!he)
				goto failed;
			bcopy(he->h_addr, &res.server_address.bp_address_u.ip_addr, 4);
			res.server_name = hostname;
			res.server_path = path;
			res.server_address.address_type = IP_ADDR_TYPE;
		} else {	/* special for dump, answer with null strings */
			if (!strcmp(getfile->file_id, "dump")) {
				res.server_name[0] = '\0';
				res.server_path[0] = '\0';
				bzero(&res.server_address.bp_address_u.ip_addr, 4);
			} else
				goto failed;
		}
		if (debug)
			fprintf(stderr,
			    "returning server:%s path:%s address: %d.%d.%d.%d\n",
			    res.server_name, res.server_path,
			    255 & res.server_address.bp_address_u.ip_addr.net,
			    255 & res.server_address.bp_address_u.ip_addr.host,
			    255 & res.server_address.bp_address_u.ip_addr.lh,
			    255 & res.server_address.bp_address_u.ip_addr.impno);
		if (dolog)
			syslog(LOG_NOTICE,
			    "returning server:%s path:%s address: %d.%d.%d.%d\n",
			    res.server_name, res.server_path,
			    255 & res.server_address.bp_address_u.ip_addr.net,
			    255 & res.server_address.bp_address_u.ip_addr.host,
			    255 & res.server_address.bp_address_u.ip_addr.lh,
			    255 & res.server_address.bp_address_u.ip_addr.impno);
		return (&res);
	}
failed:
	if (debug)
		fprintf(stderr, "getfile failed for %s\n", getfile->client_name);
	if (dolog)
		syslog(LOG_NOTICE,
		    "getfile failed for %s\n", getfile->client_name);
	return (NULL);
}


/*
 * getthefile return 1 and fills the buffer with the information
 * of the file, e g "host:/export/root/client" if it can be found.
 * If the host is in the database, but the file is not, the buffer
 * will be empty. (This makes it possible to give the special
 * empty answer for the file "dump")
 */
getthefile(askname, fileid, buffer)
	char   *askname;
	char   *fileid, *buffer;
{
	FILE   *bpf;
	char   *where;

	int     ch, pch, fid_len, res = 0;
	int     match = 0;
	char    info[MAX_FILEID + MAX_PATH_LEN + MAX_MACHINE_NAME + 3];

	bpf = fopen(bootpfile, "r");
	if (!bpf) {
		fprintf(stderr, "No %s\n", bootpfile);
		exit(1);
	}
	while (fscanf(bpf, "%s", hostname) > 0 && !match) {
		if (*hostname != '#') {	/* comment */
			if (!strcmp(hostname, askname)) {
				match = 1;
			} else {
				he = gethostbyname(hostname);
				if (he && !strcmp(he->h_name, askname))
					match = 1;
			}
		}
		/* skip to next entry */
		if (match)
			break;
		pch = ch = getc(bpf);
		while (!(ch == '\n' && pch != '\\') && ch != EOF) {
			pch = ch;
			ch = getc(bpf);
		}
	}

	/* if match is true we read the rest of the line to get the info of
	 * the file */

	if (match) {
		fid_len = strlen(fileid);
		while (!res && (fscanf(bpf, "%s", info)) > 0) {	/* read a string */
			ch = getc(bpf);	/* and a character */
			if (*info != '#') {	/* Comment ? */
				if (!strncmp(info, fileid, fid_len) &&
				    *(info + fid_len) == '=') {
					where = info + fid_len + 1;
					if (isprint(*where)) {
						strcpy(buffer, where);
						res = 1;
						break;
					}
				} else {
					while (isspace(ch) && ch != '\n')
						ch = getc(bpf);
					if (ch == '\n') {
						res = -1;
						break;
					}
					if (ch == '\\') {
						ch = getc(bpf);
						if (ch == '\n')
							continue;
						ungetc(ch, bpf);
						ungetc('\\', bpf);
					} else
						ungetc(ch, bpf);
				}
			} else
				break;
		}
	}
	if (fclose(bpf)) {
		fprintf(stderr, "Could not close %s\n", bootpfile);
	}
	if (res == -1)
		buffer[0] = '\0';	/* host found, file not */
	return (match);
}


/*
 * checkhost puts the hostname found in the database file in
 * the hostname-variable and returns 1, if askname is a valid
 * name for a host in the database
 */
checkhost(askname, hostname)
	char   *askname;
	char   *hostname;
{
	int     ch, pch;
	FILE   *bpf;
	int     res = 0;

	bpf = fopen(bootpfile, "r");
	if (!bpf) {
		fprintf(stderr, "No %s\n", bootpfile);
		exit(1);
	}
	while (fscanf(bpf, "%s", hostname) > 0) {
		if (!strcmp(hostname, askname)) {
			/* return true for match of hostname */
			res = 1;
			break;
		} else {
			/* check the alias list */
			he = NULL;
			he = gethostbyname(hostname);
			if (he && !strcmp(askname, he->h_name)) {
				res = 1;
				break;
			}
		}
		/* skip to next entry */
		pch = ch = getc(bpf);
		while (!(ch == '\n' && pch != '\\') && ch != EOF) {
			pch = ch;
			ch = getc(bpf);
		}
	}
	fclose(bpf);
	return (res);
}