mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-15 07:54:13 +00:00
250 lines
7.5 KiB
C
250 lines
7.5 KiB
C
/* $Id: ldeether.c,v 1.3 2001/12/24 01:09:04 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
|
*/
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-96 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#ifndef MAIKO_ENABLE_ETHERNET
|
|
/* No ethernet, so have a dummy here. */
|
|
unsigned char ether_host[6] = {0, 0, 0, 0, 0, 0}; /* 48 bit address */
|
|
int main(int argc, char *argv[]) { return (0); }
|
|
#else
|
|
/* THERE -IS- AN ETHERNET */
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <unistd.h>
|
|
|
|
#if defined(USE_DLPI)
|
|
#include <sys/stream.h>
|
|
#include <sys/stropts.h>
|
|
#include <sys/pfmod.h>
|
|
#include "dlpidefs.h"
|
|
|
|
#if defined(SVR4) && !defined(OS5)
|
|
char *devices[] = {"emd0", "emd1", "emd2", "emd3", "emd4", 0};
|
|
#endif
|
|
|
|
#ifdef OS5
|
|
#include <sys/bufmod.h>
|
|
|
|
char *devices[] = {"le0", "le1", "le2", "le3", "le4", "ie0", "ie1", "ie2", "ie3",
|
|
"ie4", "qe0", "qe1", "qe2", "qe3", "qe4", "qe5", "qe6", "qe7",
|
|
"fddi0", "fddi1", "fddi2", "fddi3", "fddi4", "bf0", "bf1", 0};
|
|
#endif
|
|
#endif /* USE_DLPI */
|
|
|
|
#include <ctype.h>
|
|
#include <sys/types.h>
|
|
#include <sys/time.h>
|
|
#include <sys/socket.h>
|
|
#ifdef OS4
|
|
#include <sys/file.h>
|
|
#endif /* OS4 */
|
|
|
|
#include <net/if.h>
|
|
#include <netdb.h>
|
|
#include <netinet/in.h>
|
|
#include <netinet/if_ether.h>
|
|
#include <sys/ioctl.h>
|
|
#if defined(USE_NIT)
|
|
#include <net/nit.h>
|
|
#ifdef OS4
|
|
#include <stropts.h>
|
|
#include <net/nit_if.h>
|
|
#include <net/nit_pf.h>
|
|
#endif /* OS4 */
|
|
#endif /* USE_NIT */
|
|
|
|
#include <nlist.h>
|
|
#include <fcntl.h>
|
|
#include <malloc.h>
|
|
#include <stdlib.h>
|
|
|
|
int ether_fd = -1; /* file descriptor for ether socket */
|
|
int ether_intf_type = 0; /* IF type? from DLPI */
|
|
unsigned char ether_host[6] = {0, 0, 0, 0, 0, 0}; /* 48 bit address */
|
|
char filetorun[30] = "lde";
|
|
|
|
int main(int argc, char *argv[]) {
|
|
char Earg[30], Ename[30], **newargv;
|
|
int i;
|
|
#if defined(USE_DLPI)
|
|
static struct packetfilt pf = {0, 1, {ENF_PUSHZERO}};
|
|
struct strioctl si;
|
|
#endif /* USE_DLPI */
|
|
|
|
/* Only do the ether kick=-start if we've got to. */
|
|
|
|
/* Kickstart program for the Lisp Development Environment (LDE).
|
|
Run this as setuid root to open the LDE ether socket.
|
|
Passes all arguments through to LDE plus -E <ether-info>
|
|
to communicate open ether socket.
|
|
|
|
<ether-info> looks like this:
|
|
<descriptor-number>:<b1>:<b2>:<b3>:<b4>:<b5>:<b6>:<name>
|
|
|
|
where <descriptor-number> is the number of the open
|
|
socket (decimal), and <b1>-<b6> are hex of the socket's
|
|
48-bit Ethernet address, and <name> is the name of the
|
|
Ethernet device as found by SIOCGIFCONF.
|
|
*/
|
|
|
|
if (!geteuid()) {
|
|
#if defined(USE_DLPI)
|
|
/* Use DLPI to connect to the ethernet. This code is stolen
|
|
from NFSWATCH4.3
|
|
*/
|
|
char *etherdev = getenv("LDEETHERDEV");
|
|
ether_fd = setup_dlpi_dev(etherdev);
|
|
if (ether_fd >= 0) { /* Open an ether interface */
|
|
ether_intf_type = dlpi_devtype(ether_fd);
|
|
printf("opened ldeether fd %d.\n", ether_fd);
|
|
/* first and foremost, get the packet filter module attached
|
|
(used for ether_suspend and ether_resume) */
|
|
|
|
if (ioctl(ether_fd, I_PUSH, "pfmod") < 0) {
|
|
perror("IOCTL push of pf lost");
|
|
close(ether_fd);
|
|
goto I_Give_Up;
|
|
}
|
|
|
|
si.ic_cmd = PFIOCSETF;
|
|
si.ic_timout = -1;
|
|
si.ic_len = sizeof(pf);
|
|
si.ic_dp = (char *)&pf;
|
|
|
|
if (ioctl(ether_fd, I_STR, &si) < 0) {
|
|
perror("ioctl: I_STR PFIOCSETF");
|
|
return (-1);
|
|
}
|
|
|
|
fcntl(ether_fd, F_SETFL, fcntl(ether_fd, F_GETFL, 0) | O_NONBLOCK);
|
|
|
|
#elif defined(USE_NIT)
|
|
#ifndef OS4
|
|
if ((ether_fd = socket(AF_NIT, SOCK_RAW, NITPROTO_RAW)) >= 0) {
|
|
#else /* OS4 */
|
|
if ((ether_fd = open("/dev/nit", O_RDWR)) >= 0) {
|
|
#endif /* OS4 */
|
|
|
|
/* it's open, now query it and find out its name and address */
|
|
/* JRB - must document that LDE uses the first net board as found
|
|
by SIOCGIFCONF (see if(4)). Maybe we need an option to specify
|
|
which net board (suspect more than one net board on an LDE machine
|
|
will be rare, but...).
|
|
*/
|
|
struct ifconf if_data;
|
|
struct ifreq ifbuf[20];
|
|
|
|
#ifdef OS4
|
|
/* first and foremost, get the packet filter module attached
|
|
(used for ether_suspend and ether_resume) */
|
|
|
|
if (ioctl(ether_fd, I_PUSH, "pf") < 0) {
|
|
perror("IOCTL push of pf lost");
|
|
close(ether_fd);
|
|
goto I_Give_Up;
|
|
}
|
|
#endif /* OS4 */
|
|
|
|
if_data.ifc_len = sizeof(ifbuf);
|
|
if_data.ifc_req = ifbuf;
|
|
#ifndef OS4
|
|
if (ioctl(ether_fd, SIOCGIFCONF, &if_data) < 0) {
|
|
perror("Couldn't GIFCONF socket; Net is off");
|
|
#else /* OS4 */
|
|
|
|
memset(ifbuf, 0, sizeof(ifbuf));
|
|
{
|
|
/* we have to get the interface name from another socket, since
|
|
/dev/nit doesn't know anything until it gets bound, and we
|
|
can't bind it without knowing the interface name... */
|
|
int s;
|
|
|
|
if ((s = socket(AF_INET, SOCK_DGRAM, 0)) < 0) {
|
|
perror("No socket for interface name");
|
|
close(s);
|
|
close(ether_fd);
|
|
ether_fd = -1;
|
|
goto I_Give_Up;
|
|
}
|
|
if (ioctl(s, SIOCGIFCONF, (char *)&if_data) < 0) {
|
|
perror("Couldn't get interface name from socket");
|
|
close(s);
|
|
close(ether_fd);
|
|
ether_fd = -1;
|
|
goto I_Give_Up;
|
|
}
|
|
(void)close(s);
|
|
}
|
|
if (ioctl(ether_fd, NIOCBIND, &if_data.ifc_req[0]) < 0) {
|
|
perror("Couldn't NIOCBIND socket: Net is off");
|
|
#endif /* OS4 */
|
|
|
|
close(ether_fd);
|
|
ether_fd = -1;
|
|
goto I_Give_Up;
|
|
}
|
|
/* now for the address */
|
|
if (ioctl(ether_fd, SIOCGIFADDR, &if_data.ifc_req[0]) < 0) {
|
|
perror("Couldn't GIFADDR socket: Net is off");
|
|
close(ether_fd);
|
|
ether_fd = -1;
|
|
goto I_Give_Up;
|
|
}
|
|
bcopy(if_data.ifc_req[0].ifr_addr.sa_data, ether_host, 6);
|
|
strcpy(Ename, if_data.ifc_req[0].ifr_name);
|
|
|
|
fcntl(ether_fd, F_SETFL, fcntl(ether_fd, F_GETFL, 0) | O_ASYNC | O_NONBLOCK);
|
|
|
|
#endif /* USE_DLPI */
|
|
#ifdef DEBUG
|
|
printf("init_ether: **** Ethernet starts ****\n");
|
|
#endif
|
|
} else {
|
|
I_Give_Up:
|
|
perror("init_ether: can't open NIT socket\n");
|
|
ether_fd = -1;
|
|
/* exit(); */
|
|
}
|
|
setuid(getuid());
|
|
}
|
|
|
|
/* OK, right here do other stuff like scan args */
|
|
/* finally crank up LDE; first copy the original args */
|
|
|
|
newargv = (char **)malloc((argc + 1 + (ether_fd > 0) * 2) * sizeof(char **));
|
|
newargv[0] = filetorun; /* or whatever... */
|
|
for (i = 1; i < argc; i++) newargv[i] = argv[i];
|
|
|
|
/* then if the net is active, spit out the ether info */
|
|
if (ether_fd > 0) {
|
|
newargv[i++] = "-E";
|
|
#if defined(USE_DLPI)
|
|
sprintf(Earg, "%d:%x:%x:%x:%x:%x:%x", ether_fd, ether_host[0], ether_host[1], ether_host[2],
|
|
ether_host[3], ether_host[4], ether_host[5]);
|
|
#elif defined(USE_NIT)
|
|
sprintf(Earg, "%d:%x:%x:%x:%x:%x:%x:%s", ether_fd, ether_host[0], ether_host[1], ether_host[2],
|
|
ether_host[3], ether_host[4], ether_host[5], Ename);
|
|
#endif /* USE_DLPI */
|
|
newargv[i++] = Earg;
|
|
printf("ether = %d:%x:%x:%x:%x:%x:%x:%s", ether_fd, ether_host[0], ether_host[1], ether_host[2],
|
|
ether_host[3], ether_host[4], ether_host[5], Ename);
|
|
}
|
|
newargv[i] = 0;
|
|
|
|
/* then execve the LDE executable */
|
|
execvp(filetorun, newargv);
|
|
perror("failed to exec lde");
|
|
return (1);
|
|
}
|
|
|
|
#endif /* MAIKO_ENABLE_ETHERNET */
|