Logo Search packages:      
Sourcecode: isdnutils version File versions  Download package

ipxcp.c

/*
 * ipxcp.c - PPP IPX Control Protocol.
 *
 * Copyright (c) 1989 Carnegie Mellon University.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by Carnegie Mellon University.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

char ipxcp_rcsid[] = "$Id: ipxcp.c,v 1.4 1998/03/08 13:01:35 hipp Exp $";

/*
 * TODO:
 */

#include <stdio.h>
#include <string.h>
#include <syslog.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <unistd.h>
#include <netinet/in.h>

#include "ipppd.h"
#include "fsm.h"
#include "ipxcp.h"
#include "pathnames.h"

/* global vars */
ipxcp_options ipxcp_wantoptions[NUM_PPP]; /* Options that we want to request */
ipxcp_options ipxcp_gotoptions[NUM_PPP];  /* Options that peer ack'd */
ipxcp_options ipxcp_allowoptions[NUM_PPP];      /* Options we allow peer to request */
ipxcp_options ipxcp_hisoptions[NUM_PPP];  /* Options that we ack'd */

/*
 * Callbacks for fsm code.  (CI = Configuration Information)
 */
static void ipxcp_resetci __P((fsm *));   /* Reset our CI */
static int  ipxcp_cilen __P((fsm *));           /* Return length of our CI */
static void ipxcp_addci __P((fsm *, u_char *, int *)); /* Add our CI */
static int  ipxcp_ackci __P((fsm *, u_char *, int));  /* Peer ack'd our CI */
static int  ipxcp_nakci __P((fsm *, u_char *, int));  /* Peer nak'd our CI */
static int  ipxcp_rejci __P((fsm *, u_char *, int));  /* Peer rej'd our CI */
static int  ipxcp_reqci __P((fsm *, u_char *, int *, int)); /* Rcv CI */
static void ipxcp_up __P((fsm *));        /* We're UP */
static void ipxcp_down __P((fsm *));            /* We're DOWN */
static void ipxcp_script __P((fsm *, char *)); /* Run an up/down script */

fsm ipxcp_fsm[NUM_PPP];       /* IPXCP fsm structure */

static fsm_callbacks ipxcp_callbacks = { /* IPXCP callback routines */
    ipxcp_resetci,            /* Reset our Configuration Information */
    ipxcp_cilen,        /* Length of our Configuration Information */
    ipxcp_addci,        /* Add our Configuration Information */
    ipxcp_ackci,        /* ACK our Configuration Information */
    ipxcp_nakci,        /* NAK our Configuration Information */
    ipxcp_rejci,        /* Reject our Configuration Information */
    ipxcp_reqci,        /* Request peer's Configuration Information */
    ipxcp_up,                 /* Called when fsm reaches OPENED state */
    ipxcp_down,               /* Called when fsm leaves OPENED state */
    NULL,               /* Called when we want the lower layer up */
    NULL,               /* Called when we want the lower layer down */
    NULL,               /* Called when Protocol-Reject received */
    NULL,               /* Retransmission is necessary */
    NULL,               /* Called to handle protocol-specific codes */
    "IPXCP"             /* String name of protocol */
};

/*
 * Protocol entry points.
 */

static void ipxcp_init __P((int));
static void ipxcp_open __P((int));
static void ipxcp_close __P((int, char *));
static void ipxcp_lowerup __P((int));
static void ipxcp_lowerdown __P((int));
static void ipxcp_input __P((int, u_char *, int));
static void ipxcp_protrej __P((int));
static int  ipxcp_printpkt __P((u_char *, int,
                void (*) __P((void *, char *, ...)), void *));

struct protent ipxcp_protent = {
    PPP_IPXCP,
    ipxcp_init,
    ipxcp_input,
    ipxcp_protrej,
    ipxcp_lowerup,
    ipxcp_lowerdown,
    ipxcp_open,
    ipxcp_close,
    ipxcp_printpkt,
    NULL,
    0,
    "IPXCP",
    NULL,
    NULL,
    NULL
};

/*
 * Lengths of configuration options.
 */

/*
IPX-ROUTING-PROTOCOL OPTIONS

     Value           Protocol                          Reference
     -----           --------                          ---------
        0             No routing protocol required     [RFC1552]
        1             RESERVED                         [RFC1552]
        2             Novell RIP/SAP required          [RFC1552]
        4             Novell NLSP required             [RFC1552]
        5             Novell Demand RIP required       [RFC1582]
        6             Novell Demand SAP required       [RFC1582]
        7             Novell Triggered RIP required [Edmonstone]
        8             Novell Triggered SAP required [Edmonstone]
*/


#define CILEN_VOID      2
#define CILEN_COMPLETE  2     /* length of complete option */
#define CILEN_NETN      6     /* network number length option */
#define CILEN_NODEN     8     /* node number length option */
#define CILEN_PROTOCOL  4     /* Minimum length of routing protocol */
#define CILEN_NAME      3     /* Minimum length of router name */
#define CILEN_COMPRESS  4     /* Minimum length of compression protocol */

#define CODENAME(x)     ((x) == CONFACK ? "ACK" : \
                   (x) == CONFNAK ? "NAK" : "REJ")

/* Used in printing the node number */
#define NODE(base) base[0], base[1], base[2], base[3], base[4], base[5]

/* Used to generate the proper bit mask */
/* the whole BIT stuff in the code was wrong .. seldom saw such a shit */
#define BIT(num)   (1 << (num))

/*
 * Make a string representation of a network IP address.
 */

char *
ipx_ntoa(ipxaddr)
u_int32_t ipxaddr;
{
    static char b[64];
    sprintf(b, "%lx",(long) ipxaddr);
    return b;
}


/*
 * ipxcp_init - Initialize IPXCP.
 */
static void ipxcp_init(int unit)
{
    fsm *f = &ipxcp_fsm[unit];
    ipxcp_options *wo = &ipxcp_wantoptions[unit];
    ipxcp_options *ao = &ipxcp_allowoptions[unit];

      memset(f,0,sizeof(fsm));

    f->unit  = -1;
    f->protocol    = PPP_IPXCP;
    f->callbacks = &ipxcp_callbacks;
    f->inuse = 0;
    fsm_init(f);

    memset (wo->name,     0, sizeof (wo->name));
    memset (wo->our_node, 0, sizeof (wo->our_node));
    memset (wo->his_node, 0, sizeof (wo->his_node));

    wo->neg_nn           = 1;
    wo->neg_complete   = 1;
    wo->network          = 0;

    ao->neg_node       = 1;
    ao->neg_nn           = 1;
    ao->neg_name       = 1;
    ao->neg_complete   = 1;
    ao->neg_router     = 1;

    ao->accept_local   = 0;
    ao->accept_remote  = 0;
    ao->accept_network = 0;
}

int ipxcp_getunit(int linkunit)
{
  int i;
  for(i=0;i<NUM_PPP;i++)
    if(!ipxcp_fsm[i].inuse)
    {
      ipxcp_fsm[i].inuse = 1;
      ipxcp_fsm[i].state = INITIAL;
      ipxcp_fsm[i].flags = 0;
      ipxcp_fsm[i].id = 0;
      ipxcp_fsm[i].unit = linkunit;
      return i;
    }
  syslog(LOG_ERR,"No more ipxcp_units available");
  return -1;
}

void ipxcp_freeunit(int unit)
{
  ipxcp_fsm[unit].inuse = 0;
  ipxcp_fsm[unit].unit = -1;
}


/*
 * Copy the node number
 */

static void copy_node (int unit,u_char *src,u_char *dst)
{
    memcpy (dst, src, sizeof (ipxcp_wantoptions[unit].our_node));
}

/*
 * Compare node numbers
 */

static int compare_node (int unit,u_char *src,u_char *dst)
{
    return memcmp (dst, src, sizeof (ipxcp_wantoptions[unit].our_node)) == 0;
}

/*
 * Is the node number zero?
 */

static int zero_node (int unit,u_char *node)
{
    int indx;
    for (indx = 0; indx < sizeof (ipxcp_wantoptions[unit].our_node); ++indx)
      if (node [indx] != 0)
          return 0;
    return 1;
}

/*
 * Increment the node number
 */

static void inc_node (u_char *node)
{
    u_char   *outp;
    u_int32_t magic_num;

    outp      = node;
    magic_num = magic();
    *outp++   = '\0';
    *outp++   = '\0';
    PUTLONG (magic_num, outp);
}

/*
 * ipxcp_open - IPXCP is allowed to come up.
 */
static void ipxcp_open(int unit)
{
    fsm_open(&ipxcp_fsm[unit]);
}

/*
 * ipxcp_close - Take IPXCP down.
 */
static void ipxcp_close(int unit,char *reason)
{
    fsm_close(&ipxcp_fsm[unit],reason);
}


/*
 * ipxcp_lowerup - The lower layer is up.
 */
static void ipxcp_lowerup(int unit)
{
    fsm_lowerup(&ipxcp_fsm[unit]);
}


/*
 * ipxcp_lowerdown - The lower layer is down.
 */
static void ipxcp_lowerdown(int unit)
{
    fsm_lowerdown(&ipxcp_fsm[unit]);
}


/*
 * ipxcp_input - Input IPXCP packet.
 */
static void ipxcp_input(int unit,u_char *p,int len)
{
    fsm_input(&ipxcp_fsm[unit], p, len);
}


/*
 * ipxcp_protrej - A Protocol-Reject was received for IPXCP.
 *
 * Pretend the lower layer went down, so we shut up.
 */
static void ipxcp_protrej(int unit)
{
    fsm_lowerdown(&ipxcp_fsm[unit]);
}


/*
 * ipxcp_resetci - Reset our CI.
 */
static void ipxcp_resetci(fsm *f)
{
/*    u_int32_t network; */
    int linkunit = f->unit;
    int unit = lns[linkunit].ipxcp_unit;
    ipxcp_options *wo = &ipxcp_wantoptions[unit];
    ipxcp_options *ao = &ipxcp_allowoptions[unit];
    ipxcp_options *go = &ipxcp_gotoptions[unit];


    wo->req_node = wo->neg_node && ao->neg_node;
    wo->req_nn     = wo->neg_nn     && ao->neg_nn;

    if (wo->our_network == 0) {
      wo->neg_node         = 1;
      ao->accept_network = 1;
    }
/*
 * If our node number is zero then change it.
 */
    if (zero_node (unit,wo->our_node)) {
      inc_node (wo->our_node);
      ao->accept_local = 1;
      wo->neg_node       = 1;
    }
/*
 * If his node number is zero then change it.
 */
    if (zero_node (unit,wo->his_node)) {
      inc_node (wo->his_node);
      ao->accept_remote = 1;
    }

      if (wo->num_router)
            wo->neg_router = 1;
    *go = *wo;
}

/*
 * ipxcp_cilen - Return length of our CI.
 */
static int ipxcp_cilen(fsm *f)
{
    int linkunit = f->unit;
    int unit = lns[linkunit].ipxcp_unit;
    ipxcp_options *go = &ipxcp_gotoptions[unit];
    int len;

    len      = go->neg_nn         ? CILEN_NETN     : 0;
    len += go->neg_node     ? CILEN_NODEN    : 0;
    len += go->neg_name     ? CILEN_NAME + strlen (go->name) - 1 : 0;
    len += go->neg_complete ? CILEN_COMPLETE : 0;

/*
 * Router protocol 0 is mutually exclusive with the others.
 */
      if (go->neg_router) {
            int i,nonnull=0;
            for(i=0;i<go->num_router;i++) {
                  if (go->router[i] == 0) {
                        if(nonnull || go->num_router > 1) {
                              IPXCPDEBUG((LOG_INFO, "ipxcp_cilen ignored router proto 0"));
                              continue;
                        }
                        len += CILEN_PROTOCOL;
                  }
                  else {
                        nonnull = 1;
                        len += CILEN_PROTOCOL;
                  }
            }
    }

    return (len);
}


/*
 * ipxcp_addci - Add our desired CIs to a packet.
 */
static void ipxcp_addci(fsm *f,u_char *ucp,int *lenp)
{
    int linkunit = f->unit;
    int unit = lns[linkunit].ipxcp_unit;
    ipxcp_options *go = &ipxcp_gotoptions[unit];
      u_char *ucp1 = ucp;

/*
 * Add the options to the record.
 */

      if (go->neg_nn) {
            PUTCHAR (IPX_NETWORK_NUMBER, ucp);
            PUTCHAR (CILEN_NETN, ucp);
            PUTLONG (go->our_network, ucp);
      }

      if (go->neg_node) {
            int indx;
            PUTCHAR (IPX_NODE_NUMBER, ucp);
            PUTCHAR (CILEN_NODEN, ucp);
            for (indx = 0; indx < sizeof (go->our_node); ++indx)
                  PUTCHAR (go->our_node[indx], ucp);
      }

      if (go->neg_name) {
            int cilen = strlen (go->name);
            int indx;
            PUTCHAR (IPX_ROUTER_NAME, ucp);
            PUTCHAR (CILEN_NAME + cilen - 1, ucp);
            for (indx = 0; indx < cilen; ++indx)
                  PUTCHAR (go->name [indx], ucp);
      }

      if (go->neg_router) {
            int i,nonnull=0;
            for(i=0;i<go->num_router;i++) {
                  if(go->router[i] == 0) {
                        if(nonnull || go->num_router > 1)
                              continue;
                  }
                  else
                        nonnull = 1;
                  PUTCHAR  (IPX_ROUTER_PROTOCOL, ucp);
                  PUTCHAR  (CILEN_PROTOCOL,      ucp);
                  PUTSHORT (go->router[i],       ucp);
            }
    }

      if (go->neg_complete) {
            PUTCHAR (IPX_COMPLETE,   ucp);
            PUTCHAR (CILEN_COMPLETE, ucp);
      }

    if (ucp - ucp1 != *lenp) {
        syslog(LOG_ERR, "Bug in ipxcp_addci: wrong length");
    }
}

/*
 * ipxcp_ackci - Ack our CIs.
 *
 * Returns:
 *    0 - Ack was bad.
 *    1 - Ack was good.
 */
static int
ipxcp_ackci(f, p, len)
    fsm *f;
    u_char *p;
    int len;
{
    int linkunit = f->unit;
    int unit = lns[linkunit].ipxcp_unit;
    ipxcp_options *go = &ipxcp_gotoptions[unit];
    u_short cilen, citype, cishort;
    u_char cichar;
    u_int32_t cilong;

#define ACKCIVOID(opt, neg) \
    if (neg) { \
      if ((len -= CILEN_VOID) < 0) \
          break; \
      GETCHAR(citype, p); \
      GETCHAR(cilen, p); \
      if (cilen != CILEN_VOID || \
          citype != opt) \
          break; \
    }

#define ACKCICOMPLETE(opt,neg)      ACKCIVOID(opt, neg)

#define ACKCICHARS(opt, neg, val, cnt) \
    if (neg) { \
      int indx, count = cnt; \
      len -= (count + 2); \
      if (len < 0) \
          break; \
      GETCHAR(citype, p); \
      GETCHAR(cilen, p); \
      if (cilen != (count + 2) || \
          citype != opt) \
          break; \
      for (indx = 0; indx < count; ++indx) {\
          GETCHAR(cichar, p); \
          if (cichar != ((u_char *) &val)[indx]) \
             break; \
      }\
      if (indx != count) \
          break; \
    }

#define ACKCINODE(opt,neg,val) ACKCICHARS(opt,neg,val,sizeof(val))
#define ACKCINAME(opt,neg,val) ACKCICHARS(opt,neg,val,strlen(val))

#define ACKCINETWORK(opt, neg, val) \
    if (neg) { \
      if ((len -= CILEN_NETN) < 0) \
          break; \
      GETCHAR(citype, p); \
      GETCHAR(cilen, p); \
      if (cilen != CILEN_NETN || \
          citype != opt) \
          break; \
      GETLONG(cilong, p); \
      if (cilong != val) \
          break; \
    }

/*
 * Process the ACK frame in the order in which the frame was assembled
 */
      do {
            ACKCINETWORK  (IPX_NETWORK_NUMBER,  go->neg_nn,     go->our_network);
            ACKCINODE     (IPX_NODE_NUMBER,         go->neg_node,   go->our_node);
            ACKCINAME     (IPX_ROUTER_NAME,         go->neg_name,   go->name);
            if(p[0] == IPX_ROUTER_PROTOCOL && go->neg_router && p[1] == CILEN_PROTOCOL && len >= p[1]) {
                  int i;
                  INCPTR(2, p);
                  len -= CILEN_PROTOCOL;
                  GETSHORT(cishort, p);
                  for(i=0;i<go->num_router;i++) {
                        if(cishort == go->router[i]) {
                              go->router[0] = go->router[i];
                              go->num_router = 1;
                              i = 0;
                              break;
                        }
                  }
                  if(i == go->num_router)
                        break;
            }
            ACKCICOMPLETE (IPX_COMPLETE,      go->neg_complete);
            if (len == 0)
                  return (1);
      } while (0);
/*
 * The frame is invalid
 */
    IPXCPDEBUG((LOG_INFO, "ipxcp_ackci: received bad Ack!"));
    return (0);
}

/*
 * ipxcp_nakci - Peer has sent a NAK for some of our CIs.
 * This should not modify any state if the Nak is bad
 * or if IPXCP is in the OPENED state.
 *
 * Returns:
 *    0 - Nak was bad.
 *    1 - Nak was good.
 */

static int
ipxcp_nakci(f, p, len)
    fsm *f;
    u_char *p;
    int len;
{
    int linkunit = f->unit;
    int unit = lns[linkunit].ipxcp_unit;
      int i;
    ipxcp_options *go = &ipxcp_gotoptions[unit];
    ipxcp_options *ao = &ipxcp_allowoptions[unit];
    ipxcp_options *ho = &ipxcp_hisoptions[unit];

    u_char citype, cilen, *next;
    u_short s;
    u_int32_t l;
    ipxcp_options no;         /* options we've seen Naks for */
    ipxcp_options try;        /* options to request next time */

    BZERO(&no, sizeof(no));
    try = *go;

    while (len > CILEN_VOID) {
      GETCHAR (citype, p);
      GETCHAR (cilen,    p);
      len -= cilen;
      if (len < 0)
          goto bad;
      next = &p [cilen - CILEN_VOID];

      switch (citype) {
      case IPX_NETWORK_NUMBER:
          if (!go->neg_nn || no.neg_nn || (cilen != CILEN_NETN))
            goto bad;
          no.neg_nn = 1;

          GETLONG(l, p);
          IPXCPDEBUG((LOG_INFO, "local IP address %d", l));
          if (l && ao->accept_network)
            try.our_network = l;
          break;

      case IPX_NODE_NUMBER:
          if (!go->neg_node || no.neg_node || (cilen != CILEN_NODEN))
            goto bad;
          no.neg_node = 1;

          IPXCPDEBUG((LOG_INFO,
                  "local node number %02X%02X%02X%02X%02X%02X",
                  NODE(p)));

          if (!zero_node (unit,p) && ao->accept_local &&
            ! compare_node (unit,p, ho->his_node))
            copy_node (unit,p, try.our_node);
          break;

          /* These have never been sent. Ignore the NAK frame */
      case IPX_COMPRESSION_PROTOCOL:
          goto bad;

      case IPX_ROUTER_PROTOCOL:
            if (!go->neg_router || (cilen < CILEN_PROTOCOL))
                  goto bad;
            GETSHORT (s, p);
            for(i=0;i<go->num_router;i++) {
                  if(go->router[i] == s) {
                        go->router[0] = s;
                        go->num_router = 1;
                        i = 0;
                        IPXCPDEBUG((LOG_INFO, "Router protocol number %d", s));
                        break;
                  }
            }
            if(i == go->num_router) {
                  go->router[0] = 0;
                  go->num_router = 1;
                  IPXCPDEBUG((LOG_INFO, "try Router protocol number %d", s));
            }
            break;

          /* These, according to the RFC, must never be NAKed. */
      case IPX_ROUTER_NAME:
      case IPX_COMPLETE:
          goto bad;

          /* These are for options which we have not seen. */
      default:
          break;
      }
      p = next;
    }

    /* If there is still anything left, this packet is bad. */
    if (len != 0)
            goto bad;

    /*
     * OK, the Nak is good.  Now we can update state.
     */
    if (f->state != OPENED)
      *go = try;

    return 1;

bad:
    IPXCPDEBUG((LOG_INFO, "ipxcp_nakci: received bad Nak!"));
    return 0;
}

/*
 * ipxcp_rejci - Reject some of our CIs.
 */
static int ipxcp_rejci(fsm *f,u_char *p,int len)
{
    int linkunit = f->unit;
    int unit = lns[linkunit].ipxcp_unit;
    ipxcp_options *go = &ipxcp_gotoptions[unit];

    u_short cishort;
    u_char cichar;
    u_int32_t cilong;
    ipxcp_options try;        /* options to request next time */

#define REJCINETWORK(opt, neg, val) \
      if (neg && p[1] == CILEN_NETN && len >= p[1] && p[0] == opt) { \
            neg = 0; \
            INCPTR(2, p); \
            len -= CILEN_NETN; \
            GETLONG(cilong, p); \
            if (cilong != val) \
                  break; \
            IPXCPDEBUG((LOG_INFO,"ipxcp_rejci rejected network 0x%08x", val)); \
    }

#define REJCICHARS(opt, neg, val, cnt) \
      if (neg && p[1] == cnt + 2 && p[1] >= len && p[0] == opt) { \
            int indx, count = cnt; \
            neg = 0; \
            INCPTR(2, p); \
            len -= (cnt + 2); \
            for (indx = 0; indx < count; ++indx) {\
                  GETCHAR(cichar, p); \
                  if (cichar != ((u_char *) &val)[indx]) \
                        break; \
            }\
            if (indx != count) \
                  break; \
            IPXCPDEBUG((LOG_INFO,"ipxcp_rejci rejected opt %d", opt)); \
      }

#define REJCINODE(opt,neg,val) REJCICHARS(opt,neg,val,sizeof(val))
#define REJCINAME(opt,neg,val) REJCICHARS(opt,neg,val,strlen(val))

#define REJCIVOID(opt, neg) \
      if (neg && p[1] == CILEN_VOID && len >= p[1] && p[0] == opt) { \
            neg = 0; \
            INCPTR(2, p); \
            len -= CILEN_VOID; \
            IPXCPDEBUG((LOG_INFO, "ipxcp_rejci rejected void opt %d", opt)); \
      }

/*
 * Any Rejected CIs must be in exactly the same order that we sent.
 * Check packet length and CI length at each step.
 * If we find any deviations, then this packet is bad.
 */
    try = *go;

      do {
            REJCINETWORK (IPX_NETWORK_NUMBER,  try.neg_nn,     try.our_network);
            REJCINODE    (IPX_NODE_NUMBER,         try.neg_node,   try.our_node);
            if(p[0] == IPX_ROUTER_PROTOCOL && try.neg_router &&  p[1] == CILEN_PROTOCOL && len >= p[1]) {
                  int i;
                  INCPTR(2, p);
                  len -= CILEN_PROTOCOL;
                  GETSHORT(cishort, p);
                  IPXCPDEBUG((LOG_INFO, "ipxcp_rejci rejected router proto 0x%04x", cishort));
                  for(i=0;i<try.num_router;i++) {
                        if(try.router[i] == cishort)
                              break;
                  }
                  if(i == try.num_router)
                        break;
                  try.num_router--;
                  try.router[i] = try.router[try.num_router];
            }
            REJCINAME    (IPX_ROUTER_NAME,         try.neg_name,   try.name);
            REJCIVOID    (IPX_COMPLETE,      try.neg_complete);

            if (len == 0) {
                if (f->state != OPENED)
                  *go = try;
                return (1);
            }
    } while (0);
/*
 * The frame is invalid at this point.
 */
    IPXCPDEBUG((LOG_INFO, "ipxcp_rejci: received bad Reject!"));
    return 0;
}

/*
 * ipxcp_reqci - Check the peer's requested CIs and send appropriate response.
 *
 * Returns: CONFACK, CONFNAK or CONFREJ and input packet modified
 * appropriately.  If reject_if_disagree is non-zero, doesn't return
 * CONFNAK; returns CONFREJ if it can't return CONFACK.
 */
static int
ipxcp_reqci(f, inp, len, reject_if_disagree)
    fsm *f;
    u_char *inp;        /* Requested CIs */
    int *len;                 /* Length of requested CIs */
    int reject_if_disagree;
{
    int linkunit = f->unit;
    int unit = lns[linkunit].ipxcp_unit;
    ipxcp_options *go = &ipxcp_gotoptions[unit];
    ipxcp_options *ao = &ipxcp_allowoptions[unit];
    ipxcp_options *ho = &ipxcp_hisoptions[unit];
    ipxcp_options *wo = &ipxcp_wantoptions[unit];

    u_char *cip, *next;       /* Pointer to current and next CIs */
    u_short cilen, citype,cishort;  /* Parsed len, type */
/*    u_short ts; */    /* Parsed short value */
    u_int32_t cinetwork;/* Parsed address values */
/*    u_int32_t tl,outnet; */ /* Parsed address values */
    int rc = CONFACK;         /* Final packet return code */
    int orc;                  /* Individual option return code */
    u_char *p;                /* Pointer to next char to parse */
    u_char *ucp = inp;        /* Pointer to current output char */
    int l = *len;       /* Length left */
/*    u_char maxslotindex, cflag; */

    /*
     * Reset all his options.
     */
    BZERO(ho, sizeof(*ho));
    
    /*
     * Process all his options.
     */
    next = inp;
    while (l) {
      orc = CONFACK;                /* Assume success */
      cip = p = next;               /* Remember begining of CI */
      if (l < 2 ||                  /* Not enough data for CI header or */
          p[1] < 2 ||               /*  CI length too small or */
          p[1] > l) {               /*  CI length too big? */
          IPXCPDEBUG((LOG_INFO, "ipxcp_reqci: bad CI length!"));
          orc = CONFREJ;            /* Reject bad CI */
          cilen = l;                /* Reject till end of packet */
          l = 0;              /* Don't loop again */
          goto endswitch;
      }
      GETCHAR(citype, p);           /* Parse CI type */
      GETCHAR(cilen, p);            /* Parse CI length */
      l -= cilen;             /* Adjust remaining length */
      next += cilen;                /* Step to next CI */

      switch (citype) {       /* Check CI type */
/*
 * The network number must match. Choose the larger of the two.
 */
      case IPX_NETWORK_NUMBER:
          IPXCPDEBUG((LOG_INFO, "ipxcp: received Network Number request"));
          
          /* if we wont negotiate the network number or the length is wrong
             then reject the option */
          if ( !ao->neg_nn || cilen != CILEN_NETN ) {
            orc = CONFREJ;
            break;            
          }
          GETLONG(cinetwork, p);
          IPXCPDEBUG((LOG_INFO,"Remote proposed IPX network number is %8Lx",cinetwork));

          /* If the network numbers match then acknowledge them. */
          if (cinetwork != 0) {
            ho->his_network = cinetwork;
            ho->neg_nn  = 1;
            if (wo->our_network == cinetwork)
                break;
/*
 * If the network number is not given or we don't accept their change or
 * the network number is too small then NAK it.
 */
            if (! ao->accept_network || cinetwork < wo->our_network) {
                DECPTR (sizeof (u_int32_t), p);
                PUTLONG (wo->our_network, p);
                orc = CONFNAK;
            }
            break;
          }
/*
 * The peer sent '0' for the network. Give it ours if we have one.
 */
          if (go->our_network != 0) {
            DECPTR (sizeof (u_int32_t), p);
            PUTLONG (wo->our_network, p);
            orc = CONFNAK;
/*
 * We don't have one. Reject the value.
 */
          } else
            orc = CONFREJ;

          break;
/*
 * The node number is required
 */
      case IPX_NODE_NUMBER:
          IPXCPDEBUG((LOG_INFO, "ipxcp: received Node Number request"));

          /* if we wont negotiate the node number or the length is wrong
             then reject the option */
          if ( cilen != CILEN_NODEN ) {
            orc = CONFREJ;
            break;
          }

          copy_node (unit ,p, ho->his_node);
          ho->neg_node = 1;
/*
 * If the remote does not have a number and we do then NAK it with the value
 * which we have for it. (We never have a default value of zero.)
 */
          if (zero_node (unit,ho->his_node)) {
            orc = CONFNAK;
            copy_node (unit,wo->his_node, p);
            INCPTR (sizeof (wo->his_node), p);
            break;
          }
/*
 * If you have given me the expected network node number then I'll accept
 * it now.
 */
          if (compare_node (unit,wo->his_node, ho->his_node)) {
            orc = CONFACK;
            ho->neg_node = 1;
            INCPTR (sizeof (wo->his_node), p);
            break;
          }
/*
 * If his node number is the same as ours then ask him to try the next
 * value.
 */
          if (compare_node (unit,ho->his_node, go->our_node)) {
            inc_node (ho->his_node);
            orc = CONFNAK;
            copy_node (unit,ho->his_node, p);
            INCPTR (sizeof (wo->his_node), p);
            break;
          }
/*
 * If we don't accept a new value then NAK it.
 */
          if (! ao->accept_remote) {
            copy_node (unit,wo->his_node, p);
            INCPTR (sizeof (wo->his_node), p);
            orc = CONFNAK;
            break;
          }
          orc = CONFACK;
          ho->neg_node = 1;
          INCPTR (sizeof (wo->his_node), p);
          break;
/*
 * Compression is not desired at this time. It is always rejected.
 */
      case IPX_COMPRESSION_PROTOCOL:
          IPXCPDEBUG((LOG_INFO, "ipxcp: received Compression Protocol request "));
          orc = CONFREJ;
          break;
      case IPX_ROUTER_PROTOCOL:
            if ( !ao->neg_router || cilen < CILEN_PROTOCOL ) {
                  orc = CONFREJ;
                  break;            
            }
          GETSHORT (cishort, p);
            IPXCPDEBUG((LOG_INFO, "Remote router protocol number %d", cishort));

            if (cishort != 0 && cishort != 2 && cishort != 4) {
                  orc = CONFREJ;
                  break;
            }

            ho->router[ho->num_router] = cishort;
            ho->num_router++;
            if(ho->num_router > 31)
                  ho->num_router = 31;
            ho->neg_router = 1;
            break;

      case IPX_ROUTER_NAME:
            IPXCPDEBUG((LOG_INFO, "ipxcp: received Router Name request"));
            if (cilen >= CILEN_NAME) {
                  int name_size = cilen - CILEN_NAME;
                  if (name_size > sizeof (ho->name))
                        name_size = sizeof (ho->name) - 1;
                  memset (ho->name, 0, sizeof (ho->name));
                  memcpy (ho->name, p, name_size);
                  ho->name [name_size] = '\0';
                  ho->neg_name = 1;
                  orc = CONFACK;
                  break;
            }
            orc = CONFREJ;
            break;

      case IPX_COMPLETE:
            IPXCPDEBUG((LOG_INFO, "ipxcp: received Complete request"));
            if (cilen != CILEN_COMPLETE)
                  orc = CONFREJ;
            else {
                  ho->neg_complete = 1;
                  orc = CONFACK;
            }
            break;

      default:
            IPXCPDEBUG((LOG_INFO, "ipxcp: received Complete request"));
            orc = CONFREJ;
            break;
      }

endswitch:
      IPXCPDEBUG((LOG_INFO, " (%s)\n", CODENAME(orc)));

      if (orc == CONFACK &&         /* Good CI */
          rc != CONFACK)            /*  but prior CI wasnt? */
          continue;                 /* Don't send this one */

      if (orc == CONFNAK) {         /* Nak this CI? */
          if (reject_if_disagree)   /* Getting fed up with sending NAKs? */
            orc = CONFREJ;          /* Get tough if so */
          if (rc == CONFREJ)        /* Rejecting prior CI? */
            continue;         /* Don't send this one */
          if (rc == CONFACK) {      /* Ack'd all prior CIs? */
            rc  = CONFNAK;          /* Not anymore... */
            ucp = inp;        /* Backup */
          }
      }

      if (orc == CONFREJ &&         /* Reject this CI */
          rc != CONFREJ) {          /*  but no prior ones? */
          rc = CONFREJ;
          ucp = inp;                /* Backup */
      }

      /* Need to move CI? */
      if (ucp != cip)
          BCOPY(cip, ucp, cilen);   /* Move it */

      /* Update output pointer */
      INCPTR(cilen, ucp);
    }

    /*
     * If we aren't rejecting this packet, and we want to negotiate
     * their address, and they didn't send their address, then we
     * send a NAK with a IPX_NODE_NUMBER option appended. We assume the
     * input buffer is long enough that we can append the extra
     * option safely.
     */

    if (rc != CONFREJ && !ho->neg_node &&
      wo->req_nn && !reject_if_disagree) {
/*    u_char *ps; */
      if (rc == CONFACK) {
          rc = CONFNAK;
          wo->req_nn = 0;           /* don't ask again */
          ucp = inp;                /* reset pointer */
      }

      if (zero_node (unit,wo->his_node))
          inc_node (wo->his_node);

      PUTCHAR (IPX_NODE_NUMBER, ucp);
      PUTCHAR (CILEN_NODEN, ucp);
      copy_node (unit,wo->his_node, ucp);
      INCPTR (sizeof (wo->his_node), ucp);
    }

    *len = ucp - inp;               /* Compute output length */
    IPXCPDEBUG((LOG_INFO, "ipxcp: returning Configure-%s", CODENAME(rc)));
    return (rc);              /* Return final code */
}

/*
 * ipxcp_up - IPXCP has come UP.
 *
 * Configure the IP network interface appropriately and bring it up.
 */

static void
ipxcp_up(f)
    fsm *f;
{
    int linkunit = f->unit;
    int unit = lns[linkunit].ipxcp_unit;
    ipxcp_options *ho = &ipxcp_hisoptions[unit];
    ipxcp_options *wo = &ipxcp_wantoptions[unit];
    ipxcp_options *go = &ipxcp_gotoptions[unit];

    IPXCPDEBUG((LOG_INFO, "ipxcp: up"));

    if (!ho->neg_nn)
      ho->his_network = wo->his_network;

    if (!ho->neg_node)
      copy_node (unit,wo->his_node, ho->his_node);

    if (!wo->neg_node && !go->neg_node)
      copy_node (unit,wo->our_node, go->our_node);

    if (zero_node (unit,go->our_node)) {
      IPXCPDEBUG((LOG_ERR, "Could not determine local IPX node address"));
      ipxcp_close(unit,"Could not determine local IPX node address");
      return;
    }

    go->network = go->our_network;
    if (ho->his_network != 0 && ho->his_network > go->network)
      go->network = ho->his_network;

    if (go->network == 0) {
      IPXCPDEBUG((LOG_ERR, "Could not determine network number"));
      ipxcp_close (unit,"Could not determine network number");
      return;
    }

    /* bring the interface up */
    if (!sifup(unit)) {
      IPXCPDEBUG((LOG_WARNING, "sifup failed"));
      ipxcp_close(unit,"Interface configuration failed");
      return;
    }

    /* set the network number for IPX */
    if (!sipxfaddr(unit, go->network, go->our_node)) {
      IPXCPDEBUG((LOG_WARNING, "sipxfaddr failed"));
      ipxcp_close(unit,"Interface configuration failed");
      return;
    }

    /*
     * Execute the ipx-up script, like this:
     *      /etc/ppp/ipx-up interface tty speed local-IPX remote-IPX
     */
      ipxcp_script (f, _PATH_IPXUP);
}

/*
 * ipxcp_down - IPXCP has gone DOWN.
 *
 * Take the IP network interface down, clear its addresses
 * and delete routes through it.
 */

static void ipxcp_down(fsm *f)
{
/*    u_int32_t ournn, network; */

    IPXCPDEBUG((LOG_INFO, "ipxcp: down"));

    cipxfaddr (f->unit);
#if 0
    sifdown(f->unit);
#endif

      ipxcp_script (f, _PATH_IPXDOWN);
}


/*
 * ipxcp_script - Execute a script with arguments
 * interface-name tty-name speed local-IPX remote-IPX networks.
 */
static void ipxcp_script(fsm *f,char *script)
{
      int    linkunit = f->unit;
      int unit = lns[linkunit].ipxcp_unit;
      ipxcp_options *ho = &ipxcp_hisoptions[unit];
      ipxcp_options *go = &ipxcp_gotoptions[unit];

      char strspeed[32],       strlocal[32],       strremote[32];
      char strnetwork[32], strpid[32];
      char *argv[14];
      char strproto_lcl[32], strproto_rmt[32];

      sprintf (strpid,   "%d", getpid());
      sprintf (strspeed, "%d", baud_rate);

      strproto_lcl[0] = '\0';
      if (go->neg_router) {
            if (go->router[0] == 2 )
                  strcpy (strproto_lcl, "RIP ");
            if (go->router[0] == 4 )
                  strcpy (strproto_lcl, "NLSP ");
    }

      if (strproto_lcl[0] == '\0')
            strcpy (strproto_lcl, "NONE ");

      strproto_lcl[strlen (strproto_lcl)-1] = '\0';

      strproto_rmt[0] = '\0';
      if (ho->neg_router) {
            if (ho->router[0] == 2 )
                  strcpy (strproto_rmt, "RIP ");
            if (ho->router[0] == 4 )
                  strcpy (strproto_rmt, "NLSP ");
      }

      if (strproto_rmt[0] == '\0')
            strcpy (strproto_rmt, "NONE ");

      strproto_rmt[strlen (strproto_rmt)-1] = '\0';

      strcpy (strnetwork, ipx_ntoa (go->network));

      sprintf (strlocal, "%02X%02X%02X%02X%02X%02X", NODE(go->our_node));
      sprintf (strremote, "%02X%02X%02X%02X%02X%02X", NODE(ho->his_node));

      argv[0]  = script;
      argv[1]  = lns[linkunit].ifname;
      argv[2]  = lns[linkunit].devnam;
      argv[3]  = strspeed;
      argv[4]  = strnetwork;
      argv[5]  = strlocal;
      argv[6]  = strremote;
      argv[7]  = strproto_lcl;
      argv[8]  = strproto_rmt;
      argv[9]  = go->name;
      argv[10] = ho->name;
      argv[11] = ipparam;
      argv[12] = strpid;
      argv[13] = NULL;
      run_program(script, argv, debug , linkunit);
}

/*
 * ipxcp_printpkt - print the contents of an IPXCP packet.
 */
static char *ipxcp_codenames[] = {
    "ConfReq", "ConfAck", "ConfNak", "ConfRej",
    "TermReq", "TermAck", "CodeRej"
};

static int ipxcp_printpkt(u_char *p,int plen,void (*printer) __P((void *, char *, ...)),void *arg)
{
      int code, id, len, olen;
      u_char *pstart, *optend;
      u_short cishort;
      u_int32_t cilong;

      if (plen < HEADERLEN)
            return 0;
      pstart = p;
      GETCHAR(code, p);
      GETCHAR(id, p);
      GETSHORT(len, p);
      if (len < HEADERLEN || len > plen)
            return 0;

      if (code >= 1 && code <= sizeof(ipxcp_codenames) / sizeof(char *))
            printer(arg, " %s", ipxcp_codenames[code-1]);
      else
            printer(arg, " code=0x%x", code);
      printer(arg, " id=0x%x", id);
      len -= HEADERLEN;
      switch (code) {
            case CONFREQ:
            case CONFACK:
            case CONFNAK:
            case CONFREJ:
      /* print option list */
            while (len >= 2) {
                  GETCHAR(code, p);
                  GETCHAR(olen, p);
                  p -= 2;
                  if (olen < CILEN_VOID || olen > len)
                        break;
                  printer(arg, " <");
                  len -= olen;
                  optend = p + olen;
                  switch (code) {
                        case IPX_NETWORK_NUMBER:
                              if (olen == CILEN_NETN) {
                                    p += CILEN_VOID;
                                    GETLONG(cilong, p);
                                    printer (arg, "network %s", ipx_ntoa (cilong));
                              }
                              break;
                        case IPX_NODE_NUMBER:
                              if (olen == CILEN_NODEN) {
                                    p += CILEN_VOID;
                                    printer (arg, "node ");
                                    while (p < optend) {
                                          GETCHAR(code, p);
                                          printer(arg, "%.2x", code);
                                    }
                              }
                              break;
                        case IPX_COMPRESSION_PROTOCOL:
                              if (olen >= CILEN_COMPRESS) {
                                    int i;
                                    p += CILEN_VOID;
                                    GETSHORT (cishort, p);
                                    printer (arg, "compression %d", cishort);
                                    for(i=0;i<(olen-CILEN_COMPRESS);i++) {
                                          unsigned char ccode;
                                          GETCHAR(ccode, p);
                                          printer (arg, "%#02x ",(int)ccode);
                                    }
                              }
                              break;
                        case IPX_ROUTER_PROTOCOL:
                              if (olen >= CILEN_PROTOCOL) {
                                    int i;
                                    p += CILEN_VOID;
                                    GETSHORT (cishort, p);
                                    printer (arg, "router proto %d", cishort);
                                    for(i=0;i<(olen-CILEN_PROTOCOL);i++) {
                                          unsigned char ccode;
                                          GETCHAR(ccode, p);
                                          printer (arg, "%#02x ",(int)ccode);
                                    }
                              }
                              break;
                        case IPX_ROUTER_NAME:
                              if (olen >= CILEN_NAME) {
                                    p += CILEN_VOID;
                                    printer (arg, "router name \"");
                                    while (p < optend) {
                                          GETCHAR(code, p);
                                          if (code >= 0x20 && code < 0x7E)
                                                printer (arg, "%c", code);
                                          else
                                                printer (arg, " \\%.2x", code);
                                    }
                                    printer (arg, "\"");
                              }
                              break;
                        case IPX_COMPLETE:
                              if (olen == CILEN_COMPLETE) {
                                    p += CILEN_VOID;
                                    printer (arg, "complete");
                              }
                              break;
                        default:
                              break;
                  }

                  while (p < optend) {
                        GETCHAR(code, p);
                        printer(arg, " %.2x", code);
                  }
                  printer(arg, ">");
            }
            break;

            case TERMACK:
            case TERMREQ:
                  if (len > 0 && *p >= ' ' && *p < 0x7f) {
                        printer(arg, " ");
                        print_string(p, len, printer, arg);
                        p += len;
                        len = 0;
                  }
                  break;
      }

      /*
       * print the rest of the bytes in the packet 
       */
      for (; len > 0; --len) {
            GETCHAR(code, p);
            printer(arg, " %.2x", code);
      }

    return p - pstart;
}





Generated by  Doxygen 1.6.0   Back to index