]> git.ozlabs.org Git - ppp.git/commitdiff
Mods from Al Longyear, including improvements to option file word parsing,
authorPaul Mackerras <paulus@samba.org>
Mon, 12 Jun 1995 11:22:55 +0000 (11:22 +0000)
committerPaul Mackerras <paulus@samba.org>
Mon, 12 Jun 1995 11:22:55 +0000 (11:22 +0000)
plus fix up patchlevel.

pppd/lcp.h
pppd/main.c
pppd/options.c
pppd/patchlevel.h
pppd/pathnames.h
pppd/sys-linux.c

index 2e8144904cab1c29cfbc3d3dc58a7b42e5e97a2b..271ddc5ef3b62431cef46d85bdc86345242b32f1 100644 (file)
@@ -16,7 +16,7 @@
  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  *
- * $Id: lcp.h,v 1.7 1995/05/19 03:25:53 paulus Exp $
+ * $Id: lcp.h,v 1.8 1995/06/12 11:22:47 paulus Exp $
  */
 
 /*
@@ -58,7 +58,7 @@ typedef struct lcp_options {
     u_int32_t asyncmap;                /* Value of async map */
     u_int32_t magicnumber;
     int numloops;              /* Number of loops during magic number neg. */
-    u_int32_t lqr_period;      /* Reporting period for link quality */
+    u_int32_t lqr_period;      /* Reporting period for LQR 1/100ths second */
 } lcp_options;
 
 extern fsm lcp_fsm[];
index 38af544d7ae0d261826d6c92381cd53054112164..6ec72b44a7a550dc6994fb8edeae60c5d655c26d 100644 (file)
@@ -18,7 +18,7 @@
  */
 
 #ifndef lint
-static char rcsid[] = "$Id: main.c,v 1.23 1995/05/19 03:26:25 paulus Exp $";
+static char rcsid[] = "$Id: main.c,v 1.24 1995/06/12 11:22:49 paulus Exp $";
 #endif
 
 #include <stdio.h>
@@ -306,10 +306,10 @@ main(argc, argv)
                die(1);
            }
 
-           syslog(LOG_INFO, "Connected...");
+           syslog(LOG_INFO, "Serial connection established.");
            sleep(1);           /* give it time to set up its terminal */
        }
-  
+
        /* set line speed, flow control, etc.; clear CLOCAL if modem option */
        set_up_tty(fd, 0);
 
@@ -365,6 +365,7 @@ main(argc, argv)
        /*
         * Run disconnector script, if requested.
         * First we need to reset non-blocking mode.
+        * XXX we may not be able to do this if the line has hung up!
         */
        if (initfdflags != -1 && fcntl(fd, F_SETFL, initfdflags) >= 0)
            initfdflags = -1;
@@ -373,10 +374,9 @@ main(argc, argv)
            set_up_tty(fd, 1);
            if (device_script(disconnector, fd, fd) < 0) {
                syslog(LOG_WARNING, "disconnect script failed");
-               die(1);
+           } else {
+               syslog(LOG_INFO, "Serial link disconnected.");
            }
-
-           syslog(LOG_INFO, "Disconnected...");
        }
 
        close_fd();
@@ -438,21 +438,21 @@ get_input()
     /*
      * Upcall the proper protocol input routine.
      */
-    for (i = 0; i < sizeof (prottbl) / sizeof (struct protent); i++)
+    for (i = 0; i < sizeof (prottbl) / sizeof (struct protent); i++) {
        if (prottbl[i].protocol == protocol) {
            (*prottbl[i].input)(0, p, len);
-           break;
-       } else if (protocol == (prottbl[i].protocol & ~0x8000)
-                  && prottbl[i].datainput != NULL) {
+           return;
+       }
+        if (protocol == (prottbl[i].protocol & ~0x8000)
+           && prottbl[i].datainput != NULL) {
            (*prottbl[i].datainput)(0, p, len);
-           break;
+           return;
        }
-
-    if (i == sizeof (prottbl) / sizeof (struct protent)) {
-       if (debug)
-           syslog(LOG_WARNING, "Unknown protocol (0x%x) received", protocol);
-       lcp_sprotrej(0, p - PPP_HDRLEN, len + PPP_HDRLEN);
     }
+
+    if (debug)
+       syslog(LOG_WARNING, "Unknown protocol (0x%x) received", protocol);
+    lcp_sprotrej(0, p - PPP_HDRLEN, len + PPP_HDRLEN);
 }
 
 
@@ -528,6 +528,8 @@ cleanup(status, arg)
 void
 close_fd()
 {
+    disestablish_ppp();
+
     /* drop dtr to hang up */
     if (modem)
        setdtr(fd, FALSE);
@@ -536,8 +538,6 @@ close_fd()
        syslog(LOG_WARNING, "Couldn't restore device fd flags: %m");
     initfdflags = -1;
 
-    disestablish_ppp();
-
     restore_tty();
 
     close(fd);
@@ -760,6 +760,7 @@ device_script(program, in, out)
 {
     int pid;
     int status;
+    int errfd;
 
     pid = fork();
 
@@ -769,10 +770,13 @@ device_script(program, in, out)
     }
 
     if (pid == 0) {
-       setuid(getuid());
-       setgid(getgid());
        dup2(in, 0);
        dup2(out, 1);
+       errfd = open(_PATH_CONNERRS, O_WRONLY | O_APPEND | O_CREAT, 0644);
+       if (errfd >= 0)
+           dup2(errfd, 2);
+       setuid(getuid());
+       setgid(getgid());
        execl("/bin/sh", "sh", "-c", program, (char *)0);
        syslog(LOG_ERR, "could not exec /bin/sh: %m");
        _exit(99);
index 3d5e020338d88538d11e94f6ebd06749a7cd0ffc..2375cf50df33841b9a66ece47ef5e56e21b12545 100644 (file)
@@ -18,7 +18,7 @@
  */
 
 #ifndef lint
-static char rcsid[] = "$Id: options.c,v 1.19 1995/04/27 00:20:16 paulus Exp $";
+static char rcsid[] = "$Id: options.c,v 1.20 1995/06/12 11:22:51 paulus Exp $";
 #endif
 
 #include <stdio.h>
@@ -495,10 +495,11 @@ readable(fd)
 
 /*
  * Read a word from a file.
- * Words are delimited by white-space or by quotes (").
+ * Words are delimited by white-space or by quotes (", or ').
  * Quotes, white-space and \ may be escaped with \.
  * \<newline> is ignored.
  */
+
 int
 getword(f, word, newlinep, filename)
     FILE *f;
@@ -507,96 +508,236 @@ getword(f, word, newlinep, filename)
     char *filename;
 {
     int c, len, escape;
-    int quoted;
+    int quoted, comment;
+    int value, digit, got, n;
+
+#define isoctal(c) ((c) >= '0' && (c) < '8')
 
     *newlinep = 0;
     len = 0;
     escape = 0;
-    quoted = 0;
+    comment = 0;
 
     /*
-     * First skip white-space and comments
+     * First skip white-space and comments.
      */
-    while ((c = getc(f)) != EOF) {
+    for (;;) {
+       c = getc(f);
+       if (c == EOF)
+           break;
+
+       /*
+        * A newline means the end of a comment; backslash-newline
+        * is ignored.  Note that we cannot have escape && comment.
+        */
+       if (c == '\n') {
+           if (!escape) {
+               *newlinep = 1;
+               comment = 0;
+           } else
+               escape = 0;
+           continue;
+       }
+
+       /*
+        * Ignore characters other than newline in a comment.
+        */
+       if (comment)
+           continue;
+
+       /*
+        * If this character is escaped, we have a word start.
+        */
+       if (escape)
+           break;
+
+       /*
+        * If this is the escape character, look at the next character.
+        */
        if (c == '\\') {
+           escape = 1;
+           continue;
+       }
+
+       /*
+        * If this is the start of a comment, ignore the rest of the line.
+        */
+       if (c == '#') {
+           comment = 1;
+           continue;
+       }
+
+       /*
+        * A non-whitespace character is the start of a word.
+        */
+       if (!isspace(c))
+           break;
+    }
+
+    /*
+     * Save the delimiter for quoted strings.
+     */
+    if (!escape && (c == '"' || c == '\'')) {
+        quoted = c;
+       c = getc(f);
+    } else
+        quoted = 0;
+
+    /*
+     * Process characters until the end of the word.
+     */
+    while (c != EOF) {
+       if (escape) {
            /*
-            * \<newline> is ignored; \ followed by anything else
-            * starts a word.
+            * This character is escaped: backslash-newline is ignored,
+            * various other characters indicate particular values
+            * as for C backslash-escapes.
             */
-           if ((c = getc(f)) == '\n')
+           escape = 0;
+           if (c == '\n') {
+               c = getc(f);
                continue;
-           word[len++] = '\\';
-           escape = 1;
-           break;
+           }
+
+           got = 0;
+           switch (c) {
+           case 'a':
+               value = '\a';
+               break;
+           case 'b':
+               value = '\b';
+               break;
+           case 'f':
+               value = '\f';
+               break;
+           case 'n':
+               value = '\n';
+               break;
+           case 'r':
+               value = '\r';
+               break;
+           case 's':
+               value = ' ';
+               break;
+           case 't':
+               value = '\t';
+               break;
+
+           default:
+               if (isoctal(c)) {
+                   /*
+                    * \ddd octal sequence
+                    */
+                   value = 0;
+                   for (n = 0; n < 3 && isoctal(c); ++n) {
+                       value = (value << 3) + (c & 07);
+                       c = getc(f);
+                   }
+                   got = 1;
+                   break;
+               }
+
+               if (c == 'x') {
+                   /*
+                    * \x<hex_string> sequence
+                    */
+                   value = 0;
+                   c = getc(f);
+                   for (n = 0; n < 2 && isxdigit(c); ++n) {
+                       digit = toupper(c) - '0';
+                       if (digit > 10)
+                           digit += '0' + 10 - 'A';
+                       value = (value << 4) + digit;
+                       c = getc (f);
+                   }
+                   got = 1;
+                   break;
+               }
+
+               /*
+                * Otherwise the character stands for itself.
+                */
+               value = c;
+               break;
+           }
+
+           /*
+            * Store the resulting character for the escape sequence.
+            */
+           if (len < MAXWORDLEN-1)
+               word[len] = value;
+           ++len;
+
+           if (!got)
+               c = getc(f);
+           continue;
+
        }
-       if (c == '\n')
-           *newlinep = 1;      /* next word starts a line */
-       else if (c == '#') {
-           /* comment - ignore until EOF or \n */
-           while ((c = getc(f)) != EOF && c != '\n')
-               ;
-           if (c == EOF)
+
+       /*
+        * Not escaped: see if we've reached the end of the word.
+        */
+       if (quoted) {
+           if (c == quoted)
                break;
-           *newlinep = 1;
-       } else if (!isspace(c))
-           break;
+       } else {
+           if (isspace(c) || c == '#') {
+               ungetc (c, f);
+               break;
+           }
+       }
+
+       /*
+        * Backslash starts an escape sequence.
+        */
+       if (c == '\\') {
+           escape = 1;
+           c = getc(f);
+           continue;
+       }
+
+       /*
+        * An ordinary character: store it in the word and get another.
+        */
+       if (len < MAXWORDLEN-1)
+           word[len] = c;
+       ++len;
+
+       c = getc(f);
     }
 
     /*
-     * End of file or error - fail
+     * End of the word: check for errors.
      */
     if (c == EOF) {
        if (ferror(f)) {
+           if (errno == 0)
+               errno = EIO;
            perror(filename);
            die(1);
        }
-       return 0;
-    }
-
-    for (;;) {
        /*
-        * Is this character escaped by \ ?
+        * If len is zero, then we didn't find a word before the
+        * end of the file.
         */
-       if (escape) {
-           if (c == '\n')
-               --len;                  /* ignore \<newline> */
-           else if (c == '"' || isspace(c) || c == '\\')
-               word[len-1] = c;        /* put special char in word */
-           else {
-               if (len < MAXWORDLEN-1)
-                   word[len] = c;
-               ++len;
-           }
-           escape = 0;
-       } else if (c == '"') {
-           quoted = !quoted;
-       } else if (!quoted && (isspace(c) || c == '#')) {
-           ungetc(c, f);
-           break;
-       } else {
-           if (len < MAXWORDLEN-1)
-               word[len] = c;
-           ++len;
-           if (c == '\\')
-               escape = 1;
-       }
-       if ((c = getc(f)) == EOF)
-           break;
-    }
-
-    if (ferror(f)) {
-       perror(filename);
-       die(1);
+       if (len == 0)
+           return 0;
     }
 
+    /*
+     * Warn if the word was too long, and append a terminating null.
+     */
     if (len >= MAXWORDLEN) {
-       word[MAXWORDLEN-1] = 0;
        fprintf(stderr, "%s: warning: word in file %s too long (%.20s...)\n",
                progname, filename, word);
-    } else
-       word[len] = 0;
+       len = MAXWORDLEN - 1;
+    }
+    word[len] = 0;
 
     return 1;
+
+#undef isoctal
+
 }
 
 /*
@@ -1267,6 +1408,9 @@ setnocrtscts()
 static int
 setxonxoff()
 {
+    lcp_wantoptions[0].asyncmap |= 0x000A0000; /* escape ^S and ^Q */
+    lcp_wantoptions[0].neg_asyncmap = 1;
+
     crtscts = 2;
     return (1);
 }
index 629e48adf4c6f8f224b154b59dc82b2eb1c3c59d..5b1f195a27ed89911ecc12591cb5d54b4ab6c01c 100644 (file)
@@ -1,6 +1,6 @@
-/* $Id: patchlevel.h,v 1.13 1994/10/24 04:53:17 paulus Exp $ */
+/* $Id: patchlevel.h,v 1.14 1995/06/12 11:22:52 paulus Exp $ */
 #define        PATCHLEVEL      0
 
 #define VERSION                "2.2"
-#define IMPLEMENTATION "alpha3"
-#define DATE           "24 Oct 94"
+#define IMPLEMENTATION "beta1"
+#define DATE           "12 June 95"
index 7baf95a43df8bc2ed2fffc40833577c6d179a286..4562a967017bd9a1237a7221778b9c27280bfec0 100644 (file)
@@ -1,7 +1,7 @@
 /*
  * define path names
  *
- * $Id: pathnames.h,v 1.5 1994/09/01 00:32:56 paulus Exp $
+ * $Id: pathnames.h,v 1.6 1995/06/12 11:22:53 paulus Exp $
  */
 
 #ifdef HAVE_PATHS_H
@@ -18,4 +18,5 @@
 #define _PATH_IPUP     "/etc/ppp/ip-up"
 #define _PATH_IPDOWN   "/etc/ppp/ip-down"
 #define _PATH_TTYOPT   "/etc/ppp/options."
+#define _PATH_CONNERRS "/etc/ppp/connect-errors"
 #define _PATH_USEROPT  ".ppprc"
index 9f04976e5b810139a04228e73a8b8e4bf2b68853..455d74a7e764eeadf17f007b0a892b4ec2b6b693 100644 (file)
@@ -42,7 +42,7 @@
 #include <net/if.h>
 #include <net/ppp_defs.h>
 #include <net/if_arp.h>
-#include <linux/if_ppp.h>
+#include <net/if_ppp.h>
 #include <net/if_route.h>
 #include <linux/if_ether.h>
 #include <netinet/in.h>
@@ -59,14 +59,18 @@ static struct termios inittermios;  /* Initial TTY termios */
 
 int sockfd;                    /* socket for doing interface ioctls */
 
-static int driver_version = 0;
+static int driver_version      = 0;
 static int driver_modification = 0;
-static int driver_patch = 0;
+static int driver_patch        = 0;
 
 static char *lock_file;
 
 #define MAX_IFS                32
 
+#define FLAGS_GOOD (IFF_UP          | IFF_BROADCAST)
+#define FLAGS_MASK (IFF_UP          | IFF_BROADCAST | \
+                   IFF_POINTOPOINT | IFF_LOOPBACK  | IFF_NOARP)
+
 /*
  * SET_SA_FAMILY - set the sa_family field of a struct sockaddr,
  * if it exists.
@@ -76,90 +80,137 @@ static char *lock_file;
     memset ((char *) &(addr), '\0', sizeof(addr));     \
     addr.sa_family = (family);
 
+/*
+ * Functions to read and set the flags value in the device driver
+ */
+
+int get_flags (void)
+  {    
+    int flags;
+
+    if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &flags) < 0)
+      {
+       syslog(LOG_ERR, "ioctl(PPPIOCGFLAGS): %m");
+       quit();
+      }
+
+    MAINDEBUG ((LOG_DEBUG, "get flags = %x\n", flags));
+    return flags;
+  }
+
+void set_flags (int flags)
+  {    
+    MAINDEBUG ((LOG_DEBUG, "set flags = %x\n", flags));
+    if (ioctl(fd, PPPIOCSFLAGS, (caddr_t) &flags) < 0)
+      {
+       syslog(LOG_ERR, "ioctl(PPPIOCSFLAGS, %x): %m", flags);
+       quit();
+      }
+  }
+
 /*
  * sys_init - System-dependent initialization.
  */
 
 void sys_init(void)
-{
+  {
     openlog("pppd", LOG_PID | LOG_NDELAY, LOG_PPP);
     setlogmask(LOG_UPTO(LOG_INFO));
     if (debug)
+      {
        setlogmask(LOG_UPTO(LOG_DEBUG));
-
-    /* Get an internet socket for doing socket ioctl's on. */
-    if ((sockfd = socket(AF_INET, SOCK_DGRAM, 0)) < 0) {
+      }
+    
+    /* Get an internet socket for doing socket ioctls. */
+    sockfd = socket(AF_INET, SOCK_DGRAM, 0);
+    if (sockfd < 0)
+      {
        syslog(LOG_ERR, "Couldn't create IP socket: %m");
        die(1);
-    }
-}
+      }
+  }
 
 /*
  * note_debug_level - note a change in the debug level.
  */
+
 void note_debug_level (void)
-{
-    if (debug) {
-       syslog(LOG_INFO, "Debug turned ON, Level %d", debug);
+  {
+    if (debug)
+      {
+       MAINDEBUG ((LOG_INFO, "Debug turned ON, Level %d", debug));
        setlogmask(LOG_UPTO(LOG_DEBUG));
-    } else {
+      }
+    else
+      {
        setlogmask(LOG_UPTO(LOG_WARNING));
-    }
-}
+      }
+  }
 
 /*
  * set_kdebugflag - Define the debugging level for the kernel
  */
 
 int set_kdebugflag (int requested_level)
-{
-    if (ioctl(fd, PPPIOCGDEBUG, &prev_kdebugflag) < 0) {
+  {
+    if (ioctl(fd, PPPIOCGDEBUG, &prev_kdebugflag) < 0)
+      {
        syslog(LOG_ERR, "ioctl(PPPIOCGDEBUG): %m");
        return (0);
-    }
-
-    if (prev_kdebugflag != requested_level) {
-       if (ioctl(fd, PPPIOCSDEBUG, &requested_level) < 0) {
+      }
+    
+    if (prev_kdebugflag != requested_level)
+      {
+       if (ioctl(fd, PPPIOCSDEBUG, &requested_level) < 0)
+         {
            syslog (LOG_ERR, "ioctl(PPPIOCSDEBUG): %m");
            return (0);
-       }
-        syslog(LOG_INFO, "set kernel debugging level to %d", requested_level);
-    }
+         }
+        MAINDEBUG ((LOG_INFO, "set kernel debugging level to %d", requested_level));
+      }
     return (1);
-}
+  }
 
 /*
  * establish_ppp - Turn the serial port into a ppp interface.
  */
 
 void establish_ppp (void)
-{
+  {
     int pppdisc = N_PPP;
     int sig    = SIGIO;
 
-    if (ioctl(fd, TIOCEXCL, 0) < 0) {
+    if (ioctl(fd, TIOCEXCL, 0) < 0)
+      {
        syslog (LOG_WARNING, "ioctl(TIOCEXCL): %m");
-    }
-
-    if (ioctl(fd, TIOCGETD, &initdisc) < 0) {
+      }
+    
+    if (ioctl(fd, TIOCGETD, &initdisc) < 0)
+      {
        syslog(LOG_ERR, "ioctl(TIOCGETD): %m");
        die (1);
-    }
+      }
     
-    if (ioctl(fd, TIOCSETD, &pppdisc) < 0) {
+    if (ioctl(fd, TIOCSETD, &pppdisc) < 0)
+      {
        syslog(LOG_ERR, "ioctl(TIOCSETD): %m");
        die (1);
-    }
-    if (ioctl(fd, PPPIOCGUNIT, &ifunit) < 0) {
+      }
+    
+    if (ioctl(fd, PPPIOCGUNIT, &ifunit) < 0)
+      {
        syslog(LOG_ERR, "ioctl(PPPIOCGUNIT): %m");
        die (1);
-    }
-
+      }
+    
     set_kdebugflag (kdebugflag);
 
-    syslog (LOG_NOTICE, "Using version %d.%d.%d of PPP driver",
-           driver_version, driver_modification, driver_patch);
-}
+    set_flags (get_flags() & ~(SC_RCV_B7_0 | SC_RCV_B7_1 |
+                              SC_RCV_EVNP | SC_RCV_ODDP));
+
+    MAINDEBUG ((LOG_NOTICE, "Using version %d.%d.%d of PPP driver",
+           driver_version, driver_modification, driver_patch));
+  }
 
 /*
  * disestablish_ppp - Restore the serial port to normal operation.
@@ -167,50 +218,73 @@ void establish_ppp (void)
  */
 
 void disestablish_ppp(void)
-{
+  {
     int x;
     char *s;
-
-    if (initdisc >= 0) {
-        set_kdebugflag (prev_kdebugflag);
-       /*
-        * Check whether the link seems not to be 8-bit clean.
-        */
-       if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &x) == 0) {
+/*
+ * Check whether the link seems not to be 8-bit clean.
+ */
+    if (initdisc >= 0)
+      {
+       if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &x) == 0)
+         {
            s = NULL;
-           switch (~x & (SC_RCV_B7_0|SC_RCV_B7_1|SC_RCV_EVNP|SC_RCV_ODDP)) {
+           switch (~x & (SC_RCV_B7_0|SC_RCV_B7_1|SC_RCV_EVNP|SC_RCV_ODDP))
+             {
+           case SC_RCV_B7_0 | SC_RCV_B7_1 | SC_RCV_EVNP | SC_RCV_ODDP:
+               s = "nothing was received";
+               break;
+
            case SC_RCV_B7_0:
-               s = "bit 7 set to 1";
+           case SC_RCV_B7_0 | SC_RCV_EVNP:
+           case SC_RCV_B7_0 | SC_RCV_ODDP:
+           case SC_RCV_B7_0 | SC_RCV_ODDP | SC_RCV_EVNP:
+               s = "all had bit 7 set to 1";
                break;
+
            case SC_RCV_B7_1:
-               s = "bit 7 set to 0";
+           case SC_RCV_B7_1 | SC_RCV_EVNP:
+           case SC_RCV_B7_1 | SC_RCV_ODDP:
+           case SC_RCV_B7_1 | SC_RCV_ODDP | SC_RCV_EVNP:
+               s = "all had bit 7 set to 0";
                break;
+
            case SC_RCV_EVNP:
-               s = "odd parity";
+               s = "all had odd parity";
                break;
+
            case SC_RCV_ODDP:
-               s = "even parity";
+               s = "all had even parity";
                break;
-           }
-           if (s != NULL) {
-               syslog(LOG_WARNING, "Serial link is not 8-bit clean:");
-               syslog(LOG_WARNING, "All received characters had %s", s);
-           }
-       }
+             }
 
+           if (s != NULL)
+             {
+               syslog(LOG_WARNING, "Receive serial link is not 8-bit clean:");
+               syslog(LOG_WARNING, "Problem: %s", s);
+             }
+         }
+
+        set_kdebugflag (prev_kdebugflag);
+       
        if (ioctl(fd, TIOCSETD, &initdisc) < 0)
+         {
            syslog(LOG_ERR, "ioctl(TIOCSETD): %m");
-
+         }
+       
        if (ioctl(fd, TIOCNXCL, 0) < 0)
+         {
            syslog (LOG_WARNING, "ioctl(TIOCNXCL): %m");
-
+         }
+       
        initdisc = -1;
-    }
-}
+      }
+  }
 
 /*
  * List of valid speeds.
  */
+
 struct speed {
     int speed_int, speed_val;
 } speeds[] = {
@@ -286,275 +360,321 @@ struct speed {
 /*
  * Translate from bits/second to a speed_t.
  */
+
 int translate_speed (int bps)
-{
+  {
     struct speed *speedp;
 
     if (bps == 0)
-       return 0;
-    for (speedp = speeds; speedp->speed_int; speedp++)
-       if (bps == speedp->speed_int)
-           return speedp->speed_val;
-    syslog(LOG_WARNING, "speed %d not supported", bps);
+      {
+       for (speedp = speeds; speedp->speed_int; speedp++)
+         {
+           if (bps == speedp->speed_int)
+             {
+               return speedp->speed_val;
+             }
+         }
+       syslog(LOG_WARNING, "speed %d not supported", bps);
+      }
     return 0;
-}
+  }
 
 /*
  * Translate from a speed_t to bits/second.
  */
+
 int baud_rate_of (int speed)
-{
+  {
     struct speed *speedp;
-
-    if (speed == 0)
-       return 0;
-    for (speedp = speeds; speedp->speed_int; speedp++)
-       if (speed == speedp->speed_val)
-           return speedp->speed_int;
+    
+    if (speed != 0)
+      {
+       for (speedp = speeds; speedp->speed_int; speedp++)
+         {
+           if (speed == speedp->speed_val)
+             {
+               return speedp->speed_int;
+             }
+         }
+      }
     return 0;
-}
+  }
 
 /*
  * set_up_tty: Set up the serial port on `fd' for 8 bits, no parity,
  * at the requested speed, etc.  If `local' is true, set CLOCAL
  * regardless of whether the modem option was specified.
  */
+
 void set_up_tty (int fd, int local)
-{
+  {
     int speed, x;
     struct termios tios;
-
-    if (tcgetattr(fd, &tios) < 0) {
+    
+    if (tcgetattr(fd, &tios) < 0)
+      {
        syslog(LOG_ERR, "tcgetattr: %m");
        die(1);
-    }
-
+      }
+    
     if (!restore_term)
+      {
        inittermios = tios;
-
-    tios.c_cflag &= ~(CSIZE | CSTOPB | PARENB | CLOCAL);
-    if (crtscts == 1)
-       tios.c_cflag |= CRTSCTS;
-    else if (crtscts < 0)
-       tios.c_cflag &= ~CRTSCTS;
-
-    tios.c_cflag |= CS8 | CREAD | HUPCL;
-
-    if (local || !modem)
-       tios.c_cflag |= CLOCAL;
+      }
+    
+    tios.c_cflag     &= ~(CSIZE | CSTOPB | PARENB | CLOCAL);
+    tios.c_cflag     |= CS8 | CREAD | HUPCL;
 
     tios.c_iflag      = IGNBRK | IGNPAR;
     tios.c_oflag      = 0;
     tios.c_lflag      = 0;
     tios.c_cc[VMIN]   = 1;
     tios.c_cc[VTIME]  = 0;
+    
+    if (local || !modem)
+      {
+       tios.c_cflag ^= (CLOCAL | HUPCL);
+      }
+
+    switch (crtscts)
+      {
+    case 1:
+       tios.c_cflag |= CRTSCTS;
+       break;
 
-    if (crtscts == 2) {
+    case 2:
        tios.c_iflag     |= IXOFF;
        tios.c_cc[VSTOP]  = 0x13;       /* DC3 = XOFF = ^S */
        tios.c_cc[VSTART] = 0x11;       /* DC1 = XON  = ^Q */
-    }
+       break;
+
+    case -1:
+       tios.c_cflag &= ~CRTSCTS;
+       break;
 
+    default:
+       break;
+      }
+    
     speed = translate_speed(inspeed);
-    if (speed) {
-       cfsetospeed(&tios, speed);
-       cfsetispeed(&tios, speed);
-    } else {
+    if (speed)
+      {
+       cfsetospeed (&tios, speed);
+       cfsetispeed (&tios, speed);
+      }
+/*
+ * We can't proceed if the serial port speed is B0,
+ * since that implies that the serial port is disabled.
+ */
+    else
+      {
        speed = cfgetospeed(&tios);
-       /*
-        * We can't proceed if the serial port speed is B0,
-        * since that implies that the serial port is disabled.
-        */
-       if (speed == B0) {
+       if (speed == B0)
+         {
            syslog(LOG_ERR, "Baud rate for %s is 0; need explicit baud rate",
                   devnam);
-           die(1);
-       }
-    }
+           die (1);
+         }
+      }
 
-    if (tcsetattr(fd, TCSAFLUSH, &tios) < 0) {
+    if (tcsetattr(fd, TCSAFLUSH, &tios) < 0)
+      {
        syslog(LOG_ERR, "tcsetattr: %m");
        die(1);
-    }
-
-    baud_rate = baud_rate_of(speed);
+      }
+    
+    baud_rate    = baud_rate_of(speed);
     restore_term = TRUE;
-}
+  }
 
 /*
  * setdtr - control the DTR line on the serial port.
  * This is called from die(), so it shouldn't call die().
  */
+
 void setdtr (int fd, int on)
-{
+  {
     int modembits = TIOCM_DTR;
 
-    ioctl(fd, (on? TIOCMBIS: TIOCMBIC), &modembits);
-}
+    ioctl(fd, (on ? TIOCMBIS : TIOCMBIC), &modembits);
+  }
 
 /*
  * restore_tty - restore the terminal to the saved settings.
  */
 
 void restore_tty (void)
-{
-    if (restore_term) {
-       if (!default_device) {
-           /*
-            * Turn off echoing, because otherwise we can get into
-            * a loop with the tty and the modem echoing to each other.
-            * We presume we are the sole user of this tty device, so
-            * when we close it, it will revert to its defaults anyway.
-            */
+  {
+    if (restore_term)
+      {
+       restore_term = 0;
+/*
+ * Turn off echoing, because otherwise we can get into
+ * a loop with the tty and the modem echoing to each other.
+ * We presume we are the sole user of this tty device, so
+ * when we close it, it will revert to its defaults anyway.
+ */
+       if (!default_device)
+         {
            inittermios.c_lflag &= ~(ECHO | ECHONL);
-       }
+         }
+       
        if (tcsetattr(fd, TCSAFLUSH, &inittermios) < 0)
+         {
            if (errno != ENXIO)
+             {
                syslog(LOG_WARNING, "tcsetattr: %m");
-       restore_term = 0;
-    }
-}
+             }
+         }
+      }
+  }
 
 /*
  * output - Output PPP packet.
  */
 
 void output (int unit, unsigned char *p, int len)
-{
+  {
     if (unit != 0)
+      {
        MAINDEBUG((LOG_WARNING, "output: unit != 0!"));
-
+      }
+    
     if (debug)
+      {
         log_packet(p, len, "sent ");
+      }
     
-    if (write(fd, p, len) < 0) {
+    if (write(fd, p, len) < 0)
+      {
         syslog(LOG_ERR, "write: %m");
        die(1);
-    }
-}
+      }
+  }
 
 /*
  * wait_input - wait until there is data available on fd,
  * for the length of time specified by *timo (indefinite
  * if timo is NULL).
  */
+
 void wait_input (struct timeval *timo)
-{
+  {
     fd_set ready;
     int n;
-
+    
     FD_ZERO(&ready);
     FD_SET(fd, &ready);
+
     n = select(fd+1, &ready, NULL, &ready, timo);
-    if (n < 0 && errno != EINTR) {
+    if (n < 0 && errno != EINTR)
+      {
        syslog(LOG_ERR, "select: %m");
        die(1);
-    }
-}
+      }
+  }
 
 /*
  * read_packet - get a PPP packet from the serial device.
  */
 
 int read_packet (unsigned char *buf)
-{
+  {
     int len;
   
     len = read(fd, buf, PPP_MTU + PPP_HDRLEN);
-    if (len < 0) {
-       if (errno == EWOULDBLOCK) {
+    if (len < 0)
+      {
+       if (errno == EWOULDBLOCK)
+         {
            return -1;
-       }
+         }
        syslog(LOG_ERR, "read(fd): %m");
        die(1);
-    }
+      }
     return len;
-}
+  }
 
 /*
  * ppp_send_config - configure the transmit characteristics of
  * the ppp interface.
  */
+
 void ppp_send_config (int unit,int mtu,u_int32_t asyncmap,int pcomp,int accomp)
-{
+  {
     u_int x;
     struct ifreq ifr;
   
     MAINDEBUG ((LOG_DEBUG, "send_config: mtu = %d\n", mtu));
     strncpy(ifr.ifr_name, ifname, sizeof (ifr.ifr_name));
     ifr.ifr_mtu = mtu;
-    if (ioctl(sockfd, SIOCSIFMTU, (caddr_t) &ifr) < 0) {
+
+    if (ioctl(sockfd, SIOCSIFMTU, (caddr_t) &ifr) < 0)
+      {
        syslog(LOG_ERR, "ioctl(SIOCSIFMTU): %m");
        quit();
-    }
-
+      }
+    
     MAINDEBUG ((LOG_DEBUG, "send_config: asyncmap = %lx\n", asyncmap));
-    if (ioctl(fd, PPPIOCSASYNCMAP, (caddr_t) &asyncmap) < 0) {
+    if (ioctl(fd, PPPIOCSASYNCMAP, (caddr_t) &asyncmap) < 0)
+      {
         syslog(LOG_ERR, "ioctl(PPPIOCSASYNCMAP): %m");
        quit();
-    }
+      }
     
-    if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &x) < 0) {
-       syslog(LOG_ERR, "ioctl (PPPIOCGFLAGS): %m");
-       quit();
-    }
-
+    x = get_flags();
     x = pcomp  ? x | SC_COMP_PROT : x & ~SC_COMP_PROT;
     x = accomp ? x | SC_COMP_AC   : x & ~SC_COMP_AC;
-
-    MAINDEBUG ((LOG_DEBUG, "send_config: flags = %x\n", x));
-    if (ioctl(fd, PPPIOCSFLAGS, (caddr_t) &x) < 0) {
-       syslog(LOG_ERR, "ioctl(PPPIOCSFLAGS): %m");
-       quit();
-    }
-}
+    set_flags(x);
+  }
 
 /*
  * ppp_set_xaccm - set the extended transmit ACCM for the interface.
  */
+
 void ppp_set_xaccm (int unit, ext_accm accm)
-{
+  {
     MAINDEBUG ((LOG_DEBUG, "set_xaccm: %08lx %08lx %08lx %08lx\n",
                accm[0], accm[1], accm[2], accm[3]));
+
     if (ioctl(fd, PPPIOCSXASYNCMAP, accm) < 0 && errno != ENOTTY)
+      {
        syslog(LOG_WARNING, "ioctl(set extended ACCM): %m");
-}
+      }
+  }
 
 /*
  * ppp_recv_config - configure the receive-side characteristics of
  * the ppp interface.
  */
+
 void ppp_recv_config (int unit,int mru,u_int32_t asyncmap,int pcomp,int accomp)
-{
+  {
     u_int x;
 
     MAINDEBUG ((LOG_DEBUG, "recv_config: mru = %d\n", mru));
     if (ioctl(fd, PPPIOCSMRU, (caddr_t) &mru) < 0)
+      {
        syslog(LOG_ERR, "ioctl(PPPIOCSMRU): %m");
+      }
 
     MAINDEBUG ((LOG_DEBUG, "recv_config: asyncmap = %lx\n", asyncmap));
-    if (ioctl(fd, PPPIOCSRASYNCMAP, (caddr_t) &asyncmap) < 0) {
+    if (ioctl(fd, PPPIOCSRASYNCMAP, (caddr_t) &asyncmap) < 0)
+      {
         syslog(LOG_ERR, "ioctl(PPPIOCSRASYNCMAP): %m");
        quit();
-    }
-  
-    if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &x) < 0) {
-       syslog(LOG_ERR, "ioctl (PPPIOCGFLAGS): %m");
-       quit();
-    }
+      }
 
+    x = get_flags();
     x = !accomp? x | SC_REJ_COMP_AC: x &~ SC_REJ_COMP_AC;
-    MAINDEBUG ((LOG_DEBUG, "recv_config: flags = %x\n", x));
-    if (ioctl(fd, PPPIOCSFLAGS, (caddr_t) &x) < 0) {
-       syslog(LOG_ERR, "ioctl(PPPIOCSFLAGS): %m");
-       quit();
-    }
-}
+    set_flags (x);
+  }
 
 /*
  * 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;
@@ -572,22 +692,10 @@ int ccp_test (int unit, u_char *opt_ptr, int opt_len, int for_transmit)
 
 void ccp_flags_set (int unit, int isopen, int isup)
   {
-    int x;
-
-    if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &x) < 0)
-      {
-       syslog(LOG_ERR, "ioctl (PPPIOCGFLAGS): %m");
-      }
-    else
-      {
-       x = isopen? x | SC_CCP_OPEN : x &~ SC_CCP_OPEN;
-       x = isup?   x | SC_CCP_UP   : x &~ SC_CCP_UP;
-
-       if (ioctl(fd, PPPIOCSFLAGS, (caddr_t) &x) < 0)
-         {
-           syslog(LOG_ERR, "ioctl(PPPIOCSFLAGS): %m");
-         }
-      }
+    int x = get_flags();
+    x = isopen? x | SC_CCP_OPEN : x &~ SC_CCP_OPEN;
+    x = isup?   x | SC_CCP_UP   : x &~ SC_CCP_UP;
+    set_flags (x);
   }
 
 /*
@@ -598,13 +706,8 @@ void ccp_flags_set (int unit, int isopen, int isup)
 
 int ccp_fatal_error (int unit)
   {
-    int x;
+    int x = get_flags();
 
-    if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &x) < 0)
-      {
-       syslog(LOG_ERR, "ioctl(PPPIOCGFLAGS): %m");
-       return 0;
-      }
     return x & SC_DC_FERROR;
   }
 
@@ -614,32 +717,21 @@ int ccp_fatal_error (int unit)
 
 int sifvjcomp (int u, int vjcomp, int cidcomp, int maxcid)
   {
-    u_int x;
-
-    if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &x) < 0)
-      {
-       syslog(LOG_ERR, "ioctl (PPPIOCGFLAGS): %m");
-       return 0;
-      }
-
-    x = vjcomp  ? x | SC_COMP_TCP     : x &~ SC_COMP_TCP;
-    x = cidcomp ? x & ~SC_NO_TCP_CCID : x | SC_NO_TCP_CCID;
-
-    if (ioctl(fd, PPPIOCSFLAGS, (caddr_t) &x) < 0)
-      {
-       syslog(LOG_ERR, "ioctl(PPPIOCSFLAGS): %m");
-       return 0;
-      }
+    u_int x = get_flags();
 
     if (vjcomp)
       {
         if (ioctl (fd, PPPIOCSMAXCID, (caddr_t) &maxcid) < 0)
          {
            syslog (LOG_ERR, "ioctl(PPPIOCSFLAGS): %m");
-           return 0;
+           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 (x);
+
     return 1;
   }
 
@@ -818,26 +910,27 @@ static char *path_to_route (void)
     fp = fopen (MOUNTED, "r");
     if (fp != 0)
       {
-        while ((mntent = getmntent (fp)) != 0)
+       mntent = getmntent (fp);
+        while (mntent != (struct mntent *) 0)
          {
-           if (strcmp (mntent->mnt_type, MNTTYPE_IGNORE) == 0)
+           if (strcmp (mntent->mnt_type, MNTTYPE_IGNORE) != 0)
              {
-               continue;
-             }
-
-           if (strcmp (mntent->mnt_type, "proc") == 0)
-             {
-               strncpy (route_buffer, mntent->mnt_dir,
-                        sizeof (route_buffer)-10);
-               route_buffer [sizeof (route_buffer)-10] = '\0';
-               strcat (route_buffer, "/net/route");
-
-               fclose (fp);
-               return (route_buffer);
+               if (strcmp (mntent->mnt_type, "proc") == 0)
+                 {
+                   strncpy (route_buffer, mntent->mnt_dir,
+                            sizeof (route_buffer)-10);
+                   route_buffer [sizeof (route_buffer)-10] = '\0';
+                   strcat (route_buffer, "/net/route");
+                   
+                   fclose (fp);
+                   return (route_buffer);
+                 }
              }
+           mntent = getmntent (fp);
          }
        fclose (fp);
       }
+
     syslog (LOG_ERR, "proc file system not mounted");
     return 0;
   }
@@ -955,6 +1048,7 @@ static int defaultroute_exists (void)
            break;
          }
       }
+
     close_route_table();
     return result;
   }
@@ -1080,6 +1174,7 @@ int get_ether_addr (u_int32_t ipaddr, struct sockaddr *hwaddr)
        syslog(LOG_ERR, "ioctl(SIOCGIFCONF): %m");
        return 0;
       }
+
     MAINDEBUG ((LOG_DEBUG, "proxy arp: scanning %d interfaces for IP %s",
                ifc.ifc_len / sizeof(struct ifreq), ip_ntoa(ipaddr)));
 /*
@@ -1103,9 +1198,8 @@ int get_ether_addr (u_int32_t ipaddr, struct sockaddr *hwaddr)
              {
                continue;
              }
-           if ((ifreq.ifr_flags &
-                (IFF_UP|IFF_BROADCAST|IFF_POINTOPOINT|IFF_LOOPBACK|IFF_NOARP))
-               != (IFF_UP|IFF_BROADCAST))
+
+           if (((ifreq.ifr_flags ^ FLAGS_GOOD) & FLAGS_MASK) != 0)
              {
                continue;
              }
@@ -1116,9 +1210,11 @@ int get_ether_addr (u_int32_t ipaddr, struct sockaddr *hwaddr)
              {
                continue;
              }
+
            mask = ((struct sockaddr_in *) &ifreq.ifr_addr)->sin_addr.s_addr;
            MAINDEBUG ((LOG_DEBUG, "proxy arp: interface addr %s mask %lx",
                        ip_ntoa(ina), ntohl(mask)));
+
            if (((ipaddr ^ ina) & mask) != 0)
              {
                continue;
@@ -1164,63 +1260,86 @@ int get_ether_addr (u_int32_t ipaddr, struct sockaddr *hwaddr)
  * network as `addr'.  If we find any, we OR in their netmask to the
  * user-specified netmask.
  */
-u_int32_t
-GetMask(addr)
-    u_int32_t addr;
-{
+
+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;
+      {
+       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.
-     */
+/*
+ * Scan through the system's network interfaces.
+ */
     ifc.ifc_len = sizeof(ifs);
     ifc.ifc_req = ifs;
-    if (ioctl(sockfd, SIOCGIFCONF, &ifc) < 0) {
+    if (ioctl(sockfd, SIOCGIFCONF, &ifc) < 0)
+      {
        syslog(LOG_WARNING, "ioctl(SIOCGIFCONF): %m");
        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.
-        */
+    for (ifr = ifc.ifc_req; ifr < ifend; ifr++)
+      {
+/*
+ * Check the interface's internet address.
+ */
        if (ifr->ifr_addr.sa_family != AF_INET)
+         {
            continue;
+         }
        ina = ((struct sockaddr_in *) &ifr->ifr_addr)->sin_addr.s_addr;
-       if ((ntohl(ina) & nmask) != (addr & nmask))
+       if (((ntohl(ina) ^ addr) & nmask) != 0)
+         {
            continue;
-       /*
-        * Check that the interface is up, and not point-to-point or loopback.
-        */
+         }
+/*
+ * Check that the interface is up, and not point-to-point or loopback.
+ */
        strncpy(ifreq.ifr_name, ifr->ifr_name, sizeof(ifreq.ifr_name));
        if (ioctl(sockfd, SIOCGIFFLAGS, &ifreq) < 0)
+         {
            continue;
-       if ((ifreq.ifr_flags & (IFF_UP|IFF_POINTOPOINT|IFF_LOOPBACK))
-           != IFF_UP)
+         }
+       
+       if (((ifreq.ifr_flags ^ FLAGS_GOOD) & FLAGS_MASK) != 0)
+         {
            continue;
-       /*
-        * Get its netmask and OR it into our mask.
-        */
+         }
+/*
+ * Get its netmask and OR it into our mask.
+ */
        if (ioctl(sockfd, SIOCGIFNETMASK, &ifreq) < 0)
+         {
            continue;
+         }
        mask |= ((struct sockaddr_in *)&ifreq.ifr_addr)->sin_addr.s_addr;
-    }
+       break;
+      }
 
     return mask;
-}
+  }
 
 /*
  * Internal routine to decode the version.modification.patch level
@@ -1253,6 +1372,64 @@ static void decode_version (char *buf, int *version,
       }
   }
 
+/*
+ * Procedure to determine if the PPP line dicipline is registered.
+ */
+
+int
+ppp_registered(void)
+  {
+    int local_fd;
+    int ppp_disc  = N_PPP;
+    int init_disc = -1;
+    int initfdflags;
+
+    local_fd = open(devnam, O_NONBLOCK | O_RDWR, 0);
+    if (local_fd < 0)
+      {
+       syslog(LOG_ERR, "Failed to open %s: %m", devnam);
+       return 0;
+      }
+
+    initfdflags = fcntl(local_fd, F_GETFL);
+    if (initfdflags == -1)
+      {
+       syslog(LOG_ERR, "Couldn't get device fd flags: %m");
+       close (local_fd);
+       return 0;
+      }
+
+    initfdflags &= ~O_NONBLOCK;
+    fcntl(local_fd, F_SETFL, initfdflags);
+/*
+ * Read the initial line dicipline and try to put the device into the
+ * PPP dicipline.
+ */
+    if (ioctl(local_fd, TIOCGETD, &init_disc) < 0)
+      {
+       syslog(LOG_ERR, "ioctl(TIOCGETD): %m");
+       close (local_fd);
+       return 0;
+      }
+    
+    if (ioctl(local_fd, TIOCSETD, &ppp_disc) < 0)
+      {
+       syslog(LOG_ERR, "ioctl(TIOCSETD): %m");
+       close (local_fd);
+       return 0;
+      }
+    
+    if (ioctl(local_fd, TIOCSETD, &init_disc) < 0)
+      {
+       syslog(LOG_ERR, "ioctl(TIOCSETD): %m");
+       close (local_fd);
+       return 0;
+      }
+    
+    close (local_fd);
+    return 1;
+  }
+
 /*
  * ppp_available - check whether the system has any ppp interfaces
  * (in fact we check whether we can do an ioctl on ppp0).
@@ -1274,15 +1451,28 @@ int ppp_available(void)
     
     strncpy (ifr.ifr_name, "ppp0", sizeof (ifr.ifr_name));
     ok = ioctl(s, SIOCGIFFLAGS, (caddr_t) &ifr) >= 0;
+/*
+ * If the device did not exist then attempt to create one by putting the
+ * current tty into the PPP discipline. If this works then obtain the
+ * flags for the device again.
+ */
+    if (!ok)
+      {
+       if (ppp_registered())
+         {
+           strncpy (ifr.ifr_name, "ppp0", sizeof (ifr.ifr_name));
+           ok = ioctl(s, SIOCGIFFLAGS, (caddr_t) &ifr) >= 0;
+         }
+      }
 /*
  * Ensure that the hardware address is for PPP and not something else
  */
-    if (ok != 0)
+    if (ok)
       {
         ok = ioctl (s, SIOCGIFHWADDR, (caddr_t) &ifr) >= 0;
       }
 
-    if (ok != 0 && ifr.ifr_hwaddr.sa_family != ARPHRD_PPP)
+    if (ok && ifr.ifr_hwaddr.sa_family != ARPHRD_PPP)
       {
         ok = 0;
       }
@@ -1290,7 +1480,7 @@ int ppp_available(void)
  *  This is the PPP device. Validate the version of the driver at this
  *  point to ensure that this program will work with the driver.
  */
-    if (ok != 0)
+    if (ok)
       {
         char   abBuffer [1024];
        int    size;
@@ -1299,7 +1489,7 @@ int ppp_available(void)
        size = ioctl (s, SIOCGPPPVER, (caddr_t) &ifr);
        ok   = size >= 0;
 
-       if (ok != 0)
+       if (ok)
          {
            decode_version (abBuffer,
                            &driver_version,
@@ -1308,7 +1498,7 @@ int ppp_available(void)
          }
       }
     
-    if (ok == 0)
+    if (!ok)
       {
         driver_version      =
         driver_modification =
@@ -1334,10 +1524,12 @@ int ppp_available(void)
         ok = 0;
       }
 
-    if (ok == 0)
+    if (!ok)
       {
        fprintf(stderr, "Sorry - PPP driver version %d.%d.%d is out of date\n",
                driver_version, driver_modification, driver_patch);
+       close (s);
+       exit (1);
       }
     
     close(s);
@@ -1380,71 +1572,108 @@ int logwtmp (char *line, char *name, char *host)
 /*
  * lock - create a lock file for the named device
  */
-int
-lock(dev)
-    char *dev;
-{
+
+int lock (char *dev)
+  {
     char hdb_lock_buffer[12];
     int fd, pid, n;
     char *p;
 
-    if ((p = strrchr(dev, '/')) != NULL)
-       dev = p + 1;
+    p = strrchr(dev, '/');
+    if (p != NULL)
+      {
+       dev = ++p;
+      }
+
     lock_file = malloc(strlen(LOCK_PREFIX) + strlen(dev) + 1);
     if (lock_file == NULL)
+      {
        novm("lock file name");
-    strcat(strcpy(lock_file, LOCK_PREFIX), dev);
+      }
+
+    strcpy (lock_file, LOCK_PREFIX);
+    strcat (lock_file, dev);
+/*
+ * Attempt to create the lock file at this point.
+ */
+    while (1)
+      {
+       fd = open(lock_file, O_EXCL | O_CREAT | O_RDWR, 0644);
+       if (fd >= 0)
+         {
+           sprintf(hdb_lock_buffer, "%010d\n", getpid());
+           write(fd, hdb_lock_buffer, 11);
+           close(fd);
+           return 0;
+         }
+/*
+ * If the file exists then check to see if the pid is stale
+ */
+       if (errno == EEXIST)
+         {
+           fd = open(lock_file, O_RDONLY, 0);
+           if (fd < 0)
+             {
+               if (errno == ENOENT) /* This is just a timing problem. */
+                 {
+                   continue;
+                 }
+               break;
+             }
 
-    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, hdb_lock_buffer, 11);
-           if (n > 0) {
-               hdb_lock_buffer[n] = 0;
-               sscanf (hdb_lock_buffer, " %d", &pid);
-           }
-           if (n <= 0) {
+           n = read (fd, hdb_lock_buffer, 11);
+           close (fd);
+           if (n < 0)
+             {
                syslog(LOG_ERR, "Can't read pid from lock file %s", lock_file);
-               close(fd);
-           } else {
-               if (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);
-       free(lock_file);
-       lock_file = NULL;
-       return -1;
-    }
+               break;
+             }
 
-    sprintf(hdb_lock_buffer, "%010d\n", getpid());
-    write(fd, hdb_lock_buffer, 11);
+           if (n == 0)
+             {
+               unlink (lock_file);
+               syslog (LOG_NOTICE, "Removed stale lock on %s", lock_file);
+               continue;
+             }
 
-    close(fd);
-    return 0;
+           hdb_lock_buffer[n] = '\0';
+           sscanf (hdb_lock_buffer, " %d", &pid);
+
+           if (kill(pid, 0) == -1 && errno == ESRCH)
+             {
+               /* pid no longer exists - remove the lock file */
+               if (unlink (lock_file) == 0)
+                 {
+                   syslog (LOG_NOTICE, "Removed stale lock on %s (pid %d)",
+                           dev, pid);
+                   continue;
+                 }
+             }
+
+           syslog (LOG_NOTICE, "Device %s is locked by pid %d", dev, pid);
+           break;
+         }
+
+       syslog(LOG_ERR, "Can't create lock file %s: %m", lock_file);
+       break;
+      }
+
+    free(lock_file);
+    lock_file = NULL;
+    return -1;
 }
 
 /*
  * unlock - remove our lockfile
  */
-unlock()
-{
-    if (lock_file) {
+
+void unlock(void)
+  {
+    if (lock_file)
+      {
        unlink(lock_file);
        free(lock_file);
        lock_file = NULL;
-    }
-}
+      }
+  }