/*
* lcp.c
*
* Written by Toshiharu OHNO <tony-o@iij.ad.jp>
* Copyright (c) 1993, Internet Initiative Japan, Inc. All rights reserved.
* See ``COPYRIGHT.iij''
*
* Rewritten by Archie Cobbs <archie@freebsd.org>
* Copyright (c) 1995-1999 Whistle Communications, Inc. All rights reserved.
* See ``COPYRIGHT.whistle''
*/
#include "ppp.h"
#include "lcp.h"
#include "fsm.h"
#include "mp.h"
#include "phys.h"
#include "pptp.h"
#include "link.h"
#include "msg.h"
/*
* DEFINITIONS
*/
#define LCP_ECHO_INTERVAL 5 /* Enable keep alive by default */
#define LCP_ECHO_TIMEOUT 40
#define LCP_KNOWN_CODES ( (1 << CODE_CONFIGREQ) \
| (1 << CODE_CONFIGACK) \
| (1 << CODE_CONFIGNAK) \
| (1 << CODE_CONFIGREJ) \
| (1 << CODE_TERMREQ) \
| (1 << CODE_TERMACK) \
| (1 << CODE_CODEREJ) \
| (1 << CODE_PROTOREJ) \
| (1 << CODE_ECHOREQ) \
| (1 << CODE_ECHOREP) \
| (1 << CODE_DISCREQ) \
| (1 << CODE_IDENT) \
| (1 << CODE_TIMEREM) )
#define LCP_PEER_REJECTED(p,x) ((p)->peer_reject & (1<<x))
#define LCP_PEER_REJ(p,x) do{(p)->peer_reject |= (1<<(x));}while(0)
/*
* INTERNAL FUNCTIONS
*/
static void LcpConfigure(Fsm fp);
static void LcpNewState(Fsm fp, int old, int new);
static void LcpNewPhase(int new);
static u_char *LcpBuildConfigReq(Fsm fp, u_char *cp);
static void LcpDecodeConfig(Fsm fp, FsmOption list, int num, int mode);
static void LcpLayerDown(Fsm fp);
static void LcpLayerStart(Fsm fp);
static void LcpLayerFinish(Fsm fp);
static int LcpRecvProtoRej(Fsm fp, int proto, Mbuf bp);
static void LcpFailure(Fsm fp, enum fsmfail reason);
static const struct fsmoption *LcpAuthProtoNak(ushort proto, u_char chap_alg);
static short LcpFindAuthProto(ushort proto, u_char chap_alg);
static void LcpStopActivity(void);
/*
* INTERNAL VARIABLES
*/
static const struct fsmoptinfo gLcpConfOpts[] = {
{ "VENDOR", TY_VENDOR, 4, 255, TRUE },
{ "MRU", TY_MRU, 2, 2, TRUE },
{ "ACCMAP", TY_ACCMAP, 4, 4, TRUE },
{ "AUTHPROTO", TY_AUTHPROTO, 2, 255, TRUE },
{ "QUALPROTO", TY_QUALPROTO, 0, 0, FALSE },
{ "MAGICNUM", TY_MAGICNUM, 4, 4, TRUE },
{ "RESERVED", TY_RESERVED, 0, 0, FALSE },
{ "PROTOCOMP", TY_PROTOCOMP, 0, 0, TRUE },
{ "ACFCOMP", TY_ACFCOMP, 0, 0, TRUE },
{ "FCSALT", TY_FCSALT, 0, 0, FALSE },
{ "SDP", TY_SDP, 0, 0, FALSE },
{ "NUMMODE", TY_NUMMODE, 0, 0, FALSE },
{ "MULTILINK", TY_MULTILINK, 0, 0, FALSE },
{ "CALLBACK", TY_CALLBACK, 0, 0, FALSE },
{ "CONNECTTIME", TY_CONNECTTIME, 0, 0, FALSE },
{ "COMPFRAME", TY_COMPFRAME, 0, 0, FALSE },
{ "NDS", TY_NDS, 0, 0, FALSE },
{ "MP MRRU", TY_MRRU, 2, 2, TRUE },
{ "MP SHORTSEQ", TY_SHORTSEQNUM, 0, 0, TRUE },
{ "ENDPOINTDISC", TY_ENDPOINTDISC, 1, 255, TRUE },
{ "PROPRIETARY", TY_PROPRIETARY, 0, 0, FALSE },
{ "DCEIDENTIFIER", TY_DCEIDENTIFIER, 0, 0, FALSE },
{ "MULTILINKPLUS", TY_MULTILINKPLUS, 0, 0, FALSE },
{ "BACP", TY_BACP, 0, 0, FALSE },
{ "LCPAUTHOPT", TY_LCPAUTHOPT, 0, 0, FALSE },
{ "CBOS", TY_COBS, 0, 0, FALSE },
{ "PREFIXELISION", TY_PREFIXELISION, 0, 0, FALSE },
{ "MULTILINKHEADERFMT", TY_MULTILINKHEADERFMT, 0, 0, FALSE },
{ "INTERNAT", TY_INTERNAT, 0, 0, FALSE },
{ "SDATALINKSONET", TY_SDATALINKSONET, 0, 0, FALSE },
{ NULL }
};
static struct fsmtype gLcpFsmType = {
"LCP", /* Name of protocol */
PROTO_LCP, /* Protocol Number */
LCP_KNOWN_CODES,
LG_LCP, LG_LCP,
TRUE,
LcpNewState,
NULL,
LcpLayerDown,
LcpLayerStart,
LcpLayerFinish,
LcpBuildConfigReq,
LcpDecodeConfig,
LcpConfigure,
NULL,
NULL,
NULL,
NULL,
LcpRecvProtoRej,
LcpFailure,
NULL,
NULL,
NULL,
};
/* List of possible Authentication Protocols */
static struct lcpauthproto gLcpAuthProtos[] = {
{
PROTO_PAP,
0,
LINK_CONF_PAP,
},
{
PROTO_CHAP,
CHAP_ALG_MD5,
LINK_CONF_CHAPMD5
},
{
PROTO_CHAP,
CHAP_ALG_MSOFT,
LINK_CONF_CHAPMSv1
},
{
PROTO_CHAP,
CHAP_ALG_MSOFTv2,
LINK_CONF_CHAPMSv2
}
};
static const char *PhaseNames[] = {
"DEAD",
"ESTABLISH",
"AUTHENTICATE",
"NETWORK",
"TERMINATE",
};
/*
* LcpInit()
*/
void
LcpInit(void)
{
LcpState const lcp = &lnk->lcp;
memset(lcp, 0, sizeof(*lcp));
FsmInit(&lcp->fsm, &gLcpFsmType);
lcp->fsm.conf.echo_int = LCP_ECHO_INTERVAL;
lcp->fsm.conf.echo_max = LCP_ECHO_TIMEOUT;
lcp->phase = PHASE_DEAD;
}
/*
* LcpConfigure()
*/
static void
LcpConfigure(Fsm fp)
{
LcpState const lcp = &lnk->lcp;
short i;
/* FSM stuff */
lcp->fsm.conf.passive = Enabled(&lnk->conf.options, LINK_CONF_PASSIVE);
lcp->fsm.conf.check_magic =
Enabled(&lnk->conf.options, LINK_CONF_CHECK_MAGIC);
lcp->peer_reject = 0;
/* Initialize normal LCP stuff */
lcp->peer_mru = lnk->conf.mtu;
lcp->want_mru = lnk->conf.mru;
if (lcp->want_mru > lnk->phys->type->mru)
lcp->want_mru = lnk->phys->type->mru;
lcp->peer_accmap = 0xffffffff;
lcp->want_accmap = lnk->conf.accmap;
lcp->peer_acfcomp = FALSE;
lcp->want_acfcomp = Enabled(&lnk->conf.options, LINK_CONF_ACFCOMP);
lcp->peer_protocomp = FALSE;
lcp->want_protocomp = Enabled(&lnk->conf.options, LINK_CONF_PROTOCOMP);
lcp->peer_magic = 0;
lcp->want_magic = Enabled(&lnk->conf.options,
LINK_CONF_MAGICNUM) ? GenerateMagic() : 0;
/* Authentication stuff */
lcp->peer_auth = 0;
lcp->want_auth = 0;
lcp->want_chap_alg = 0;
memset (lcp->want_protos, 0, sizeof lcp->want_protos);
/* fill my list of possible auth-protos, most to least secure */
/* for pptp prefer MS-CHAP and for all others CHAP-MD5 */
if (lnk->phys->type == &gPptpPhysType) {
lcp->want_protos[0] = &gLcpAuthProtos[LINK_CONF_CHAPMSv2];
lcp->want_protos[1] = &gLcpAuthProtos[LINK_CONF_CHAPMSv1];
lcp->want_protos[2] = &gLcpAuthProtos[LINK_CONF_CHAPMD5];
lcp->want_protos[3] = &gLcpAuthProtos[LINK_CONF_PAP];
} else {
lcp->want_protos[0] = &gLcpAuthProtos[LINK_CONF_CHAPMD5];
lcp->want_protos[1] = &gLcpAuthProtos[LINK_CONF_CHAPMSv2];
lcp->want_protos[2] = &gLcpAuthProtos[LINK_CONF_CHAPMSv1];
lcp->want_protos[3] = &gLcpAuthProtos[LINK_CONF_PAP];
}
/* Use the same list for the MODE_REQ */
memcpy(lcp->peer_protos, lcp->want_protos, sizeof lcp->peer_protos);
for (i = 0; i < LCP_NUM_AUTH_PROTOS; i++) {
if (Enabled(&lnk->conf.options, lcp->want_protos[i]->conf) && lcp->want_auth == 0) {
lcp->want_auth = lcp->want_protos[i]->proto;
lcp->want_chap_alg = lcp->want_protos[i]->chap_alg;
/* avoid re-requesting this proto, if it was nak'd by the peer */
lcp->want_protos[i] = NULL;
} else if (!Enabled(&lnk->conf.options, lcp->want_protos[i]->conf)) {
/* don't request disabled Protos */
lcp->want_protos[i] = NULL;
}
/* remove all denied protos */
if (!Acceptable(&lnk->conf.options, lcp->peer_protos[i]->conf))
lcp->peer_protos[i] = NULL;
}
lnk->range_valid = FALSE;
/* Multi-link stuff */
lcp->peer_multilink = FALSE;
lcp->peer_shortseq = FALSE;
if (Enabled(&bund->conf.options, BUND_CONF_MULTILINK)) {
lcp->want_multilink = TRUE;
if (bund->bm.n_up > 0) {
lcp->want_mrru = bund->mp.self_mrru; /* We must stay consistent */
lcp->peer_mrru = bund->mp.peer_mrru;
lcp->want_shortseq = bund->mp.self_short_seq;
lcp->peer_shortseq = bund->mp.peer_short_seq;
} else {
lcp->want_mrru = bund->conf.mrru;
lcp->peer_mrru = MP_MIN_MRRU;
lcp->want_shortseq = Enabled(&bund->conf.options, BUND_CONF_SHORTSEQ);
lcp->peer_shortseq = FALSE;
}
}
/* Peer discriminator */
lnk->peer_discrim.class = DISCRIM_CLASS_NULL;
lnk->peer_discrim.len = 0;
}
/*
* LcpNewState()
*
* Keep track of phase shifts
*/
static void
LcpNewState(Fsm fp, int old, int new)
{
switch (old) {
case ST_INITIAL: /* DEAD */
case ST_STARTING:
switch (new) {
case ST_INITIAL:
if (old == ST_STARTING)
SetStatus(ADLG_WAN_MESSAGE, STR_LINK_DISCON);
/* fall through */
case ST_STARTING:
break;
default:
LcpNewPhase(PHASE_ESTABLISH);
break;
}
break;
case ST_CLOSED: /* ESTABLISH */
case ST_STOPPED:
switch (new) {
case ST_INITIAL:
case ST_STARTING:
LcpNewPhase(PHASE_DEAD);
break;
default:
break;
}
break;
case ST_CLOSING: /* TERMINATE */
case ST_STOPPING:
switch (new) {
case ST_INITIAL:
case ST_STARTING:
LcpNewPhase(PHASE_DEAD);
break;
case ST_CLOSED:
case ST_STOPPED:
LcpNewPhase(PHASE_ESTABLISH);
break;
default:
break;
}
break;
case ST_REQSENT: /* ESTABLISH */
case ST_ACKRCVD:
case ST_ACKSENT:
switch (new) {
case ST_INITIAL:
case ST_STARTING:
LcpNewPhase(PHASE_DEAD);
break;
case ST_CLOSING:
case ST_STOPPING:
LcpNewPhase(PHASE_TERMINATE);
break;
case ST_OPENED:
LcpNewPhase(PHASE_AUTHENTICATE);
break;
default:
break;
}
break;
case ST_OPENED: /* AUTHENTICATE, NETWORK */
switch (new) {
case ST_STARTING:
LcpNewPhase(PHASE_DEAD);
break;
case ST_REQSENT:
case ST_ACKSENT:
LcpNewPhase(PHASE_ESTABLISH);
break;
case ST_CLOSING:
case ST_STOPPING:
LcpNewPhase(PHASE_TERMINATE);
break;
default:
assert(0);
}
break;
default:
assert(0);
}
/* Keep track of how many links in this bundle are in an open state */
if (!OPEN_STATE(old) && OPEN_STATE(new))
bund->bm.n_open++;
else if (OPEN_STATE(old) && !OPEN_STATE(new))
bund->bm.n_open--;
}
/*
* LcpNewPhase()
*/
static void
LcpNewPhase(int new)
{
LcpState const lcp = &lnk->lcp;
int old;
/* Logit */
Log(LG_LCP, ("%s: phase shift %s --> %s",
Pref(&lcp->fsm), PhaseNames[lcp->phase], PhaseNames[new]));
/* Sanity check transition (The picture on RFC 1661 p. 6 is incomplete) */
switch ((old = lcp->phase)) {
case PHASE_DEAD:
assert(new == PHASE_ESTABLISH);
break;
case PHASE_ESTABLISH:
assert(new == PHASE_DEAD
|| new == PHASE_TERMINATE
|| new == PHASE_AUTHENTICATE);
break;
case PHASE_AUTHENTICATE:
assert(new == PHASE_TERMINATE
|| new == PHASE_ESTABLISH
|| new == PHASE_NETWORK
|| new == PHASE_DEAD);
break;
case PHASE_NETWORK:
assert(new == PHASE_TERMINATE
|| new == PHASE_ESTABLISH
|| new == PHASE_DEAD);
break;
case PHASE_TERMINATE:
assert(new == PHASE_ESTABLISH
|| new == PHASE_DEAD);
break;
default:
assert(0);
}
/* Change phase now */
lcp->phase = new;
/* Do whatever for leaving old phase */
switch (old) {
case PHASE_NETWORK:
if (lnk->joined_bund)
BundLeave();
break;
default:
break;
}
/* Do whatever for entering new phase */
switch (new) {
case PHASE_ESTABLISH:
if (old != PHASE_TERMINATE)
SetStatus(ADLG_WAN_CONNECTING, STR_LINK_ESTAB);
memset(&lnk->bm.traffic, 0, sizeof(lnk->bm.traffic));
memset(&lnk->bm.idleStats, 0, sizeof(lnk->bm.idleStats));
break;
case PHASE_AUTHENTICATE:
SetStatus(ADLG_WAN_CONNECTING, STR_LINK_AUTH);
AuthStart();
break;
case PHASE_NETWORK:
/* Join my bundle */
switch (BundJoin()) {
case 0:
Log(LG_LINK|LG_BUND,
("[%s] link did not validate in bundle \"%s\"",
lnk->name, bund->name));
SetStatus(ADLG_WAN_NEGOTIATION_FAILURE, STR_MULTI_FAIL);
RecordLinkUpDownReason(lnk,
0, STR_PROTO_ERR, "%s", lcats(STR_MULTI_FAIL));
LinkClose(lnk);
lnk->joined_bund = 0;
break;
case 1:
SetStatus(ADLG_WAN_CONNECTING, STR_LINK_NEGOT);
lnk->joined_bund = 1;
break;
default:
SetStatus(ADLG_WAN_CONNECTED, STR_LINK_CONN_ESTAB);
lnk->joined_bund = 1;
break;
}
/* If link connection complete, reset redial counter */
if (lnk->joined_bund)
lnk->num_redial = 0;
/* Send ident string, if configured */
if (lnk->conf.ident != NULL)
FsmSendIdent(&lcp->fsm, lnk->conf.ident);
break;
case PHASE_TERMINATE:
SetStatus(ADLG_WAN_MESSAGE, STR_LINK_HANGUP);
break;
case PHASE_DEAD:
SetStatus(ADLG_WAN_MESSAGE, STR_LINK_DISCON);
break;
default:
assert(0);
}
}
/*
* LcpAuthResult()
*/
void
LcpAuthResult(int success)
{
Log(LG_AUTH|LG_LCP, ("%s: authorization %s",
Pref(&lnk->lcp.fsm), success ? "successful" : "failed"));
if (success) {
if (lnk->lcp.phase != PHASE_NETWORK)
LcpNewPhase(PHASE_NETWORK);
} else {
SetStatus(ADLG_WAN_AUTHORIZATION_FAILURE, STR_PPP_AUTH_FAILURE);
RecordLinkUpDownReason(lnk, 0, STR_LOGIN_FAIL,
"%s", lcats(STR_PPP_AUTH_FAILURE2));
PhysClose();
}
}
/*
* LcpStat()
*/
int
LcpStat(int ac, char *av[], void *arg)
{
LcpState const lcp = &lnk->lcp;
printf("%s [%s]\n", lcp->fsm.type->name, FsmStateName(lcp->fsm.state));
printf("Self:\n");
printf( "\tMRU : %d bytes\n"
"\tMAGIC : 0x%08x\n"
"\tACCMAP : 0x%08x\n"
"\tACFCOMP : %s\n"
"\tPROTOCOMP: %s\n",
(int) lcp->want_mru,
(int) lcp->want_magic,
(int) lcp->want_accmap,
lcp->want_acfcomp ? "Yes" : "No",
lcp->want_protocomp ? "Yes" : "No");
printf("Peer:\n");
printf( "\tMRU : %d bytes\n"
"\tMAGIC : 0x%08x\n"
"\tACCMAP : 0x%08x\n"
"\tACFCOMP : %s\n"
"\tPROTOCOMP: %s\n",
(int) lcp->peer_mru,
(int) lcp->peer_magic,
(int) lcp->peer_accmap,
lcp->peer_acfcomp ? "Yes" : "No",
lcp->peer_protocomp ? "Yes" : "No");
return(0);
}
/*
* LcpBuildConfigReq()
*/
static u_char *
LcpBuildConfigReq(Fsm fp, u_char *cp)
{
LcpState const lcp = &lnk->lcp;
/* Standard stuff */
if (lcp->want_acfcomp && !LCP_PEER_REJECTED(lcp, TY_ACFCOMP))
cp = FsmConfValue(cp, TY_ACFCOMP, 0, NULL);
if (lcp->want_protocomp && !LCP_PEER_REJECTED(lcp, TY_PROTOCOMP))
cp = FsmConfValue(cp, TY_PROTOCOMP, 0, NULL);
if (!lnk->phys->type->synchronous) {
if (!LCP_PEER_REJECTED(lcp, TY_ACCMAP))
cp = FsmConfValue(cp, TY_ACCMAP, -4, &lcp->want_accmap);
}
if (!LCP_PEER_REJECTED(lcp, TY_MRU))
cp = FsmConfValue(cp, TY_MRU, -2, &lcp->want_mru);
if (lcp->want_magic && !LCP_PEER_REJECTED(lcp, TY_MAGICNUM))
cp = FsmConfValue(cp, TY_MAGICNUM, -4, &lcp->want_magic);
if (lcp->want_callback && !LCP_PEER_REJECTED(lcp, TY_CALLBACK)) {
struct {
u_char op;
u_char data[0];
} s_callback;
s_callback.op = 0;
cp = FsmConfValue(cp, TY_CALLBACK, 1, &s_callback);
}
/* Authorization stuff */
switch (lcp->want_auth) {
case PROTO_PAP:
cp = FsmConfValue(cp, TY_AUTHPROTO, -2, &lcp->want_auth);
break;
case PROTO_CHAP: {
struct {
u_short want_auth;
u_char chap_alg;
} s_mdx;
s_mdx.want_auth = htons(PROTO_CHAP);
s_mdx.chap_alg = lcp->want_chap_alg;
cp = FsmConfValue(cp, TY_AUTHPROTO, 3, &s_mdx);
}
break;
}
/* Multi-link stuff */
if (Enabled(&bund->conf.options, BUND_CONF_MULTILINK)
&& !LCP_PEER_REJECTED(lcp, TY_MRRU)) {
cp = FsmConfValue(cp, TY_MRRU, -2, &lcp->want_mrru);
if (lcp->want_shortseq && !LCP_PEER_REJECTED(lcp, TY_SHORTSEQNUM))
cp = FsmConfValue(cp, TY_SHORTSEQNUM, 0, NULL);
if (!LCP_PEER_REJECTED(lcp, TY_ENDPOINTDISC))
cp = FsmConfValue(cp, TY_ENDPOINTDISC,
1 + self_discrim.len, &self_discrim.class);
}
/* Done */
return(cp);
}
static void
LcpLayerStart(Fsm fp)
{
PhysOpen();
}
static void
LcpStopActivity(void)
{
AuthStop();
}
static void
LcpLayerFinish(Fsm fp)
{
LcpStopActivity();
PhysClose();
}
/*
* LcpLayerDown()
*/
static void
LcpLayerDown(Fsm fp)
{
LcpStopActivity();
}
void LcpOpen(void)
{
FsmOpen(&lnk->lcp.fsm);
}
void LcpClose(void)
{
FsmClose(&lnk->lcp.fsm);
}
void LcpUp(void)
{
FsmUp(&lnk->lcp.fsm);
}
void LcpDown(void)
{
FsmDown(&lnk->lcp.fsm);
}
/*
* LcpRecvProtoRej()
*/
static int
LcpRecvProtoRej(Fsm fp, int proto, Mbuf bp)
{
int fatal = FALSE;
Fsm rej = NULL;
/* Which protocol? */
switch (proto) {
case PROTO_CCP:
case PROTO_COMPD:
rej = &bund->ccp.fsm;
break;
case PROTO_ECP:
case PROTO_CRYPT:
rej = &bund->ecp.fsm;
break;
case PROTO_IPCP:
rej = &bund->ipcp.fsm;
fatal = TRUE;
break;
default:
break;
}
/* Turn off whatever protocol got rejected */
if (rej)
FsmFailure(rej, FAIL_WAS_PROTREJ);
return(fatal);
}
/*
* LcpFailure()
*/
static void
LcpFailure(Fsm fp, enum fsmfail reason)
{
char buf[100];
snlcatf(buf, sizeof(buf), STR_LCP_FAILED, FsmFailureStr(reason));
SetStatus(ADLG_WAN_NEGOTIATION_FAILURE, STR_COPY, buf);
RecordLinkUpDownReason(lnk, 0, reason == FAIL_ECHO_TIMEOUT ?
STR_ECHO_TIMEOUT : STR_PROTO_ERR, "%s", buf);
}
/*
* LcpDecodeConfig()
*/
static void
LcpDecodeConfig(Fsm fp, FsmOption list, int num, int mode)
{
LcpState const lcp = &lnk->lcp;
int k;
/* Decode each config option */
for (k = 0; k < num; k++) {
FsmOption const opt = &list[k];
FsmOptInfo const oi = FsmFindOptInfo(gLcpConfOpts, opt->type);
/* Check option */
if (!oi) {
Log(LG_LCP, (" UNKNOWN[%d] len=%d", opt->type, opt->len));
if (mode == MODE_REQ)
FsmRej(fp, opt);
continue;
}
if (!oi->supported) {
Log(LG_LCP, (" %s", oi->name));
if (mode == MODE_REQ) {
Log(LG_LCP, (" Not supported"));
FsmRej(fp, opt);
}
continue;
}
if (opt->len < oi->minLen + 2 || opt->len > oi->maxLen + 2) {
Log(LG_LCP, (" %s", oi->name));
if (mode == MODE_REQ) {
Log(LG_LCP, (" Bogus length=%d", opt->len));
FsmRej(fp, opt);
}
continue;
}
/* Do whatever */
switch (opt->type) {
case TY_MRU: /* link MRU */
{
u_int16_t mru;
memcpy(&mru, opt->data, 2);
mru = ntohs(mru);
Log(LG_LCP, (" %s %d", oi->name, mru));
switch (mode) {
case MODE_REQ:
if (mru < LCP_MIN_MRU) {
mru = htons(LCP_MIN_MRU);
memcpy(opt->data, &mru, 2);
FsmNak(fp, opt);
break;
}
if (mru < lcp->peer_mru)
lcp->peer_mru = mru;
FsmAck(fp, opt);
break;
case MODE_NAK:
if (mru >= LCP_MIN_MRU
&& (mru <= lnk->phys->type->mru || mru < lcp->want_mru))
lcp->want_mru = mru;
break;
case MODE_REJ:
LCP_PEER_REJ(lcp, opt->type);
break;
}
}
break;
case TY_ACCMAP: /* async control character escape map */
{
u_int32_t accm;
memcpy(&accm, opt->data, 4);
accm = ntohl(accm);
Log(LG_LCP, (" %s 0x%08x", oi->name, accm));
switch (mode) {
case MODE_REQ:
lcp->peer_accmap = accm;
FsmAck(fp, opt);
break;
case MODE_NAK:
lcp->want_accmap = accm;
break;
case MODE_REJ:
LCP_PEER_REJ(lcp, opt->type);
break;
}
}
break;
case TY_AUTHPROTO: /* authentication protocol */
{
u_int16_t proto;
int supported = 0, bogus = 0, i, protoPos;
LcpAuthProto authProto;
memcpy(&proto, opt->data, 2);
proto = ntohs(proto);
/* Display it */
switch (proto) {
case PROTO_CHAP:
if (opt->len >= 5) {
char buf[20];
const char *ts;
switch (opt->data[2]) {
case CHAP_ALG_MD5:
supported = 1;
ts = "MD5";
break;
case CHAP_ALG_MSOFT:
supported = 1;
ts = "MSOFT";
break;
case CHAP_ALG_MSOFTv2:
supported = 1;
ts = "MSOFTv2";
break;
default:
snprintf(buf, sizeof(buf), "0x%02x", opt->data[2]);
ts = buf;
break;
}
Log(LG_LCP, (" %s %s %s", oi->name, ProtoName(proto), ts));
break;
}
break;
case PROTO_PAP:
supported = 1;
/* fall through */
default:
Log(LG_LCP, (" %s %s", oi->name, ProtoName(proto)));
break;
}
/* Sanity check */
switch (proto) {
case PROTO_PAP:
if (opt->len != 4) {
Log(LG_LCP, (" Bad len=%d", opt->len));
bogus = 1;
}
break;
case PROTO_CHAP:
if (opt->len != 5) {
Log(LG_LCP, (" Bad len=%d", opt->len));
bogus = 1;
}
break;
}
if (bogus || !supported) {
if (mode == MODE_REQ) {
if (Acceptable(&lnk->conf.options, LINK_CONF_CHAPMD5))
FsmNak(fp, LcpAuthProtoNak(PROTO_CHAP, CHAP_ALG_MD5));
else if (Acceptable(&lnk->conf.options, LINK_CONF_PAP))
FsmNak(fp, LcpAuthProtoNak(PROTO_PAP, 0));
else
FsmRej(fp, opt);
}
break;
}
protoPos = LcpFindAuthProto(proto, proto == PROTO_CHAP ? opt->data[2] : 0);
authProto = (protoPos == -1) ? NULL : &gLcpAuthProtos[protoPos];
/* Deal with it */
switch (mode) {
case MODE_REQ:
/* this should never happen */
if (authProto == NULL) {
FsmRej(fp, opt);
break;
}
/* let us check, whether the requested auth-proto is acceptable */
if (Acceptable(&lnk->conf.options, authProto->conf)) {
lcp->peer_auth = proto;
if (proto == PROTO_CHAP)
lcp->peer_chap_alg = opt->data[2];
FsmAck(fp, opt);
break;
}
/* search an acceptable proto */
for(i = 0; i < LCP_NUM_AUTH_PROTOS; i++) {
if (lcp->peer_protos[i] != NULL) {
FsmNak(fp, LcpAuthProtoNak(lcp->peer_protos[i]->proto, lcp->peer_protos[i]->chap_alg));
break;
}
}
/* no other acceptable auth-proto found */
if (i == 4)
FsmRej(fp, opt);
break;
case MODE_NAK:
/* this should never happen */
if (authProto == NULL)
break;
/* let us check, whether the requested auth-proto is enabled */
if (Enabled(&lnk->conf.options, authProto->conf)) {
lcp->want_auth = proto;
if (proto == PROTO_CHAP)
lcp->want_chap_alg = opt->data[2];
break;
}
/* Remove the disabled proto from my list */
lcp->want_protos[protoPos] = NULL;
/* Search the next enabled proto */
for(i = 0; i < LCP_NUM_AUTH_PROTOS; i++) {
if (lcp->want_protos[i] != NULL) {
lcp->want_auth = lcp->want_protos[i]->proto;
lcp->want_chap_alg = lcp->want_protos[i]->chap_alg;
break;
}
}
break;
case MODE_REJ:
LCP_PEER_REJ(lcp, opt->type);
if (lnk->originate == LINK_ORIGINATE_LOCAL
&& Enabled(&lnk->conf.options, LINK_CONF_NO_ORIG_AUTH)) {
lcp->want_auth = 0;
}
break;
}
}
break;
case TY_MRRU: /* multi-link MRRU */
{
u_int16_t mrru;
memcpy(&mrru, opt->data, 2);
mrru = ntohs(mrru);
Log(LG_LCP, (" %s %d", oi->name, mrru));
switch (mode) {
case MODE_REQ:
if (!Enabled(&bund->conf.options, BUND_CONF_MULTILINK)) {
FsmRej(fp, opt);
break;
}
if (bund->bm.n_up > 0 && mrru != bund->mp.peer_mrru) {
mrru = htons(bund->mp.peer_mrru);
memcpy(opt->data, &mrru, 2);
FsmNak(fp, opt);
break;
}
if (mrru > MP_MAX_MRRU) {
mrru = htons(MP_MAX_MRRU);
memcpy(opt->data, &mrru, 2);
FsmNak(fp, opt);
break;
}
if (mrru < MP_MIN_MRRU) {
mrru = htons(MP_MIN_MRRU);
memcpy(opt->data, &mrru, 2);
FsmNak(fp, opt);
break;
}
lcp->peer_multilink = TRUE;
lcp->peer_mrru = mrru;
FsmAck(fp, opt);
break;
case MODE_NAK:
{
int k;
/* Make sure we don't violate any rules by changing MRRU now */
if (bund->bm.n_up > 0) /* too late */
break;
if (mrru > lcp->want_mrru) /* too big */
break;
if (mrru < MP_MIN_MRRU) /* too small; clip */
mrru = MP_MIN_MRRU;
/* Update our bundle, and any links currently in negotiation */
bund->mp.self_mrru = mrru;
for (k = 0; k < bund->n_links; k++)
bund->links[k]->lcp.want_mrru = mrru;
}
break;
case MODE_REJ:
lcp->peer_multilink = FALSE;
LCP_PEER_REJ(lcp, opt->type);
break;
}
}
break;
case TY_SHORTSEQNUM: /* multi-link short sequence numbers */
Log(LG_LCP, (" %s", oi->name));
switch (mode) {
case MODE_REQ:
if (!Enabled(&bund->conf.options, BUND_CONF_MULTILINK)
|| !Acceptable(&bund->conf.options, BUND_CONF_SHORTSEQ)) {
FsmRej(fp, opt);
break;
}
lcp->peer_multilink = TRUE;
lcp->peer_shortseq = TRUE;
FsmAck(fp, opt);
break;
case MODE_NAK: /* a NAK here doesn't make sense */
case MODE_REJ:
{
int k;
/* Can't change MP configuration after one link already up */
if (bund->bm.n_up > 0 && bund->mp.self_short_seq)
break;
/* Update our bundle, and any links currently in negotiation */
lcp->want_shortseq = FALSE;
bund->mp.self_short_seq = FALSE;
for (k = 0; k < bund->n_links; k++)
LCP_PEER_REJ(&bund->links[k]->lcp, opt->type);
}
break;
}
break;
case TY_ENDPOINTDISC: /* multi-link endpoint discriminator */
{
struct discrim dis;
if (opt->len < 3 || opt->len > sizeof(dis.bytes)) {
Log(LG_LCP, (" %s bad len=%d", oi->name, opt->len));
if (mode == MODE_REQ)
FsmRej(fp, opt);
break;
}
memcpy(&dis.class, opt->data, opt->len - 2);
dis.len = opt->len - 3;
Log(LG_LCP, (" %s %s", oi->name, MpDiscrimText(&dis)));
switch (mode) {
case MODE_REQ:
lnk->peer_discrim = dis;
FsmAck(fp, opt);
break;
case MODE_NAK: /* a NAK here doesn't make sense */
case MODE_REJ:
LCP_PEER_REJ(lcp, opt->type);
break;
}
}
break;
case TY_MAGICNUM: /* magic number */
{
u_int32_t magic;
memcpy(&magic, opt->data, 4);
magic = ntohl(magic);
Log(LG_LCP, (" %s %08x", oi->name, magic));
switch (mode) {
case MODE_REQ:
if (lcp->want_magic) {
if (magic == lcp->want_magic) {
Log(LG_LCP, (" Same magic! Detected loopback condition"));
magic = htonl(~magic);
memcpy(opt->data, &magic, 4);
FsmNak(fp, opt);
break;
}
lcp->peer_magic = magic;
FsmAck(fp, opt);
break;
}
FsmRej(fp, opt);
break;
case MODE_NAK:
lcp->want_magic = GenerateMagic();
break;
case MODE_REJ:
lcp->want_magic = 0;
LCP_PEER_REJ(lcp, opt->type);
break;
}
}
break;
case TY_PROTOCOMP: /* Protocol field compression */
Log(LG_LCP, (" %s", oi->name));
switch (mode) {
case MODE_REQ:
if (Acceptable(&lnk->conf.options, LINK_CONF_PROTOCOMP)) {
lcp->peer_protocomp = TRUE;
FsmAck(fp, opt);
break;
}
FsmRej(fp, opt);
break;
case MODE_NAK: /* a NAK here doesn't make sense */
case MODE_REJ:
lcp->want_protocomp = FALSE;
LCP_PEER_REJ(lcp, opt->type);
break;
}
break;
case TY_ACFCOMP: /* Address field compression */
Log(LG_LCP, (" %s", oi->name));
switch (mode) {
case MODE_REQ:
if (Acceptable(&lnk->conf.options, LINK_CONF_ACFCOMP)) {
lcp->peer_acfcomp = TRUE;
FsmAck(fp, opt);
break;
}
FsmRej(fp, opt);
break;
case MODE_NAK: /* a NAK here doesn't make sense */
case MODE_REJ:
lcp->want_acfcomp = FALSE;
LCP_PEER_REJ(lcp, opt->type);
break;
}
break;
case TY_CALLBACK: /* Callback */
Log(LG_LCP, (" %s", oi->name));
switch (mode) {
case MODE_REQ: /* we only support peer calling us back */
FsmRej(fp, opt);
break;
case MODE_NAK: /* we only know one way to do it */
/* fall through */
case MODE_REJ:
lcp->want_callback = FALSE;
LCP_PEER_REJ(lcp, opt->type);
break;
}
break;
case TY_VENDOR:
{
Log(LG_LCP, (" %s %02x%02x%02x:%d", oi->name,
opt->data[0], opt->data[1], opt->data[2], opt->data[3]));
switch (mode) {
case MODE_REQ:
FsmRej(fp, opt);
break;
case MODE_NAK:
/* fall through */
case MODE_REJ:
LCP_PEER_REJ(lcp, opt->type);
break;
}
break;
}
break;
default:
assert(0);
}
}
}
/*
* LcpInput()
*/
void
LcpInput(Mbuf bp, int linkNum)
{
FsmInput(&lnk->lcp.fsm, bp, linkNum);
}
static const struct fsmoption *
LcpAuthProtoNak(ushort proto, u_char chap_alg)
{
static const u_char chapmd5cf[] =
{ PROTO_CHAP >> 8, PROTO_CHAP & 0xff, CHAP_ALG_MD5 };
static const struct fsmoption chapmd5Nak =
{ TY_AUTHPROTO, 2 + sizeof(chapmd5cf), (u_char *) chapmd5cf };
static const u_char chapmsv1cf[] =
{ PROTO_CHAP >> 8, PROTO_CHAP & 0xff, CHAP_ALG_MSOFT };
static const struct fsmoption chapmsv1Nak =
{ TY_AUTHPROTO, 2 + sizeof(chapmsv1cf), (u_char *) chapmsv1cf };
static const u_char chapmsv2cf[] =
{ PROTO_CHAP >> 8, PROTO_CHAP & 0xff, CHAP_ALG_MSOFTv2 };
static const struct fsmoption chapmsv2Nak =
{ TY_AUTHPROTO, 2 + sizeof(chapmsv2cf), (u_char *) chapmsv2cf };
static const u_char papcf[] =
{ PROTO_PAP >> 8, PROTO_PAP & 0xff };
static const struct fsmoption papNak =
{ TY_AUTHPROTO, 2 + sizeof(papcf), (u_char *) papcf };
if (proto == PROTO_PAP) {
return &papNak;
} else {
switch (chap_alg) {
case CHAP_ALG_MSOFTv2:
return &chapmsv2Nak;
case CHAP_ALG_MSOFT:
return &chapmsv1Nak;
case CHAP_ALG_MD5:
return &chapmd5Nak;
default:
return NULL;
}
}
}
/*
* LcpFindAuthProto()
*
*/
static short
LcpFindAuthProto(ushort proto, u_char chap_alg)
{
int i;
for(i = 0; i < LCP_NUM_AUTH_PROTOS; i++) {
if (gLcpAuthProtos[i].proto == proto && gLcpAuthProtos[i].chap_alg == chap_alg) {
return i;
}
}
return -1;
}
syntax highlighted by Code2HTML, v. 0.9.1