Gitiles
Code Review Sign In
192.168.1.100 / T106_DC / 9ed821d7e5d875a3395740a9cc2545671fa429b7 / . / ap / app / ppp-2.4.1 / pppoecd / sys-linux.c
blob: b18db0f17ebcb21c3a9383eb648e58be8865ebd5 [file] [log] [blame]
/*
* sys-linux.c - System-dependent procedures for setting up
* PPP interfaces on Linux systems
*
* Copyright (c) 1989 Carnegie Mellon University.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by Carnegie Mellon University. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#include <sys/ioctl.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/time.h>
#include <sys/errno.h>
#include <sys/file.h>
#include <sys/stat.h>
#include <sys/utsname.h>
#include <sys/sysmacros.h>
#include <stdio.h>
#include <stdlib.h>
#include <syslog.h>
#include <string.h>
#include <time.h>
#include <memory.h>
#include <utmp.h>
#include <mntent.h>
#include <signal.h>
#include <fcntl.h>
#include <ctype.h>
#include <termios.h>
#include <unistd.h>
/* This is in netdevice.h. However, this compile will fail miserably if
you attempt to include netdevice.h because it has so many references
to __memcpy functions which it should not attempt to do. So, since I
really don't use it, but it must be defined, define it now. */
#ifndef MAX_ADDR_LEN
#define MAX_ADDR_LEN 7
#endif
#if __GLIBC__ >= 2
#include <asm/types.h> /* glibc 2 conflicts with linux/types.h */
#include <net/if.h>
#include <net/if_arp.h>
#include <net/route.h>
#include <netinet/if_ether.h>
#else
#include <linux/types.h>
#include <linux/if.h>
#include <linux/if_arp.h>
#include <linux/route.h>
#include <linux/if_ether.h>
#endif
#include <netinet/in.h>
#include <arpa/inet.h>
#include <linux/ppp_defs.h>
#include <linux/if_ppp.h>
#include "pppd.h"
#include "fsm.h"
#include "ipcp.h"
/* We can get an EIO error on an ioctl if the modem has hung up */
#define ok_error(num) ((num)==EIO)
static int tty_disc = N_TTY; /* The TTY discipline */
static int ppp_disc = N_PPP; /* The PPP discpline */
static int initfdflags = -1; /* Initial file descriptor flags for fd */
static int ppp_fd = -1; /* fd which is set to PPP discipline */
static int sock_fd = -1; /* socket for doing interface ioctls */
static int slave_fd = -1;
static int master_fd = -1;
static int ppp_dev_fd = -1; /* fd for /dev/ppp (new style driver) */
static int chindex; /* channel index (new style driver) */
static fd_set in_fds; /* set of fds that wait_input waits for */
static int max_in_fd; /* highest fd set in in_fds */
static int driver_version = 0;
static int driver_modification = 0;
static int driver_patch = 0;
static char loop_name[20];
static unsigned char inbuf[512]; /* buffer for chars read from loopback */
static int if_is_up; /* Interface has been marked up */
static u_int32_t our_old_addr; /* for detecting address changes */
static int dynaddr_set; /* 1 if ip_dynaddr set */
static int looped; /* 1 if using loop */
static int kernel_version;
#define KVERSION(j,n,p) ((j)*1000000 + (n)*1000 + (p))
#define MAX_IFS 100
#define FLAGS_GOOD (IFF_UP | IFF_BROADCAST)
#define FLAGS_MASK (IFF_UP | IFF_BROADCAST | \
IFF_POINTOPOINT | IFF_LOOPBACK | IFF_NOARP)
#define SIN_ADDR(x) (((struct sockaddr_in *) (&(x)))->sin_addr.s_addr)
/* Prototypes for procedures local to this file. */
static int get_flags (int fd);
static void set_flags (int fd, int flags);
static int make_ppp_unit(void);
static void restore_loop(void); /* Transfer ppp unit back to loopback */
extern u_char inpacket_buf[]; /* borrowed from main.c */
/*
* SET_SA_FAMILY - set the sa_family field of a struct sockaddr,
* if it exists.
*/
#define SET_SA_FAMILY(addr, family) \
memset ((char *) &(addr), '\0', sizeof(addr)); \
addr.sa_family = (family);
/*
* Determine if the PPP connection should still be present.
*/
extern int hungup;
/* new_fd is the fd of a tty */
static void set_ppp_fd (int new_fd)
{
SYSDEBUG ((LOG_DEBUG, "setting ppp_fd to %d\n", new_fd));
ppp_fd = new_fd;
if (!new_style_driver)
ppp_dev_fd = new_fd;
}
static int still_ppp(void)
{
if (new_style_driver)
return !hungup && ppp_fd >= 0;
if (!hungup || ppp_fd == slave_fd)
return 1;
if (slave_fd >= 0) {
set_ppp_fd(slave_fd);
return 1;
}
return 0;
}
/********************************************************************
*
* Functions to read and set the flags value in the device driver
*/
static int get_flags (int fd)
{
int flags;
if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &flags) < 0) {
if ( ok_error (errno) )
flags = 0;
else
fatal("ioctl(PPPIOCGFLAGS): %m");
}
SYSDEBUG ((LOG_DEBUG, "get flags = %x\n", flags));
return flags;
}
/********************************************************************/
static void set_flags (int fd, int flags)
{
SYSDEBUG ((LOG_DEBUG, "set flags = %x\n", flags));
if (ioctl(fd, PPPIOCSFLAGS, (caddr_t) &flags) < 0) {
if (! ok_error (errno) )
fatal("ioctl(PPPIOCSFLAGS, %x): %m", flags, errno);
}
}
/********************************************************************
*
* sys_init - System-dependent initialization.
*/
void sys_init(void)
{
int flags;
if (new_style_driver) {
ppp_dev_fd = open("/dev/ppp", O_RDWR);
if (ppp_dev_fd < 0)
fatal("Couldn't open /dev/ppp: %m");
flags = fcntl(ppp_dev_fd, F_GETFL);
if (flags == -1
|| fcntl(ppp_dev_fd, F_SETFL, flags | O_NONBLOCK) == -1)
warn("Couldn't set /dev/ppp to nonblock: %m");
}
/* Get an internet socket for doing socket ioctls. */
sock_fd = socket(AF_INET, SOCK_DGRAM, 0);
if (sock_fd < 0)
fatal("Couldn't create IP socket: %m(%d)", errno);
FD_ZERO(&in_fds);
max_in_fd = 0;
}
/********************************************************************
*
* sys_cleanup - restore any system state we modified before exiting:
* mark the interface down, delete default route and/or proxy arp entry.
* This shouldn't call die() because it's called from die().
*/
void sys_cleanup(void)
{
/*
* Take down the device
*/
if (if_is_up) {
if_is_up = 0;
sifdown(0);
}
}
/********************************************************************
*
* sys_close - Clean up in a child process before execing.
*/
void
sys_close(void)
{
close(ppp_dev_fd);
if (sock_fd >= 0)
close(sock_fd);
if (slave_fd >= 0)
close(slave_fd);
if (master_fd >= 0)
close(master_fd);
closelog();
}
/********************************************************************
*
* set_kdebugflag - Define the debugging level for the kernel
*/
static int set_kdebugflag (int requested_level)
{
if (new_style_driver && ifunit < 0)
return 1;
if (ioctl(ppp_dev_fd, PPPIOCSDEBUG, &requested_level) < 0) {
if ( ! ok_error (errno) )
error("ioctl(PPPIOCSDEBUG): %m");
return (0);
}
SYSDEBUG ((LOG_INFO, "set kernel debugging level to %d",
requested_level));
return (1);
}
/********************************************************************
*
* generic_establish_ppp - Turn the fd into a ppp interface.
*/
int generic_establish_ppp (int fd)
{
int x;
/*
* Demand mode - prime the old ppp device to relinquish the unit.
*/
if (!new_style_driver && looped
&& ioctl(slave_fd, PPPIOCXFERUNIT, 0) < 0) {
error("ioctl(transfer ppp unit): %m");
return -1;
}
if (new_style_driver) {
/* Open another instance of /dev/ppp and connect the channel to it */
int flags;
if (ioctl(fd, PPPIOCGCHAN, &chindex) == -1) {
error("Couldn't get channel number: %m");
goto err;
}
dbglog("using channel %d", chindex);
fd = open("/dev/ppp", O_RDWR);
if (fd < 0) {
error("Couldn't reopen /dev/ppp: %m");
goto err;
}
if (ioctl(fd, PPPIOCATTCHAN, &chindex) < 0) {
error("Couldn't attach to channel %d: %m", chindex);
goto err_close;
}
flags = fcntl(fd, F_GETFL);
if (flags == -1 || fcntl(fd, F_SETFL, flags | O_NONBLOCK) == -1)
warn("Couldn't set /dev/ppp (channel) to nonblock: %m");
set_ppp_fd(fd);
if (!looped)
ifunit = -1;
if (!looped && !multilink) {
/*
* Create a new PPP unit.
*/
if (make_ppp_unit() < 0)
goto err_close;
}
if (looped)
set_flags(ppp_dev_fd, get_flags(ppp_dev_fd) & ~SC_LOOP_TRAFFIC);
if (!multilink) {
add_fd(ppp_dev_fd);
if (ioctl(fd, PPPIOCCONNECT, &ifunit) < 0) {
error("Couldn't attach to PPP unit %d: %m", ifunit);
goto err_close;
}
}
} else {
/*
* Old-style driver: find out which interface we were given.
*/
set_ppp_fd (fd);
if (ioctl(fd, PPPIOCGUNIT, &x) < 0) {
if (ok_error (errno))
goto err;
fatal("ioctl(PPPIOCGUNIT): %m(%d)", errno);
}
/* Check that we got the same unit again. */
if (looped && x != ifunit)
fatal("transfer_ppp failed: wanted unit %d, got %d", ifunit, x);
ifunit = x;
/*
* Fetch the initial file flags and reset blocking mode on the file.
*/
initfdflags = fcntl(fd, F_GETFL);
if (initfdflags == -1 ||
fcntl(fd, F_SETFL, initfdflags | O_NONBLOCK) == -1) {
if ( ! ok_error (errno))
warn("Couldn't set device to non-blocking mode: %m");
}
}
/*
* Enable debug in the driver if requested.
*/
if (!looped)
set_kdebugflag (kdebugflag);
SYSDEBUG ((LOG_NOTICE, "Using version %d.%d.%d of PPP driver",
driver_version, driver_modification, driver_patch));
return ppp_fd;
err_close:
close(fd);
err:
if (ioctl(fd, TIOCSETD, &tty_disc) < 0 && !ok_error(errno))
warn("Couldn't reset tty to normal line discipline: %m");
return -1;
}
/********************************************************************
*
* generic_disestablish_ppp - Restore device components to normal
* operation, and reconnect the ppp unit to the loopback if in demand
* mode. This shouldn't call die() because it's called from die().
*/
void generic_disestablish_ppp(int dev_fd){
/* Restore loop if needed */
if(demand)
restore_loop();
/* Finally detach the device */
initfdflags = -1;
if (new_style_driver) {
close(ppp_fd);
ppp_fd = -1;
if (!looped && ifunit >= 0 && ioctl(ppp_dev_fd, PPPIOCDETACH) < 0)
error("Couldn't release PPP unit: %m");
if (!multilink)
remove_fd(ppp_dev_fd);
}
}
/*
* make_ppp_unit - make a new ppp unit for ppp_dev_fd.
* Assumes new_style_driver.
*/
static int make_ppp_unit()
{
int x;
ifunit = req_unit;
x = ioctl(ppp_dev_fd, PPPIOCNEWUNIT, &ifunit);
if (x < 0 && req_unit >= 0 && errno == EEXIST) {
warn("Couldn't allocate PPP unit %d as it is already in use");
ifunit = -1;
x = ioctl(ppp_dev_fd, PPPIOCNEWUNIT, &ifunit);
}
if (x < 0)
error("Couldn't create new ppp unit: %m");
return x;
}
/********************************************************************
*
* clean_check - Fetch the flags for the device and generate
* appropriate error messages.
*/
void clean_check(void)
{
int x;
char *s;
if (still_ppp()) {
if (ioctl(ppp_fd, PPPIOCGFLAGS, (caddr_t) &x) == 0) {
s = NULL;
switch (~x & (SC_RCV_B7_0|SC_RCV_B7_1|SC_RCV_EVNP|SC_RCV_ODDP)) {
case SC_RCV_B7_0:
s = "all had bit 7 set to 1";
break;
case SC_RCV_B7_1:
s = "all had bit 7 set to 0";
break;
case SC_RCV_EVNP:
s = "all had odd parity";
break;
case SC_RCV_ODDP:
s = "all had even parity";
break;
}
if (s != NULL) {
warn("Receive serial link is not 8-bit clean:");
warn("Problem: %s", s);
}
}
}
}
/********************************************************************
*
* output - Output PPP packet.
*/
void output (int unit, unsigned char *p, int len)
{
int fd = ppp_fd;
int proto;
if (debug)
dbglog("sent %P", p, len);
if (len < PPP_HDRLEN)
return;
if (new_style_driver) {
p += 2;
len -= 2;
proto = (p[0] << 8) + p[1];
if (ifunit >= 0 && !(proto >= 0xc000 || proto == PPP_CCPFRAG))
fd = ppp_dev_fd;
}
if (write(fd, p, len) < 0) {
if (errno == EWOULDBLOCK || errno == ENOBUFS
|| errno == ENXIO || errno == EIO || errno == EINTR)
warn("write: warning: %m (%d)", errno);
else
error("write: %m (%d)", errno);
}
}
/********************************************************************
*
* wait_input - wait until there is data available,
* for the length of time specified by *timo (indefinite
* if timo is NULL).
*/
void wait_input(struct timeval *timo)
{
fd_set ready, exc;
int n;
ready = in_fds;
exc = in_fds;
n = select(max_in_fd + 1, &ready, NULL, &exc, timo);
if (n < 0 && errno != EINTR)
fatal("select: %m(%d)", errno);
}
/*
* add_fd - add an fd to the set that wait_input waits for.
*/
void add_fd(int fd)
{
FD_SET(fd, &in_fds);
if (fd > max_in_fd)
max_in_fd = fd;
}
/*
* remove_fd - remove an fd from the set that wait_input waits for.
*/
void remove_fd(int fd)
{
FD_CLR(fd, &in_fds);
}
/********************************************************************
*
* read_packet - get a PPP packet from the serial device.
*/
int read_packet (unsigned char *buf)
{
int len, nr;
len = PPP_MRU + PPP_HDRLEN;
if (new_style_driver) {
*buf++ = PPP_ALLSTATIONS;
*buf++ = PPP_UI;
len -= 2;
}
nr = -1;
if (ppp_fd >= 0) {
nr = read(ppp_fd, buf, len);
if (nr < 0 && errno != EWOULDBLOCK && errno != EIO && errno != EINTR)
error("read: %m");
if (nr < 0 && errno == ENXIO)
return 0;
}
if (nr < 0 && new_style_driver && ifunit >= 0) {
/* N.B. we read ppp_fd first since LCP packets come in there. */
nr = read(ppp_dev_fd, buf, len);
if (nr < 0 && errno != EWOULDBLOCK && errno != EIO && errno != EINTR)
error("read /dev/ppp: %m");
if (nr < 0 && errno == ENXIO)
return 0;
}
return (new_style_driver && nr > 0)? nr+2: nr;
}
/********************************************************************
*
* get_loop_output - get outgoing packets from the ppp device,
* and detect when we want to bring the real link up.
* Return value is 1 if we need to bring up the link, 0 otherwise.
*/
int
get_loop_output(void)
{
int rv = 0;
int n;
if (new_style_driver) {
while ((n = read_packet(inpacket_buf)) > 0)
if (loop_frame(inpacket_buf, n))
rv = 1;
return rv;
}
while ((n = read(master_fd, inbuf, sizeof(inbuf))) > 0)
if (loop_chars(inbuf, n))
rv = 1;
if (n == 0)
fatal("eof on loopback");
if (errno != EWOULDBLOCK)
fatal("read from loopback: %m(%d)", errno);
return rv;
}
/*
* netif_set_mtu - set the MTU on the PPP network interface.
*/
void
netif_set_mtu(int unit, int mtu)
{
struct ifreq ifr;
SYSDEBUG ((LOG_DEBUG, "netif_set_mtu: mtu = %d\n", mtu));
memset (&ifr, '\0', sizeof (ifr));
strlcpy(ifr.ifr_name, ifname, sizeof (ifr.ifr_name));
ifr.ifr_mtu = mtu;
if (ifunit >= 0 && ioctl(sock_fd, SIOCSIFMTU, (caddr_t) &ifr) < 0)
fatal("ioctl(SIOCSIFMTU): %m");
}
/********************************************************************
*
* ccp_test - ask kernel whether a given compression method
* is acceptable for use.
*/
int ccp_test (int unit, u_char *opt_ptr, int opt_len, int for_transmit)
{
struct ppp_option_data data;
memset (&data, '\0', sizeof (data));
data.ptr = opt_ptr;
data.length = opt_len;
data.transmit = for_transmit;
if (ioctl(ppp_dev_fd, PPPIOCSCOMPRESS, (caddr_t) &data) >= 0)
return 1;
return (errno == ENOBUFS)? 0: -1;
}
/********************************************************************
*
* ccp_flags_set - inform kernel about the current state of CCP.
*/
void ccp_flags_set (int unit, int isopen, int isup)
{
if (still_ppp()) {
int x = get_flags(ppp_dev_fd);
x = isopen? x | SC_CCP_OPEN : x &~ SC_CCP_OPEN;
x = isup? x | SC_CCP_UP : x &~ SC_CCP_UP;
set_flags (ppp_dev_fd, x);
}
}
/********************************************************************
*
* get_idle_time - return how long the link has been idle.
*/
int
get_idle_time(u, ip)
int u;
struct ppp_idle *ip;
{
return ioctl(ppp_dev_fd, PPPIOCGIDLE, ip) >= 0;
}
/********************************************************************
*
* get_ppp_stats - return statistics for the link.
*/
int
get_ppp_stats(u, stats)
int u;
struct pppd_stats *stats;
{
struct ifpppstatsreq req;
memset (&req, 0, sizeof (req));
req.stats_ptr = (caddr_t) &req.stats;
strlcpy(req.ifr__name, ifname, sizeof(req.ifr__name));
if (ioctl(sock_fd, SIOCGPPPSTATS, &req) < 0) {
error("Couldn't get PPP statistics: %m");
return 0;
}
stats->bytes_in = req.stats.p.ppp_ibytes;
stats->bytes_out = req.stats.p.ppp_obytes;
return 1;
}
/********************************************************************
*
* ccp_fatal_error - returns 1 if decompression was disabled as a
* result of an error detected after decompression of a packet,
* 0 otherwise. This is necessary because of patent nonsense.
*/
int ccp_fatal_error (int unit)
{
int x = get_flags(ppp_dev_fd);
return x & SC_DC_FERROR;
}
/********************************************************************
*
* Return user specified netmask, modified by any mask we might determine
* for address `addr' (in network byte order).
* Here we scan through the system's list of interfaces, looking for
* any non-point-to-point interfaces which might appear to be on the same
* network as `addr'. If we find any, we OR in their netmask to the
* user-specified netmask.
*/
u_int32_t GetMask (u_int32_t addr)
{
u_int32_t mask, nmask, ina;
struct ifreq *ifr, *ifend, ifreq;
struct ifconf ifc;
struct ifreq ifs[MAX_IFS];
addr = ntohl(addr);
if (IN_CLASSA(addr)) /* determine network mask for address class */
nmask = IN_CLASSA_NET;
else if (IN_CLASSB(addr))
nmask = IN_CLASSB_NET;
else
nmask = IN_CLASSC_NET;
/* class D nets are disallowed by bad_ip_adrs */
mask = netmask | htonl(nmask);
/*
* Scan through the system's network interfaces.
*/
ifc.ifc_len = sizeof(ifs);
ifc.ifc_req = ifs;
if (ioctl(sock_fd, SIOCGIFCONF, &ifc) < 0) {
if ( ! ok_error ( errno ))
warn("ioctl(SIOCGIFCONF): %m(%d)", errno);
return mask;
}
ifend = (struct ifreq *) (ifc.ifc_buf + ifc.ifc_len);
for (ifr = ifc.ifc_req; ifr < ifend; ifr++) {
/*
* Check the interface's internet address.
*/
if (ifr->ifr_addr.sa_family != AF_INET)
continue;
ina = SIN_ADDR(ifr->ifr_addr);
if (((ntohl(ina) ^ addr) & nmask) != 0)
continue;
/*
* Check that the interface is up, and not point-to-point nor loopback.
*/
strlcpy(ifreq.ifr_name, ifr->ifr_name, sizeof(ifreq.ifr_name));
if (ioctl(sock_fd, SIOCGIFFLAGS, &ifreq) < 0)
continue;
if (((ifreq.ifr_flags ^ FLAGS_GOOD) & FLAGS_MASK) != 0)
continue;
/*
* Get its netmask and OR it into our mask.
*/
if (ioctl(sock_fd, SIOCGIFNETMASK, &ifreq) < 0)
continue;
mask |= SIN_ADDR(ifreq.ifr_addr);
break;
}
return mask;
}
/********************************************************************
*
* ppp_available - check whether the system has any ppp interfaces
* (in fact we check whether we can do an ioctl on ppp0).
*/
int ppp_available(void)
{
struct utsname utsname; /* for the kernel version */
int osmaj, osmin, ospatch;
/* get the kernel version now, since we are called before sys_init */
uname(&utsname);
osmaj = osmin = ospatch = 0;
sscanf(utsname.release, "%d.%d.%d", &osmaj, &osmin, &ospatch);
kernel_version = KVERSION(osmaj, osmin, ospatch);
driver_version = 2;
driver_modification = 4;
driver_patch = 0;
return 1;
}
/********************************************************************
*
* sifvjcomp - config tcp header compression
*/
int sifvjcomp (int u, int vjcomp, int cidcomp, int maxcid)
{
u_int x = get_flags(ppp_dev_fd);
if (vjcomp) {
if (ioctl (ppp_dev_fd, PPPIOCSMAXCID, (caddr_t) &maxcid) < 0) {
if (! ok_error (errno))
error("ioctl(PPPIOCSMAXCID): %m(%d)", errno);
vjcomp = 0;
}
}
x = vjcomp ? x | SC_COMP_TCP : x &~ SC_COMP_TCP;
x = cidcomp ? x & ~SC_NO_TCP_CCID : x | SC_NO_TCP_CCID;
set_flags (ppp_dev_fd, x);
return 1;
}
/********************************************************************
*
* sifup - Config the interface up and enable IP packets to pass.
*/
int sifup(int u)
{
struct ifreq ifr;
memset (&ifr, '\0', sizeof (ifr));
strlcpy(ifr.ifr_name, ifname, sizeof (ifr.ifr_name));
if (ioctl(sock_fd, SIOCGIFFLAGS, (caddr_t) &ifr) < 0) {
if (! ok_error (errno))
error("ioctl (SIOCGIFFLAGS): %m(%d)", errno);
return 0;
}
ifr.ifr_flags |= (IFF_UP | IFF_POINTOPOINT);
if (ioctl(sock_fd, SIOCSIFFLAGS, (caddr_t) &ifr) < 0) {
if (! ok_error (errno))
error("ioctl(SIOCSIFFLAGS): %m(%d)", errno);
return 0;
}
if_is_up++;
return 1;
}
/********************************************************************
*
* sifdown - Disable the indicated protocol and config the interface
* down if there are no remaining protocols.
*/
int sifdown (int u)
{
struct ifreq ifr;
if (if_is_up && --if_is_up > 0)
return 1;
memset (&ifr, '\0', sizeof (ifr));
strlcpy(ifr.ifr_name, ifname, sizeof (ifr.ifr_name));
if (ioctl(sock_fd, SIOCGIFFLAGS, (caddr_t) &ifr) < 0) {
if (! ok_error (errno))
error("ioctl (SIOCGIFFLAGS): %m(%d)", errno);
return 0;
}
ifr.ifr_flags &= ~IFF_UP;
ifr.ifr_flags |= IFF_POINTOPOINT;
if (ioctl(sock_fd, SIOCSIFFLAGS, (caddr_t) &ifr) < 0) {
if (! ok_error (errno))
error("ioctl(SIOCSIFFLAGS): %m(%d)", errno);
return 0;
}
return 1;
}
/********************************************************************
*
* sifaddr - Config the interface IP addresses and netmask.
*/
int sifaddr (int unit, u_int32_t our_adr, u_int32_t his_adr,
u_int32_t net_mask)
{
struct ifreq ifr;
struct rtentry rt;
memset (&ifr, '\0', sizeof (ifr));
memset (&rt, '\0', sizeof (rt));
SET_SA_FAMILY (ifr.ifr_addr, AF_INET);
SET_SA_FAMILY (ifr.ifr_dstaddr, AF_INET);
SET_SA_FAMILY (ifr.ifr_netmask, AF_INET);
strlcpy (ifr.ifr_name, ifname, sizeof (ifr.ifr_name));
/*
* Set our IP address
*/
SIN_ADDR(ifr.ifr_addr) = our_adr;
if (ioctl(sock_fd, SIOCSIFADDR, (caddr_t) &ifr) < 0) {
if (errno != EEXIST) {
if (! ok_error (errno))
error("ioctl(SIOCSIFADDR): %m(%d)", errno);
}
else {
warn("ioctl(SIOCSIFADDR): Address already exists");
}
return (0);
}
/*
* Set the gateway address
*/
SIN_ADDR(ifr.ifr_dstaddr) = his_adr;
if (ioctl(sock_fd, SIOCSIFDSTADDR, (caddr_t) &ifr) < 0) {
if (! ok_error (errno))
error("ioctl(SIOCSIFDSTADDR): %m(%d)", errno);
return (0);
}
/*
* Set the netmask.
* For recent kernels, force the netmask to 255.255.255.255.
*/
if (kernel_version >= KVERSION(2,1,16))
net_mask = ~0L;
if (net_mask != 0) {
SIN_ADDR(ifr.ifr_netmask) = net_mask;
if (ioctl(sock_fd, SIOCSIFNETMASK, (caddr_t) &ifr) < 0) {
if (! ok_error (errno))
error("ioctl(SIOCSIFNETMASK): %m(%d)", errno);
return (0);
}
}
/*
* Add the device route
*/
if (kernel_version < KVERSION(2,1,16)) {
SET_SA_FAMILY (rt.rt_dst, AF_INET);
SET_SA_FAMILY (rt.rt_gateway, AF_INET);
rt.rt_dev = ifname;
SIN_ADDR(rt.rt_gateway) = 0L;
SIN_ADDR(rt.rt_dst) = his_adr;
rt.rt_flags = RTF_UP | RTF_HOST;
if (kernel_version > KVERSION(2,1,0)) {
SET_SA_FAMILY (rt.rt_genmask, AF_INET);
SIN_ADDR(rt.rt_genmask) = -1L;
}
if (ioctl(sock_fd, SIOCADDRT, &rt) < 0) {
if (! ok_error (errno))
error("ioctl(SIOCADDRT) device route: %m(%d)", errno);
return (0);
}
}
/* set ip_dynaddr in demand mode if address changes */
if (demand && tune_kernel && !dynaddr_set
&& our_old_addr && our_old_addr != our_adr) {
/* set ip_dynaddr if possible */
char *path;
int fd;
path = "/proc/sys/net/ipv4/ip_dynaddr";
if (path != 0 && (fd = open(path, O_WRONLY)) >= 0) {
if (write(fd, "1", 1) != 1)
error("Couldn't enable dynamic IP addressing: %m");
close(fd);
}
dynaddr_set = 1; /* only 1 attempt */
}
our_old_addr = 0;
return 1;
}
/********************************************************************
*
* cifaddr - Clear the interface IP addresses, and delete routes
* through the interface if possible.
*/
int cifaddr (int unit, u_int32_t our_adr, u_int32_t his_adr)
{
struct ifreq ifr;
if (kernel_version < KVERSION(2,1,16)) {
/*
* Delete the route through the device
*/
struct rtentry rt;
memset (&rt, '\0', sizeof (rt));
SET_SA_FAMILY (rt.rt_dst, AF_INET);
SET_SA_FAMILY (rt.rt_gateway, AF_INET);
rt.rt_dev = ifname;
SIN_ADDR(rt.rt_gateway) = 0;
SIN_ADDR(rt.rt_dst) = his_adr;
rt.rt_flags = RTF_UP | RTF_HOST;
if (kernel_version > KVERSION(2,1,0)) {
SET_SA_FAMILY (rt.rt_genmask, AF_INET);
SIN_ADDR(rt.rt_genmask) = -1L;
}
if (ioctl(sock_fd, SIOCDELRT, &rt) < 0 && errno != ESRCH) {
if (still_ppp() && ! ok_error (errno))
error("ioctl(SIOCDELRT) device route: %m(%d)", errno);
return (0);
}
}
/* This way it is possible to have an IPX-only or IPv6-only interface */
memset(&ifr, 0, sizeof(ifr));
SET_SA_FAMILY(ifr.ifr_addr, AF_INET);
strlcpy(ifr.ifr_name, ifname, sizeof(ifr.ifr_name));
if (ioctl(sock_fd, SIOCSIFADDR, (caddr_t) &ifr) < 0) {
if (! ok_error (errno)) {
error("ioctl(SIOCSIFADDR): %m(%d)", errno);
return 0;
}
}
our_old_addr = our_adr;
return 1;
}
//===================================================================
#if 1
/*
* /proc/net/route parsing stuff.
*/
#define ROUTE_MAX_COLS 12
FILE *route_fd = (FILE *) 0;
static char route_buffer[512];
static int route_dev_col, route_dest_col, route_gw_col;
static int route_flags_col, route_mask_col;
static int route_num_cols;
static int open_route_table (void);
static void close_route_table (void);
static int read_route_table (struct rtentry *rt);
static char route_delims[] = " \t\n";
/********************************************************************
*
* close_route_table - close the interface to the route table
*/
// copy from pppd/sys-linux.c by tallest
static void close_route_table (void)
{
if (route_fd != (FILE *) 0) {
fclose (route_fd);
route_fd = (FILE *) 0;
}
}
/********************************************************************
*
* read_route_table - read the next entry from the route table
*/
// copy from pppd/sys-linux.c by tallest
static int read_route_table(struct rtentry *rt)
{
char *cols[ROUTE_MAX_COLS], *p;
int col;
memset (rt, '\0', sizeof (struct rtentry));
if (fgets (route_buffer, sizeof (route_buffer), route_fd) == (char *) 0)
return 0;
p = route_buffer;
for (col = 0; col < route_num_cols; ++col) {
cols[col] = strtok(p, route_delims);
if (cols[col] == NULL)
return 0; /* didn't get enough columns */
p = NULL;
}
SIN_ADDR(rt->rt_dst) = strtoul(cols[route_dest_col], NULL, 16);
SIN_ADDR(rt->rt_gateway) = strtoul(cols[route_gw_col], NULL, 16);
SIN_ADDR(rt->rt_genmask) = strtoul(cols[route_mask_col], NULL, 16);
rt->rt_flags = (short) strtoul(cols[route_flags_col], NULL, 16);
rt->rt_dev = cols[route_dev_col];
return 1;
}
/********************************************************************
*
* open_route_table - open the interface to the route table
*/
// copy from pppd/sys-linux.c by tallest
static int open_route_table (void)
{
char *path;
close_route_table();
//path = path_to_procfs("/net/route");
//route_fd = fopen (path, "r");
route_fd = fopen ("proc/net/route", "r");
if (route_fd == NULL) {
error("can't open routing table");
return 0;
}
route_dev_col = 0; /* default to usual columns */
route_dest_col = 1;
route_gw_col = 2;
route_flags_col = 3;
route_mask_col = 7;
route_num_cols = 8;
/* parse header line */
if (fgets(route_buffer, sizeof(route_buffer), route_fd) != 0) {
char *p = route_buffer, *q;
int col;
for (col = 0; col < ROUTE_MAX_COLS; ++col) {
int used = 1;
if ((q = strtok(p, route_delims)) == 0)
break;
if (strcasecmp(q, "iface") == 0)
route_dev_col = col;
else if (strcasecmp(q, "destination") == 0)
route_dest_col = col;
else if (strcasecmp(q, "gateway") == 0)
route_gw_col = col;
else if (strcasecmp(q, "flags") == 0)
route_mask_col = col;
else
used = 0;
if (used && col >= route_num_cols)
route_num_cols = col + 1;
p = NULL;
}
}
return 1;
}
/********************************************************************
*
* defaultroute_exists - determine if there is a default route
*/
// copy from pppd/sys-linux.c by tallest
static int defaultroute_exists (struct rtentry *rt)
{
int result = 0;
if (!open_route_table())
return 0;
while (read_route_table(rt) != 0) {
if ((rt->rt_flags & RTF_UP) == 0)
continue;
if (kernel_version > KVERSION(2,1,0) && SIN_ADDR(rt->rt_genmask) != 0)
continue;
if (SIN_ADDR(rt->rt_dst) == 0L) {
result = 1;
break;
}
}
close_route_table();
return result;
}
/********************************************************************
*
* sifdefaultroute - assign a default route through the address given.
*/
// copy from pppd/sys_linux.c by tallest
int
sifdefaultroute (int unit, u_int32_t ouraddr, u_int32_t gateway)
{
struct rtentry rt;
if (defaultroute_exists(&rt) && strcmp(rt.rt_dev, ifname) != 0) {
u_int32_t old_gateway = SIN_ADDR(rt.rt_gateway);
if (old_gateway != gateway)
error("not replacing existing default route to %s [%I]",
rt.rt_dev, old_gateway);
return 0;
}
memset (&rt, '\0', sizeof (rt));
SET_SA_FAMILY (rt.rt_dst, AF_INET);
SET_SA_FAMILY (rt.rt_gateway, AF_INET);
if (kernel_version > KVERSION(2,1,0)) {
SET_SA_FAMILY (rt.rt_genmask, AF_INET);
SIN_ADDR(rt.rt_genmask) = 0L;
}
SIN_ADDR(rt.rt_gateway) = gateway;
rt.rt_flags = RTF_UP | RTF_GATEWAY;
if (ioctl(sock_fd, SIOCADDRT, &rt) < 0) {
if ( ! ok_error ( errno ))
error("default route ioctl(SIOCADDRT): %m(%d)", errno);
return 0;
}
//default_route_gateway = gateway;
return 1;
}
#endif
//===================================================================
/********************************************************************
*
* open_loopback - open the device we use for getting packets
* in demand mode. Under Linux, we use a pty master/slave pair.
*/
int
open_ppp_loopback(void)
{
int flags;
looped = 1;
if (new_style_driver) {
/* allocate ourselves a ppp unit */
if (make_ppp_unit() < 0)
die(1);
set_flags(ppp_dev_fd, SC_LOOP_TRAFFIC);
set_kdebugflag(kdebugflag);
ppp_fd = -1;
return ppp_dev_fd;
}
if (!get_pty(&master_fd, &slave_fd, loop_name, 0))
fatal("No free pty for loopback");
SYSDEBUG(("using %s for loopback", loop_name));
set_ppp_fd(slave_fd);
flags = fcntl(master_fd, F_GETFL);
if (flags == -1 ||
fcntl(master_fd, F_SETFL, flags | O_NONBLOCK) == -1)
warn("couldn't set master loopback to nonblock: %m(%d)", errno);
flags = fcntl(ppp_fd, F_GETFL);
if (flags == -1 ||
fcntl(ppp_fd, F_SETFL, flags | O_NONBLOCK) == -1)
warn("couldn't set slave loopback to nonblock: %m(%d)", errno);
if (ioctl(ppp_fd, TIOCSETD, &ppp_disc) < 0)
fatal("ioctl(TIOCSETD): %m(%d)", errno);
/*
* Find out which interface we were given.
*/
if (ioctl(ppp_fd, PPPIOCGUNIT, &ifunit) < 0)
fatal("ioctl(PPPIOCGUNIT): %m(%d)", errno);
/*
* Enable debug in the driver if requested.
*/
set_kdebugflag (kdebugflag);
return master_fd;
}
/********************************************************************
*
* restore_loop - reattach the ppp unit to the loopback.
*
* The kernel ppp driver automatically reattaches the ppp unit to
* the loopback if the serial port is set to a line discipline other
* than ppp, or if it detects a modem hangup. The former will happen
* in disestablish_ppp if the latter hasn't already happened, so we
* shouldn't need to do anything.
*
* Just to be sure, set the real serial port to the normal discipline.
*/
void
restore_loop(void)
{
looped = 1;
if (new_style_driver) {
set_flags(ppp_dev_fd, get_flags(ppp_dev_fd) | SC_LOOP_TRAFFIC);
return;
}
if (ppp_fd != slave_fd) {
(void) ioctl(ppp_fd, TIOCSETD, &tty_disc);
set_ppp_fd(slave_fd);
}
}
/********************************************************************
*
* sifnpmode - Set the mode for handling packets for a given NP.
*/
int
sifnpmode(u, proto, mode)
int u;
int proto;
enum NPmode mode;
{
struct npioctl npi;
npi.protocol = proto;
npi.mode = mode;
if (ioctl(ppp_dev_fd, PPPIOCSNPMODE, (caddr_t) &npi) < 0) {
if (! ok_error (errno))
error("ioctl(PPPIOCSNPMODE, %d, %d): %m (%d)",
proto, mode, errno);
return 0;
}
return 1;
}
/*
* Use the hostname as part of the random number seed.
*/
int
get_host_seed()
{
int h;
char *p = hostname;
h = 407;
for (p = hostname; *p != 0; ++p)
h = h * 37 + *p;
return h;
}