NetBSD/usr.sbin/rpc.bootparamd/bootparamd.c

395 lines
9.7 KiB
C

/* $NetBSD: bootparamd.c,v 1.15 1997/10/18 11:27:49 lukem Exp $ */
/*
* 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@nada.kth.se>
*
* Various small changes by Theo de Raadt <deraadt@fsa.ca>
* Parser rewritten (adding YP support) by Roland McGrath <roland@frob.com>
*/
#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: bootparamd.c,v 1.15 1997/10/18 11:27:49 lukem Exp $");
#endif
#include <sys/types.h>
#include <sys/ioctl.h>
#include <sys/stat.h>
#include <sys/socket.h>
#include <ctype.h>
#include <err.h>
#include <netdb.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <syslog.h>
#include <unistd.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <rpc/rpc.h>
#include <rpc/pmap_clnt.h>
#include <rpcsvc/bootparam_prot.h>
#include <rpcsvc/ypclnt.h>
#include "pathnames.h"
#define MAXLEN 800
static char hostname[MAX_MACHINE_NAME];
static char askname[MAX_MACHINE_NAME];
static char domain_name[MAX_MACHINE_NAME];
extern void bootparamprog_1 __P((struct svc_req *, SVCXPRT *));
int _rpcsvcdirty = 0;
int _rpcpmstart = 0;
int debug = 0;
int dolog = 0;
struct in_addr route_addr;
struct sockaddr_in my_addr;
extern char *__progname;
char *bootpfile = _PATH_BOOTPARAMS;
int main __P((int, char *[]));
int lookup_bootparam __P((char *, char *, char *, char **, char **));
void usage __P((void));
/*
* ever familiar
*/
int
main(argc, argv)
int argc;
char *argv[];
{
SVCXPRT *transp;
struct hostent *he;
struct stat buf;
int c;
while ((c = getopt(argc, argv, "dsr:f:")) != -1)
switch (c) {
case 'd':
debug = 1;
break;
case 'r':
if (isdigit(*optarg)) {
if (inet_aton(optarg, &route_addr) != 0)
break;
}
he = gethostbyname(optarg);
if (he == 0) {
warnx("no such host: %s", optarg);
usage();
}
memmove(&route_addr.s_addr, he->h_addr, he->h_length);
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();
}
if (stat(bootpfile, &buf))
err(1, "%s", bootpfile);
if (route_addr.s_addr == 0) {
get_myaddress(&my_addr);
route_addr.s_addr = my_addr.sin_addr.s_addr;
}
if (!debug) {
if (daemon(0, 0))
err(1, "can't detach from terminal");
}
(void) pmap_unset(BOOTPARAMPROG, BOOTPARAMVERS);
transp = svcudp_create(RPC_ANYSOCK);
if (transp == NULL)
errx(1, "can't create udp service");
if (!svc_register(transp, BOOTPARAMPROG, BOOTPARAMVERS, bootparamprog_1,
IPPROTO_UDP))
errx(1, "unable to register BOOTPARAMPROG version %ld, udp",
BOOTPARAMVERS);
svc_run();
errx(1, "svc_run returned");
}
bp_whoami_res *
bootparamproc_whoami_1_svc(whoami, rqstp)
bp_whoami_arg *whoami;
struct svc_req *rqstp;
{
static bp_whoami_res res;
struct hostent *he;
struct in_addr inaddr;
long haddr;
if (debug)
warnx("whoami got question for %d.%d.%d.%d",
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",
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);
memmove((char *) &haddr,
(char *) &whoami->client_address.bp_address_u.ip_addr,
sizeof(haddr));
he = gethostbyaddr((char *) &haddr, sizeof(haddr), AF_INET);
if (he) {
strncpy(askname, he->h_name, sizeof(askname));
askname[sizeof(askname)-1] = 0;
} else {
inaddr.s_addr = haddr;
strncpy(askname, inet_ntoa(inaddr), sizeof(askname));
askname[sizeof(askname)-1] = 0;
}
if (debug)
warnx("This is host %s", askname);
if (dolog)
syslog(LOG_NOTICE, "This is host %s", askname);
if (!lookup_bootparam(askname, hostname, NULL, NULL, NULL)) {
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;
memmove(&res.router_address.bp_address_u.ip_addr,
&route_addr.s_addr,4);
}
if (debug)
warnx("Returning %s %s %d.%d.%d.%d",
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",
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);
}
if (debug)
warnx("whoami failed");
if (dolog)
syslog(LOG_NOTICE, "whoami failed");
return (NULL);
}
bp_getfile_res *
bootparamproc_getfile_1_svc(getfile, rqstp)
bp_getfile_arg *getfile;
struct svc_req *rqstp;
{
static bp_getfile_res res;
struct hostent *he;
int err;
if (debug)
warnx("getfile got question for \"%s\" and file \"%s\"",
getfile->client_name, getfile->file_id);
if (dolog)
syslog(LOG_NOTICE,
"getfile got question for \"%s\" and file \"%s\"",
getfile->client_name, getfile->file_id);
he = NULL;
he = gethostbyname(getfile->client_name);
if (!he)
goto failed;
strncpy(askname, he->h_name, sizeof(askname));
askname[sizeof(askname)-1] = 0;
err = lookup_bootparam(askname, NULL, getfile->file_id,
&res.server_name, &res.server_path);
if (err == 0) {
he = gethostbyname(res.server_name);
if (!he)
goto failed;
memmove(&res.server_address.bp_address_u.ip_addr,
he->h_addr, 4);
res.server_address.address_type = IP_ADDR_TYPE;
} else if (err == ENOENT && !strcmp(getfile->file_id, "dump")) {
/* Special for dump, answer with null strings. */
res.server_name[0] = '\0';
res.server_path[0] = '\0';
memset(&res.server_address.bp_address_u.ip_addr, 0, 4);
} else {
failed:
if (debug)
warnx("getfile failed for %s",
getfile->client_name);
if (dolog)
syslog(LOG_NOTICE,
"getfile failed for %s", getfile->client_name);
return (NULL);
}
if (debug)
warnx(
"returning server:%s path:%s address: %d.%d.%d.%d",
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",
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);
}
int
lookup_bootparam(client, client_canonical, id, server, path)
char *client;
char *client_canonical;
char *id;
char **server;
char **path;
{
FILE *f = fopen(bootpfile, "r");
#ifdef YP
static char *ypbuf = NULL;
static int ypbuflen = 0;
#endif
static char buf[BUFSIZ];
char *bp, *word = NULL;
size_t idlen = id == NULL ? 0 : strlen(id);
int contin = 0;
int found = 0;
if (f == NULL)
return EINVAL; /* ? */
while (fgets(buf, sizeof buf, f)) {
int wascontin = contin;
contin = buf[strlen(buf) - 2] == '\\';
bp = buf + strspn(buf, " \t\n");
switch (wascontin) {
case -1:
/* Continuation of uninteresting line */
contin *= -1;
continue;
case 0:
/* New line */
contin *= -1;
if (*bp == '#')
continue;
if ((word = strsep(&bp, " \t\n")) == NULL)
continue;
#ifdef YP
/* A + in the file means try YP now */
if (!strcmp(word, "+")) {
char *ypdom;
if (yp_get_default_domain(&ypdom) ||
yp_match(ypdom, "bootparams", client,
strlen(client), &ypbuf, &ypbuflen))
continue;
bp = ypbuf;
word = client;
contin *= -1;
break;
}
#endif
/* See if this line's client is the one we are
* looking for */
if (strcasecmp(word, client) != 0) {
/*
* If it didn't match, try getting the
* canonical host name of the client
* on this line and comparing that to
* the client we are looking for
*/
struct hostent *hp = gethostbyname(word);
if (hp == NULL ||
strcasecmp(hp->h_name, client))
continue;
}
contin *= -1;
break;
case 1:
/* Continued line we want to parse below */
break;
}
if (client_canonical)
strncpy(client_canonical, word, MAX_MACHINE_NAME);
/* We have found a line for CLIENT */
if (id == NULL) {
(void) fclose(f);
return 0;
}
/* Look for a value for the parameter named by ID */
while ((word = strsep(&bp, " \t\n")) != NULL) {
if (!strncmp(word, id, idlen) && word[idlen] == '=') {
/* We have found the entry we want */
*server = &word[idlen + 1];
*path = strchr(*server, ':');
if (*path == NULL)
/* Malformed entry */
continue;
*(*path)++ = '\0';
(void) fclose(f);
return 0;
}
}
found = 1;
}
(void) fclose(f);
return found ? ENOENT : EPERM;
}
void
usage()
{
fprintf(stderr,
"usage: %s [-d] [-s] [-r router] [-f bootparmsfile]\n", __progname);
exit(1);
}