/* $OpenBSD: if_pppoe.c,v 1.30 2009/03/15 19:40:41 miod Exp $ */ /* $NetBSD: if_pppoe.c,v 1.51 2003/11/28 08:56:48 keihan Exp $ */ /* * Copyright (c) 2002 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Martin Husemann . * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include "pppoe.h" #include "bpfilter.h" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* for arc4random() */ #include #if NBPFILTER > 0 #include #endif #undef PPPOE_DEBUG /* XXX - remove this or make it an option */ #define PPPOEDEBUG(a) ((sc->sc_sppp.pp_if.if_flags & IFF_DEBUG) ? printf a : 0) struct pppoehdr { u_int8_t vertype; u_int8_t code; u_int16_t session; u_int16_t plen; } __packed; struct pppoetag { u_int16_t tag; u_int16_t len; } __packed; #define PPPOE_HEADERLEN sizeof(struct pppoehdr) #define PPPOE_OVERHEAD (PPPOE_HEADERLEN + 2) #define PPPOE_VERTYPE 0x11 /* VER=1, TYPE = 1 */ #define PPPOE_TAG_EOL 0x0000 /* end of list */ #define PPPOE_TAG_SNAME 0x0101 /* service name */ #define PPPOE_TAG_ACNAME 0x0102 /* access concentrator name */ #define PPPOE_TAG_HUNIQUE 0x0103 /* host unique */ #define PPPOE_TAG_ACCOOKIE 0x0104 /* AC cookie */ #define PPPOE_TAG_VENDOR 0x0105 /* vendor specific */ #define PPPOE_TAG_RELAYSID 0x0110 /* relay session id */ #define PPPOE_TAG_SNAME_ERR 0x0201 /* service name error */ #define PPPOE_TAG_ACSYS_ERR 0x0202 /* AC system error */ #define PPPOE_TAG_GENERIC_ERR 0x0203 /* gerneric error */ #define PPPOE_CODE_PADI 0x09 /* Active Discovery Initiation */ #define PPPOE_CODE_PADO 0x07 /* Active Discovery Offer */ #define PPPOE_CODE_PADR 0x19 /* Active Discovery Request */ #define PPPOE_CODE_PADS 0x65 /* Active Discovery Session confirmation */ #define PPPOE_CODE_PADT 0xA7 /* Active Discovery Terminate */ /* two byte PPP protocol discriminator, then IP data */ #define PPPOE_MAXMTU (ETHERMTU - PPPOE_OVERHEAD) /* Add a 16 bit unsigned value to a buffer pointed to by PTR */ #define PPPOE_ADD_16(PTR, VAL) \ *(PTR)++ = (VAL) / 256; \ *(PTR)++ = (VAL) % 256 /* Add a complete PPPoE header to the buffer pointed to by PTR */ #define PPPOE_ADD_HEADER(PTR, CODE, SESS, LEN) \ *(PTR)++ = PPPOE_VERTYPE; \ *(PTR)++ = (CODE); \ PPPOE_ADD_16(PTR, SESS); \ PPPOE_ADD_16(PTR, LEN) #define PPPOE_DISC_TIMEOUT (hz*5) /* base for quick timeout calculation */ #define PPPOE_SLOW_RETRY (hz*60) /* persistent retry interval */ #define PPPOE_DISC_MAXPADI 4 /* retry PADI four times (quickly) */ #define PPPOE_DISC_MAXPADR 2 /* retry PADR twice */ #ifdef PPPOE_SERVER #define IFF_PASSIVE IFF_LINK0 /* wait passively for connection */ #endif struct pppoe_softc { struct sppp sc_sppp; /* contains a struct ifnet as first element */ LIST_ENTRY(pppoe_softc) sc_list; struct ifnet *sc_eth_if; /* ethernet interface we are using */ int sc_state; /* discovery phase or session connected */ struct ether_addr sc_dest; /* hardware address of concentrator */ u_int16_t sc_session; /* PPPoE session id */ char *sc_service_name; /* if != NULL: requested name of service */ char *sc_concentrator_name; /* if != NULL: requested concentrator id */ u_int8_t *sc_ac_cookie; /* content of AC cookie we must echo back */ size_t sc_ac_cookie_len; /* length of cookie data */ u_int8_t *sc_relay_sid; /* content of relay SID we must echo back */ size_t sc_relay_sid_len; /* length of relay SID data */ #ifdef PPPOE_SERVER u_int8_t *sc_hunique; /* content of host unique we must echo back */ size_t sc_hunique_len; /* length of host unique */ #endif u_int32_t sc_unique; /* our unique id */ struct timeout sc_timeout; /* timeout while not in session state */ int sc_padi_retried; /* number of PADI retries already done */ int sc_padr_retried; /* number of PADR retries already done */ struct timeval sc_session_time; /* time the session was established */ }; /* incoming traffic will be queued here */ struct ifqueue pppoediscinq = { NULL }; struct ifqueue pppoeinq = { NULL }; extern int sppp_ioctl(struct ifnet *, unsigned long, void *); /* input routines */ static void pppoe_disc_input(struct mbuf *); static void pppoe_dispatch_disc_pkt(struct mbuf *, int); static void pppoe_data_input(struct mbuf *); /* management routines */ void pppoeattach(int); static int pppoe_connect(struct pppoe_softc *); static int pppoe_disconnect(struct pppoe_softc *); static void pppoe_abort_connect(struct pppoe_softc *); static int pppoe_ioctl(struct ifnet *, unsigned long, caddr_t); static void pppoe_tls(struct sppp *); static void pppoe_tlf(struct sppp *); static void pppoe_start(struct ifnet *); /* internal timeout handling */ static void pppoe_timeout(void *); /* sending actual protocol control packets */ static int pppoe_send_padi(struct pppoe_softc *); static int pppoe_send_padr(struct pppoe_softc *); #ifdef PPPOE_SERVER static int pppoe_send_pado(struct pppoe_softc *); static int pppoe_send_pads(struct pppoe_softc *); #endif static int pppoe_send_padt(struct ifnet *, u_int, const u_int8_t *); /* raw output */ static int pppoe_output(struct pppoe_softc *, struct mbuf *); /* internal helper functions */ static struct pppoe_softc *pppoe_find_softc_by_session(u_int, struct ifnet *); static struct pppoe_softc *pppoe_find_softc_by_hunique(u_int8_t *, size_t, struct ifnet *); static struct mbuf *pppoe_get_mbuf(size_t len); LIST_HEAD(pppoe_softc_head, pppoe_softc) pppoe_softc_list; /* interface cloning */ int pppoe_clone_create(struct if_clone *, int); int pppoe_clone_destroy(struct ifnet *); struct if_clone pppoe_cloner = IF_CLONE_INITIALIZER("pppoe", pppoe_clone_create, pppoe_clone_destroy); /* ARGSUSED */ void pppoeattach(int count) { LIST_INIT(&pppoe_softc_list); if_clone_attach(&pppoe_cloner); pppoediscinq.ifq_maxlen = IFQ_MAXLEN; pppoeinq.ifq_maxlen = IFQ_MAXLEN; } /* Create a new interface. */ int pppoe_clone_create(struct if_clone *ifc, int unit) { struct pppoe_softc *sc, *tmpsc; u_int32_t unique; int s; sc = malloc(sizeof(*sc), M_DEVBUF, M_WAITOK|M_CANFAIL|M_ZERO); if (sc == NULL) return (ENOMEM); snprintf(sc->sc_sppp.pp_if.if_xname, sizeof(sc->sc_sppp.pp_if.if_xname), "pppoe%d", unit); sc->sc_sppp.pp_if.if_softc = sc; sc->sc_sppp.pp_if.if_mtu = PPPOE_MAXMTU; sc->sc_sppp.pp_if.if_flags = IFF_SIMPLEX | IFF_POINTOPOINT | IFF_MULTICAST; sc->sc_sppp.pp_if.if_type = IFT_PPP; sc->sc_sppp.pp_if.if_hdrlen = sizeof(struct ether_header) + PPPOE_HEADERLEN; sc->sc_sppp.pp_flags |= PP_KEEPALIVE | /* use LCP keepalive */ PP_NOFRAMING; /* no serial encapsulation */ sc->sc_sppp.pp_framebytes = PPPOE_HEADERLEN; /* framing added to ppp packets */ sc->sc_sppp.pp_if.if_ioctl = pppoe_ioctl; sc->sc_sppp.pp_if.if_start = pppoe_start; sc->sc_sppp.pp_tls = pppoe_tls; sc->sc_sppp.pp_tlf = pppoe_tlf; IFQ_SET_MAXLEN(&sc->sc_sppp.pp_if.if_snd, IFQ_MAXLEN); IFQ_SET_READY(&sc->sc_sppp.pp_if.if_snd); /* changed to real address later */ memcpy(&sc->sc_dest, etherbroadcastaddr, sizeof(sc->sc_dest)); /* init timer for interface watchdog */ timeout_set(&sc->sc_timeout, pppoe_timeout, sc); if_attach(&sc->sc_sppp.pp_if); if_alloc_sadl(&sc->sc_sppp.pp_if); sppp_attach(&sc->sc_sppp.pp_if); #if NBPFILTER > 0 bpfattach(&sc->sc_sppp.pp_if.if_bpf, &sc->sc_sppp.pp_if, DLT_PPP_ETHER, 0); #endif s = splnet(); retry: unique = arc4random(); LIST_FOREACH(tmpsc, &pppoe_softc_list, sc_list) if (tmpsc->sc_unique == unique) goto retry; sc->sc_unique = unique; LIST_INSERT_HEAD(&pppoe_softc_list, sc, sc_list); splx(s); return (0); } /* Destroy a given interface. */ int pppoe_clone_destroy(struct ifnet *ifp) { struct pppoe_softc *sc = ifp->if_softc; int s; s = splnet(); LIST_REMOVE(sc, sc_list); timeout_del(&sc->sc_timeout); splx(s); sppp_detach(&sc->sc_sppp.pp_if); if_detach(ifp); if (sc->sc_concentrator_name) free(sc->sc_concentrator_name, M_DEVBUF); if (sc->sc_service_name) free(sc->sc_service_name, M_DEVBUF); if (sc->sc_ac_cookie) free(sc->sc_ac_cookie, M_DEVBUF); if (sc->sc_relay_sid) free(sc->sc_relay_sid, M_DEVBUF); free(sc, M_DEVBUF); return (0); } /* * Find the interface handling the specified session. * Note: O(number of sessions open), this is a client-side only, mean * and lean implementation, so number of open sessions typically should * be 1. */ static struct pppoe_softc * pppoe_find_softc_by_session(u_int session, struct ifnet *rcvif) { struct pppoe_softc *sc; if (session == 0) return (NULL); LIST_FOREACH(sc, &pppoe_softc_list, sc_list) { if (sc->sc_state == PPPOE_STATE_SESSION && sc->sc_session == session && sc->sc_eth_if == rcvif) { return (sc); } } return (NULL); } /* * Check host unique token passed and return appropriate softc pointer, * or NULL if token is bogus. */ static struct pppoe_softc * pppoe_find_softc_by_hunique(u_int8_t *token, size_t len, struct ifnet *rcvif) { struct pppoe_softc *sc; u_int32_t hunique; if (LIST_EMPTY(&pppoe_softc_list)) return (NULL); if (len != sizeof(hunique)) return (NULL); memcpy(&hunique, token, len); LIST_FOREACH(sc, &pppoe_softc_list, sc_list) if (sc->sc_unique == hunique) break; if (sc == NULL) { printf("pppoe: alien host unique tag, no session found\n"); return (NULL); } /* should be safe to access *sc now */ if (sc->sc_state < PPPOE_STATE_PADI_SENT || sc->sc_state >= PPPOE_STATE_SESSION) { printf("%s: host unique tag found, but it belongs to a connection in state %d\n", sc->sc_sppp.pp_if.if_xname, sc->sc_state); return (NULL); } if (sc->sc_eth_if != rcvif) { printf("%s: wrong interface, not accepting host unique\n", sc->sc_sppp.pp_if.if_xname); return (NULL); } return (sc); } /* Interface interrupt handler routine. */ void pppoeintr(void) { struct mbuf *m; int s; splsoftassert(IPL_SOFTNET); for (;;) { s = splnet(); IF_DEQUEUE(&pppoediscinq, m); splx(s); if (m == NULL) break; pppoe_disc_input(m); } for (;;) { s = splnet(); IF_DEQUEUE(&pppoeinq, m); splx(s); if (m == NULL) break; pppoe_data_input(m); } } /* Analyze and handle a single received packet while not in session state. */ static void pppoe_dispatch_disc_pkt(struct mbuf *m, int off) { struct pppoe_softc *sc; struct pppoehdr *ph; struct pppoetag *pt; struct mbuf *n; struct ether_header *eh; const char *err_msg, *devname; size_t ac_cookie_len; size_t relay_sid_len; int noff, err, errortag; u_int16_t tag, len; u_int16_t session, plen; u_int8_t *ac_cookie; u_int8_t *relay_sid; u_int8_t code; #ifdef PPPOE_SERVER u_int8_t *hunique; size_t hunique_len; #endif err_msg = NULL; devname = "pppoe"; errortag = 0; if (m->m_len < sizeof(*eh)) { m = m_pullup(m, sizeof(*eh)); if (m == NULL) goto done; } eh = mtod(m, struct ether_header *); off += sizeof(*eh); ac_cookie = NULL; ac_cookie_len = 0; relay_sid = NULL; relay_sid_len = 0; #ifdef PPPOE_SERVER hunique = NULL; hunique_len = 0; #endif session = 0; if (m->m_pkthdr.len - off <= PPPOE_HEADERLEN) { printf("pppoe: packet too short: %d\n", m->m_pkthdr.len); goto done; } n = m_pulldown(m, off, sizeof(*ph), &noff); if (n == NULL) { printf("pppoe: could not get PPPoE header\n"); m = NULL; goto done; } ph = (struct pppoehdr *)(mtod(n, caddr_t) + noff); if (ph->vertype != PPPOE_VERTYPE) { printf("pppoe: unknown version/type packet: 0x%x\n", ph->vertype); goto done; } session = ntohs(ph->session); plen = ntohs(ph->plen); code = ph->code; off += sizeof(*ph); if (plen + off > m->m_pkthdr.len) { printf("pppoe: packet content does not fit: data available = %d, packet size = %u\n", m->m_pkthdr.len - off, plen); goto done; } /* ignore trailing garbage */ m_adj(m, off + plen - m->m_pkthdr.len); tag = 0; len = 0; sc = NULL; while (off + sizeof(*pt) <= m->m_pkthdr.len) { n = m_pulldown(m, off, sizeof(*pt), &noff); if (n == NULL) { printf("%s: parse error\n", devname); m = NULL; goto done; } pt = (struct pppoetag *)(mtod(n, caddr_t) + noff); tag = ntohs(pt->tag); len = ntohs(pt->len); off += sizeof(*pt); if (off + len > m->m_pkthdr.len) { printf("%s: tag 0x%x len 0x%x is too long\n", devname, tag, len); goto done; } switch (tag) { case PPPOE_TAG_EOL: goto breakbreak; case PPPOE_TAG_SNAME: break; /* ignored */ case PPPOE_TAG_ACNAME: break; /* ignored */ case PPPOE_TAG_HUNIQUE: if (sc != NULL) break; n = m_pulldown(m, off, len, &noff); if (n == NULL) { m = NULL; err_msg = "TAG HUNIQUE ERROR"; break; } #ifdef PPPOE_SERVER hunique = mtod(n, caddr_t) + noff; hunique_len = len; #endif sc = pppoe_find_softc_by_hunique(mtod(n, caddr_t) + noff, len, m->m_pkthdr.rcvif); if (sc != NULL) devname = sc->sc_sppp.pp_if.if_xname; break; case PPPOE_TAG_ACCOOKIE: if (ac_cookie == NULL) { n = m_pulldown(m, off, len, &noff); if (n == NULL) { err_msg = "TAG ACCOOKIE ERROR"; m = NULL; break; } ac_cookie = mtod(n, caddr_t) + noff; ac_cookie_len = len; } break; case PPPOE_TAG_RELAYSID: if (relay_sid == NULL) { n = m_pulldown(m, off, len, &noff); if (n == NULL) { err_msg = "TAG RELAYSID ERROR"; m = NULL; break; } relay_sid = mtod(n, caddr_t) + noff; relay_sid_len = len; } break; case PPPOE_TAG_SNAME_ERR: err_msg = "SERVICE NAME ERROR"; errortag = 1; break; case PPPOE_TAG_ACSYS_ERR: err_msg = "AC SYSTEM ERROR"; errortag = 1; break; case PPPOE_TAG_GENERIC_ERR: err_msg = "GENERIC ERROR"; errortag = 1; break; } if (err_msg) { log(LOG_INFO, "%s: %s: ", devname, err_msg); if (errortag && len) { n = m_pulldown(m, off, len, &noff); if (n) { u_int8_t *et = mtod(n, caddr_t) + noff; while (len--) addlog("%c", *et++); } } addlog("\n"); goto done; } off += len; } breakbreak: switch (code) { case PPPOE_CODE_PADI: #ifdef PPPOE_SERVER /* * Got service name, concentrator name, and/or host unique. * Ignore if we have no interfaces with IFF_PASSIVE|IFF_UP. */ if (LIST_EMPTY(&pppoe_softc_list)) goto done; LIST_FOREACH(sc, &pppoe_softc_list, sc_list) { if (!(sc->sc_sppp.pp_if.if_flags & IFF_UP)) continue; if (!(sc->sc_sppp.pp_if.if_flags & IFF_PASSIVE)) continue; if (sc->sc_state == PPPOE_STATE_INITIAL) break; } if (sc == NULL) { #ifdef PPPOE_DEBUG printf("pppoe: free passive interface is not found\n"); #endif goto done; } if (hunique) { if (sc->sc_hunique) free(sc->sc_hunique, M_DEVBUF); sc->sc_hunique = malloc(hunique_len, M_DEVBUF, M_DONTWAIT); if (sc->sc_hunique == NULL) goto done; sc->sc_hunique_len = hunique_len; memcpy(sc->sc_hunique, hunique, hunique_len); } memcpy(&sc->sc_dest, eh->ether_shost, sizeof(sc->sc_dest)); sc->sc_state = PPPOE_STATE_PADO_SENT; pppoe_send_pado(sc); break; #endif /* PPPOE_SERVER */ case PPPOE_CODE_PADR: #ifdef PPPOE_SERVER /* * Get sc from ac_cookie if IFF_PASSIVE. */ if (ac_cookie == NULL) { /* be quiet if there is not a single pppoe instance */ printf("pppoe: received PADR but not includes ac_cookie\n"); goto done; } sc = pppoe_find_softc_by_hunique(ac_cookie, ac_cookie_len, m->m_pkthdr.rcvif); if (sc == NULL) { /* be quiet if there is not a single pppoe instance */ if (!LIST_EMPTY(&pppoe_softc_list)) printf("pppoe: received PADR but could not find request for it\n"); goto done; } if (sc->sc_state != PPPOE_STATE_PADO_SENT) { printf("%s: received unexpected PADR\n", sc->sc_sppp.pp_if.if_xname); goto done; } if (hunique) { if (sc->sc_hunique) free(sc->sc_hunique, M_DEVBUF); sc->sc_hunique = malloc(hunique_len, M_DEVBUF, M_DONTWAIT); if (sc->sc_hunique == NULL) goto done; sc->sc_hunique_len = hunique_len; memcpy(sc->sc_hunique, hunique, hunique_len); } pppoe_send_pads(sc); sc->sc_state = PPPOE_STATE_SESSION; sc->sc_sppp.pp_up(&sc->sc_sppp); break; #else /* ignore, we are no access concentrator */ goto done; #endif /* PPPOE_SERVER */ case PPPOE_CODE_PADO: if (sc == NULL) { /* be quiet if there is not a single pppoe instance */ if (!LIST_EMPTY(&pppoe_softc_list)) printf("pppoe: received PADO but could not find request for it\n"); goto done; } if (sc->sc_state != PPPOE_STATE_PADI_SENT) { printf("%s: received unexpected PADO\n", sc->sc_sppp.pp_if.if_xname); goto done; } if (ac_cookie) { if (sc->sc_ac_cookie) free(sc->sc_ac_cookie, M_DEVBUF); sc->sc_ac_cookie = malloc(ac_cookie_len, M_DEVBUF, M_DONTWAIT); if (sc->sc_ac_cookie == NULL) goto done; sc->sc_ac_cookie_len = ac_cookie_len; memcpy(sc->sc_ac_cookie, ac_cookie, ac_cookie_len); } if (relay_sid) { if (sc->sc_relay_sid) free(sc->sc_relay_sid, M_DEVBUF); sc->sc_relay_sid = malloc(relay_sid_len, M_DEVBUF, M_DONTWAIT); if (sc->sc_relay_sid == NULL) goto done; sc->sc_relay_sid_len = relay_sid_len; memcpy(sc->sc_relay_sid, relay_sid, relay_sid_len); } memcpy(&sc->sc_dest, eh->ether_shost, sizeof(sc->sc_dest)); sc->sc_padr_retried = 0; sc->sc_state = PPPOE_STATE_PADR_SENT; if ((err = pppoe_send_padr(sc)) != 0) { PPPOEDEBUG(("%s: failed to send PADR, error=%d\n", sc->sc_sppp.pp_if.if_xname, err)); } timeout_add(&sc->sc_timeout, PPPOE_DISC_TIMEOUT * (1 + sc->sc_padr_retried)); break; case PPPOE_CODE_PADS: if (sc == NULL) goto done; sc->sc_session = session; timeout_del(&sc->sc_timeout); PPPOEDEBUG(("%s: session 0x%x connected\n", sc->sc_sppp.pp_if.if_xname, session)); sc->sc_state = PPPOE_STATE_SESSION; microtime(&sc->sc_session_time); sc->sc_sppp.pp_up(&sc->sc_sppp); /* notify upper layers */ break; case PPPOE_CODE_PADT: if (sc == NULL) goto done; /* stop timer (we might be about to transmit a PADT ourself) */ timeout_del(&sc->sc_timeout); PPPOEDEBUG(("%s: session 0x%x terminated, received PADT\n", sc->sc_sppp.pp_if.if_xname, session)); /* clean up softc */ sc->sc_state = PPPOE_STATE_INITIAL; memcpy(&sc->sc_dest, etherbroadcastaddr, sizeof(sc->sc_dest)); if (sc->sc_ac_cookie) { free(sc->sc_ac_cookie, M_DEVBUF); sc->sc_ac_cookie = NULL; } if (sc->sc_relay_sid) { free(sc->sc_relay_sid, M_DEVBUF); sc->sc_relay_sid = NULL; } sc->sc_ac_cookie_len = 0; sc->sc_relay_sid_len = 0; sc->sc_session = 0; sc->sc_session_time.tv_sec = 0; sc->sc_session_time.tv_usec = 0; sc->sc_sppp.pp_down(&sc->sc_sppp); /* signal upper layer */ break; default: printf("%s: unknown code (0x%04x) session = 0x%04x\n", sc ? sc->sc_sppp.pp_if.if_xname : "pppoe", code, session); break; } done: m_freem(m); } /* Input function for discovery packets. */ static void pppoe_disc_input(struct mbuf *m) { /* avoid error messages if there is not a single pppoe instance */ if (!LIST_EMPTY(&pppoe_softc_list)) { KASSERT(m->m_flags & M_PKTHDR); pppoe_dispatch_disc_pkt(m, 0); } else m_freem(m); } /* Input function for data packets */ static void pppoe_data_input(struct mbuf *m) { struct pppoe_softc *sc; struct pppoehdr *ph; u_int16_t session, plen; #ifdef PPPOE_TERM_UNKNOWN_SESSIONS u_int8_t shost[ETHER_ADDR_LEN]; #endif if (LIST_EMPTY(&pppoe_softc_list)) goto drop; KASSERT(m->m_flags & M_PKTHDR); #ifdef PPPOE_TERM_UNKNOWN_SESSIONS memcpy(shost, mtod(m, struct ether_header*)->ether_shost, ETHER_ADDR_LEN); #endif m_adj(m, sizeof(struct ether_header)); if (m->m_pkthdr.len <= PPPOE_HEADERLEN) { printf("pppoe (data): dropping too short packet: %d bytes\n", m->m_pkthdr.len); goto drop; } if (m->m_len < sizeof(*ph)) { m = m_pullup(m, sizeof(*ph)); if (m == NULL) { printf("pppoe (data): could not get PPPoE header\n"); return; } } ph = mtod(m, struct pppoehdr *); if (ph->vertype != PPPOE_VERTYPE) { printf("pppoe (data): unknown version/type packet: 0x%x\n", ph->vertype); goto drop; } if (ph->code != 0) goto drop; session = ntohs(ph->session); sc = pppoe_find_softc_by_session(session, m->m_pkthdr.rcvif); if (sc == NULL) { #ifdef PPPOE_TERM_UNKNOWN_SESSIONS printf("pppoe (data): input for unknown session 0x%x, sending PADT\n", session); pppoe_send_padt(m->m_pkthdr.rcvif, session, shost); #endif goto drop; } plen = ntohs(ph->plen); #if NBPFILTER > 0 if(sc->sc_sppp.pp_if.if_bpf) bpf_mtap(sc->sc_sppp.pp_if.if_bpf, m, BPF_DIRECTION_IN); #endif m_adj(m, PPPOE_HEADERLEN); #ifdef PPPOE_DEBUG { struct mbuf *p; printf("%s: pkthdr.len=%d, pppoe.len=%d", sc->sc_sppp.pp_if.if_xname, m->m_pkthdr.len, plen); p = m; while (p) { printf(" l=%d", p->m_len); p = p->m_next; } printf("\n"); } #endif if (m->m_pkthdr.len < plen) goto drop; /* fix incoming interface pointer (not the raw ethernet interface anymore) */ m->m_pkthdr.rcvif = &sc->sc_sppp.pp_if; /* pass packet up and account for it */ sc->sc_sppp.pp_if.if_ipackets++; sppp_input(&sc->sc_sppp.pp_if, m); return; drop: m_freem(m); } static int pppoe_output(struct pppoe_softc *sc, struct mbuf *m) { struct sockaddr dst; struct ether_header *eh; u_int16_t etype; if (sc->sc_eth_if == NULL) { m_freem(m); return (EIO); } if ((sc->sc_eth_if->if_flags & (IFF_UP|IFF_RUNNING)) != (IFF_UP|IFF_RUNNING)) { m_freem(m); return (ENETDOWN); } memset(&dst, 0, sizeof dst); dst.sa_family = AF_UNSPEC; eh = (struct ether_header*)&dst.sa_data; etype = sc->sc_state == PPPOE_STATE_SESSION ? ETHERTYPE_PPPOE : ETHERTYPE_PPPOEDISC; eh->ether_type = htons(etype); memcpy(&eh->ether_dhost, &sc->sc_dest, sizeof sc->sc_dest); PPPOEDEBUG(("%s (%x) state=%d, session=0x%x output -> %s, len=%d\n", sc->sc_sppp.pp_if.if_xname, etype, sc->sc_state, sc->sc_session, ether_sprintf((unsigned char *)&sc->sc_dest), m->m_pkthdr.len)); m->m_flags &= ~(M_BCAST|M_MCAST); sc->sc_sppp.pp_if.if_opackets++; return (sc->sc_eth_if->if_output(sc->sc_eth_if, m, &dst, NULL)); } /* The ioctl routine. */ static int pppoe_ioctl(struct ifnet *ifp, unsigned long cmd, caddr_t data) { struct proc *p = curproc; /* XXX */ struct pppoe_softc *sc = (struct pppoe_softc *)ifp; int error = 0; switch (cmd) { case PPPOESETPARMS: { struct pppoediscparms *parms = (struct pppoediscparms *)data; int len; if ((error = suser(p, p->p_acflag)) != 0) return (error); if (parms->eth_ifname[0] != '\0') { struct ifnet *eth_if; eth_if = ifunit(parms->eth_ifname); if (eth_if == NULL || (eth_if->if_type != IFT_ETHER && eth_if->if_type != IFT_L2VLAN)) { sc->sc_eth_if = NULL; return (ENXIO); } if (sc->sc_sppp.pp_if.if_mtu > eth_if->if_mtu - PPPOE_OVERHEAD) { sc->sc_sppp.pp_if.if_mtu = eth_if->if_mtu - PPPOE_OVERHEAD; } sc->sc_eth_if = eth_if; } if (sc->sc_concentrator_name) free(sc->sc_concentrator_name, M_DEVBUF); sc->sc_concentrator_name = NULL; len = strlen(parms->ac_name); if (len > 0 && len < sizeof(parms->ac_name)) { char *p = malloc(len + 1, M_DEVBUF, M_WAITOK|M_CANFAIL); if (p == NULL) return (ENOMEM); strlcpy(p, parms->ac_name, len + 1); sc->sc_concentrator_name = p; } if (sc->sc_service_name) free(sc->sc_service_name, M_DEVBUF); sc->sc_service_name = NULL; len = strlen(parms->service_name); if (len > 0 && len < sizeof(parms->service_name)) { char *p = malloc(len + 1, M_DEVBUF, M_WAITOK|M_CANFAIL); if (p == NULL) return (ENOMEM); strlcpy(p, parms->service_name, len + 1); sc->sc_service_name = p; } return (0); } break; case PPPOEGETPARMS: { struct pppoediscparms *parms = (struct pppoediscparms *)data; if (sc->sc_eth_if) strlcpy(parms->eth_ifname, sc->sc_eth_if->if_xname, IFNAMSIZ); else parms->eth_ifname[0] = '\0'; if (sc->sc_concentrator_name) strlcpy(parms->ac_name, sc->sc_concentrator_name, sizeof(parms->ac_name)); else parms->ac_name[0] = '\0'; if (sc->sc_service_name) strlcpy(parms->service_name, sc->sc_service_name, sizeof(parms->service_name)); else parms->service_name[0] = '\0'; return (0); } break; case PPPOEGETSESSION: { struct pppoeconnectionstate *state = (struct pppoeconnectionstate *)data; state->state = sc->sc_state; state->session_id = sc->sc_session; state->padi_retry_no = sc->sc_padi_retried; state->padr_retry_no = sc->sc_padr_retried; state->session_time.tv_sec = sc->sc_session_time.tv_sec; state->session_time.tv_usec = sc->sc_session_time.tv_usec; return (0); } break; case SIOCSIFFLAGS: { struct ifreq *ifr = (struct ifreq *)data; /* * Prevent running re-establishment timers overriding * administrators choice. */ if ((ifr->ifr_flags & IFF_UP) == 0 && sc->sc_state >= PPPOE_STATE_PADI_SENT && sc->sc_state < PPPOE_STATE_SESSION) { timeout_del(&sc->sc_timeout); sc->sc_state = PPPOE_STATE_INITIAL; sc->sc_padi_retried = 0; sc->sc_padr_retried = 0; memcpy(&sc->sc_dest, etherbroadcastaddr, sizeof(sc->sc_dest)); } return (sppp_ioctl(ifp, cmd, data)); } case SIOCSIFMTU: { struct ifreq *ifr = (struct ifreq *)data; if (ifr->ifr_mtu > (sc->sc_eth_if == NULL ? PPPOE_MAXMTU : (sc->sc_eth_if->if_mtu - PPPOE_OVERHEAD))) return (EINVAL); return (sppp_ioctl(ifp, cmd, data)); } default: return (sppp_ioctl(ifp, cmd, data)); } return (0); } /* * Allocate a mbuf/cluster with space to store the given data length * of payload, leaving space for prepending an ethernet header * in front. */ static struct mbuf * pppoe_get_mbuf(size_t len) { struct mbuf *m; MGETHDR(m, M_DONTWAIT, MT_DATA); if (m == NULL) return (NULL); if (len + sizeof(struct ether_header) > MHLEN) { MCLGET(m, M_DONTWAIT); if ((m->m_flags & M_EXT) == 0) { m_free(m); return (NULL); } } m->m_data += sizeof(struct ether_header); m->m_len = len; m->m_pkthdr.len = len; m->m_pkthdr.rcvif = NULL; return (m); } /* Send PADI. */ static int pppoe_send_padi(struct pppoe_softc *sc) { struct mbuf *m0; int len, l1 = 0, l2 = 0; /* XXX: gcc */ u_int8_t *p; if (sc->sc_state > PPPOE_STATE_PADI_SENT) panic("pppoe_send_padi in state %d", sc->sc_state); /* calculate length of frame (excluding ethernet header + pppoe header) */ len = 2 + 2 + 2 + 2 + sizeof(sc->sc_unique); /* service name tag is required, host unique is sent too */ if (sc->sc_service_name != NULL) { l1 = strlen(sc->sc_service_name); len += l1; } if (sc->sc_concentrator_name != NULL) { l2 = strlen(sc->sc_concentrator_name); len += 2 + 2 + l2; } /* allocate a buffer */ m0 = pppoe_get_mbuf(len + PPPOE_HEADERLEN); /* header len + payload len */ if (m0 == NULL) return (ENOBUFS); /* fill in pkt */ p = mtod(m0, u_int8_t *); PPPOE_ADD_HEADER(p, PPPOE_CODE_PADI, 0, len); PPPOE_ADD_16(p, PPPOE_TAG_SNAME); if (sc->sc_service_name != NULL) { PPPOE_ADD_16(p, l1); memcpy(p, sc->sc_service_name, l1); p += l1; } else { PPPOE_ADD_16(p, 0); } if (sc->sc_concentrator_name != NULL) { PPPOE_ADD_16(p, PPPOE_TAG_ACNAME); PPPOE_ADD_16(p, l2); memcpy(p, sc->sc_concentrator_name, l2); p += l2; } PPPOE_ADD_16(p, PPPOE_TAG_HUNIQUE); PPPOE_ADD_16(p, sizeof(sc->sc_unique)); memcpy(p, &sc->sc_unique, sizeof(sc->sc_unique)); #ifdef PPPOE_DEBUG p += sizeof(sc->sc_unique); if (p - mtod(m0, u_int8_t *) != len + PPPOE_HEADERLEN) panic("pppoe_send_padi: garbled output len, should be %ld, is %ld", (long)(len + PPPOE_HEADERLEN), (long)(p - mtod(m0, u_int8_t *))); #endif /* send pkt */ return (pppoe_output(sc, m0)); } /* Watchdog function. */ static void pppoe_timeout(void *arg) { struct pppoe_softc *sc = (struct pppoe_softc *)arg; int x, retry_wait, err; PPPOEDEBUG(("%s: timeout\n", sc->sc_sppp.pp_if.if_xname)); switch (sc->sc_state) { case PPPOE_STATE_PADI_SENT: /* * We have two basic ways of retrying: * - Quick retry mode: try a few times in short sequence * - Slow retry mode: we already had a connection successfully * established and will try infinitely (without user * intervention) * We only enter slow retry mode if IFF_LINK1 (aka autodial) * is not set. */ /* initialize for quick retry mode */ retry_wait = PPPOE_DISC_TIMEOUT * (1 + sc->sc_padi_retried); x = splnet(); sc->sc_padi_retried++; if (sc->sc_padi_retried >= PPPOE_DISC_MAXPADI) { if ((sc->sc_sppp.pp_if.if_flags & IFF_LINK1) == 0) { /* slow retry mode */ retry_wait = PPPOE_SLOW_RETRY; } else { pppoe_abort_connect(sc); splx(x); return; } } if ((err = pppoe_send_padi(sc)) != 0) { sc->sc_padi_retried--; PPPOEDEBUG(("%s: failed to transmit PADI, error=%d\n", sc->sc_sppp.pp_if.if_xname, err)); } timeout_add(&sc->sc_timeout, retry_wait); splx(x); break; case PPPOE_STATE_PADR_SENT: x = splnet(); sc->sc_padr_retried++; if (sc->sc_padr_retried >= PPPOE_DISC_MAXPADR) { memcpy(&sc->sc_dest, etherbroadcastaddr, sizeof(sc->sc_dest)); sc->sc_state = PPPOE_STATE_PADI_SENT; sc->sc_padr_retried = 0; if ((err = pppoe_send_padi(sc)) != 0) { PPPOEDEBUG(("%s: failed to send PADI, error=%d\n", sc->sc_sppp.pp_if.if_xname, err)); } timeout_add(&sc->sc_timeout, PPPOE_DISC_TIMEOUT * (1 + sc->sc_padi_retried)); splx(x); return; } if ((err = pppoe_send_padr(sc)) != 0) { sc->sc_padr_retried--; PPPOEDEBUG(("%s: failed to send PADR, error=%d\n", sc->sc_sppp.pp_if.if_xname, err)); } timeout_add(&sc->sc_timeout, PPPOE_DISC_TIMEOUT * (1 + sc->sc_padr_retried)); splx(x); break; case PPPOE_STATE_CLOSING: pppoe_disconnect(sc); break; default: return; /* all done, work in peace */ } } /* Start a connection (i.e. initiate discovery phase). */ static int pppoe_connect(struct pppoe_softc *sc) { int x, err; if (sc->sc_state != PPPOE_STATE_INITIAL) return (EBUSY); #ifdef PPPOE_SERVER /* wait for PADI if IFF_PASSIVE */ if ((sc->sc_sppp.pp_if.if_flags & IFF_PASSIVE)) return (0); #endif x = splnet(); /* save state, in case we fail to send PADI */ sc->sc_state = PPPOE_STATE_PADI_SENT; sc->sc_padr_retried = 0; err = pppoe_send_padi(sc); if (err != 0) PPPOEDEBUG(("%s: failed to send PADI, error=%d\n", sc->sc_sppp.pp_if.if_xname, err)); timeout_add(&sc->sc_timeout, PPPOE_DISC_TIMEOUT); splx(x); return (err); } /* disconnect */ static int pppoe_disconnect(struct pppoe_softc *sc) { int err, x; x = splnet(); if (sc->sc_state < PPPOE_STATE_SESSION) err = EBUSY; else { PPPOEDEBUG(("%s: disconnecting\n", sc->sc_sppp.pp_if.if_xname)); err = pppoe_send_padt(sc->sc_eth_if, sc->sc_session, (const u_int8_t *)&sc->sc_dest); } /* cleanup softc */ sc->sc_state = PPPOE_STATE_INITIAL; memcpy(&sc->sc_dest, etherbroadcastaddr, sizeof(sc->sc_dest)); if (sc->sc_ac_cookie) { free(sc->sc_ac_cookie, M_DEVBUF); sc->sc_ac_cookie = NULL; } sc->sc_ac_cookie_len = 0; if (sc->sc_relay_sid) { free(sc->sc_relay_sid, M_DEVBUF); sc->sc_relay_sid = NULL; } sc->sc_relay_sid_len = 0; #ifdef PPPOE_SERVER if (sc->sc_hunique) { free(sc->sc_hunique, M_DEVBUF); sc->sc_hunique = NULL; } sc->sc_hunique_len = 0; #endif sc->sc_session = 0; /* notify upper layer */ sc->sc_sppp.pp_down(&sc->sc_sppp); splx(x); return (err); } /* Connection attempt aborted. */ static void pppoe_abort_connect(struct pppoe_softc *sc) { printf("%s: could not establish connection\n", sc->sc_sppp.pp_if.if_xname); sc->sc_state = PPPOE_STATE_CLOSING; /* notify upper layer */ sc->sc_sppp.pp_down(&sc->sc_sppp); /* clear connection state */ memcpy(&sc->sc_dest, etherbroadcastaddr, sizeof(sc->sc_dest)); sc->sc_state = PPPOE_STATE_INITIAL; } /* Send a PADR packet */ static int pppoe_send_padr(struct pppoe_softc *sc) { struct mbuf *m0; u_int8_t *p; size_t len, l1 = 0; /* XXX: gcc */ if (sc->sc_state != PPPOE_STATE_PADR_SENT) return (EIO); len = 2 + 2 + 2 + 2 + sizeof(sc->sc_unique); /* service name, host unique */ if (sc->sc_service_name != NULL) { /* service name tag maybe empty */ l1 = strlen(sc->sc_service_name); len += l1; } if (sc->sc_ac_cookie_len > 0) len += 2 + 2 + sc->sc_ac_cookie_len; /* AC cookie */ if (sc->sc_relay_sid_len > 0) len += 2 + 2 + sc->sc_relay_sid_len; /* Relay SID */ m0 = pppoe_get_mbuf(len + PPPOE_HEADERLEN); if (m0 == NULL) return (ENOBUFS); p = mtod(m0, u_int8_t *); PPPOE_ADD_HEADER(p, PPPOE_CODE_PADR, 0, len); PPPOE_ADD_16(p, PPPOE_TAG_SNAME); if (sc->sc_service_name != NULL) { PPPOE_ADD_16(p, l1); memcpy(p, sc->sc_service_name, l1); p += l1; } else { PPPOE_ADD_16(p, 0); } if (sc->sc_ac_cookie_len > 0) { PPPOE_ADD_16(p, PPPOE_TAG_ACCOOKIE); PPPOE_ADD_16(p, sc->sc_ac_cookie_len); memcpy(p, sc->sc_ac_cookie, sc->sc_ac_cookie_len); p += sc->sc_ac_cookie_len; } if (sc->sc_relay_sid_len > 0) { PPPOE_ADD_16(p, PPPOE_TAG_RELAYSID); PPPOE_ADD_16(p, sc->sc_relay_sid_len); memcpy(p, sc->sc_relay_sid, sc->sc_relay_sid_len); p += sc->sc_relay_sid_len; } PPPOE_ADD_16(p, PPPOE_TAG_HUNIQUE); PPPOE_ADD_16(p, sizeof(sc->sc_unique)); memcpy(p, &sc->sc_unique, sizeof(sc->sc_unique)); #ifdef PPPOE_DEBUG p += sizeof(sc->sc_unique); if (p - mtod(m0, u_int8_t *) != len + PPPOE_HEADERLEN) panic("pppoe_send_padr: garbled output len, should be %ld, is %ld", (long)(len + PPPOE_HEADERLEN), (long)(p - mtod(m0, u_int8_t *))); #endif return (pppoe_output(sc, m0)); } /* Send a PADT packet. */ static int pppoe_send_padt(struct ifnet *outgoing_if, u_int session, const u_int8_t *dest) { struct ether_header *eh; struct sockaddr dst; struct mbuf *m0; u_int8_t *p; m0 = pppoe_get_mbuf(PPPOE_HEADERLEN); if (m0 == NULL) return (ENOBUFS); p = mtod(m0, u_int8_t *); PPPOE_ADD_HEADER(p, PPPOE_CODE_PADT, session, 0); memset(&dst, 0, sizeof(dst)); dst.sa_family = AF_UNSPEC; eh = (struct ether_header *)&dst.sa_data; eh->ether_type = htons(ETHERTYPE_PPPOEDISC); memcpy(&eh->ether_dhost, dest, ETHER_ADDR_LEN); m0->m_flags &= ~(M_BCAST|M_MCAST); return (outgoing_if->if_output(outgoing_if, m0, &dst, NULL)); } #ifdef PPPOE_SERVER /* Send a PADO packet. */ static int pppoe_send_pado(struct pppoe_softc *sc) { struct mbuf *m0; size_t len; u_int8_t *p; if (sc->sc_state != PPPOE_STATE_PADO_SENT) return (EIO); /* calc length */ len = 0; /* include ac_cookie */ len += 2 + 2 + sizeof(sc->sc_unique); /* include hunique */ len += 2 + 2 + sc->sc_hunique_len; m0 = pppoe_get_mbuf(len + PPPOE_HEADERLEN); if (m0 == NULL) return (ENOBUFS); p = mtod(m0, u_int8_t *); PPPOE_ADD_HEADER(p, PPPOE_CODE_PADO, 0, len); PPPOE_ADD_16(p, PPPOE_TAG_ACCOOKIE); PPPOE_ADD_16(p, sizeof(sc->sc_unique)); memcpy(p, &sc, sizeof(sc->sc_unique)); p += sizeof(sc->sc_unique); PPPOE_ADD_16(p, PPPOE_TAG_HUNIQUE); PPPOE_ADD_16(p, sc->sc_hunique_len); memcpy(p, sc->sc_hunique, sc->sc_hunique_len); return (pppoe_output(sc, m0)); } /* Send a PADS packet. */ static int pppoe_send_pads(struct pppoe_softc *sc) { struct mbuf *m0; size_t len, l1; u_int8_t *p; if (sc->sc_state != PPPOE_STATE_PADO_SENT) return (EIO); sc->sc_session = mono_time.tv_sec % 0xff + 1; /* calc length */ len = 0; /* include hunique */ len += 2 + 2 + 2 + 2 + sc->sc_hunique_len; /* service name, host unique */ if (sc->sc_service_name != NULL) { /* service name tag maybe empty */ l1 = strlen(sc->sc_service_name); len += l1; } m0 = pppoe_get_mbuf(len + PPPOE_HEADERLEN); if (m0 == NULL) return (ENOBUFS); p = mtod(m0, u_int8_t *); PPPOE_ADD_HEADER(p, PPPOE_CODE_PADS, sc->sc_session, len); PPPOE_ADD_16(p, PPPOE_TAG_SNAME); if (sc->sc_service_name != NULL) { PPPOE_ADD_16(p, l1); memcpy(p, sc->sc_service_name, l1); p += l1; } else { PPPOE_ADD_16(p, 0); } PPPOE_ADD_16(p, PPPOE_TAG_HUNIQUE); PPPOE_ADD_16(p, sc->sc_hunique_len); memcpy(p, sc->sc_hunique, sc->sc_hunique_len); return (pppoe_output(sc, m0)); } #endif /* this-layer-start function */ static void pppoe_tls(struct sppp *sp) { struct pppoe_softc *sc = (void *)sp; if (sc->sc_state != PPPOE_STATE_INITIAL) return; pppoe_connect(sc); } /* this-layer-finish function */ static void pppoe_tlf(struct sppp *sp) { struct pppoe_softc *sc = (void *)sp; if (sc->sc_state < PPPOE_STATE_SESSION) return; /* * Do not call pppoe_disconnect here, the upper layer state * machine gets confused by this. We must return from this * function and defer disconnecting to the timeout handler. */ sc->sc_state = PPPOE_STATE_CLOSING; timeout_add(&sc->sc_timeout, hz / 50); } static void pppoe_start(struct ifnet *ifp) { struct pppoe_softc *sc = (void *)ifp; struct mbuf *m; size_t len; u_int8_t *p; if (sppp_isempty(ifp)) return; /* are we ready to process data yet? */ if (sc->sc_state < PPPOE_STATE_SESSION) { sppp_flush(&sc->sc_sppp.pp_if); return; } while ((m = sppp_dequeue(ifp)) != NULL) { len = m->m_pkthdr.len; M_PREPEND(m, PPPOE_HEADERLEN, M_DONTWAIT); if (m == NULL) { ifp->if_oerrors++; continue; } p = mtod(m, u_int8_t *); PPPOE_ADD_HEADER(p, 0, sc->sc_session, len); #if NBPFILTER > 0 if(sc->sc_sppp.pp_if.if_bpf) bpf_mtap(sc->sc_sppp.pp_if.if_bpf, m, BPF_DIRECTION_OUT); #endif pppoe_output(sc, m); } }