*/
#ifndef lint
-static char rcsid[] = "$Id: sys-svr4.c,v 1.4 1995/08/10 06:53:39 paulus Exp $";
+static char rcsid[] = "$Id: sys-svr4.c,v 1.7 1995/10/27 03:52:56 paulus Exp $";
#endif
+#include <limits.h>
#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
+#include <alloca.h>
#include <ctype.h>
#include <errno.h>
#include <fcntl.h>
#include <unistd.h>
#include <termios.h>
+#ifndef CRTSCTS
+#include <sys/termiox.h>
+#endif
#include <signal.h>
+#include <utmpx.h>
#include <sys/types.h>
#include <sys/ioccom.h>
#include <sys/stream.h>
#include <sys/socket.h>
#include <sys/sockio.h>
#include <sys/syslog.h>
+#include <sys/sysmacros.h>
#include <sys/systeminfo.h>
#include <sys/dlpi.h>
#include <sys/stat.h>
+#include <sys/mkdev.h>
#include <net/if.h>
#include <net/if_arp.h>
#include <net/route.h>
static int restore_term;
static struct termios inittermios;
+#ifndef CRTSCTS
+static struct termiox inittermiox;
+#endif
+static struct winsize wsinfo; /* Initial window size info */
static pid_t tty_sid; /* original session ID for terminal */
static int link_mtu, link_mru;
static int tty_nmodules;
static char tty_modules[NMODULES][FMNAMESZ+1];
+static int if_is_up; /* Interface has been marked up */
+static u_int32_t default_route_gateway; /* Gateway for default route added */
+static u_int32_t proxy_arp_addr; /* Addr for proxy arp entry added */
+
+/* Prototypes for procedures local to this file. */
+static int translate_speed __P((int));
+static int baud_rate_of __P((int));
+static int get_ether_addr __P((u_int32_t, struct sockaddr *));
+static int get_hw_addr __P((char *, struct sockaddr *));
+static int dlpi_attach __P((int, int));
+static int dlpi_info_req __P((int));
+static int dlpi_get_reply __P((int, union DL_primitives *, int, int));
+static int strioctl __P((int, int, void *, int, int));
+
/*
* sys_init - System-dependent initialization.
*/
}
}
+/*
+ * sys_cleanup - restore any system state we modified before exiting:
+ * mark the interface down, delete default route and/or proxy arp entry.
+ * This should call die() because it's called from die().
+ */
+void
+sys_cleanup()
+{
+ struct ifreq ifr;
+
+ if (if_is_up)
+ sifdown(0);
+ if (default_route_gateway)
+ cifdefaultroute(0, default_route_gateway);
+ if (proxy_arp_addr)
+ cifproxyarp(0, proxy_arp_addr);
+}
+
/*
* daemon - Detach us from controlling terminal session.
*/
void
establish_ppp()
{
- int i, ifd;
+ int i, ifd, x;
+#ifndef sun
+ struct ifreq ifr;
+ struct {
+ union DL_primitives prim;
+ char space[64];
+ } reply;
+#endif
if (default_device)
tty_sid = getsid((pid_t)0);
syslog(LOG_ERR, "Can't open /dev/ppp: %m");
die(1);
}
+ if (kdebugflag) {
+ x = PPPDBG_LOG + PPPDBG_DRIVER;
+ strioctl(pppfd, PPPIO_DEBUG, &x, sizeof(int), 0);
+ }
/* Assign a new PPA and get its unit number. */
if (strioctl(pppfd, PPPIO_NEWPPA, &ifunit, 0, sizeof(int)) < 0) {
syslog(LOG_ERR, "Can't open /dev/ppp (2): %m");
die(1);
}
+ if (kdebugflag) {
+ x = PPPDBG_LOG + PPPDBG_DRIVER;
+ strioctl(ifd, PPPIO_DEBUG, &x, sizeof(int), 0);
+ }
+#ifdef sun
if (ioctl(ifd, I_PUSH, "ip") < 0) {
syslog(LOG_ERR, "Can't push IP module: %m");
close(ifd);
die(1);
}
+#else
+ if (dlpi_attach(ifd, ifunit) < 0 ||
+ dlpi_get_reply(ifd, &reply.prim, DL_OK_ACK, sizeof(reply)) < 0) {
+ syslog(LOG_ERR, "Can't attach to ppp%d: %m", ifunit);
+ close(ifd);
+ die(1);
+ }
+#endif
ipmuxid = ioctl(ipfd, I_LINK, ifd);
close(ifd);
if (ipmuxid < 0) {
die(1);
}
+#ifndef sun
+ /* Set the interface name for the link. */
+ (void) sprintf (ifr.ifr_name, "ppp%d", ifunit);
+ ifr.ifr_metric = ipmuxid;
+ if (strioctl(ipfd, SIOCSIFNAME, (char *)&ifr, sizeof ifr, 0) < 0) {
+ syslog(LOG_ERR, "Can't set interface name %s: %m", ifr.ifr_name);
+ die(1);
+ }
+#endif
+
/* Pop any existing modules off the tty stream. */
for (i = 0;; ++i)
if (ioctl(fd, I_LOOK, tty_modules[i]) < 0
{
int i;
+ if (ipmuxid > 0) {
+ if (ioctl(ipfd, I_UNLINK, ipmuxid) < 0) {
+ if (!hungup)
+ syslog(LOG_ERR, "Can't unlink PPP from IP: %m");
+ }
+ }
+
if (fdmuxid >= 0) {
if (ioctl(pppfd, I_UNLINK, fdmuxid) < 0) {
if (!hungup)
/*
* Translate from bits/second to a speed_t.
*/
-int
+static int
translate_speed(bps)
int bps;
{
/*
* Translate from a speed_t to bits/second.
*/
-int
+static int
baud_rate_of(speed)
int speed;
{
* at the requested speed, etc. If `local' is true, set CLOCAL
* regardless of whether the modem option was specified.
*/
+void
set_up_tty(fd, local)
int fd, local;
{
int speed;
struct termios tios;
+#if !defined (CRTSCTS)
+ struct termiox tiox;
+#endif
if (tcgetattr(fd, &tios) < 0) {
syslog(LOG_ERR, "tcgetattr: %m");
die(1);
}
- if (!restore_term)
+#ifndef CRTSCTS
+ if (ioctl (fd, TCGETX, &tiox) < 0) {
+ syslog (LOG_ERR, "TCGETX: %m");
+ die (1);
+ }
+#endif
+
+ if (!restore_term) {
inittermios = tios;
+#ifndef CRTSCTS
+ inittermiox = tiox;
+#endif
+ ioctl(fd, TIOCGWINSZ, &wsinfo);
+ }
tios.c_cflag &= ~(CSIZE | CSTOPB | PARENB | CLOCAL);
+#ifdef CRTSCTS
if (crtscts > 0)
tios.c_cflag |= CRTSCTS;
else if (crtscts < 0)
tios.c_cflag &= ~CRTSCTS;
+#else
+ if (crtscts > 0) {
+ tiox.x_hflag |= RTSXOFF|CTSXON;
+ }
+ else if (crtscts < 0) {
+ tiox.x_hflag &= ~(RTSXOFF|CTSXON);
+ }
+#endif
tios.c_cflag |= CS8 | CREAD | HUPCL;
if (local || !modem)
tios.c_cc[VMIN] = 1;
tios.c_cc[VTIME] = 0;
- if (crtscts == 2) {
- tios.c_iflag |= IXOFF;
+ if (crtscts == -2) {
+ tios.c_iflag |= IXON | IXOFF;
tios.c_cc[VSTOP] = 0x13; /* DC3 = XOFF = ^S */
tios.c_cc[VSTART] = 0x11; /* DC1 = XON = ^Q */
}
die(1);
}
+#ifndef CRTSCTS
+ if (ioctl (fd, TCSETXF, &tiox) < 0){
+ syslog (LOG_ERR, "TCSETXF: %m");
+ die (1);
+ }
+#endif
+
baud_rate = inspeed = baud_rate_of(speed);
restore_term = 1;
}
if (tcsetattr(fd, TCSAFLUSH, &inittermios) < 0)
if (!hungup && errno != ENXIO)
syslog(LOG_WARNING, "tcsetattr: %m");
+#ifndef CRTSCTS
+ if (ioctl (fd, TCSETXF, &inittermiox) < 0){
+ if (!hungup && errno != ENXIO)
+ syslog (LOG_ERR, "TCSETXF: %m");
+ }
+#endif
+ ioctl(fd, TIOCSWINSZ, &wsinfo);
restore_term = 0;
}
}
* setdtr - control the DTR line on the serial port.
* This is called from die(), so it shouldn't call die().
*/
+void
setdtr(fd, on)
int fd, on;
{
int len;
{
struct strbuf data;
+ int retries;
+ struct pollfd pfd;
if (debug)
log_packet(p, len, "sent ");
data.len = len;
data.buf = (caddr_t) p;
- if (putmsg(pppfd, NULL, &data, 0) < 0) {
- if (errno != ENXIO) {
- syslog(LOG_ERR, "Couldn't send packet: %m");
- die(1);
+ retries = 4;
+ while (putmsg(pppfd, NULL, &data, 0) < 0) {
+ if (--retries < 0 || (errno != EWOULDBLOCK && errno != EAGAIN)) {
+ if (errno != ENXIO)
+ syslog(LOG_ERR, "Couldn't send packet: %m");
+ break;
}
+ pfd.fd = fd;
+ pfd.events = POLLOUT;
+ poll(&pfd, 1, 250); /* wait for up to 0.25 seconds */
}
}
* for the length of time specified by *timo (indefinite
* if timo is NULL).
*/
+void
wait_input(timo)
struct timeval *timo;
{
* ccp_test - ask kernel whether a given compression method
* is acceptable for use.
*/
+int
ccp_test(unit, opt_ptr, opt_len, for_transmit)
int unit, opt_len, for_transmit;
u_char *opt_ptr;
{
- return strioctl(pppfd, (for_transmit? PPPIO_XCOMP: PPPIO_RCOMP),
- opt_ptr, opt_len, 0) >= 0;
+ if (strioctl(pppfd, (for_transmit? PPPIO_XCOMP: PPPIO_RCOMP),
+ opt_ptr, opt_len, 0) >= 0)
+ return 1;
+ return (errno == ENOSR)? 0: -1;
}
/*
syslog(LOG_ERR, "Couldn't mark interface up (set): %m");
return 0;
}
+ if_is_up = 1;
return 1;
}
syslog(LOG_ERR, "Couldn't mark interface down (set): %m");
return 0;
}
+ if_is_up = 0;
return 1;
}
return 0;
}
+ default_route_gateway = g;
return 1;
}
return 0;
}
+ default_route_gateway = 0;
return 1;
}
return 0;
}
+ proxy_arp_addr = hisaddr;
return 1;
}
return 0;
}
+ proxy_arp_addr = 0;
return 1;
}
*/
#define MAX_IFS 32
-int
+static int
get_ether_addr(ipaddr, hwaddr)
u_int32_t ipaddr;
struct sockaddr *hwaddr;
/*
* Scan through the system's network interfaces.
*/
+#ifdef SIOCGIFNUM
if (ioctl(ipfd, SIOCGIFNUM, &nif) < 0)
+#endif
nif = MAX_IFS;
ifc.ifc_len = nif * sizeof(struct ifreq);
- ifc.ifc_req = alloca(ifc.ifc_len);
+ ifc.ifc_buf = (caddr_t) alloca(ifc.ifc_len);
if (ifc.ifc_req == 0)
return 0;
if (ioctl(ipfd, SIOCGIFCONF, &ifc) < 0) {
/*
* get_hw_addr - obtain the hardware address for a named interface.
*/
-int
+static int
get_hw_addr(name, hwaddr)
char *name;
struct sockaddr *hwaddr;
}
if (dlpi_attach(iffd, unit) < 0
|| dlpi_get_reply(iffd, &reply.prim, DL_OK_ACK, sizeof(reply)) < 0
- || dlpi_phys_addr_req(iffd) < 0
- || dlpi_get_reply(iffd, &reply.prim, DL_PHYS_ADDR_ACK,
- sizeof(reply)) < 0) {
+ || dlpi_info_req(iffd) < 0
+ || dlpi_get_reply(iffd, &reply.prim, DL_INFO_ACK, sizeof(reply)) < 0) {
close(iffd);
return 0;
}
+ adrlen = reply.prim.info_ack.dl_addr_length;
+ adrp = (unsigned char *)&reply + reply.prim.info_ack.dl_addr_offset;
+ if (reply.prim.info_ack.dl_sap_length < 0)
+ adrlen += reply.prim.info_ack.dl_sap_length;
+ else
+ adrp += reply.prim.info_ack.dl_sap_length;
hwaddr->sa_family = AF_UNSPEC;
- adrlen = reply.prim.physaddr_ack.dl_addr_length;
- adrp = (unsigned char *)&reply + reply.prim.physaddr_ack.dl_addr_offset;
memcpy(hwaddr->sa_data, adrp, adrlen);
return 1;
}
-int
+static int
dlpi_attach(fd, ppa)
int fd, ppa;
{
return putmsg(fd, &buf, NULL, RS_HIPRI);
}
-int
-dlpi_phys_addr_req(fd)
+static int
+dlpi_info_req(fd)
int fd;
{
- dl_phys_addr_req_t req;
+ dl_info_req_t req;
struct strbuf buf;
- req.dl_primitive = DL_PHYS_ADDR_REQ;
- req.dl_addr_type = DL_CURR_PHYS_ADDR;
+ req.dl_primitive = DL_INFO_REQ;
buf.len = sizeof(req);
buf.buf = (void *) &req;
return putmsg(fd, &buf, NULL, RS_HIPRI);
}
-int
+static int
dlpi_get_reply(fd, reply, expected_prim, maxlen)
union DL_primitives *reply;
int fd, expected_prim, maxlen;
/*
* Scan through the system's network interfaces.
*/
+#ifdef SIOCGIFNUM
if (ioctl(ipfd, SIOCGIFNUM, &nif) < 0)
+#endif
nif = MAX_IFS;
ifc.ifc_len = nif * sizeof(struct ifreq);
- ifc.ifc_req = alloca(ifc.ifc_len);
+ ifc.ifc_buf = (caddr_t) alloca(ifc.ifc_len);
if (ifc.ifc_req == 0)
return mask;
if (ioctl(ipfd, SIOCGIFCONF, &ifc) < 0) {
logwtmp(line, name, host)
char *line, *name, *host;
{
+ static struct utmpx utmpx;
+
+ if (name[0] != 0) {
+ /* logging in */
+ strncpy(utmpx.ut_user, name, sizeof(utmpx.ut_user));
+ strncpy(utmpx.ut_id, ifname, sizeof(utmpx.ut_id));
+ strncpy(utmpx.ut_line, line, sizeof(utmpx.ut_line));
+ utmpx.ut_pid = getpid();
+ utmpx.ut_type = USER_PROCESS;
+ } else {
+ utmpx.ut_type = DEAD_PROCESS;
+ }
+ gettimeofday(&utmpx.ut_tv, NULL);
+ updwtmpx("/var/adm/wtmpx", &utmpx);
+ return 0;
}
/*
return (int) strtoul(buf, NULL, 16);
}
-int
+static int
strioctl(fd, cmd, ptr, ilen, olen)
int fd, cmd, ilen, olen;
- char *ptr;
+ void *ptr;
{
struct strioctl str;
return 0;
}
+/*
+ * lock - create a lock file for the named lock device
+ */
+
+#define LOCK_PREFIX "/var/spool/locks/LK."
+static char lock_file[40]; /* name of lock file created */
+
int
lock(dev)
char *dev;
{
+ int n, fd, pid;
+ struct stat sbuf;
+ char ascii_pid[12];
+
+ if (stat(dev, &sbuf) < 0) {
+ syslog(LOG_ERR, "Can't get device number for %s: %m", dev);
+ return -1;
+ }
+ if ((sbuf.st_mode & S_IFMT) != S_IFCHR) {
+ syslog(LOG_ERR, "Can't lock %s: not a character device", dev);
+ return -1;
+ }
+ sprintf(lock_file, "%s%03d.%03d.%03d", LOCK_PREFIX, major(sbuf.st_dev),
+ major(sbuf.st_rdev), minor(sbuf.st_rdev));
+
+ while ((fd = open(lock_file, O_EXCL | O_CREAT | O_RDWR, 0644)) < 0) {
+ if (errno == EEXIST
+ && (fd = open(lock_file, O_RDONLY, 0)) >= 0) {
+ /* Read the lock file to find out who has the device locked */
+ n = read(fd, ascii_pid, 11);
+ if (n <= 0) {
+ syslog(LOG_ERR, "Can't read pid from lock file %s", lock_file);
+ close(fd);
+ } else {
+ ascii_pid[n] = 0;
+ pid = atoi(ascii_pid);
+ if (pid > 0 && kill(pid, 0) == -1 && errno == ESRCH) {
+ /* pid no longer exists - remove the lock file */
+ if (unlink(lock_file) == 0) {
+ close(fd);
+ syslog(LOG_NOTICE, "Removed stale lock on %s (pid %d)",
+ dev, pid);
+ continue;
+ } else
+ syslog(LOG_WARNING, "Couldn't remove stale lock on %s",
+ dev);
+ } else
+ syslog(LOG_NOTICE, "Device %s is locked by pid %d",
+ dev, pid);
+ }
+ close(fd);
+ } else
+ syslog(LOG_ERR, "Can't create lock file %s: %m", lock_file);
+ lock_file[0] = 0;
+ return -1;
+ }
+
+ sprintf(ascii_pid, "%10d\n", getpid());
+ write(fd, ascii_pid, 11);
+
+ close(fd);
return 1;
}
-int
+/*
+ * unlock - remove our lockfile
+ */
+void
unlock()
{
- return 1;
+ if (lock_file[0]) {
+ unlink(lock_file);
+ lock_file[0] = 0;
+ }
}