]> git.ozlabs.org Git - ppp.git/blobdiff - pppd/options.c
Fix a SEGV on printing options error (previously a MTU of 65535 in the options
[ppp.git] / pppd / options.c
index 9e8158aaf0836aabb22cde749f79631b3210a6a2..09a2db17bab52a8f2a7d82f84ea343372e7a1eb3 100644 (file)
@@ -17,7 +17,7 @@
  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  */
 
-#define RCSID  "$Id: options.c,v 1.74 2000/04/15 01:27:13 masputra Exp $"
+#define RCSID  "$Id: options.c,v 1.87 2002/09/14 08:05:27 etbe Exp $"
 
 #include <ctype.h>
 #include <stdio.h>
 #include <unistd.h>
 #include <fcntl.h>
 #include <stdlib.h>
-#include <termios.h>
 #include <syslog.h>
 #include <string.h>
-#include <netdb.h>
 #include <pwd.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <netinet/in.h>
-#include <arpa/inet.h>
 #ifdef PLUGIN
 #include <dlfcn.h>
 #endif
 
 #include "pppd.h"
 #include "pathnames.h"
-#include "patchlevel.h"
-#include "fsm.h"
-#include "lcp.h"
-#include "ipcp.h"
-#include "upap.h"
-#include "chap.h"
-#include "ccp.h"
-
-#include <net/ppp-comp.h>
 
 #if defined(ultrix) || defined(NeXT)
 char *strdup __P((char *));
@@ -60,6 +45,12 @@ char *strdup __P((char *));
 
 static const char rcsid[] = RCSID;
 
+struct option_value {
+    struct option_value *next;
+    const char *source;
+    char value[1];
+};
+
 /*
  * Option variables and default values.
  */
@@ -70,18 +61,8 @@ int  debug = 0;              /* Debug flag */
 int    kdebugflag = 0;         /* Tell kernel to print debug messages */
 int    default_device = 1;     /* Using /dev/tty or equivalent */
 char   devnam[MAXPATHLEN];     /* Device name */
-int    crtscts = 0;            /* Use hardware flow control */
-bool   modem = 1;              /* Use modem control lines */
-int    inspeed = 0;            /* Input/Output speed requested */
-u_int32_t netmask = 0;         /* IP netmask to set on interface */
-bool   lockflag = 0;           /* Create lock file to lock the serial dev */
 bool   nodetach = 0;           /* Don't detach from controlling tty */
 bool   updetach = 0;           /* Detach once link is up */
-char   *initializer = NULL;    /* Script to initialize physical link */
-char   *connect_script = NULL; /* Script to establish physical link */
-char   *disconnect_script = NULL; /* Script to disestablish physical link */
-char   *welcomer = NULL;       /* Script to run after phys link estab. */
-char   *ptycommand = NULL;     /* Command to run on other side of pty */
 int    maxconnect = 0;         /* Maximum connect time */
 char   user[MAXNAMELEN];       /* Username for PAP */
 char   passwd[MAXSECRETLEN];   /* Password for PAP */
@@ -92,31 +73,28 @@ char        *ipparam = NULL;        /* Extra parameter for ip up/down scripts */
 int    idle_time_limit = 0;    /* Disconnect if idle for this many seconds */
 int    holdoff = 30;           /* # seconds to pause before reconnecting */
 bool   holdoff_specified;      /* true if a holdoff value has been given */
-bool   notty = 0;              /* Stdin/out is not a tty */
-char   *pty_socket = NULL;     /* Socket to connect to pty */
-char   *record_file = NULL;    /* File to record chars sent/received */
-int    using_pty = 0;
-bool   sync_serial = 0;        /* Device is synchronous serial device */
 int    log_to_fd = 1;          /* send log messages to this fd too */
+bool   log_default = 1;        /* log_to_fd is default (stdout) */
 int    maxfail = 10;           /* max # of unsuccessful connection attempts */
 char   linkname[MAXPATHLEN];   /* logical name for link */
 bool   tune_kernel;            /* may alter kernel settings */
 int    connect_delay = 1000;   /* wait this many ms after connect script */
-int    max_data_rate;          /* max bytes/sec through charshunt */
 int    req_unit = -1;          /* requested interface unit */
 bool   multilink = 0;          /* Enable multilink operation */
 char   *bundle_name = NULL;    /* bundle name for multilink */
+bool   dump_options;           /* print out option values */
+bool   dryrun;                 /* print out option values and exit */
+char   *domain;                /* domain name set by domain option */
+
+#ifdef MAXOCTETS
+unsigned int  maxoctets = 0;    /* default - no limit */
+int maxoctets_dir = 0;       /* default - sum of traffic */
+int maxoctets_timeout = 1;   /* default 1 second */ 
+#endif
+
 
 extern option_t auth_options[];
 extern struct stat devstat;
-extern int prepass;            /* Doing pre-pass to find device name */
-
-struct option_info initializer_info;
-struct option_info connect_script_info;
-struct option_info disconnect_script_info;
-struct option_info welcomer_info;
-struct option_info devnam_info;
-struct option_info ptycommand_info;
 
 #ifdef PPP_FILTER
 struct bpf_program pass_filter;/* Filter program for packets to pass */
@@ -127,19 +105,16 @@ pcap_t  pc;                       /* Fake struct pcap so we can compile expr */
 char *current_option;          /* the name of the option being parsed */
 int  privileged_option;                /* set iff the current option came from root */
 char *option_source;           /* string saying where the option came from */
-bool log_to_file;              /* log_to_fd is a file opened by us */
-bool log_to_specific_fd;       /* log_to_fd was specified by user option */
+int  option_priority = OPRIO_CFGFILE; /* priority of the current options */
+bool devnam_fixed;             /* can no longer change device name */
+
+static int logfile_fd = -1;    /* fd opened for log file */
+static char logfile_name[MAXPATHLEN];  /* name of log file */
 
 /*
  * Prototypes
  */
-static int setdevname __P((char *));
-static int setipaddr __P((char *));
-static int setspeed __P((char *));
-static int noopt __P((char **));
 static int setdomain __P((char **));
-static int setnetmask __P((char **));
-static int setxonxoff __P((char **));
 static int readfile __P((char **));
 static int callfile __P((char **));
 static int showversion __P((char **));
@@ -155,8 +130,12 @@ static int setpassfilter __P((char **));
 static int setactivefilter __P((char **));
 #endif
 
-static option_t *find_option __P((char *name));
-static int process_option __P((option_t *, char **));
+#ifdef MAXOCTETS
+static int setmodir __P((char **));
+#endif
+
+static option_t *find_option __P((const char *name));
+static int process_option __P((option_t *, char *, char **));
 static int n_arguments __P((option_t *));
 static int number_option __P((char *, u_int32_t *, int));
 
@@ -175,138 +154,136 @@ static struct option_list *extra_options = NULL;
  */
 option_t general_options[] = {
     { "debug", o_int, &debug,
-      "Increase debugging level", OPT_INC|OPT_NOARG|1 },
+      "Increase debugging level", OPT_INC | OPT_NOARG | 1 },
     { "-d", o_int, &debug,
-      "Increase debugging level", OPT_INC|OPT_NOARG|1 },
+      "Increase debugging level",
+      OPT_ALIAS | OPT_INC | OPT_NOARG | 1 },
+
     { "kdebug", o_int, &kdebugflag,
-      "Set kernel driver debug level" },
+      "Set kernel driver debug level", OPT_PRIO },
+
     { "nodetach", o_bool, &nodetach,
-      "Don't detach from controlling tty", 1 },
+      "Don't detach from controlling tty", OPT_PRIO | 1 },
     { "-detach", o_bool, &nodetach,
-      "Don't detach from controlling tty", 1 },
+      "Don't detach from controlling tty", OPT_ALIAS | OPT_PRIOSUB | 1 },
     { "updetach", o_bool, &updetach,
-      "Detach from controlling tty once link is up", 1 },
+      "Detach from controlling tty once link is up",
+      OPT_PRIOSUB | OPT_A2CLR | 1, &nodetach },
+
     { "holdoff", o_int, &holdoff,
-      "Set time in seconds before retrying connection" },
+      "Set time in seconds before retrying connection", OPT_PRIO },
+
     { "idle", o_int, &idle_time_limit,
-      "Set time in seconds before disconnecting idle link" },
-    { "lock", o_bool, &lockflag,
-      "Lock serial device with UUCP-style lock file", 1 },
-    { "-all", o_special_noarg, (void *)noopt,
-      "Don't request/allow any LCP or IPCP options (useless)" },
-    { "init", o_string, &initializer,
-      "A program to initialize the device",
-      OPT_A2INFO | OPT_PRIVFIX, &initializer_info },
-    { "connect", o_string, &connect_script,
-      "A program to set up a connection",
-      OPT_A2INFO | OPT_PRIVFIX, &connect_script_info },
-    { "disconnect", o_string, &disconnect_script,
-      "Program to disconnect serial device",
-      OPT_A2INFO | OPT_PRIVFIX, &disconnect_script_info },
-    { "welcome", o_string, &welcomer,
-      "Script to welcome client",
-      OPT_A2INFO | OPT_PRIVFIX, &welcomer_info },
-    { "pty", o_string, &ptycommand,
-      "Script to run on pseudo-tty master side",
-      OPT_A2INFO | OPT_PRIVFIX | OPT_DEVNAM, &ptycommand_info },
-    { "notty", o_bool, &notty,
-      "Input/output is not a tty", OPT_DEVNAM | 1 },
-    { "socket", o_string, &pty_socket,
-      "Send and receive over socket, arg is host:port", OPT_DEVNAM },
-    { "record", o_string, &record_file,
-      "Record characters sent/received to file" },
+      "Set time in seconds before disconnecting idle link", OPT_PRIO },
+
     { "maxconnect", o_int, &maxconnect,
-      "Set connection time limit", OPT_LLIMIT|OPT_NOINCR|OPT_ZEROINF },
-    { "crtscts", o_int, &crtscts,
-      "Set hardware (RTS/CTS) flow control", OPT_NOARG|OPT_VAL(1) },
-    { "nocrtscts", o_int, &crtscts,
-      "Disable hardware flow control", OPT_NOARG|OPT_VAL(-1) },
-    { "-crtscts", o_int, &crtscts,
-      "Disable hardware flow control", OPT_NOARG|OPT_VAL(-1) },
-    { "cdtrcts", o_int, &crtscts,
-      "Set alternate hardware (DTR/CTS) flow control", OPT_NOARG|OPT_VAL(2) },
-    { "nocdtrcts", o_int, &crtscts,
-      "Disable hardware flow control", OPT_NOARG|OPT_VAL(-1) },
-    { "xonxoff", o_special_noarg, (void *)setxonxoff,
-      "Set software (XON/XOFF) flow control" },
+      "Set connection time limit",
+      OPT_PRIO | OPT_LLIMIT | OPT_NOINCR | OPT_ZEROINF },
+
     { "domain", o_special, (void *)setdomain,
-      "Add given domain name to hostname" },
-    { "mtu", o_int, &lcp_allowoptions[0].mru,
-      "Set our MTU", OPT_LIMITS, NULL, MAXMRU, MINMRU },
-    { "netmask", o_special, (void *)setnetmask,
-      "set netmask" },
-    { "modem", o_bool, &modem,
-      "Use modem control lines", 1 },
-    { "local", o_bool, &modem,
-      "Don't use modem control lines" },
+      "Add given domain name to hostname",
+      OPT_PRIO | OPT_PRIV | OPT_A2STRVAL, &domain },
+
     { "file", o_special, (void *)readfile,
-      "Take options from a file", OPT_PREPASS },
+      "Take options from a file", OPT_NOPRINT },
     { "call", o_special, (void *)callfile,
-      "Take options from a privileged file", OPT_PREPASS },
+      "Take options from a privileged file", OPT_NOPRINT },
+
     { "persist", o_bool, &persist,
-      "Keep on reopening connection after close", 1 },
+      "Keep on reopening connection after close", OPT_PRIO | 1 },
     { "nopersist", o_bool, &persist,
-      "Turn off persist option" },
+      "Turn off persist option", OPT_PRIOSUB },
+
     { "demand", o_bool, &demand,
       "Dial on demand", OPT_INITONLY | 1, &persist },
+
     { "--version", o_special_noarg, (void *)showversion,
       "Show version number" },
     { "--help", o_special_noarg, (void *)showhelp,
       "Show brief listing of options" },
     { "-h", o_special_noarg, (void *)showhelp,
-      "Show brief listing of options" },
-    { "sync", o_bool, &sync_serial,
-      "Use synchronous HDLC serial encoding", 1 },
+      "Show brief listing of options", OPT_ALIAS },
+
+    { "logfile", o_special, (void *)setlogfile,
+      "Append log messages to this file",
+      OPT_PRIO | OPT_A2STRVAL | OPT_STATIC, &logfile_name },
     { "logfd", o_int, &log_to_fd,
       "Send log messages to this file descriptor",
-      0, &log_to_specific_fd },
-    { "logfile", o_special, (void *)setlogfile,
-      "Append log messages to this file" },
+      OPT_PRIOSUB | OPT_A2CLR, &log_default },
     { "nolog", o_int, &log_to_fd,
       "Don't send log messages to any file",
-      OPT_NOARG | OPT_VAL(-1) },
+      OPT_PRIOSUB | OPT_NOARG | OPT_VAL(-1) },
     { "nologfd", o_int, &log_to_fd,
       "Don't send log messages to any file descriptor",
-      OPT_NOARG | OPT_VAL(-1) },
+      OPT_PRIOSUB | OPT_ALIAS | OPT_NOARG | OPT_VAL(-1) },
+
     { "linkname", o_string, linkname,
       "Set logical name for link",
-      OPT_PRIV|OPT_STATIC, NULL, MAXPATHLEN },
+      OPT_PRIO | OPT_PRIV | OPT_STATIC, NULL, MAXPATHLEN },
+
     { "maxfail", o_int, &maxfail,
-      "Maximum number of unsuccessful connection attempts to allow" },
+      "Maximum number of unsuccessful connection attempts to allow",
+      OPT_PRIO },
+
     { "ktune", o_bool, &tune_kernel,
-      "Alter kernel settings as necessary", 1 },
+      "Alter kernel settings as necessary", OPT_PRIO | 1 },
     { "noktune", o_bool, &tune_kernel,
-      "Don't alter kernel settings", 0 },
+      "Don't alter kernel settings", OPT_PRIOSUB },
+
     { "connect-delay", o_int, &connect_delay,
-      "Maximum time (in ms) to wait after connect script finishes" },
-    { "datarate", o_int, &max_data_rate,
-      "Maximum data rate in bytes/sec (with pty, notty or record option)" },
+      "Maximum time (in ms) to wait after connect script finishes",
+      OPT_PRIO },
+
     { "unit", o_int, &req_unit,
-      "PPP interface unit number to use if possible", OPT_LLIMIT, 0, 0 },
+      "PPP interface unit number to use if possible",
+      OPT_PRIO | OPT_LLIMIT, 0, 0 },
+
+    { "dump", o_bool, &dump_options,
+      "Print out option values after parsing all options", 1 },
+    { "dryrun", o_bool, &dryrun,
+      "Stop after parsing, printing, and checking options", 1 },
+
 #ifdef HAVE_MULTILINK
     { "multilink", o_bool, &multilink,
-      "Enable multilink operation", 1 },
-    { "nomultilink", o_bool, &multilink,
-      "Disable multilink operation", 0 },
+      "Enable multilink operation", OPT_PRIO | 1 },
     { "mp", o_bool, &multilink,
-      "Enable multilink operation", 1 },
+      "Enable multilink operation", OPT_PRIOSUB | OPT_ALIAS | 1 },
+    { "nomultilink", o_bool, &multilink,
+      "Disable multilink operation", OPT_PRIOSUB | 0 },
     { "nomp", o_bool, &multilink,
-      "Disable multilink operation", 0 },
+      "Disable multilink operation", OPT_PRIOSUB | OPT_ALIAS | 0 },
+
     { "bundle", o_string, &bundle_name,
-      "Bundle name for multilink" },
+      "Bundle name for multilink", OPT_PRIO },
 #endif /* HAVE_MULTILINK */
+
 #ifdef PLUGIN
     { "plugin", o_special, (void *)loadplugin,
-      "Load a plug-in module into pppd", OPT_PRIV },
+      "Load a plug-in module into pppd", OPT_PRIV | OPT_A2LIST },
 #endif
 
 #ifdef PPP_FILTER
     { "pdebug", o_int, &dflag,
-      "libpcap debugging" },
+      "libpcap debugging", OPT_PRIO },
+
     { "pass-filter", 1, setpassfilter,
-      "set filter for packets to pass" },
+      "set filter for packets to pass", OPT_PRIO },
+
     { "active-filter", 1, setactivefilter,
-      "set filter for active pkts" },
+      "set filter for active pkts", OPT_PRIO },
+#endif
+
+#ifdef MAXOCTETS
+    { "maxoctets", o_int, &maxoctets,
+      "Set connection traffic limit",
+      OPT_PRIO | OPT_LLIMIT | OPT_NOINCR | OPT_ZEROINF },
+    { "mo", o_int, &maxoctets,
+      "Set connection traffic limit",
+      OPT_ALIAS | OPT_PRIO | OPT_LLIMIT | OPT_NOINCR | OPT_ZEROINF },
+    { "mo-direction", o_special, setmodir,
+      "Set direction for limit traffic (sum,in,out,max)" },
+    { "mo-timeout", o_int, &maxoctets_timeout,
+      "Check for traffic limit every N seconds", OPT_PRIO | OPT_LLIMIT | 1 },
 #endif
 
     { NULL }
@@ -317,7 +294,7 @@ option_t general_options[] = {
 #endif
 
 static char *usage_string = "\
-pppd version %s.%d%s\n\
+pppd version %s\n\
 Usage: %s [ options ], where options are:\n\
        <device>        Communicate over the named device\n\
        <speed>         Set the baud rate to <speed>\n\
@@ -336,8 +313,6 @@ See pppd(8) for more options.\n\
 
 /*
  * parse_args - parse a string of arguments from the command line.
- * If prepass is true, we are scanning for the device name and only
- * processing a few options, so error messages are suppressed.
  */
 int
 parse_args(argc, argv)
@@ -346,84 +321,32 @@ parse_args(argc, argv)
 {
     char *arg;
     option_t *opt;
-    int ret;
+    int n;
 
     privileged_option = privileged;
     option_source = "command line";
+    option_priority = OPRIO_CMDLINE;
     while (argc > 0) {
        arg = *argv++;
        --argc;
-
-       /*
-        * First see if it's an option in the new option list.
-        */
        opt = find_option(arg);
-       if (opt != NULL) {
-           int n = n_arguments(opt);
-           if (argc < n) {
-               option_error("too few parameters for option %s", arg);
-               return 0;
-           }
-           current_option = arg;
-           if (!process_option(opt, argv))
-               return 0;
-           argc -= n;
-           argv += n;
-           continue;
-       }
-
-       /*
-        * Maybe a tty name, speed or IP address?
-        */
-       if ((ret = setdevname(arg)) == 0
-           && (ret = setspeed(arg)) == 0
-           && (ret = setipaddr(arg)) == 0
-           && !prepass) {
+       if (opt == NULL) {
            option_error("unrecognized option '%s'", arg);
            usage();
            return 0;
        }
-       if (ret < 0)    /* error */
+       n = n_arguments(opt);
+       if (argc < n) {
+           option_error("too few parameters for option %s", arg);
            return 0;
-    }
-    return 1;
-}
-
-#if 0
-/*
- * scan_args - scan the command line arguments to get the tty name,
- * if specified.  Also checks whether the notty or pty option was given.
- */
-void
-scan_args(argc, argv)
-    int argc;
-    char **argv;
-{
-    char *arg;
-    option_t *opt;
-
-    privileged_option = privileged;
-    while (argc > 0) {
-       arg = *argv++;
-       --argc;
-
-       if (strcmp(arg, "notty") == 0 || strcmp(arg, "pty") == 0)
-           using_pty = 1;
-
-       /* Skip options and their arguments */
-       opt = find_option(arg);
-       if (opt != NULL) {
-           int n = n_arguments(opt);
-           argc -= n;
-           argv += n;
-           continue;
        }
-
-       /* Check if it's a tty name and copy it if so */
-       (void) setdevname(arg, 1);
+       if (!process_option(opt, arg, argv))
+           return 0;
+       argc -= n;
+       argv += n;
     }
+    return 1;
 }
-#endif
 
 /*
  * options_from_file - Read a string of options from a file,
@@ -439,7 +362,7 @@ options_from_file(filename, must_exist, check_prot, priv)
     FILE *f;
     int i, newline, ret, err;
     option_t *opt;
-    int oldpriv;
+    int oldpriv, n;
     char *oldsource;
     char *argv[MAXARGS];
     char args[MAXARGS][MAXWORDLEN];
@@ -452,9 +375,12 @@ options_from_file(filename, must_exist, check_prot, priv)
     if (check_prot)
        seteuid(0);
     if (f == NULL) {
-       if (!must_exist && err == ENOENT)
-           return 1;
        errno = err;
+       if (!must_exist) {
+           if (err != ENOENT && err != ENOTDIR)
+               warn("Warning: can't open options file %s: %m", filename);
+           return 1;
+       }
        option_error("Can't open options file %s: %m", filename);
        return 0;
     }
@@ -467,43 +393,23 @@ options_from_file(filename, must_exist, check_prot, priv)
        option_source = "file";
     ret = 0;
     while (getword(f, cmd, &newline, filename)) {
-       /*
-        * First see if it's a command.
-        */
        opt = find_option(cmd);
-       if (opt != NULL) {
-           int n = n_arguments(opt);
-           for (i = 0; i < n; ++i) {
-               if (!getword(f, args[i], &newline, filename)) {
-                   option_error(
+       if (opt == NULL) {
+           option_error("In file %s: unrecognized option '%s'",
+                        filename, cmd);
+           goto err;
+       }
+       n = n_arguments(opt);
+       for (i = 0; i < n; ++i) {
+           if (!getword(f, args[i], &newline, filename)) {
+               option_error(
                        "In file %s: too few parameters for option '%s'",
                        filename, cmd);
-                   goto err;
-               }
-               argv[i] = args[i];
-           }
-           current_option = cmd;
-           if ((opt->flags & OPT_DEVEQUIV) && devnam_fixed) {
-               option_error("the %s option may not be used in the %s file",
-                            cmd, filename);
                goto err;
            }
-           if (!process_option(opt, argv))
-               goto err;
-           continue;
+           argv[i] = args[i];
        }
-
-       /*
-        * Maybe a tty name, speed or IP address?
-        */
-       if ((i = setdevname(cmd)) == 0
-           && (i = setspeed(cmd)) == 0
-           && (i = setipaddr(cmd)) == 0) {
-           option_error("In file %s: unrecognized option '%s'",
-                        filename, cmd);
-           goto err;
-       }
-       if (i < 0)              /* error */
+       if (!process_option(opt, cmd, argv))
            goto err;
     }
     ret = 1;
@@ -536,6 +442,7 @@ options_from_user()
     if (path == NULL)
        novm("init file name");
     slprintf(path, pl, "%s/%s", user, file);
+    option_priority = OPRIO_CFGFILE;
     ret = options_from_file(path, 0, 1, privileged);
     free(path);
     return ret;
@@ -544,6 +451,10 @@ options_from_user()
 /*
  * options_for_tty - See if an options file exists for the serial
  * device, and if so, interpret options from it.
+ * We only allow the per-tty options file to override anything from
+ * the command line if it is something that the user can't override
+ * once it has been set by root; this is done by giving configuration
+ * files a lower priority than the command line.
  */
 int
 options_for_tty()
@@ -566,6 +477,7 @@ options_for_tty()
     for (p = path + strlen(_PATH_TTYOPT); *p != 0; ++p)
        if (*p == '/')
            *p = '.';
+    option_priority = OPRIO_CFGFILE;
     ret = options_from_file(path, 0, 0, 1);
     free(path);
     return ret;
@@ -581,47 +493,35 @@ options_from_list(w, priv)
 {
     char *argv[MAXARGS];
     option_t *opt;
-    int i, ret = 0;
+    int i, n, ret = 0;
+    struct wordlist *w0;
 
     privileged_option = priv;
     option_source = "secrets file";
+    option_priority = OPRIO_SECFILE;
 
     while (w != NULL) {
-       /*
-        * First see if it's a command.
-        */
        opt = find_option(w->word);
-       if (opt != NULL) {
-           int n = n_arguments(opt);
-           struct wordlist *w0 = w;
-           for (i = 0; i < n; ++i) {
-               w = w->next;
-               if (w == NULL) {
-                   option_error(
-                       "In secrets file: too few parameters for option '%s'",
-                       w0->word);
-                   goto err;
-               }
-               argv[i] = w->word;
-           }
-           current_option = w0->word;
-           if (!process_option(opt, argv))
-               goto err;
-           continue;
-       }
-
-       /*
-        * Maybe a tty name, speed or IP address?
-        */
-       if ((i = setdevname(w->word)) == 0
-           && (i = setspeed(w->word)) == 0
-           && (i = setipaddr(w->word)) == 0) {
+       if (opt == NULL) {
            option_error("In secrets file: unrecognized option '%s'",
                         w->word);
            goto err;
        }
-       if (i < 0)              /* error */
+       n = n_arguments(opt);
+       w0 = w;
+       for (i = 0; i < n; ++i) {
+           w = w->next;
+           if (w == NULL) {
+               option_error(
+                       "In secrets file: too few parameters for option '%s'",
+                       w0->word);
+               goto err;
+           }
+           argv[i] = w->word;
+       }
+       if (!process_option(opt, w0->word, argv))
            goto err;
+       w = w->next;
     }
     ret = 1;
 
@@ -629,6 +529,25 @@ err:
     return ret;
 }
 
+/*
+ * match_option - see if this option matches an option_t structure.
+ */
+static int
+match_option(name, opt, dowild)
+    char *name;
+    option_t *opt;
+    int dowild;
+{
+       int (*match) __P((char *, char **, int));
+
+       if (dowild != (opt->type == o_wild))
+               return 0;
+       if (!dowild)
+               return strcmp(name, opt->name) == 0;
+       match = (int (*) __P((char *, char **, int))) opt->addr;
+       return (*match)(name, NULL, 0);
+}
+
 /*
  * find_option - scan the option lists for the various protocols
  * looking for an entry with the given name.
@@ -636,63 +555,90 @@ err:
  */
 static option_t *
 find_option(name)
-    char *name;
+    const char *name;
 {
-    option_t *opt;
-    struct option_list *list;
-    int i;
-
-    for (list = extra_options; list != NULL; list = list->next)
-       for (opt = list->options; opt->name != NULL; ++opt)
-           if (strcmp(name, opt->name) == 0)
-               return opt;
-    for (opt = general_options; opt->name != NULL; ++opt)
-       if (strcmp(name, opt->name) == 0)
-           return opt;
-    for (opt = auth_options; opt->name != NULL; ++opt)
-       if (strcmp(name, opt->name) == 0)
-           return opt;
-    for (i = 0; protocols[i] != NULL; ++i)
-       if ((opt = protocols[i]->options) != NULL)
-           for (; opt->name != NULL; ++opt)
-               if (strcmp(name, opt->name) == 0)
-                   return opt;
-    return NULL;
+       option_t *opt;
+       struct option_list *list;
+       int i, dowild;
+
+       for (dowild = 0; dowild <= 1; ++dowild) {
+               for (opt = general_options; opt->name != NULL; ++opt)
+                       if (match_option(name, opt, dowild))
+                               return opt;
+               for (opt = auth_options; opt->name != NULL; ++opt)
+                       if (match_option(name, opt, dowild))
+                               return opt;
+               for (list = extra_options; list != NULL; list = list->next)
+                       for (opt = list->options; opt->name != NULL; ++opt)
+                               if (match_option(name, opt, dowild))
+                                       return opt;
+               for (opt = the_channel->options; opt->name != NULL; ++opt)
+                       if (match_option(name, opt, dowild))
+                               return opt;
+               for (i = 0; protocols[i] != NULL; ++i)
+                       if ((opt = protocols[i]->options) != NULL)
+                               for (; opt->name != NULL; ++opt)
+                                       if (match_option(name, opt, dowild))
+                                               return opt;
+       }
+       return NULL;
 }
 
 /*
  * process_option - process one new-style option.
  */
 static int
-process_option(opt, argv)
+process_option(opt, cmd, argv)
     option_t *opt;
+    char *cmd;
     char **argv;
 {
     u_int32_t v;
     int iv, a;
     char *sv;
     int (*parser) __P((char **));
+    int (*wildp) __P((char *, char **, int));
+    char *optopt = (opt->type == o_wild)? "": " option";
+    int prio = option_priority;
+    option_t *mainopt = opt;
+
+    if ((opt->flags & OPT_PRIVFIX) && privileged_option)
+       prio += OPRIO_ROOT;
+    while (mainopt->flags & OPT_PRIOSUB)
+       --mainopt;
+    if (mainopt->flags & OPT_PRIO) {
+       if (prio < mainopt->priority) {
+           /* new value doesn't override old */
+           if (prio == OPRIO_CMDLINE && mainopt->priority > OPRIO_ROOT) {
+               option_error("%s%s set in %s cannot be overridden\n",
+                            opt->name, optopt, mainopt->source);
+               return 0;
+           }
+           return 1;
+       }
+       if (prio > OPRIO_ROOT && mainopt->priority == OPRIO_CMDLINE)
+           warn("%s%s from %s overrides command line",
+                opt->name, optopt, option_source);
+    }
 
-    if ((opt->flags & OPT_PREPASS) == 0 && prepass)
-       return 1;
     if ((opt->flags & OPT_INITONLY) && phase != PHASE_INITIALIZE) {
-       option_error("it's too late to use the %s option", opt->name);
+       option_error("%s%s cannot be changed after initialization",
+                    opt->name, optopt);
        return 0;
     }
     if ((opt->flags & OPT_PRIV) && !privileged_option) {
-       option_error("using the %s option requires root privilege", opt->name);
+       option_error("using the %s%s requires root privilege",
+                    opt->name, optopt);
        return 0;
     }
     if ((opt->flags & OPT_ENABLE) && *(bool *)(opt->addr2) == 0) {
-       option_error("%s option is disabled", opt->name);
+       option_error("%s%s is disabled", opt->name, optopt);
        return 0;
     }
-    if ((opt->flags & OPT_PRIVFIX) && !privileged_option) {
-       struct option_info *ip = (struct option_info *) opt->addr2;
-       if (ip && ip->priv) {
-           option_error("%s option cannot be overridden", opt->name);
-           return 0;
-       }
+    if ((opt->flags & OPT_DEVEQUIV) && devnam_fixed) {
+       option_error("the %s%s may not be changed in %s",
+                    opt->name, optopt, option_source);
+       return 0;
     }
 
     switch (opt->type) {
@@ -701,6 +647,14 @@ process_option(opt, argv)
        *(bool *)(opt->addr) = v;
        if (opt->addr2 && (opt->flags & OPT_A2COPY))
            *(bool *)(opt->addr2) = v;
+       else if (opt->addr2 && (opt->flags & OPT_A2CLR))
+           *(bool *)(opt->addr2) = 0;
+       else if (opt->addr2 && (opt->flags & OPT_A2CLRB))
+           *(u_char *)(opt->addr2) &= ~v;
+       else if (opt->addr2 && (opt->flags & OPT_A2OR))
+           *(u_char *)(opt->addr2) |= v;
+       if (opt->addr3 && (opt->flags & OPT_A3OR))
+           *(u_char *)(opt->addr3) |= v;
        break;
 
     case o_int:
@@ -723,7 +677,7 @@ process_option(opt, argv)
                    break;
                case OPT_LIMITS:
                    option_error("%s value must be%s between %d and %d",
-                               opt->name, opt->lower_limit, opt->upper_limit);
+                               opt->name, zok, opt->lower_limit, opt->upper_limit);
                    break;
                }
                return 0;
@@ -751,6 +705,8 @@ process_option(opt, argv)
     case o_uint32:
        if (opt->flags & OPT_NOARG) {
            v = opt->flags & OPT_VALUE;
+           if (v & 0x80)
+                   v |= 0xffffff00U;
        } else if (!number_option(*argv, &v, 16))
            return 0;
        if (opt->flags & OPT_OR)
@@ -776,21 +732,66 @@ process_option(opt, argv)
        parser = (int (*) __P((char **))) opt->addr;
        if (!(*parser)(argv))
            return 0;
+       if (opt->flags & OPT_A2LIST) {
+           struct option_value *ovp, **pp;
+
+           ovp = malloc(sizeof(*ovp) + strlen(*argv));
+           if (ovp != 0) {
+               strcpy(ovp->value, *argv);
+               ovp->source = option_source;
+               ovp->next = NULL;
+               pp = (struct option_value **) &opt->addr2;
+               while (*pp != 0)
+                   pp = &(*pp)->next;
+               *pp = ovp;
+           }
+       }
        break;
-    }
 
-    if (opt->addr2) {
-       if (opt->flags & OPT_A2INFO) {
-           struct option_info *ip = (struct option_info *) opt->addr2;
-           ip->priv = privileged_option;
-           ip->source = option_source;
-       } else if ((opt->flags & (OPT_A2COPY|OPT_ENABLE)) == 0)
-           *(bool *)(opt->addr2) = 1;
+    case o_wild:
+       wildp = (int (*) __P((char *, char **, int))) opt->addr;
+       if (!(*wildp)(cmd, argv, 1))
+           return 0;
+       break;
     }
 
+    if (opt->addr2 && (opt->flags & (OPT_A2COPY|OPT_ENABLE
+               |OPT_A2PRINTER|OPT_A2STRVAL|OPT_A2LIST|OPT_A2OR)) == 0)
+       *(bool *)(opt->addr2) = !(opt->flags & OPT_A2CLR);
+
+    mainopt->source = option_source;
+    mainopt->priority = prio;
+    mainopt->winner = opt - mainopt;
+
     return 1;
 }
 
+/*
+ * override_value - if the option priorities would permit us to
+ * override the value of option, return 1 and update the priority
+ * and source of the option value.  Otherwise returns 0.
+ */
+int
+override_value(option, priority, source)
+    const char *option;
+    int priority;
+    const char *source;
+{
+       option_t *opt;
+
+       opt = find_option(option);
+       if (opt == NULL)
+               return 0;
+       while (opt->flags & OPT_PRIOSUB)
+               --opt;
+       if ((opt->flags & OPT_PRIO) && priority < opt->priority)
+               return 0;
+       opt->priority = priority;
+       opt->source = source;
+       opt->winner = -1;
+       return 1;
+}
+
 /*
  * n_arguments - tell how many arguments an option takes
  */
@@ -798,8 +799,8 @@ static int
 n_arguments(opt)
     option_t *opt;
 {
-    return (opt->type == o_bool || opt->type == o_special_noarg
-           || (opt->flags & OPT_NOARG))? 0: 1;
+       return (opt->type == o_bool || opt->type == o_special_noarg
+               || (opt->flags & OPT_NOARG))? 0: 1;
 }
 
 /*
@@ -819,6 +820,161 @@ add_options(opt)
     extra_options = list;
 }
 
+/*
+ * check_options - check that options are valid and consistent.
+ */
+void
+check_options()
+{
+       if (logfile_fd >= 0 && logfile_fd != log_to_fd)
+               close(logfile_fd);
+}
+
+/*
+ * print_option - print out an option and its value
+ */
+static void
+print_option(opt, mainopt, printer, arg)
+    option_t *opt, *mainopt;
+    void (*printer) __P((void *, char *, ...));
+    void *arg;
+{
+       int i, v;
+       char *p;
+
+       if (opt->flags & OPT_NOPRINT)
+               return;
+       switch (opt->type) {
+       case o_bool:
+               v = opt->flags & OPT_VALUE;
+               if (*(bool *)opt->addr != v)
+                       /* this can happen legitimately, e.g. lock
+                          option turned off for default device */
+                       break;
+               printer(arg, "%s", opt->name);
+               break;
+       case o_int:
+               v = opt->flags & OPT_VALUE;
+               if (v >= 128)
+                       v -= 256;
+               i = *(int *)opt->addr;
+               if (opt->flags & OPT_NOARG) {
+                       printer(arg, "%s", opt->name);
+                       if (i != v) {
+                               if (opt->flags & OPT_INC) {
+                                       for (; i > v; i -= v)
+                                               printer(arg, " %s", opt->name);
+                               } else
+                                       printer(arg, " # oops: %d not %d\n",
+                                               i, v);
+                       }
+               } else {
+                       printer(arg, "%s %d", opt->name, i);
+               }
+               break;
+       case o_uint32:
+               printer(arg, "%s", opt->name);
+               if ((opt->flags & OPT_NOARG) == 0)
+                       printer(arg, " %x", *(u_int32_t *)opt->addr);
+               break;
+
+       case o_string:
+               if (opt->flags & OPT_HIDE) {
+                       p = "??????";
+               } else {
+                       p = (char *) opt->addr;
+                       if ((opt->flags & OPT_STATIC) == 0)
+                               p = *(char **)p;
+               }
+               printer(arg, "%s %q", opt->name, p);
+               break;
+
+       case o_special:
+       case o_special_noarg:
+       case o_wild:
+               if (opt->type != o_wild) {
+                       printer(arg, "%s", opt->name);
+                       if (n_arguments(opt) == 0)
+                               break;
+                       printer(arg, " ");
+               }
+               if (opt->flags & OPT_A2PRINTER) {
+                       void (*oprt) __P((option_t *,
+                                         void ((*)__P((void *, char *, ...))),
+                                         void *));
+                       oprt = (void (*) __P((option_t *,
+                                        void ((*)__P((void *, char *, ...))),
+                                        void *)))opt->addr2;
+                       (*oprt)(opt, printer, arg);
+               } else if (opt->flags & OPT_A2STRVAL) {
+                       p = (char *) opt->addr2;
+                       if ((opt->flags & OPT_STATIC) == 0)
+                               p = *(char **)p;
+                       printer("%q", p);
+               } else if (opt->flags & OPT_A2LIST) {
+                       struct option_value *ovp;
+
+                       ovp = (struct option_value *) opt->addr2;
+                       for (;;) {
+                               printer(arg, "%q", ovp->value);
+                               if ((ovp = ovp->next) == NULL)
+                                       break;
+                               printer(arg, "\t\t# (from %s)\n%s ",
+                                       ovp->source, opt->name);
+                       }
+               } else {
+                       printer(arg, "xxx # [don't know how to print value]");
+               }
+               break;
+
+       default:
+               printer(arg, "# %s value (type %d\?\?)", opt->name, opt->type);
+               break;
+       }
+       printer(arg, "\t\t# (from %s)\n", mainopt->source);
+}
+
+/*
+ * print_option_list - print out options in effect from an
+ * array of options.
+ */
+static void
+print_option_list(opt, printer, arg)
+    option_t *opt;
+    void (*printer) __P((void *, char *, ...));
+    void *arg;
+{
+       while (opt->name != NULL) {
+               if (opt->priority != OPRIO_DEFAULT
+                   && opt->winner != (short int) -1)
+                       print_option(opt + opt->winner, opt, printer, arg);
+               do {
+                       ++opt;
+               } while (opt->flags & OPT_PRIOSUB);
+       }
+}
+
+/*
+ * print_options - print out what options are in effect.
+ */
+void
+print_options(printer, arg)
+    void (*printer) __P((void *, char *, ...));
+    void *arg;
+{
+       struct option_list *list;
+       int i;
+
+       printer(arg, "pppd options in effect:\n");
+       print_option_list(general_options, printer, arg);
+       print_option_list(auth_options, printer, arg);
+       for (list = extra_options; list != NULL; list = list->next)
+               print_option_list(list->options, printer, arg);
+       print_option_list(the_channel->options, printer, arg);
+       for (i = 0; protocols[i] != NULL; ++i)
+               print_option_list(protocols[i]->options, printer, arg);
+}
+
 /*
  * usage - print out a message telling how to use the program.
  */
@@ -826,8 +982,7 @@ static void
 usage()
 {
     if (phase == PHASE_INITIALIZE)
-       fprintf(stderr, usage_string, VERSION, PATCHLEVEL, IMPLEMENTATION,
-               progname);
+       fprintf(stderr, usage_string, VERSION, progname);
 }
 
 /*
@@ -852,8 +1007,7 @@ showversion(argv)
     char **argv;
 {
     if (phase == PHASE_INITIALIZE) {
-       fprintf(stderr, "pppd version %s.%d%s\n",
-               VERSION, PATCHLEVEL, IMPLEMENTATION);
+       fprintf(stderr, "pppd version %s\n", VERSION);
        exit(0);
     }
     return 0;
@@ -868,7 +1022,7 @@ void
 option_error __V((char *fmt, ...))
 {
     va_list args;
-    char buf[256];
+    char buf[1024];
 
 #if defined(__STDC__)
     va_start(args, fmt);
@@ -877,10 +1031,6 @@ option_error __V((char *fmt, ...))
     va_start(args);
     fmt = va_arg(args, char *);
 #endif
-    if (prepass) {
-       va_end(args);
-       return;
-    }
     vslprintf(buf, sizeof(buf), fmt, args);
     va_end(args);
     if (phase == PHASE_INITIALIZE)
@@ -1260,16 +1410,6 @@ callfile(argv)
 }
 
 #ifdef PPP_FILTER
-/*
- * setpdebug - Set libpcap debugging level.
- */
-static int
-setpdebug(argv)
-    char **argv;
-{
-    return int_option(*argv, &dflag);
-}
-
 /*
  * setpassfilter - Set the pass filter for packets
  */
@@ -1303,21 +1443,6 @@ setactivefilter(argv)
 }
 #endif
 
-/*
- * noopt - Disable all options.
- */
-static int
-noopt(argv)
-    char **argv;
-{
-    BZERO((char *) &lcp_wantoptions[0], sizeof (struct lcp_options));
-    BZERO((char *) &lcp_allowoptions[0], sizeof (struct lcp_options));
-    BZERO((char *) &ipcp_wantoptions[0], sizeof (struct ipcp_options));
-    BZERO((char *) &ipcp_allowoptions[0], sizeof (struct ipcp_options));
-
-    return (1);
-}
-
 /*
  * setdomain - Set domain name to append to hostname 
  */
@@ -1325,14 +1450,11 @@ static int
 setdomain(argv)
     char **argv;
 {
-    if (!privileged_option) {
-       option_error("using the domain option requires root privilege");
-       return 0;
-    }
     gethostname(hostname, MAXNAMELEN);
     if (**argv != 0) {
        if (**argv != '.')
            strncat(hostname, ".", MAXNAMELEN - strlen(hostname));
+       domain = hostname + strlen(hostname);
        strncat(hostname, *argv, MAXNAMELEN - strlen(hostname));
     }
     hostname[MAXNAMELEN-1] = 0;
@@ -1340,223 +1462,6 @@ setdomain(argv)
 }
 
 
-/*
- * setspeed - Set the speed.
- */
-static int
-setspeed(arg)
-    char *arg;
-{
-    char *ptr;
-    int spd;
-
-    if (prepass)
-       return 1;
-    spd = strtol(arg, &ptr, 0);
-    if (ptr == arg || *ptr != 0 || spd == 0)
-       return 0;
-    inspeed = spd;
-    return 1;
-}
-
-
-/*
- * setdevname - Set the device name.
- */
-static int
-setdevname(cp)
-    char *cp;
-{
-    struct stat statbuf;
-    char dev[MAXPATHLEN];
-
-    if (*cp == 0)
-       return 0;
-
-    if (strncmp("/dev/", cp, 5) != 0) {
-       strlcpy(dev, "/dev/", sizeof(dev));
-       strlcat(dev, cp, sizeof(dev));
-       cp = dev;
-    }
-
-    /*
-     * Check if there is a character device by this name.
-     */
-    if (stat(cp, &statbuf) < 0) {
-       if (errno == ENOENT)
-           return 0;
-       option_error("Couldn't stat %s: %m", cp);
-       return -1;
-    }
-    if (!S_ISCHR(statbuf.st_mode)) {
-       option_error("%s is not a character device", cp);
-       return -1;
-    }
-
-    if (phase != PHASE_INITIALIZE) {
-       option_error("device name cannot be changed after initialization");
-       return -1;
-    } else if (devnam_fixed) {
-       option_error("per-tty options file may not specify device name");
-       return -1;
-    }
-
-    if (devnam_info.priv && !privileged_option) {
-       option_error("device name cannot be overridden");
-       return -1;
-    }
-
-    strlcpy(devnam, cp, sizeof(devnam));
-    devstat = statbuf;
-    default_device = 0;
-    devnam_info.priv = privileged_option;
-    devnam_info.source = option_source;
-  
-    return 1;
-}
-
-
-/*
- * setipaddr - Set the IP address
- */
-static int
-setipaddr(arg)
-    char *arg;
-{
-    struct hostent *hp;
-    char *colon;
-    u_int32_t local, remote;
-    ipcp_options *wo = &ipcp_wantoptions[0];
-  
-    /*
-     * IP address pair separated by ":".
-     */
-    if ((colon = strchr(arg, ':')) == NULL)
-       return 0;
-    if (prepass)
-       return 1;
-  
-    /*
-     * If colon first character, then no local addr.
-     */
-    if (colon != arg) {
-       *colon = '\0';
-       if ((local = inet_addr(arg)) == (u_int32_t) -1) {
-           if ((hp = gethostbyname(arg)) == NULL) {
-               option_error("unknown host: %s", arg);
-               return -1;
-           } else {
-               local = *(u_int32_t *)hp->h_addr;
-           }
-       }
-       if (bad_ip_adrs(local)) {
-           option_error("bad local IP address %s", ip_ntoa(local));
-           return -1;
-       }
-       if (local != 0)
-           wo->ouraddr = local;
-       *colon = ':';
-    }
-  
-    /*
-     * If colon last character, then no remote addr.
-     */
-    if (*++colon != '\0') {
-       if ((remote = inet_addr(colon)) == (u_int32_t) -1) {
-           if ((hp = gethostbyname(colon)) == NULL) {
-               option_error("unknown host: %s", colon);
-               return -1;
-           } else {
-               remote = *(u_int32_t *)hp->h_addr;
-               if (remote_name[0] == 0)
-                   strlcpy(remote_name, colon, sizeof(remote_name));
-           }
-       }
-       if (bad_ip_adrs(remote)) {
-           option_error("bad remote IP address %s", ip_ntoa(remote));
-           return -1;
-       }
-       if (remote != 0)
-           wo->hisaddr = remote;
-    }
-
-    return 1;
-}
-
-
-/*
- * setnetmask - set the netmask to be used on the interface.
- */
-static int
-setnetmask(argv)
-    char **argv;
-{
-    u_int32_t mask;
-    int n;
-    char *p;
-
-    /*
-     * Unfortunately, if we use inet_addr, we can't tell whether
-     * a result of all 1s is an error or a valid 255.255.255.255.
-     */
-    p = *argv;
-    n = parse_dotted_ip(p, &mask);
-
-    mask = htonl(mask);
-
-    if (n == 0 || p[n] != 0 || (netmask & ~mask) != 0) {
-       option_error("invalid netmask value '%s'", *argv);
-       return 0;
-    }
-
-    netmask = mask;
-    return (1);
-}
-
-int
-parse_dotted_ip(p, vp)
-    char *p;
-    u_int32_t *vp;
-{
-    int n;
-    u_int32_t v, b;
-    char *endp, *p0 = p;
-
-    v = 0;
-    for (n = 3;; --n) {
-       b = strtoul(p, &endp, 0);
-       if (endp == p)
-           return 0;
-       if (b > 255) {
-           if (n < 3)
-               return 0;
-           /* accept e.g. 0xffffff00 */
-           *vp = b;
-           return endp - p0;
-       }
-       v |= b << (n * 8);
-       p = endp;
-       if (n == 0)
-           break;
-       if (*p != '.')
-           return 0;
-       ++p;
-    }
-    *vp = v;
-    return p - p0;
-}
-
-static int
-setxonxoff(argv)
-    char **argv;
-{
-    lcp_wantoptions[0].asyncmap |= 0x000A0000; /* escape ^S and ^Q */
-    lcp_wantoptions[0].neg_asyncmap = 1;
-
-    crtscts = -2;
-    return (1);
-}
-
 static int
 setlogfile(argv)
     char **argv;
@@ -1576,12 +1481,33 @@ setlogfile(argv)
        option_error("Can't open log file %s: %m", *argv);
        return 0;
     }
-    if (log_to_file && log_to_fd >= 0)
-       close(log_to_fd);
+    strlcpy(logfile_name, *argv, sizeof(logfile_name));
+    if (logfile_fd >= 0)
+       close(logfile_fd);
+    logfile_fd = fd;
     log_to_fd = fd;
-    log_to_file = 1;
+    log_default = 0;
+    return 1;
+}
+#ifdef MAXOCTETS
+static int
+setmodir(argv)
+    char **argv;
+{
+    if(*argv == NULL)
+       return 0;
+    if(!strcmp(*argv,"in")) {
+        maxoctets_dir = PPP_OCTETS_DIRECTION_IN;
+    } else if (!strcmp(*argv,"out")) {
+        maxoctets_dir = PPP_OCTETS_DIRECTION_OUT;
+    } else if (!strcmp(*argv,"max")) {
+        maxoctets_dir = PPP_OCTETS_DIRECTION_MAXOVERAL;
+    } else {
+        maxoctets_dir = PPP_OCTETS_DIRECTION_SUM;
+    }
     return 1;
 }
+#endif
 
 #ifdef PLUGIN
 static int
@@ -1592,23 +1518,49 @@ loadplugin(argv)
     void *handle;
     const char *err;
     void (*init) __P((void));
-
-    handle = dlopen(arg, RTLD_GLOBAL | RTLD_NOW);
+    char *path = arg;
+    const char *vers;
+
+    if (strchr(arg, '/') == 0) {
+       const char *base = _PATH_PLUGIN;
+       int l = strlen(base) + strlen(arg) + 2;
+       path = malloc(l);
+       if (path == 0)
+           novm("plugin file path");
+       strlcpy(path, base, l);
+       strlcat(path, "/", l);
+       strlcat(path, arg, l);
+    }
+    handle = dlopen(path, RTLD_GLOBAL | RTLD_NOW);
     if (handle == 0) {
        err = dlerror();
        if (err != 0)
            option_error("%s", err);
        option_error("Couldn't load plugin %s", arg);
-       return 0;
+       goto err;
     }
     init = (void (*)(void))dlsym(handle, "plugin_init");
     if (init == 0) {
        option_error("%s has no initialization entry point", arg);
-       dlclose(handle);
-       return 0;
+       goto errclose;
+    }
+    vers = (const char *) dlsym(handle, "pppd_version");
+    if (vers == 0) {
+       warn("Warning: plugin %s has no version information", arg);
+    } else if (strcmp(vers, VERSION) != 0) {
+       option_error("Plugin %s is for pppd version %s, this is %s",
+                    arg, vers, VERSION);
+       goto errclose;
     }
     info("Plugin %s loaded.", arg);
     (*init)();
     return 1;
+
+ errclose:
+    dlclose(handle);
+ err:
+    if (path != arg)
+       free(path);
+    return 0;
 }
 #endif /* PLUGIN */