ipcp.c revision 102500 
1/*-
2 * Copyright (c) 1996 - 2001 Brian Somers <brian@Awfulhak.org>
3 *          based on work by Toshiharu OHNO <tony-o@iij.ad.jp>
4 *                           Internet Initiative Japan, Inc (IIJ)
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 *
28 * $FreeBSD: head/usr.sbin/ppp/ipcp.c 102500 2002-08-27 20:11:58Z brian $
29 */
30
31#include <sys/param.h>
32#include <netinet/in_systm.h>
33#include <netinet/in.h>
34#include <netinet/ip.h>
35#include <arpa/inet.h>
36#include <sys/socket.h>
37#include <net/if.h>
38#include <net/route.h>
39#include <netdb.h>
40#include <sys/un.h>
41
42#include <errno.h>
43#include <fcntl.h>
44#include <resolv.h>
45#include <stdarg.h>
46#include <stdlib.h>
47#include <string.h>
48#include <sys/stat.h>
49#include <termios.h>
50#include <unistd.h>
51
52#ifndef NONAT
53#ifdef LOCALNAT
54#include "alias.h"
55#else
56#include <alias.h>
57#endif
58#endif
59
60#include "layer.h"
61#include "ua.h"
62#include "defs.h"
63#include "command.h"
64#include "mbuf.h"
65#include "log.h"
66#include "timer.h"
67#include "fsm.h"
68#include "proto.h"
69#include "iplist.h"
70#include "throughput.h"
71#include "slcompress.h"
72#include "lqr.h"
73#include "hdlc.h"
74#include "lcp.h"
75#include "ncpaddr.h"
76#include "ip.h"
77#include "ipcp.h"
78#include "filter.h"
79#include "descriptor.h"
80#include "vjcomp.h"
81#include "async.h"
82#include "ccp.h"
83#include "link.h"
84#include "physical.h"
85#include "mp.h"
86#ifndef NORADIUS
87#include "radius.h"
88#endif
89#include "ipv6cp.h"
90#include "ncp.h"
91#include "bundle.h"
92#include "id.h"
93#include "arp.h"
94#include "systems.h"
95#include "prompt.h"
96#include "route.h"
97#include "iface.h"
98
99#undef REJECTED
100#define	REJECTED(p, x)	((p)->peer_reject & (1<<(x)))
101#define issep(ch) ((ch) == ' ' || (ch) == '\t')
102#define isip(ch) (((ch) >= '0' && (ch) <= '9') || (ch) == '.')
103
104struct compreq {
105  u_short proto;
106  u_char slots;
107  u_char compcid;
108};
109
110static int IpcpLayerUp(struct fsm *);
111static void IpcpLayerDown(struct fsm *);
112static void IpcpLayerStart(struct fsm *);
113static void IpcpLayerFinish(struct fsm *);
114static void IpcpInitRestartCounter(struct fsm *, int);
115static void IpcpSendConfigReq(struct fsm *);
116static void IpcpSentTerminateReq(struct fsm *);
117static void IpcpSendTerminateAck(struct fsm *, u_char);
118static void IpcpDecodeConfig(struct fsm *, u_char *, u_char *, int,
119                             struct fsm_decode *);
120
121static struct fsm_callbacks ipcp_Callbacks = {
122  IpcpLayerUp,
123  IpcpLayerDown,
124  IpcpLayerStart,
125  IpcpLayerFinish,
126  IpcpInitRestartCounter,
127  IpcpSendConfigReq,
128  IpcpSentTerminateReq,
129  IpcpSendTerminateAck,
130  IpcpDecodeConfig,
131  fsm_NullRecvResetReq,
132  fsm_NullRecvResetAck
133};
134
135static const char *
136protoname(int proto)
137{
138  static struct {
139    int id;
140    const char *txt;
141  } cftypes[] = {
142    /* Check out the latest ``Assigned numbers'' rfc (rfc1700.txt) */
143    { 1, "IPADDRS" },		/* IP-Addresses */	/* deprecated */
144    { 2, "COMPPROTO" },		/* IP-Compression-Protocol */
145    { 3, "IPADDR" },		/* IP-Address */
146    { 129, "PRIDNS" },		/* 129: Primary DNS Server Address */
147    { 130, "PRINBNS" },		/* 130: Primary NBNS Server Address */
148    { 131, "SECDNS" },		/* 131: Secondary DNS Server Address */
149    { 132, "SECNBNS" }		/* 132: Secondary NBNS Server Address */
150  };
151  int f;
152
153  for (f = 0; f < sizeof cftypes / sizeof *cftypes; f++)
154    if (cftypes[f].id == proto)
155      return cftypes[f].txt;
156
157  return NumStr(proto, NULL, 0);
158}
159
160void
161ipcp_AddInOctets(struct ipcp *ipcp, int n)
162{
163  throughput_addin(&ipcp->throughput, n);
164}
165
166void
167ipcp_AddOutOctets(struct ipcp *ipcp, int n)
168{
169  throughput_addout(&ipcp->throughput, n);
170}
171
172void
173ipcp_LoadDNS(struct ipcp *ipcp)
174{
175  int fd;
176
177  ipcp->ns.dns[0].s_addr = ipcp->ns.dns[1].s_addr = INADDR_NONE;
178
179  if (ipcp->ns.resolv != NULL) {
180    free(ipcp->ns.resolv);
181    ipcp->ns.resolv = NULL;
182  }
183  if (ipcp->ns.resolv_nons != NULL) {
184    free(ipcp->ns.resolv_nons);
185    ipcp->ns.resolv_nons = NULL;
186  }
187  ipcp->ns.resolver = 0;
188
189  if ((fd = open(_PATH_RESCONF, O_RDONLY)) != -1) {
190    struct stat st;
191
192    if (fstat(fd, &st) == 0) {
193      ssize_t got;
194
195      if ((ipcp->ns.resolv_nons = (char *)malloc(st.st_size + 1)) == NULL)
196        log_Printf(LogERROR, "Failed to malloc %lu for %s: %s\n",
197                   (unsigned long)st.st_size, _PATH_RESCONF, strerror(errno));
198      else if ((ipcp->ns.resolv = (char *)malloc(st.st_size + 1)) == NULL) {
199        log_Printf(LogERROR, "Failed(2) to malloc %lu for %s: %s\n",
200                   (unsigned long)st.st_size, _PATH_RESCONF, strerror(errno));
201        free(ipcp->ns.resolv_nons);
202        ipcp->ns.resolv_nons = NULL;
203      } else if ((got = read(fd, ipcp->ns.resolv, st.st_size)) != st.st_size) {
204        if (got == -1)
205          log_Printf(LogERROR, "Failed to read %s: %s\n",
206                     _PATH_RESCONF, strerror(errno));
207        else
208          log_Printf(LogERROR, "Failed to read %s, got %lu not %lu\n",
209                     _PATH_RESCONF, (unsigned long)got,
210                     (unsigned long)st.st_size);
211        free(ipcp->ns.resolv_nons);
212        ipcp->ns.resolv_nons = NULL;
213        free(ipcp->ns.resolv);
214        ipcp->ns.resolv = NULL;
215      } else {
216        char *cp, *cp_nons, *ncp, ch;
217        int n;
218
219        ipcp->ns.resolv[st.st_size] = '\0';
220        ipcp->ns.resolver = 1;
221
222        cp_nons = ipcp->ns.resolv_nons;
223        cp = ipcp->ns.resolv;
224        n = 0;
225
226        while ((ncp = strstr(cp, "nameserver")) != NULL) {
227          if (ncp != cp) {
228            memcpy(cp_nons, cp, ncp - cp);
229            cp_nons += ncp - cp;
230          }
231          if ((ncp != cp && ncp[-1] != '\n') || !issep(ncp[10])) {
232            memcpy(cp_nons, ncp, 9);
233            cp_nons += 9;
234            cp = ncp + 9;	/* Can't match "nameserver" at cp... */
235            continue;
236          }
237
238          for (cp = ncp + 11; issep(*cp); cp++)	/* Skip whitespace */
239            ;
240
241          for (ncp = cp; isip(*ncp); ncp++)		/* Jump over IP */
242            ;
243
244          ch = *ncp;
245          *ncp = '\0';
246          if (n < 2 && inet_aton(cp, ipcp->ns.dns))
247            n++;
248          *ncp = ch;
249
250          if ((cp = strchr(ncp, '\n')) == NULL)	/* Point at next line */
251            cp = ncp + strlen(ncp);
252          else
253            cp++;
254        }
255        strcpy(cp_nons, cp);	/* Copy the end - including the NUL */
256        cp_nons += strlen(cp_nons) - 1;
257        while (cp_nons >= ipcp->ns.resolv_nons && *cp_nons == '\n')
258          *cp_nons-- = '\0';
259        if (n == 2 && ipcp->ns.dns[0].s_addr == INADDR_ANY) {
260          ipcp->ns.dns[0].s_addr = ipcp->ns.dns[1].s_addr;
261          ipcp->ns.dns[1].s_addr = INADDR_ANY;
262        }
263        bundle_AdjustDNS(ipcp->fsm.bundle);
264      }
265    } else
266      log_Printf(LogERROR, "Failed to stat opened %s: %s\n",
267                 _PATH_RESCONF, strerror(errno));
268
269    close(fd);
270  }
271}
272
273int
274ipcp_WriteDNS(struct ipcp *ipcp)
275{
276  const char *paddr;
277  mode_t mask;
278  FILE *fp;
279
280  if (ipcp->ns.dns[0].s_addr == INADDR_ANY &&
281      ipcp->ns.dns[1].s_addr == INADDR_ANY) {
282    log_Printf(LogIPCP, "%s not modified: All nameservers NAKd\n",
283              _PATH_RESCONF);
284    return 0;
285  }
286
287  if (ipcp->ns.dns[0].s_addr == INADDR_ANY) {
288    ipcp->ns.dns[0].s_addr = ipcp->ns.dns[1].s_addr;
289    ipcp->ns.dns[1].s_addr = INADDR_ANY;
290  }
291
292  mask = umask(022);
293  if ((fp = ID0fopen(_PATH_RESCONF, "w")) != NULL) {
294    umask(mask);
295    if (ipcp->ns.resolv_nons)
296      fputs(ipcp->ns.resolv_nons, fp);
297    paddr = inet_ntoa(ipcp->ns.dns[0]);
298    log_Printf(LogIPCP, "Primary nameserver set to %s\n", paddr);
299    fprintf(fp, "\nnameserver %s\n", paddr);
300    if (ipcp->ns.dns[1].s_addr != INADDR_ANY &&
301        ipcp->ns.dns[1].s_addr != INADDR_NONE &&
302        ipcp->ns.dns[1].s_addr != ipcp->ns.dns[0].s_addr) {
303      paddr = inet_ntoa(ipcp->ns.dns[1]);
304      log_Printf(LogIPCP, "Secondary nameserver set to %s\n", paddr);
305      fprintf(fp, "nameserver %s\n", paddr);
306    }
307    if (fclose(fp) == EOF) {
308      log_Printf(LogERROR, "write(): Failed updating %s: %s\n", _PATH_RESCONF,
309                 strerror(errno));
310      return 0;
311    }
312  } else
313    umask(mask);
314
315  return 1;
316}
317
318void
319ipcp_RestoreDNS(struct ipcp *ipcp)
320{
321  if (ipcp->ns.resolver) {
322    ssize_t got;
323    size_t len;
324    int fd;
325
326    if ((fd = ID0open(_PATH_RESCONF, O_WRONLY|O_TRUNC, 0644)) != -1) {
327      len = strlen(ipcp->ns.resolv);
328      if ((got = write(fd, ipcp->ns.resolv, len)) != len) {
329        if (got == -1)
330          log_Printf(LogERROR, "Failed rewriting %s: write: %s\n",
331                     _PATH_RESCONF, strerror(errno));
332        else
333          log_Printf(LogERROR, "Failed rewriting %s: wrote %lu of %lu\n",
334                     _PATH_RESCONF, (unsigned long)got, (unsigned long)len);
335      }
336      close(fd);
337    } else
338      log_Printf(LogERROR, "Failed rewriting %s: open: %s\n", _PATH_RESCONF,
339                 strerror(errno));
340  } else if (remove(_PATH_RESCONF) == -1)
341    log_Printf(LogERROR, "Failed removing %s: %s\n", _PATH_RESCONF,
342               strerror(errno));
343
344}
345
346int
347ipcp_Show(struct cmdargs const *arg)
348{
349  struct ipcp *ipcp = &arg->bundle->ncp.ipcp;
350
351  prompt_Printf(arg->prompt, "%s [%s]\n", ipcp->fsm.name,
352                State2Nam(ipcp->fsm.state));
353  if (ipcp->fsm.state == ST_OPENED) {
354    prompt_Printf(arg->prompt, " His side:        %s, %s\n",
355                  inet_ntoa(ipcp->peer_ip), vj2asc(ipcp->peer_compproto));
356    prompt_Printf(arg->prompt, " My side:         %s, %s\n",
357                  inet_ntoa(ipcp->my_ip), vj2asc(ipcp->my_compproto));
358    prompt_Printf(arg->prompt, " Queued packets:  %lu\n",
359                  (unsigned long)ipcp_QueueLen(ipcp));
360  }
361
362  prompt_Printf(arg->prompt, "\nDefaults:\n");
363  prompt_Printf(arg->prompt, " FSM retry = %us, max %u Config"
364                " REQ%s, %u Term REQ%s\n", ipcp->cfg.fsm.timeout,
365                ipcp->cfg.fsm.maxreq, ipcp->cfg.fsm.maxreq == 1 ? "" : "s",
366                ipcp->cfg.fsm.maxtrm, ipcp->cfg.fsm.maxtrm == 1 ? "" : "s");
367  prompt_Printf(arg->prompt, " My Address:      %s\n",
368                ncprange_ntoa(&ipcp->cfg.my_range));
369  if (ipcp->cfg.HaveTriggerAddress)
370    prompt_Printf(arg->prompt, " Trigger address: %s\n",
371                  inet_ntoa(ipcp->cfg.TriggerAddress));
372
373  prompt_Printf(arg->prompt, " VJ compression:  %s (%d slots %s slot "
374                "compression)\n", command_ShowNegval(ipcp->cfg.vj.neg),
375                ipcp->cfg.vj.slots, ipcp->cfg.vj.slotcomp ? "with" : "without");
376
377  if (iplist_isvalid(&ipcp->cfg.peer_list))
378    prompt_Printf(arg->prompt, " His Address:     %s\n",
379                  ipcp->cfg.peer_list.src);
380  else
381    prompt_Printf(arg->prompt, " His Address:     %s\n",
382                  ncprange_ntoa(&ipcp->cfg.peer_range));
383
384  prompt_Printf(arg->prompt, " DNS:             %s",
385                ipcp->cfg.ns.dns[0].s_addr == INADDR_NONE ?
386                "none" : inet_ntoa(ipcp->cfg.ns.dns[0]));
387  if (ipcp->cfg.ns.dns[1].s_addr != INADDR_NONE)
388    prompt_Printf(arg->prompt, ", %s",
389                  inet_ntoa(ipcp->cfg.ns.dns[1]));
390  prompt_Printf(arg->prompt, ", %s\n",
391                command_ShowNegval(ipcp->cfg.ns.dns_neg));
392  prompt_Printf(arg->prompt, " Resolver DNS:    %s",
393                ipcp->ns.dns[0].s_addr == INADDR_NONE ?
394                "none" : inet_ntoa(ipcp->ns.dns[0]));
395  if (ipcp->ns.dns[1].s_addr != INADDR_NONE &&
396      ipcp->ns.dns[1].s_addr != ipcp->ns.dns[0].s_addr)
397    prompt_Printf(arg->prompt, ", %s",
398                  inet_ntoa(ipcp->ns.dns[1]));
399  prompt_Printf(arg->prompt, "\n NetBIOS NS:      %s, ",
400                inet_ntoa(ipcp->cfg.ns.nbns[0]));
401  prompt_Printf(arg->prompt, "%s\n\n",
402                inet_ntoa(ipcp->cfg.ns.nbns[1]));
403
404  throughput_disp(&ipcp->throughput, arg->prompt);
405
406  return 0;
407}
408
409int
410ipcp_vjset(struct cmdargs const *arg)
411{
412  if (arg->argc != arg->argn+2)
413    return -1;
414  if (!strcasecmp(arg->argv[arg->argn], "slots")) {
415    int slots;
416
417    slots = atoi(arg->argv[arg->argn+1]);
418    if (slots < 4 || slots > 16)
419      return 1;
420    arg->bundle->ncp.ipcp.cfg.vj.slots = slots;
421    return 0;
422  } else if (!strcasecmp(arg->argv[arg->argn], "slotcomp")) {
423    if (!strcasecmp(arg->argv[arg->argn+1], "on"))
424      arg->bundle->ncp.ipcp.cfg.vj.slotcomp = 1;
425    else if (!strcasecmp(arg->argv[arg->argn+1], "off"))
426      arg->bundle->ncp.ipcp.cfg.vj.slotcomp = 0;
427    else
428      return 2;
429    return 0;
430  }
431  return -1;
432}
433
434void
435ipcp_Init(struct ipcp *ipcp, struct bundle *bundle, struct link *l,
436          const struct fsm_parent *parent)
437{
438  struct hostent *hp;
439  struct in_addr host;
440  char name[MAXHOSTNAMELEN];
441  static const char * const timer_names[] =
442    {"IPCP restart", "IPCP openmode", "IPCP stopped"};
443
444  fsm_Init(&ipcp->fsm, "IPCP", PROTO_IPCP, 1, IPCP_MAXCODE, LogIPCP,
445           bundle, l, parent, &ipcp_Callbacks, timer_names);
446
447  ipcp->cfg.vj.slots = DEF_VJ_STATES;
448  ipcp->cfg.vj.slotcomp = 1;
449  memset(&ipcp->cfg.my_range, '\0', sizeof ipcp->cfg.my_range);
450
451  host.s_addr = htonl(INADDR_LOOPBACK);
452  ipcp->cfg.netmask.s_addr = INADDR_ANY;
453  if (gethostname(name, sizeof name) == 0) {
454    hp = gethostbyname(name);
455    if (hp && hp->h_addrtype == AF_INET && hp->h_length == sizeof host.s_addr)
456      memcpy(&host.s_addr, hp->h_addr, sizeof host.s_addr);
457  }
458  ncprange_setip4(&ipcp->cfg.my_range, host, ipcp->cfg.netmask);
459  ncprange_setip4(&ipcp->cfg.peer_range, ipcp->cfg.netmask, ipcp->cfg.netmask);
460
461  iplist_setsrc(&ipcp->cfg.peer_list, "");
462  ipcp->cfg.HaveTriggerAddress = 0;
463
464  ipcp->cfg.ns.dns[0].s_addr = INADDR_NONE;
465  ipcp->cfg.ns.dns[1].s_addr = INADDR_NONE;
466  ipcp->cfg.ns.dns_neg = 0;
467  ipcp->cfg.ns.nbns[0].s_addr = INADDR_ANY;
468  ipcp->cfg.ns.nbns[1].s_addr = INADDR_ANY;
469
470  ipcp->cfg.fsm.timeout = DEF_FSMRETRY;
471  ipcp->cfg.fsm.maxreq = DEF_FSMTRIES;
472  ipcp->cfg.fsm.maxtrm = DEF_FSMTRIES;
473  ipcp->cfg.vj.neg = NEG_ENABLED|NEG_ACCEPTED;
474
475  memset(&ipcp->vj, '\0', sizeof ipcp->vj);
476
477  ipcp->ns.resolv = NULL;
478  ipcp->ns.resolv_nons = NULL;
479  ipcp->ns.writable = 1;
480  ipcp_LoadDNS(ipcp);
481
482  throughput_init(&ipcp->throughput, SAMPLE_PERIOD);
483  memset(ipcp->Queue, '\0', sizeof ipcp->Queue);
484  ipcp_Setup(ipcp, INADDR_NONE);
485}
486
487void
488ipcp_Destroy(struct ipcp *ipcp)
489{
490  throughput_destroy(&ipcp->throughput);
491
492  if (ipcp->ns.resolv != NULL) {
493    free(ipcp->ns.resolv);
494    ipcp->ns.resolv = NULL;
495  }
496  if (ipcp->ns.resolv_nons != NULL) {
497    free(ipcp->ns.resolv_nons);
498    ipcp->ns.resolv_nons = NULL;
499  }
500}
501
502void
503ipcp_SetLink(struct ipcp *ipcp, struct link *l)
504{
505  ipcp->fsm.link = l;
506}
507
508void
509ipcp_Setup(struct ipcp *ipcp, u_int32_t mask)
510{
511  struct iface *iface = ipcp->fsm.bundle->iface;
512  struct ncpaddr ipaddr;
513  struct in_addr peer;
514  int pos, n;
515
516  ipcp->fsm.open_mode = 0;
517  ipcp->ifmask.s_addr = mask == INADDR_NONE ? ipcp->cfg.netmask.s_addr : mask;
518
519  if (iplist_isvalid(&ipcp->cfg.peer_list)) {
520    /* Try to give the peer a previously configured IP address */
521    for (n = 0; n < iface->addrs; n++) {
522      if (!ncpaddr_getip4(&iface->addr[n].peer, &peer))
523        continue;
524      if ((pos = iplist_ip2pos(&ipcp->cfg.peer_list, peer)) != -1) {
525        ncpaddr_setip4(&ipaddr, iplist_setcurpos(&ipcp->cfg.peer_list, pos));
526        break;
527      }
528    }
529    if (n == iface->addrs)
530      /* Ok, so none of 'em fit.... pick a random one */
531      ncpaddr_setip4(&ipaddr, iplist_setrandpos(&ipcp->cfg.peer_list));
532
533    ncprange_sethost(&ipcp->cfg.peer_range, &ipaddr);
534  }
535
536  ipcp->heis1172 = 0;
537  ipcp->peer_req = 0;
538  ncprange_getip4addr(&ipcp->cfg.peer_range, &ipcp->peer_ip);
539  ipcp->peer_compproto = 0;
540
541  if (ipcp->cfg.HaveTriggerAddress) {
542    /*
543     * Some implementations of PPP require that we send a
544     * *special* value as our address, even though the rfc specifies
545     * full negotiation (e.g. "0.0.0.0" or Not "0.0.0.0").
546     */
547    ipcp->my_ip = ipcp->cfg.TriggerAddress;
548    log_Printf(LogIPCP, "Using trigger address %s\n",
549              inet_ntoa(ipcp->cfg.TriggerAddress));
550  } else {
551    /*
552     * Otherwise, if we've used an IP number before and it's still within
553     * the network specified on the ``set ifaddr'' line, we really
554     * want to keep that IP number so that we can keep any existing
555     * connections that are bound to that IP.
556     */
557    for (n = 0; n < iface->addrs; n++) {
558      ncprange_getaddr(&iface->addr[n].ifa, &ipaddr);
559      if (ncprange_contains(&ipcp->cfg.my_range, &ipaddr)) {
560        ncpaddr_getip4(&ipaddr, &ipcp->my_ip);
561        break;
562      }
563    }
564    if (n == iface->addrs)
565      ncprange_getip4addr(&ipcp->cfg.my_range, &ipcp->my_ip);
566  }
567
568  if (IsEnabled(ipcp->cfg.vj.neg)
569#ifndef NORADIUS
570      || (ipcp->fsm.bundle->radius.valid && ipcp->fsm.bundle->radius.vj)
571#endif
572     )
573    ipcp->my_compproto = (PROTO_VJCOMP << 16) +
574                         ((ipcp->cfg.vj.slots - 1) << 8) +
575                         ipcp->cfg.vj.slotcomp;
576  else
577    ipcp->my_compproto = 0;
578  sl_compress_init(&ipcp->vj.cslc, ipcp->cfg.vj.slots - 1);
579
580  ipcp->peer_reject = 0;
581  ipcp->my_reject = 0;
582
583  /* Copy startup values into ipcp->ns.dns */
584  if (ipcp->cfg.ns.dns[0].s_addr != INADDR_NONE)
585    memcpy(ipcp->ns.dns, ipcp->cfg.ns.dns, sizeof ipcp->ns.dns);
586}
587
588static int
589numaddresses(struct in_addr mask)
590{
591  u_int32_t bit, haddr;
592  int n;
593
594  haddr = ntohl(mask.s_addr);
595  bit = 1;
596  n = 1;
597
598  do {
599    if (!(haddr & bit))
600      n <<= 1;
601  } while (bit <<= 1);
602
603  return n;
604}
605
606static int
607ipcp_proxyarp(struct ipcp *ipcp,
608              int (*proxyfun)(struct bundle *, struct in_addr, int),
609              const struct iface_addr *addr)
610{
611  struct bundle *bundle = ipcp->fsm.bundle;
612  struct in_addr peer, mask, ip;
613  int n, ret, s;
614
615  if (!ncpaddr_getip4(&addr->peer, &peer)) {
616    log_Printf(LogERROR, "Oops, ipcp_proxyarp() called with unexpected addr\n");
617    return 0;
618  }
619
620  if ((s = ID0socket(PF_INET, SOCK_DGRAM, 0)) == -1) {
621    log_Printf(LogERROR, "ipcp_proxyarp: socket: %s\n",
622               strerror(errno));
623    return 0;
624  }
625
626  ret = 0;
627
628  if (Enabled(bundle, OPT_PROXYALL)) {
629    ncprange_getip4mask(&addr->ifa, &mask);
630    if ((n = numaddresses(mask)) > 256) {
631      log_Printf(LogWARN, "%s: Too many addresses for proxyall\n",
632                 ncprange_ntoa(&addr->ifa));
633      return 0;
634    }
635    ip.s_addr = peer.s_addr & mask.s_addr;
636    if (n >= 4) {
637      ip.s_addr = htonl(ntohl(ip.s_addr) + 1);
638      n -= 2;
639    }
640    while (n) {
641      if (!((ip.s_addr ^ peer.s_addr) & mask.s_addr)) {
642        if (!(ret = (*proxyfun)(bundle, ip, s)))
643          break;
644        n--;
645      }
646      ip.s_addr = htonl(ntohl(ip.s_addr) + 1);
647    }
648    ret = !n;
649  } else if (Enabled(bundle, OPT_PROXY))
650    ret = (*proxyfun)(bundle, peer, s);
651
652  close(s);
653
654  return ret;
655}
656
657static int
658ipcp_SetIPaddress(struct ipcp *ipcp, struct in_addr myaddr,
659                  struct in_addr hisaddr)
660{
661  struct bundle *bundle = ipcp->fsm.bundle;
662  struct ncpaddr myncpaddr, hisncpaddr;
663  struct ncprange myrange;
664  struct in_addr mask;
665  struct sockaddr_storage ssdst, ssgw, ssmask;
666  struct sockaddr *sadst, *sagw, *samask;
667
668  sadst = (struct sockaddr *)&ssdst;
669  sagw = (struct sockaddr *)&ssgw;
670  samask = (struct sockaddr *)&ssmask;
671
672  ncpaddr_setip4(&hisncpaddr, hisaddr);
673  ncpaddr_setip4(&myncpaddr, myaddr);
674  ncprange_sethost(&myrange, &myncpaddr);
675
676  mask = addr2mask(myaddr);
677
678  if (ipcp->ifmask.s_addr != INADDR_ANY &&
679      (ipcp->ifmask.s_addr & mask.s_addr) == mask.s_addr)
680    ncprange_setip4mask(&myrange, ipcp->ifmask);
681
682  if (!iface_Add(bundle->iface, &bundle->ncp, &myrange, &hisncpaddr,
683                 IFACE_ADD_FIRST|IFACE_FORCE_ADD|IFACE_SYSTEM))
684    return 0;
685
686  if (!Enabled(bundle, OPT_IFACEALIAS))
687    iface_Clear(bundle->iface, &bundle->ncp, AF_INET,
688                IFACE_CLEAR_ALIASES|IFACE_SYSTEM);
689
690  if (bundle->ncp.cfg.sendpipe > 0 || bundle->ncp.cfg.recvpipe > 0) {
691    ncprange_getsa(&myrange, &ssgw, &ssmask);
692    ncpaddr_getsa(&hisncpaddr, &ssdst);
693    rt_Update(bundle, sadst, sagw, samask);
694  }
695
696  if (Enabled(bundle, OPT_SROUTES))
697    route_Change(bundle, bundle->ncp.route, &myncpaddr, &hisncpaddr);
698
699#ifndef NORADIUS
700  if (bundle->radius.valid)
701    route_Change(bundle, bundle->radius.routes, &myncpaddr, &hisncpaddr);
702#endif
703
704  return 1;	/* Ok */
705}
706
707static struct in_addr
708ChooseHisAddr(struct bundle *bundle, struct in_addr gw)
709{
710  struct in_addr try;
711  u_long f;
712
713  for (f = 0; f < bundle->ncp.ipcp.cfg.peer_list.nItems; f++) {
714    try = iplist_next(&bundle->ncp.ipcp.cfg.peer_list);
715    log_Printf(LogDEBUG, "ChooseHisAddr: Check item %ld (%s)\n",
716              f, inet_ntoa(try));
717    if (ipcp_SetIPaddress(&bundle->ncp.ipcp, gw, try)) {
718      log_Printf(LogIPCP, "Selected IP address %s\n", inet_ntoa(try));
719      break;
720    }
721  }
722
723  if (f == bundle->ncp.ipcp.cfg.peer_list.nItems) {
724    log_Printf(LogDEBUG, "ChooseHisAddr: All addresses in use !\n");
725    try.s_addr = INADDR_ANY;
726  }
727
728  return try;
729}
730
731static void
732IpcpInitRestartCounter(struct fsm *fp, int what)
733{
734  /* Set fsm timer load */
735  struct ipcp *ipcp = fsm2ipcp(fp);
736
737  fp->FsmTimer.load = ipcp->cfg.fsm.timeout * SECTICKS;
738  switch (what) {
739    case FSM_REQ_TIMER:
740      fp->restart = ipcp->cfg.fsm.maxreq;
741      break;
742    case FSM_TRM_TIMER:
743      fp->restart = ipcp->cfg.fsm.maxtrm;
744      break;
745    default:
746      fp->restart = 1;
747      break;
748  }
749}
750
751static void
752IpcpSendConfigReq(struct fsm *fp)
753{
754  /* Send config REQ please */
755  struct physical *p = link2physical(fp->link);
756  struct ipcp *ipcp = fsm2ipcp(fp);
757  u_char buff[24];
758  struct fsm_opt *o;
759
760  o = (struct fsm_opt *)buff;
761
762  if ((p && !physical_IsSync(p)) || !REJECTED(ipcp, TY_IPADDR)) {
763    memcpy(o->data, &ipcp->my_ip.s_addr, 4);
764    INC_FSM_OPT(TY_IPADDR, 6, o);
765  }
766
767  if (ipcp->my_compproto && !REJECTED(ipcp, TY_COMPPROTO)) {
768    if (ipcp->heis1172) {
769      u_int16_t proto = PROTO_VJCOMP;
770
771      ua_htons(&proto, o->data);
772      INC_FSM_OPT(TY_COMPPROTO, 4, o);
773    } else {
774      struct compreq req;
775
776      req.proto = htons(ipcp->my_compproto >> 16);
777      req.slots = (ipcp->my_compproto >> 8) & 255;
778      req.compcid = ipcp->my_compproto & 1;
779      memcpy(o->data, &req, 4);
780      INC_FSM_OPT(TY_COMPPROTO, 6, o);
781    }
782  }
783
784  if (IsEnabled(ipcp->cfg.ns.dns_neg)) {
785    if (!REJECTED(ipcp, TY_PRIMARY_DNS - TY_ADJUST_NS)) {
786      memcpy(o->data, &ipcp->ns.dns[0].s_addr, 4);
787      INC_FSM_OPT(TY_PRIMARY_DNS, 6, o);
788    }
789
790    if (!REJECTED(ipcp, TY_SECONDARY_DNS - TY_ADJUST_NS)) {
791      memcpy(o->data, &ipcp->ns.dns[1].s_addr, 4);
792      INC_FSM_OPT(TY_SECONDARY_DNS, 6, o);
793    }
794  }
795
796  fsm_Output(fp, CODE_CONFIGREQ, fp->reqid, buff, (u_char *)o - buff,
797             MB_IPCPOUT);
798}
799
800static void
801IpcpSentTerminateReq(struct fsm *fp)
802{
803  /* Term REQ just sent by FSM */
804}
805
806static void
807IpcpSendTerminateAck(struct fsm *fp, u_char id)
808{
809  /* Send Term ACK please */
810  fsm_Output(fp, CODE_TERMACK, id, NULL, 0, MB_IPCPOUT);
811}
812
813static void
814IpcpLayerStart(struct fsm *fp)
815{
816  /* We're about to start up ! */
817  struct ipcp *ipcp = fsm2ipcp(fp);
818
819  log_Printf(LogIPCP, "%s: LayerStart.\n", fp->link->name);
820  throughput_start(&ipcp->throughput, "IPCP throughput",
821                   Enabled(fp->bundle, OPT_THROUGHPUT));
822  fp->more.reqs = fp->more.naks = fp->more.rejs = ipcp->cfg.fsm.maxreq * 3;
823  ipcp->peer_req = 0;
824}
825
826static void
827IpcpLayerFinish(struct fsm *fp)
828{
829  /* We're now down */
830  struct ipcp *ipcp = fsm2ipcp(fp);
831
832  log_Printf(LogIPCP, "%s: LayerFinish.\n", fp->link->name);
833  throughput_stop(&ipcp->throughput);
834  throughput_log(&ipcp->throughput, LogIPCP, NULL);
835}
836
837/*
838 * Called from iface_Add() via ncp_IfaceAddrAdded()
839 */
840void
841ipcp_IfaceAddrAdded(struct ipcp *ipcp, const struct iface_addr *addr)
842{
843  struct bundle *bundle = ipcp->fsm.bundle;
844
845  if (Enabled(bundle, OPT_PROXY) || Enabled(bundle, OPT_PROXYALL))
846    ipcp_proxyarp(ipcp, arp_SetProxy, addr);
847}
848
849/*
850 * Called from iface_Clear() and iface_Delete() via ncp_IfaceAddrDeleted()
851 */
852void
853ipcp_IfaceAddrDeleted(struct ipcp *ipcp, const struct iface_addr *addr)
854{
855  struct bundle *bundle = ipcp->fsm.bundle;
856
857  if (Enabled(bundle, OPT_PROXY) || Enabled(bundle, OPT_PROXYALL))
858    ipcp_proxyarp(ipcp, arp_ClearProxy, addr);
859}
860
861static void
862IpcpLayerDown(struct fsm *fp)
863{
864  /* About to come down */
865  struct ipcp *ipcp = fsm2ipcp(fp);
866  static int recursing;
867  char addr[16];
868
869  if (!recursing++) {
870    snprintf(addr, sizeof addr, "%s", inet_ntoa(ipcp->my_ip));
871    log_Printf(LogIPCP, "%s: LayerDown: %s\n", fp->link->name, addr);
872
873#ifndef NORADIUS
874    radius_Account(&fp->bundle->radius, &fp->bundle->radacct,
875                   fp->bundle->links, RAD_STOP, &ipcp->peer_ip, &ipcp->ifmask,
876                   &ipcp->throughput);
877
878  if (fp->bundle->radius.cfg.file && fp->bundle->radius.filterid)
879    system_Select(fp->bundle, fp->bundle->radius.filterid, LINKDOWNFILE,
880                  NULL, NULL);
881#endif
882
883    /*
884     * XXX this stuff should really live in the FSM.  Our config should
885     * associate executable sections in files with events.
886     */
887    if (system_Select(fp->bundle, addr, LINKDOWNFILE, NULL, NULL) < 0) {
888      if (bundle_GetLabel(fp->bundle)) {
889         if (system_Select(fp->bundle, bundle_GetLabel(fp->bundle),
890                          LINKDOWNFILE, NULL, NULL) < 0)
891         system_Select(fp->bundle, "MYADDR", LINKDOWNFILE, NULL, NULL);
892      } else
893        system_Select(fp->bundle, "MYADDR", LINKDOWNFILE, NULL, NULL);
894    }
895
896    ipcp_Setup(ipcp, INADDR_NONE);
897  }
898  recursing--;
899}
900
901int
902ipcp_InterfaceUp(struct ipcp *ipcp)
903{
904  if (!ipcp_SetIPaddress(ipcp, ipcp->my_ip, ipcp->peer_ip)) {
905    log_Printf(LogERROR, "ipcp_InterfaceUp: unable to set ip address\n");
906    return 0;
907  }
908
909  if (!iface_SetFlags(ipcp->fsm.bundle->iface->name, IFF_UP)) {
910    log_Printf(LogERROR, "ipcp_InterfaceUp: Can't set the IFF_UP flag on %s\n",
911               ipcp->fsm.bundle->iface->name);
912    return 0;
913  }
914
915#ifndef NONAT
916  if (ipcp->fsm.bundle->NatEnabled)
917    PacketAliasSetAddress(ipcp->my_ip);
918#endif
919
920  return 1;
921}
922
923static int
924IpcpLayerUp(struct fsm *fp)
925{
926  /* We're now up */
927  struct ipcp *ipcp = fsm2ipcp(fp);
928  char tbuff[16];
929
930  log_Printf(LogIPCP, "%s: LayerUp.\n", fp->link->name);
931  snprintf(tbuff, sizeof tbuff, "%s", inet_ntoa(ipcp->my_ip));
932  log_Printf(LogIPCP, "myaddr %s hisaddr = %s\n",
933             tbuff, inet_ntoa(ipcp->peer_ip));
934
935  if (ipcp->peer_compproto >> 16 == PROTO_VJCOMP)
936    sl_compress_init(&ipcp->vj.cslc, (ipcp->peer_compproto >> 8) & 255);
937
938  if (!ipcp_InterfaceUp(ipcp))
939    return 0;
940
941#ifndef NORADIUS
942  radius_Account(&fp->bundle->radius, &fp->bundle->radacct, fp->bundle->links,
943                 RAD_START, &ipcp->peer_ip, &ipcp->ifmask, &ipcp->throughput);
944
945  if (fp->bundle->radius.cfg.file && fp->bundle->radius.filterid)
946    system_Select(fp->bundle, fp->bundle->radius.filterid, LINKUPFILE,
947                  NULL, NULL);
948#endif
949
950  /*
951   * XXX this stuff should really live in the FSM.  Our config should
952   * associate executable sections in files with events.
953   */
954  if (system_Select(fp->bundle, tbuff, LINKUPFILE, NULL, NULL) < 0) {
955    if (bundle_GetLabel(fp->bundle)) {
956      if (system_Select(fp->bundle, bundle_GetLabel(fp->bundle),
957                       LINKUPFILE, NULL, NULL) < 0)
958        system_Select(fp->bundle, "MYADDR", LINKUPFILE, NULL, NULL);
959    } else
960      system_Select(fp->bundle, "MYADDR", LINKUPFILE, NULL, NULL);
961  }
962
963  fp->more.reqs = fp->more.naks = fp->more.rejs = ipcp->cfg.fsm.maxreq * 3;
964  log_DisplayPrompts();
965
966  return 1;
967}
968
969static void
970ipcp_ValidateReq(struct ipcp *ipcp, struct in_addr ip, struct fsm_decode *dec)
971{
972  struct bundle *bundle = ipcp->fsm.bundle;
973  struct iface *iface = bundle->iface;
974  struct in_addr myaddr, peer;
975  int n;
976
977  if (iplist_isvalid(&ipcp->cfg.peer_list)) {
978    ncprange_getip4addr(&ipcp->cfg.my_range, &myaddr);
979    if (ip.s_addr == INADDR_ANY ||
980        iplist_ip2pos(&ipcp->cfg.peer_list, ip) < 0 ||
981        !ipcp_SetIPaddress(ipcp, myaddr, ip)) {
982      log_Printf(LogIPCP, "%s: Address invalid or already in use\n",
983                 inet_ntoa(ip));
984      /*
985       * If we've already had a valid address configured for the peer,
986       * try NAKing with that so that we don't have to upset things
987       * too much.
988       */
989      for (n = 0; n < iface->addrs; n++) {
990        if (!ncpaddr_getip4(&iface->addr[n].peer, &peer))
991          continue;
992        if (iplist_ip2pos(&ipcp->cfg.peer_list, peer) >= 0) {
993          ipcp->peer_ip = peer;
994          break;
995        }
996      }
997
998      if (n == iface->addrs) {
999        /* Just pick an IP number from our list */
1000        ipcp->peer_ip = ChooseHisAddr(bundle, myaddr);
1001      }
1002
1003      if (ipcp->peer_ip.s_addr == INADDR_ANY) {
1004        *dec->rejend++ = TY_IPADDR;
1005        *dec->rejend++ = 6;
1006        memcpy(dec->rejend, &ip.s_addr, 4);
1007        dec->rejend += 4;
1008      } else {
1009        *dec->nakend++ = TY_IPADDR;
1010        *dec->nakend++ = 6;
1011        memcpy(dec->nakend, &ipcp->peer_ip.s_addr, 4);
1012        dec->nakend += 4;
1013      }
1014      return;
1015    }
1016  } else if (!ncprange_containsip4(&ipcp->cfg.peer_range, ip)) {
1017    /*
1018     * If the destination address is not acceptable, NAK with what we
1019     * want to use.
1020     */
1021    *dec->nakend++ = TY_IPADDR;
1022    *dec->nakend++ = 6;
1023    for (n = 0; n < iface->addrs; n++)
1024      if (ncprange_contains(&ipcp->cfg.peer_range, &iface->addr[n].peer)) {
1025        /* We prefer the already-configured address */
1026        ncpaddr_getip4addr(&iface->addr[n].peer, (u_int32_t *)dec->nakend);
1027        break;
1028      }
1029
1030    if (n == iface->addrs)
1031      memcpy(dec->nakend, &ipcp->peer_ip.s_addr, 4);
1032
1033    dec->nakend += 4;
1034    return;
1035  }
1036
1037  ipcp->peer_ip = ip;
1038  *dec->ackend++ = TY_IPADDR;
1039  *dec->ackend++ = 6;
1040  memcpy(dec->ackend, &ip.s_addr, 4);
1041  dec->ackend += 4;
1042}
1043
1044static void
1045IpcpDecodeConfig(struct fsm *fp, u_char *cp, u_char *end, int mode_type,
1046                 struct fsm_decode *dec)
1047{
1048  /* Deal with incoming PROTO_IPCP */
1049  struct ncpaddr ncpaddr;
1050  struct ipcp *ipcp = fsm2ipcp(fp);
1051  int gotdnsnak;
1052  u_int32_t compproto;
1053  struct compreq *pcomp;
1054  struct in_addr ipaddr, dstipaddr, have_ip;
1055  char tbuff[100], tbuff2[100];
1056  struct fsm_opt *opt, nak;
1057
1058  gotdnsnak = 0;
1059
1060  while (end - cp >= sizeof(opt->hdr)) {
1061    if ((opt = fsm_readopt(&cp)) == NULL)
1062      break;
1063
1064    snprintf(tbuff, sizeof tbuff, " %s[%d]", protoname(opt->hdr.id),
1065             opt->hdr.len);
1066
1067    switch (opt->hdr.id) {
1068    case TY_IPADDR:		/* RFC1332 */
1069      memcpy(&ipaddr.s_addr, opt->data, 4);
1070      log_Printf(LogIPCP, "%s %s\n", tbuff, inet_ntoa(ipaddr));
1071
1072      switch (mode_type) {
1073      case MODE_REQ:
1074        ipcp->peer_req = 1;
1075        ipcp_ValidateReq(ipcp, ipaddr, dec);
1076        break;
1077
1078      case MODE_NAK:
1079        if (ncprange_containsip4(&ipcp->cfg.my_range, ipaddr)) {
1080          /* Use address suggested by peer */
1081          snprintf(tbuff2, sizeof tbuff2, "%s changing address: %s ", tbuff,
1082                   inet_ntoa(ipcp->my_ip));
1083          log_Printf(LogIPCP, "%s --> %s\n", tbuff2, inet_ntoa(ipaddr));
1084          ipcp->my_ip = ipaddr;
1085          ncpaddr_setip4(&ncpaddr, ipcp->my_ip);
1086          bundle_AdjustFilters(fp->bundle, &ncpaddr, NULL);
1087        } else {
1088          log_Printf(log_IsKept(LogIPCP) ? LogIPCP : LogPHASE,
1089                    "%s: Unacceptable address!\n", inet_ntoa(ipaddr));
1090          fsm_Close(&ipcp->fsm);
1091        }
1092        break;
1093
1094      case MODE_REJ:
1095        ipcp->peer_reject |= (1 << opt->hdr.id);
1096        break;
1097      }
1098      break;
1099
1100    case TY_COMPPROTO:
1101      pcomp = (struct compreq *)opt->data;
1102      compproto = (ntohs(pcomp->proto) << 16) + (pcomp->slots << 8) +
1103                  pcomp->compcid;
1104      log_Printf(LogIPCP, "%s %s\n", tbuff, vj2asc(compproto));
1105
1106      switch (mode_type) {
1107      case MODE_REQ:
1108        if (!IsAccepted(ipcp->cfg.vj.neg))
1109          fsm_rej(dec, opt);
1110        else {
1111          switch (opt->hdr.len) {
1112          case 4:		/* RFC1172 */
1113            if (ntohs(pcomp->proto) == PROTO_VJCOMP) {
1114              log_Printf(LogWARN, "Peer is speaking RFC1172 compression "
1115                         "protocol !\n");
1116              ipcp->heis1172 = 1;
1117              ipcp->peer_compproto = compproto;
1118              fsm_ack(dec, opt);
1119            } else {
1120              pcomp->proto = htons(PROTO_VJCOMP);
1121              nak.hdr.id = TY_COMPPROTO;
1122              nak.hdr.len = 4;
1123              memcpy(nak.data, &pcomp, 2);
1124              fsm_nak(dec, &nak);
1125            }
1126            break;
1127          case 6:		/* RFC1332 */
1128            if (ntohs(pcomp->proto) == PROTO_VJCOMP) {
1129              if (pcomp->slots <= MAX_VJ_STATES
1130                  && pcomp->slots >= MIN_VJ_STATES) {
1131                /* Ok, we can do that */
1132                ipcp->peer_compproto = compproto;
1133                ipcp->heis1172 = 0;
1134                fsm_ack(dec, opt);
1135              } else {
1136                /* Get as close as we can to what he wants */
1137                ipcp->heis1172 = 0;
1138                pcomp->slots = pcomp->slots < MIN_VJ_STATES ?
1139                               MIN_VJ_STATES : MAX_VJ_STATES;
1140                nak.hdr.id = TY_COMPPROTO;
1141                nak.hdr.len = 4;
1142                memcpy(nak.data, &pcomp, 2);
1143                fsm_nak(dec, &nak);
1144              }
1145            } else {
1146              /* What we really want */
1147              pcomp->proto = htons(PROTO_VJCOMP);
1148              pcomp->slots = DEF_VJ_STATES;
1149              pcomp->compcid = 1;
1150              nak.hdr.id = TY_COMPPROTO;
1151              nak.hdr.len = 6;
1152              memcpy(nak.data, &pcomp, sizeof pcomp);
1153              fsm_nak(dec, &nak);
1154            }
1155            break;
1156          default:
1157            fsm_rej(dec, opt);
1158            break;
1159          }
1160        }
1161        break;
1162
1163      case MODE_NAK:
1164        if (ntohs(pcomp->proto) == PROTO_VJCOMP) {
1165          if (pcomp->slots > MAX_VJ_STATES)
1166            pcomp->slots = MAX_VJ_STATES;
1167          else if (pcomp->slots < MIN_VJ_STATES)
1168            pcomp->slots = MIN_VJ_STATES;
1169          compproto = (ntohs(pcomp->proto) << 16) + (pcomp->slots << 8) +
1170                      pcomp->compcid;
1171        } else
1172          compproto = 0;
1173        log_Printf(LogIPCP, "%s changing compproto: %08x --> %08x\n",
1174                   tbuff, ipcp->my_compproto, compproto);
1175        ipcp->my_compproto = compproto;
1176        break;
1177
1178      case MODE_REJ:
1179        ipcp->peer_reject |= (1 << opt->hdr.id);
1180        break;
1181      }
1182      break;
1183
1184    case TY_IPADDRS:		/* RFC1172 */
1185      memcpy(&ipaddr.s_addr, opt->data, 4);
1186      memcpy(&dstipaddr.s_addr, opt->data + 4, 4);
1187      snprintf(tbuff2, sizeof tbuff2, "%s %s,", tbuff, inet_ntoa(ipaddr));
1188      log_Printf(LogIPCP, "%s %s\n", tbuff2, inet_ntoa(dstipaddr));
1189
1190      switch (mode_type) {
1191      case MODE_REQ:
1192        fsm_rej(dec, opt);
1193        break;
1194
1195      case MODE_NAK:
1196      case MODE_REJ:
1197        break;
1198      }
1199      break;
1200
1201    case TY_PRIMARY_DNS:	/* DNS negotiation (rfc1877) */
1202    case TY_SECONDARY_DNS:
1203      memcpy(&ipaddr.s_addr, opt->data, 4);
1204      log_Printf(LogIPCP, "%s %s\n", tbuff, inet_ntoa(ipaddr));
1205
1206      switch (mode_type) {
1207      case MODE_REQ:
1208        if (!IsAccepted(ipcp->cfg.ns.dns_neg)) {
1209          ipcp->my_reject |= (1 << (opt->hdr.id - TY_ADJUST_NS));
1210          fsm_rej(dec, opt);
1211          break;
1212        }
1213        have_ip = ipcp->ns.dns[opt->hdr.id == TY_PRIMARY_DNS ? 0 : 1];
1214
1215        if (opt->hdr.id == TY_PRIMARY_DNS && ipaddr.s_addr != have_ip.s_addr &&
1216            ipaddr.s_addr == ipcp->ns.dns[1].s_addr) {
1217          /* Swap 'em 'round */
1218          ipcp->ns.dns[0] = ipcp->ns.dns[1];
1219          ipcp->ns.dns[1] = have_ip;
1220          have_ip = ipcp->ns.dns[0];
1221        }
1222
1223        if (ipaddr.s_addr != have_ip.s_addr) {
1224          /*
1225           * The client has got the DNS stuff wrong (first request) so
1226           * we'll tell 'em how it is
1227           */
1228          nak.hdr.id = opt->hdr.id;
1229          nak.hdr.len = 6;
1230          memcpy(nak.data, &have_ip.s_addr, 4);
1231          fsm_nak(dec, &nak);
1232        } else {
1233          /*
1234           * Otherwise they have it right (this time) so we send a ack packet
1235           * back confirming it... end of story
1236           */
1237          fsm_ack(dec, opt);
1238        }
1239        break;
1240
1241      case MODE_NAK:
1242        if (IsEnabled(ipcp->cfg.ns.dns_neg)) {
1243          gotdnsnak = 1;
1244          memcpy(&ipcp->ns.dns[opt->hdr.id == TY_PRIMARY_DNS ? 0 : 1].s_addr,
1245                 opt->data, 4);
1246        }
1247        break;
1248
1249      case MODE_REJ:		/* Can't do much, stop asking */
1250        ipcp->peer_reject |= (1 << (opt->hdr.id - TY_ADJUST_NS));
1251        break;
1252      }
1253      break;
1254
1255    case TY_PRIMARY_NBNS:	/* M$ NetBIOS nameserver hack (rfc1877) */
1256    case TY_SECONDARY_NBNS:
1257      memcpy(&ipaddr.s_addr, opt->data, 4);
1258      log_Printf(LogIPCP, "%s %s\n", tbuff, inet_ntoa(ipaddr));
1259
1260      switch (mode_type) {
1261      case MODE_REQ:
1262        have_ip.s_addr =
1263          ipcp->cfg.ns.nbns[opt->hdr.id == TY_PRIMARY_NBNS ? 0 : 1].s_addr;
1264
1265        if (have_ip.s_addr == INADDR_ANY) {
1266          log_Printf(LogIPCP, "NBNS REQ - rejected - nbns not set\n");
1267          ipcp->my_reject |= (1 << (opt->hdr.id - TY_ADJUST_NS));
1268          fsm_rej(dec, opt);
1269          break;
1270        }
1271
1272        if (ipaddr.s_addr != have_ip.s_addr) {
1273          nak.hdr.id = opt->hdr.id;
1274          nak.hdr.len = 6;
1275          memcpy(nak.data, &have_ip.s_addr, 4);
1276          fsm_nak(dec, &nak);
1277        } else
1278          fsm_ack(dec, opt);
1279        break;
1280
1281      case MODE_NAK:
1282        log_Printf(LogIPCP, "MS NBNS req %d - NAK??\n", opt->hdr.id);
1283        break;
1284
1285      case MODE_REJ:
1286        log_Printf(LogIPCP, "MS NBNS req %d - REJ??\n", opt->hdr.id);
1287        break;
1288      }
1289      break;
1290
1291    default:
1292      if (mode_type != MODE_NOP) {
1293        ipcp->my_reject |= (1 << opt->hdr.id);
1294        fsm_rej(dec, opt);
1295      }
1296      break;
1297    }
1298  }
1299
1300  if (gotdnsnak) {
1301    if (ipcp->ns.writable) {
1302      log_Printf(LogDEBUG, "Updating resolver\n");
1303      if (!ipcp_WriteDNS(ipcp)) {
1304        ipcp->peer_reject |= (1 << (TY_PRIMARY_DNS - TY_ADJUST_NS));
1305        ipcp->peer_reject |= (1 << (TY_SECONDARY_DNS - TY_ADJUST_NS));
1306      } else
1307        bundle_AdjustDNS(fp->bundle);
1308    } else {
1309      log_Printf(LogDEBUG, "Not updating resolver (readonly)\n");
1310      bundle_AdjustDNS(fp->bundle);
1311    }
1312  }
1313
1314  if (mode_type != MODE_NOP) {
1315    if (mode_type == MODE_REQ && !ipcp->peer_req) {
1316      if (dec->rejend == dec->rej && dec->nakend == dec->nak) {
1317        /*
1318         * Pretend the peer has requested an IP.
1319         * We do this to ensure that we only send one NAK if the only
1320         * reason for the NAK is because the peer isn't sending a
1321         * TY_IPADDR REQ.  This stops us from repeatedly trying to tell
1322         * the peer that we have to have an IP address on their end.
1323         */
1324        ipcp->peer_req = 1;
1325      }
1326      ipaddr.s_addr = INADDR_ANY;
1327      ipcp_ValidateReq(ipcp, ipaddr, dec);
1328    }
1329    fsm_opt_normalise(dec);
1330  }
1331}
1332
1333extern struct mbuf *
1334ipcp_Input(struct bundle *bundle, struct link *l, struct mbuf *bp)
1335{
1336  /* Got PROTO_IPCP from link */
1337  m_settype(bp, MB_IPCPIN);
1338  if (bundle_Phase(bundle) == PHASE_NETWORK)
1339    fsm_Input(&bundle->ncp.ipcp.fsm, bp);
1340  else {
1341    if (bundle_Phase(bundle) < PHASE_NETWORK)
1342      log_Printf(LogIPCP, "%s: Error: Unexpected IPCP in phase %s (ignored)\n",
1343                 l->name, bundle_PhaseName(bundle));
1344    m_freem(bp);
1345  }
1346  return NULL;
1347}
1348
1349int
1350ipcp_UseHisIPaddr(struct bundle *bundle, struct in_addr hisaddr)
1351{
1352  struct ipcp *ipcp = &bundle->ncp.ipcp;
1353  struct in_addr myaddr;
1354
1355  memset(&ipcp->cfg.peer_range, '\0', sizeof ipcp->cfg.peer_range);
1356  iplist_reset(&ipcp->cfg.peer_list);
1357  ipcp->peer_ip = hisaddr;
1358  ncprange_setip4host(&ipcp->cfg.peer_range, hisaddr);
1359  ncprange_getip4addr(&ipcp->cfg.my_range, &myaddr);
1360
1361  return ipcp_SetIPaddress(ipcp, myaddr, hisaddr);
1362}
1363
1364int
1365ipcp_UseHisaddr(struct bundle *bundle, const char *hisaddr, int setaddr)
1366{
1367  struct in_addr myaddr;
1368  struct ncp *ncp = &bundle->ncp;
1369  struct ipcp *ipcp = &ncp->ipcp;
1370  struct ncpaddr ncpaddr;
1371
1372  /* Use `hisaddr' for the peers address (set iface if `setaddr') */
1373  memset(&ipcp->cfg.peer_range, '\0', sizeof ipcp->cfg.peer_range);
1374  iplist_reset(&ipcp->cfg.peer_list);
1375  if (strpbrk(hisaddr, ",-")) {
1376    iplist_setsrc(&ipcp->cfg.peer_list, hisaddr);
1377    if (iplist_isvalid(&ipcp->cfg.peer_list)) {
1378      iplist_setrandpos(&ipcp->cfg.peer_list);
1379      ipcp->peer_ip = ChooseHisAddr(bundle, ipcp->my_ip);
1380      if (ipcp->peer_ip.s_addr == INADDR_ANY) {
1381        log_Printf(LogWARN, "%s: None available !\n", ipcp->cfg.peer_list.src);
1382        return 0;
1383      }
1384      ncprange_setip4host(&ipcp->cfg.peer_range, ipcp->peer_ip);
1385    } else {
1386      log_Printf(LogWARN, "%s: Invalid range !\n", hisaddr);
1387      return 0;
1388    }
1389  } else if (ncprange_aton(&ipcp->cfg.peer_range, ncp, hisaddr) != 0) {
1390    if (ncprange_family(&ipcp->cfg.my_range) != AF_INET) {
1391      log_Printf(LogWARN, "%s: Not an AF_INET address !\n", hisaddr);
1392      return 0;
1393    }
1394    ncprange_getip4addr(&ipcp->cfg.my_range, &myaddr);
1395    ncprange_getip4addr(&ipcp->cfg.peer_range, &ipcp->peer_ip);
1396
1397    if (setaddr && !ipcp_SetIPaddress(ipcp, myaddr, ipcp->peer_ip))
1398      return 0;
1399  } else
1400    return 0;
1401
1402  ncpaddr_setip4(&ncpaddr, ipcp->peer_ip);
1403  bundle_AdjustFilters(bundle, NULL, &ncpaddr);
1404
1405  return 1;	/* Ok */
1406}
1407
1408struct in_addr
1409addr2mask(struct in_addr addr)
1410{
1411  u_int32_t haddr = ntohl(addr.s_addr);
1412
1413  haddr = IN_CLASSA(haddr) ? IN_CLASSA_NET :
1414          IN_CLASSB(haddr) ? IN_CLASSB_NET :
1415          IN_CLASSC_NET;
1416  addr.s_addr = htonl(haddr);
1417
1418  return addr;
1419}
1420
1421size_t
1422ipcp_QueueLen(struct ipcp *ipcp)
1423{
1424  struct mqueue *q;
1425  size_t result;
1426
1427  result = 0;
1428  for (q = ipcp->Queue; q < ipcp->Queue + IPCP_QUEUES(ipcp); q++)
1429    result += q->len;
1430
1431  return result;
1432}
1433
1434int
1435ipcp_PushPacket(struct ipcp *ipcp, struct link *l)
1436{
1437  struct bundle *bundle = ipcp->fsm.bundle;
1438  struct mqueue *queue;
1439  struct mbuf *bp;
1440  int m_len;
1441  u_int32_t secs = 0;
1442  unsigned alivesecs = 0;
1443
1444  if (ipcp->fsm.state != ST_OPENED)
1445    return 0;
1446
1447  /*
1448   * If ccp is not open but is required, do nothing.
1449   */
1450  if (l->ccp.fsm.state != ST_OPENED && ccp_Required(&l->ccp)) {
1451    log_Printf(LogPHASE, "%s: Not transmitting... waiting for CCP\n", l->name);
1452    return 0;
1453  }
1454
1455  queue = ipcp->Queue + IPCP_QUEUES(ipcp) - 1;
1456  do {
1457    if (queue->top) {
1458      bp = m_dequeue(queue);
1459      bp = mbuf_Read(bp, &secs, sizeof secs);
1460      bp = m_pullup(bp);
1461      m_len = m_length(bp);
1462      if (!FilterCheck(MBUF_CTOP(bp), AF_INET, &bundle->filter.alive,
1463                       &alivesecs)) {
1464        if (secs == 0)
1465          secs = alivesecs;
1466        bundle_StartIdleTimer(bundle, secs);
1467      }
1468      link_PushPacket(l, bp, bundle, 0, PROTO_IP);
1469      ipcp_AddOutOctets(ipcp, m_len);
1470      return 1;
1471    }
1472  } while (queue-- != ipcp->Queue);
1473
1474  return 0;
1475}
1476