1 /*****************************************************************************
2 * ppp.c - Network Point to Point Protocol program file.
3 *
4 * Copyright (c) 2003 by Marc Boucher, Services Informatiques (MBSI) inc.
5 * portions Copyright (c) 1997 by Global Election Systems Inc.
6 *
7 * The authors hereby grant permission to use, copy, modify, distribute,
8 * and license this software and its documentation for any purpose, provided
9 * that existing copyright notices are retained in all copies and that this
10 * notice and the following disclaimer are included verbatim in any
11 * distributions. No written agreement, license, or royalty fee is required
12 * for any of the authorized uses.
13 *
14 * THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTORS *AS IS* AND ANY EXPRESS OR
15 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
16 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
17 * IN NO EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
18 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
19 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
20 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
21 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
22 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
23 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
24 *
25 ******************************************************************************
26 * REVISION HISTORY
27 *
28 * 03-01-01 Marc Boucher <marc@mbsi.ca>
29 * Ported to lwIP.
30 * 97-11-05 Guy Lancaster <lancasterg@acm.org>, Global Election Systems Inc.
31 * Original.
32 *****************************************************************************/
33
34 /*
35 * ppp_defs.h - PPP definitions.
36 *
37 * if_pppvar.h - private structures and declarations for PPP.
38 *
39 * Copyright (c) 1994 The Australian National University.
40 * All rights reserved.
41 *
42 * Permission to use, copy, modify, and distribute this software and its
43 * documentation is hereby granted, provided that the above copyright
44 * notice appears in all copies. This software is provided without any
45 * warranty, express or implied. The Australian National University
46 * makes no representations about the suitability of this software for
47 * any purpose.
48 *
49 * IN NO EVENT SHALL THE AUSTRALIAN NATIONAL UNIVERSITY BE LIABLE TO ANY
50 * PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
51 * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF
52 * THE AUSTRALIAN NATIONAL UNIVERSITY HAVE BEEN ADVISED OF THE POSSIBILITY
53 * OF SUCH DAMAGE.
54 *
55 * THE AUSTRALIAN NATIONAL UNIVERSITY SPECIFICALLY DISCLAIMS ANY WARRANTIES,
56 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
57 * AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS
58 * ON AN "AS IS" BASIS, AND THE AUSTRALIAN NATIONAL UNIVERSITY HAS NO
59 * OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS,
60 * OR MODIFICATIONS.
61 */
62
63 /*
64 * if_ppp.h - Point-to-Point Protocol definitions.
65 *
66 * Copyright (c) 1989 Carnegie Mellon University.
67 * All rights reserved.
68 *
69 * Redistribution and use in source and binary forms are permitted
70 * provided that the above copyright notice and this paragraph are
71 * duplicated in all such forms and that any documentation,
72 * advertising materials, and other materials related to such
73 * distribution and use acknowledge that the software was developed
74 * by Carnegie Mellon University. The name of the
75 * University may not be used to endorse or promote products derived
76 * from this software without specific prior written permission.
77 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
78 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
79 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
80 */
81
82 /**
83 * @defgroup ppp PPP netif
84 * @ingroup addons
85 * @verbinclude "ppp.txt"
86 */
87
88 #include "netif/ppp/ppp_opts.h"
89 #if PPP_SUPPORT /* don't build if not configured for use in lwipopts.h */
90
91 #include "lwip/pbuf.h"
92 #include "lwip/stats.h"
93 #include "lwip/sys.h"
94 #include "lwip/tcpip.h"
95 #include "lwip/api.h"
96 #include "lwip/snmp.h"
97 #include "lwip/ip4.h" /* for ip4_input() */
98 #if PPP_IPV6_SUPPORT
99 #include "lwip/ip6.h" /* for ip6_input() */
100 #endif /* PPP_IPV6_SUPPORT */
101 #include "lwip/dns.h"
102
103 #include "netif/ppp/ppp_impl.h"
104 #include "netif/ppp/pppos.h"
105
106 #include "netif/ppp/fsm.h"
107 #include "netif/ppp/lcp.h"
108 #include "netif/ppp/magic.h"
109
110 #if PAP_SUPPORT
111 #include "netif/ppp/upap.h"
112 #endif /* PAP_SUPPORT */
113 #if CHAP_SUPPORT
114 #include "netif/ppp/chap-new.h"
115 #endif /* CHAP_SUPPORT */
116 #if EAP_SUPPORT
117 #include "netif/ppp/eap.h"
118 #endif /* EAP_SUPPORT */
119 #if CCP_SUPPORT
120 #include "netif/ppp/ccp.h"
121 #endif /* CCP_SUPPORT */
122 #if MPPE_SUPPORT
123 #include "netif/ppp/mppe.h"
124 #endif /* MPPE_SUPPORT */
125 #if ECP_SUPPORT
126 #include "netif/ppp/ecp.h"
127 #endif /* EAP_SUPPORT */
128 #if VJ_SUPPORT
129 #include "netif/ppp/vj.h"
130 #endif /* VJ_SUPPORT */
131 #if PPP_IPV4_SUPPORT
132 #include "netif/ppp/ipcp.h"
133 #endif /* PPP_IPV4_SUPPORT */
134 #if PPP_IPV6_SUPPORT
135 #include "netif/ppp/ipv6cp.h"
136 #endif /* PPP_IPV6_SUPPORT */
137
138 /*************************/
139 /*** LOCAL DEFINITIONS ***/
140 /*************************/
141
142 /* Memory pools */
143 #if PPPOS_SUPPORT
144 LWIP_MEMPOOL_PROTOTYPE(PPPOS_PCB);
145 #endif
146 #if PPPOE_SUPPORT
147 LWIP_MEMPOOL_PROTOTYPE(PPPOE_IF);
148 #endif
149 #if PPPOL2TP_SUPPORT
150 LWIP_MEMPOOL_PROTOTYPE(PPPOL2TP_PCB);
151 #endif
152 #if LWIP_PPP_API && LWIP_MPU_COMPATIBLE
153 LWIP_MEMPOOL_PROTOTYPE(PPPAPI_MSG);
154 #endif
155 LWIP_MEMPOOL_DECLARE(PPP_PCB, MEMP_NUM_PPP_PCB, sizeof(ppp_pcb), "PPP_PCB")
156
157 /* FIXME: add stats per PPP session */
158 #if PPP_STATS_SUPPORT
159 static struct timeval start_time; /* Time when link was started. */
160 static struct pppd_stats old_link_stats;
161 struct pppd_stats link_stats;
162 unsigned link_connect_time;
163 int link_stats_valid;
164 #endif /* PPP_STATS_SUPPORT */
165
166 /*
167 * PPP Data Link Layer "protocol" table.
168 * One entry per supported protocol.
169 * The last entry must be NULL.
170 */
171 const struct protent* const protocols[] = {
172 &lcp_protent,
173 #if PAP_SUPPORT
174 &pap_protent,
175 #endif /* PAP_SUPPORT */
176 #if CHAP_SUPPORT
177 &chap_protent,
178 #endif /* CHAP_SUPPORT */
179 #if CBCP_SUPPORT
180 &cbcp_protent,
181 #endif /* CBCP_SUPPORT */
182 #if PPP_IPV4_SUPPORT
183 &ipcp_protent,
184 #endif /* PPP_IPV4_SUPPORT */
185 #if PPP_IPV6_SUPPORT
186 &ipv6cp_protent,
187 #endif /* PPP_IPV6_SUPPORT */
188 #if CCP_SUPPORT
189 &ccp_protent,
190 #endif /* CCP_SUPPORT */
191 #if ECP_SUPPORT
192 &ecp_protent,
193 #endif /* ECP_SUPPORT */
194 #ifdef AT_CHANGE
195 &atcp_protent,
196 #endif /* AT_CHANGE */
197 #if EAP_SUPPORT
198 &eap_protent,
199 #endif /* EAP_SUPPORT */
200 NULL
201 };
202
203 /* Prototypes for procedures local to this file. */
204 static void ppp_do_connect(void *arg);
205 static err_t ppp_netif_init_cb(struct netif *netif);
206 #if LWIP_IPV4
207 static err_t ppp_netif_output_ip4(struct netif *netif, struct pbuf *pb, const ip4_addr_t *ipaddr);
208 #endif /* LWIP_IPV4 */
209 #if PPP_IPV6_SUPPORT
210 static err_t ppp_netif_output_ip6(struct netif *netif, struct pbuf *pb, const ip6_addr_t *ipaddr);
211 #endif /* PPP_IPV6_SUPPORT */
212 static err_t ppp_netif_output(struct netif *netif, struct pbuf *pb, u16_t protocol);
213
214 /***********************************/
215 /*** PUBLIC FUNCTION DEFINITIONS ***/
216 /***********************************/
217 #if PPP_AUTH_SUPPORT
ppp_set_auth(ppp_pcb * pcb,u8_t authtype,const char * user,const char * passwd)218 void ppp_set_auth(ppp_pcb *pcb, u8_t authtype, const char *user, const char *passwd) {
219 #if PAP_SUPPORT
220 pcb->settings.refuse_pap = !(authtype & PPPAUTHTYPE_PAP);
221 #endif /* PAP_SUPPORT */
222 #if CHAP_SUPPORT
223 pcb->settings.refuse_chap = !(authtype & PPPAUTHTYPE_CHAP);
224 #if MSCHAP_SUPPORT
225 pcb->settings.refuse_mschap = !(authtype & PPPAUTHTYPE_MSCHAP);
226 pcb->settings.refuse_mschap_v2 = !(authtype & PPPAUTHTYPE_MSCHAP_V2);
227 #endif /* MSCHAP_SUPPORT */
228 #endif /* CHAP_SUPPORT */
229 #if EAP_SUPPORT
230 pcb->settings.refuse_eap = !(authtype & PPPAUTHTYPE_EAP);
231 #endif /* EAP_SUPPORT */
232 pcb->settings.user = user;
233 pcb->settings.passwd = passwd;
234 }
235 #endif /* PPP_AUTH_SUPPORT */
236
237 #if MPPE_SUPPORT
238 /* Set MPPE configuration */
ppp_set_mppe(ppp_pcb * pcb,u8_t flags)239 void ppp_set_mppe(ppp_pcb *pcb, u8_t flags) {
240 if (flags == PPP_MPPE_DISABLE) {
241 pcb->settings.require_mppe = 0;
242 return;
243 }
244
245 pcb->settings.require_mppe = 1;
246 pcb->settings.refuse_mppe_stateful = !(flags & PPP_MPPE_ALLOW_STATEFUL);
247 pcb->settings.refuse_mppe_40 = !!(flags & PPP_MPPE_REFUSE_40);
248 pcb->settings.refuse_mppe_128 = !!(flags & PPP_MPPE_REFUSE_128);
249 }
250 #endif /* MPPE_SUPPORT */
251
252 #if PPP_NOTIFY_PHASE
ppp_set_notify_phase_callback(ppp_pcb * pcb,ppp_notify_phase_cb_fn notify_phase_cb)253 void ppp_set_notify_phase_callback(ppp_pcb *pcb, ppp_notify_phase_cb_fn notify_phase_cb) {
254 pcb->notify_phase_cb = notify_phase_cb;
255 notify_phase_cb(pcb, pcb->phase, pcb->ctx_cb);
256 }
257 #endif /* PPP_NOTIFY_PHASE */
258
259 /*
260 * Initiate a PPP connection.
261 *
262 * This can only be called if PPP is in the dead phase.
263 *
264 * Holdoff is the time to wait (in seconds) before initiating
265 * the connection.
266 *
267 * If this port connects to a modem, the modem connection must be
268 * established before calling this.
269 */
ppp_connect(ppp_pcb * pcb,u16_t holdoff)270 err_t ppp_connect(ppp_pcb *pcb, u16_t holdoff) {
271 if (pcb->phase != PPP_PHASE_DEAD) {
272 return ERR_ALREADY;
273 }
274
275 PPPDEBUG(LOG_DEBUG, ("ppp_connect[%d]: holdoff=%d\n", pcb->netif->num, holdoff));
276
277 if (holdoff == 0) {
278 new_phase(pcb, PPP_PHASE_INITIALIZE);
279 return pcb->link_cb->connect(pcb, pcb->link_ctx_cb);
280 }
281
282 new_phase(pcb, PPP_PHASE_HOLDOFF);
283 sys_timeout((u32_t)(holdoff*1000), ppp_do_connect, pcb);
284 return ERR_OK;
285 }
286
287 #if PPP_SERVER
288 /*
289 * Listen for an incoming PPP connection.
290 *
291 * This can only be called if PPP is in the dead phase.
292 *
293 * If this port connects to a modem, the modem connection must be
294 * established before calling this.
295 */
ppp_listen(ppp_pcb * pcb)296 err_t ppp_listen(ppp_pcb *pcb) {
297 if (pcb->phase != PPP_PHASE_DEAD) {
298 return ERR_ALREADY;
299 }
300
301 PPPDEBUG(LOG_DEBUG, ("ppp_listen[%d]\n", pcb->netif->num));
302
303 if (pcb->link_cb->listen) {
304 new_phase(pcb, PPP_PHASE_INITIALIZE);
305 return pcb->link_cb->listen(pcb, pcb->link_ctx_cb);
306 }
307 return ERR_IF;
308 }
309 #endif /* PPP_SERVER */
310
311 /*
312 * Initiate the end of a PPP connection.
313 * Any outstanding packets in the queues are dropped.
314 *
315 * Setting nocarrier to 1 close the PPP connection without initiating the
316 * shutdown procedure. Always using nocarrier = 0 is still recommended,
317 * this is going to take a little longer time if your link is down, but
318 * is a safer choice for the PPP state machine.
319 *
320 * Return 0 on success, an error code on failure.
321 */
322 err_t
ppp_close(ppp_pcb * pcb,u8_t nocarrier)323 ppp_close(ppp_pcb *pcb, u8_t nocarrier)
324 {
325 pcb->err_code = PPPERR_USER;
326
327 /* holdoff phase, cancel the reconnection */
328 if (pcb->phase == PPP_PHASE_HOLDOFF) {
329 sys_untimeout(ppp_do_connect, pcb);
330 new_phase(pcb, PPP_PHASE_DEAD);
331 }
332
333 /* dead phase, nothing to do, call the status callback to be consistent */
334 if (pcb->phase == PPP_PHASE_DEAD) {
335 pcb->link_status_cb(pcb, pcb->err_code, pcb->ctx_cb);
336 return ERR_OK;
337 }
338
339 /* Already terminating, nothing to do */
340 if (pcb->phase >= PPP_PHASE_TERMINATE) {
341 return ERR_INPROGRESS;
342 }
343
344 /* LCP not open, close link protocol */
345 if (pcb->phase < PPP_PHASE_ESTABLISH) {
346 new_phase(pcb, PPP_PHASE_DISCONNECT);
347 ppp_link_terminated(pcb);
348 return ERR_OK;
349 }
350
351 /*
352 * Only accept carrier lost signal on the stable running phase in order
353 * to prevent changing the PPP phase FSM in transition phases.
354 *
355 * Always using nocarrier = 0 is still recommended, this is going to
356 * take a little longer time, but is a safer choice from FSM point of view.
357 */
358 if (nocarrier && pcb->phase == PPP_PHASE_RUNNING) {
359 PPPDEBUG(LOG_DEBUG, ("ppp_close[%d]: carrier lost -> lcp_lowerdown\n", pcb->netif->num));
360 lcp_lowerdown(pcb);
361 /* forced link termination, this will force link protocol to disconnect. */
362 link_terminated(pcb);
363 return ERR_OK;
364 }
365
366 /* Disconnect */
367 PPPDEBUG(LOG_DEBUG, ("ppp_close[%d]: kill_link -> lcp_close\n", pcb->netif->num));
368 /* LCP soft close request. */
369 lcp_close(pcb, "User request");
370 return ERR_OK;
371 }
372
373 /*
374 * Release the control block.
375 *
376 * This can only be called if PPP is in the dead phase.
377 *
378 * You must use ppp_close() before if you wish to terminate
379 * an established PPP session.
380 *
381 * Return 0 on success, an error code on failure.
382 */
ppp_free(ppp_pcb * pcb)383 err_t ppp_free(ppp_pcb *pcb) {
384 err_t err;
385 if (pcb->phase != PPP_PHASE_DEAD) {
386 return ERR_CONN;
387 }
388
389 PPPDEBUG(LOG_DEBUG, ("ppp_free[%d]\n", pcb->netif->num));
390
391 netif_remove(pcb->netif);
392
393 err = pcb->link_cb->free(pcb, pcb->link_ctx_cb);
394
395 LWIP_MEMPOOL_FREE(PPP_PCB, pcb);
396 return err;
397 }
398
399 /* Get and set parameters for the given connection.
400 * Return 0 on success, an error code on failure. */
401 err_t
ppp_ioctl(ppp_pcb * pcb,u8_t cmd,void * arg)402 ppp_ioctl(ppp_pcb *pcb, u8_t cmd, void *arg)
403 {
404 if (pcb == NULL) {
405 return ERR_VAL;
406 }
407
408 switch(cmd) {
409 case PPPCTLG_UPSTATUS: /* Get the PPP up status. */
410 if (!arg) {
411 goto fail;
412 }
413 *(int *)arg = (int)(0
414 #if PPP_IPV4_SUPPORT
415 || pcb->if4_up
416 #endif /* PPP_IPV4_SUPPORT */
417 #if PPP_IPV6_SUPPORT
418 || pcb->if6_up
419 #endif /* PPP_IPV6_SUPPORT */
420 );
421 return ERR_OK;
422
423 case PPPCTLG_ERRCODE: /* Get the PPP error code. */
424 if (!arg) {
425 goto fail;
426 }
427 *(int *)arg = (int)(pcb->err_code);
428 return ERR_OK;
429
430 default:
431 goto fail;
432 }
433
434 fail:
435 return ERR_VAL;
436 }
437
438
439 /**********************************/
440 /*** LOCAL FUNCTION DEFINITIONS ***/
441 /**********************************/
442
ppp_do_connect(void * arg)443 static void ppp_do_connect(void *arg) {
444 ppp_pcb *pcb = (ppp_pcb*)arg;
445
446 LWIP_ASSERT("pcb->phase == PPP_PHASE_DEAD || pcb->phase == PPP_PHASE_HOLDOFF", pcb->phase == PPP_PHASE_DEAD || pcb->phase == PPP_PHASE_HOLDOFF);
447
448 new_phase(pcb, PPP_PHASE_INITIALIZE);
449 pcb->link_cb->connect(pcb, pcb->link_ctx_cb);
450 }
451
452 /*
453 * ppp_netif_init_cb - netif init callback
454 */
ppp_netif_init_cb(struct netif * netif)455 static err_t ppp_netif_init_cb(struct netif *netif) {
456 netif->name[0] = 'p';
457 netif->name[1] = 'p';
458 #if LWIP_IPV4
459 /* FIXME: change that when netif_null_output_ip4() will materialize */
460 netif->output = ppp_netif_output_ip4;
461 #endif /* LWIP_IPV4 */
462 #if PPP_IPV6_SUPPORT
463 netif->output_ip6 = ppp_netif_output_ip6;
464 #endif /* PPP_IPV6_SUPPORT */
465 netif->flags = NETIF_FLAG_UP;
466 #if LWIP_NETIF_HOSTNAME
467 /* @todo: Initialize interface hostname */
468 /* netif_set_hostname(netif, "lwip"); */
469 #endif /* LWIP_NETIF_HOSTNAME */
470 return ERR_OK;
471 }
472
473 #if LWIP_IPV4
474 /*
475 * Send an IPv4 packet on the given connection.
476 */
ppp_netif_output_ip4(struct netif * netif,struct pbuf * pb,const ip4_addr_t * ipaddr)477 static err_t ppp_netif_output_ip4(struct netif *netif, struct pbuf *pb, const ip4_addr_t *ipaddr) {
478 LWIP_UNUSED_ARG(ipaddr);
479 #if PPP_IPV4_SUPPORT
480 return ppp_netif_output(netif, pb, PPP_IP);
481 #else /* PPP_IPV4_SUPPORT */
482 LWIP_UNUSED_ARG(netif);
483 LWIP_UNUSED_ARG(pb);
484 return ERR_IF;
485 #endif /* PPP_IPV4_SUPPORT */
486 }
487 #endif /* LWIP_IPV4 */
488
489 #if PPP_IPV6_SUPPORT
490 /*
491 * Send an IPv6 packet on the given connection.
492 */
ppp_netif_output_ip6(struct netif * netif,struct pbuf * pb,const ip6_addr_t * ipaddr)493 static err_t ppp_netif_output_ip6(struct netif *netif, struct pbuf *pb, const ip6_addr_t *ipaddr) {
494 LWIP_UNUSED_ARG(ipaddr);
495 return ppp_netif_output(netif, pb, PPP_IPV6);
496 }
497 #endif /* PPP_IPV6_SUPPORT */
498
ppp_netif_output(struct netif * netif,struct pbuf * pb,u16_t protocol)499 static err_t ppp_netif_output(struct netif *netif, struct pbuf *pb, u16_t protocol) {
500 ppp_pcb *pcb = (ppp_pcb*)netif->state;
501 err_t err;
502 struct pbuf *fpb = NULL;
503
504 /* Check that the link is up. */
505 if (0
506 #if PPP_IPV4_SUPPORT
507 || (protocol == PPP_IP && !pcb->if4_up)
508 #endif /* PPP_IPV4_SUPPORT */
509 #if PPP_IPV6_SUPPORT
510 || (protocol == PPP_IPV6 && !pcb->if6_up)
511 #endif /* PPP_IPV6_SUPPORT */
512 ) {
513 PPPDEBUG(LOG_ERR, ("ppp_netif_output[%d]: link not up\n", pcb->netif->num));
514 goto err_rte_drop;
515 }
516
517 #if MPPE_SUPPORT
518 /* If MPPE is required, refuse any IP packet until we are able to crypt them. */
519 if (pcb->settings.require_mppe && pcb->ccp_transmit_method != CI_MPPE) {
520 PPPDEBUG(LOG_ERR, ("ppp_netif_output[%d]: MPPE required, not up\n", pcb->netif->num));
521 goto err_rte_drop;
522 }
523 #endif /* MPPE_SUPPORT */
524
525 #if VJ_SUPPORT
526 /*
527 * Attempt Van Jacobson header compression if VJ is configured and
528 * this is an IP packet.
529 */
530 if (protocol == PPP_IP && pcb->vj_enabled) {
531 switch (vj_compress_tcp(&pcb->vj_comp, &pb)) {
532 case TYPE_IP:
533 /* No change...
534 protocol = PPP_IP; */
535 break;
536 case TYPE_COMPRESSED_TCP:
537 /* vj_compress_tcp() returns a new allocated pbuf, indicate we should free
538 * our duplicated pbuf later */
539 fpb = pb;
540 protocol = PPP_VJC_COMP;
541 break;
542 case TYPE_UNCOMPRESSED_TCP:
543 /* vj_compress_tcp() returns a new allocated pbuf, indicate we should free
544 * our duplicated pbuf later */
545 fpb = pb;
546 protocol = PPP_VJC_UNCOMP;
547 break;
548 default:
549 PPPDEBUG(LOG_WARNING, ("ppp_netif_output[%d]: bad IP packet\n", pcb->netif->num));
550 LINK_STATS_INC(link.proterr);
551 LINK_STATS_INC(link.drop);
552 MIB2_STATS_NETIF_INC(pcb->netif, ifoutdiscards);
553 return ERR_VAL;
554 }
555 }
556 #endif /* VJ_SUPPORT */
557
558 #if CCP_SUPPORT
559 switch (pcb->ccp_transmit_method) {
560 case 0:
561 break; /* Don't compress */
562 #if MPPE_SUPPORT
563 case CI_MPPE:
564 if ((err = mppe_compress(pcb, &pcb->mppe_comp, &pb, protocol)) != ERR_OK) {
565 LINK_STATS_INC(link.memerr);
566 LINK_STATS_INC(link.drop);
567 MIB2_STATS_NETIF_INC(netif, ifoutdiscards);
568 goto err;
569 }
570 /* if VJ compressor returned a new allocated pbuf, free it */
571 if (fpb) {
572 pbuf_free(fpb);
573 }
574 /* mppe_compress() returns a new allocated pbuf, indicate we should free
575 * our duplicated pbuf later */
576 fpb = pb;
577 protocol = PPP_COMP;
578 break;
579 #endif /* MPPE_SUPPORT */
580 default:
581 PPPDEBUG(LOG_ERR, ("ppp_netif_output[%d]: bad CCP transmit method\n", pcb->netif->num));
582 goto err_rte_drop; /* Cannot really happen, we only negotiate what we are able to do */
583 }
584 #endif /* CCP_SUPPORT */
585
586 err = pcb->link_cb->netif_output(pcb, pcb->link_ctx_cb, pb, protocol);
587 goto err;
588
589 err_rte_drop:
590 err = ERR_RTE;
591 LINK_STATS_INC(link.rterr);
592 LINK_STATS_INC(link.drop);
593 MIB2_STATS_NETIF_INC(netif, ifoutdiscards);
594 err:
595 if (fpb) {
596 pbuf_free(fpb);
597 }
598 return err;
599 }
600
601 /************************************/
602 /*** PRIVATE FUNCTION DEFINITIONS ***/
603 /************************************/
604
605 /* Initialize the PPP subsystem. */
ppp_init(void)606 int ppp_init(void)
607 {
608 #if PPPOS_SUPPORT
609 LWIP_MEMPOOL_INIT(PPPOS_PCB);
610 #endif
611 #if PPPOE_SUPPORT
612 LWIP_MEMPOOL_INIT(PPPOE_IF);
613 #endif
614 #if PPPOL2TP_SUPPORT
615 LWIP_MEMPOOL_INIT(PPPOL2TP_PCB);
616 #endif
617 #if LWIP_PPP_API && LWIP_MPU_COMPATIBLE
618 LWIP_MEMPOOL_INIT(PPPAPI_MSG);
619 #endif
620
621 LWIP_MEMPOOL_INIT(PPP_PCB);
622
623 /*
624 * Initialize magic number generator now so that protocols may
625 * use magic numbers in initialization.
626 */
627 magic_init();
628
629 return 0;
630 }
631
632 /*
633 * Create a new PPP control block.
634 *
635 * This initializes the PPP control block but does not
636 * attempt to negotiate the LCP session.
637 *
638 * Return a new PPP connection control block pointer
639 * on success or a null pointer on failure.
640 */
ppp_new(struct netif * pppif,const struct link_callbacks * callbacks,void * link_ctx_cb,ppp_link_status_cb_fn link_status_cb,void * ctx_cb)641 ppp_pcb *ppp_new(struct netif *pppif, const struct link_callbacks *callbacks, void *link_ctx_cb, ppp_link_status_cb_fn link_status_cb, void *ctx_cb) {
642 ppp_pcb *pcb;
643 const struct protent *protp;
644 int i;
645
646 /* PPP is single-threaded: without a callback,
647 * there is no way to know when the link is up. */
648 if (link_status_cb == NULL) {
649 return NULL;
650 }
651
652 pcb = (ppp_pcb*)LWIP_MEMPOOL_ALLOC(PPP_PCB);
653 if (pcb == NULL) {
654 return NULL;
655 }
656
657 memset(pcb, 0, sizeof(ppp_pcb));
658
659 /* default configuration */
660 #if PAP_SUPPORT
661 pcb->settings.pap_timeout_time = UPAP_DEFTIMEOUT;
662 pcb->settings.pap_max_transmits = UPAP_DEFTRANSMITS;
663 #if PPP_SERVER
664 pcb->settings.pap_req_timeout = UPAP_DEFREQTIME;
665 #endif /* PPP_SERVER */
666 #endif /* PAP_SUPPORT */
667
668 #if CHAP_SUPPORT
669 pcb->settings.chap_timeout_time = CHAP_DEFTIMEOUT;
670 pcb->settings.chap_max_transmits = CHAP_DEFTRANSMITS;
671 #if PPP_SERVER
672 pcb->settings.chap_rechallenge_time = CHAP_DEFRECHALLENGETIME;
673 #endif /* PPP_SERVER */
674 #endif /* CHAP_SUPPPORT */
675
676 #if EAP_SUPPORT
677 pcb->settings.eap_req_time = EAP_DEFREQTIME;
678 pcb->settings.eap_allow_req = EAP_DEFALLOWREQ;
679 #if PPP_SERVER
680 pcb->settings.eap_timeout_time = EAP_DEFTIMEOUT;
681 pcb->settings.eap_max_transmits = EAP_DEFTRANSMITS;
682 #endif /* PPP_SERVER */
683 #endif /* EAP_SUPPORT */
684
685 pcb->settings.lcp_loopbackfail = LCP_DEFLOOPBACKFAIL;
686 pcb->settings.lcp_echo_interval = LCP_ECHOINTERVAL;
687 pcb->settings.lcp_echo_fails = LCP_MAXECHOFAILS;
688
689 pcb->settings.fsm_timeout_time = FSM_DEFTIMEOUT;
690 pcb->settings.fsm_max_conf_req_transmits = FSM_DEFMAXCONFREQS;
691 pcb->settings.fsm_max_term_transmits = FSM_DEFMAXTERMREQS;
692 pcb->settings.fsm_max_nak_loops = FSM_DEFMAXNAKLOOPS;
693
694 pcb->netif = pppif;
695 MIB2_INIT_NETIF(pppif, snmp_ifType_ppp, 0);
696 if (!netif_add(pcb->netif,
697 #if LWIP_IPV4
698 IP4_ADDR_ANY4, IP4_ADDR_BROADCAST, IP4_ADDR_ANY4,
699 #endif /* LWIP_IPV4 */
700 (void *)pcb, ppp_netif_init_cb, NULL)) {
701 LWIP_MEMPOOL_FREE(PPP_PCB, pcb);
702 PPPDEBUG(LOG_ERR, ("ppp_new: netif_add failed\n"));
703 return NULL;
704 }
705
706 pcb->link_cb = callbacks;
707 pcb->link_ctx_cb = link_ctx_cb;
708 pcb->link_status_cb = link_status_cb;
709 pcb->ctx_cb = ctx_cb;
710
711 /*
712 * Initialize each protocol.
713 */
714 for (i = 0; (protp = protocols[i]) != NULL; ++i) {
715 (*protp->init)(pcb);
716 }
717
718 new_phase(pcb, PPP_PHASE_DEAD);
719 return pcb;
720 }
721
722 /** Initiate LCP open request */
ppp_start(ppp_pcb * pcb)723 void ppp_start(ppp_pcb *pcb) {
724 PPPDEBUG(LOG_DEBUG, ("ppp_start[%d]\n", pcb->netif->num));
725
726 /* Clean data not taken care by anything else, mostly shared data. */
727 #if PPP_STATS_SUPPORT
728 link_stats_valid = 0;
729 #endif /* PPP_STATS_SUPPORT */
730 #if MPPE_SUPPORT
731 pcb->mppe_keys_set = 0;
732 memset(&pcb->mppe_comp, 0, sizeof(pcb->mppe_comp));
733 memset(&pcb->mppe_decomp, 0, sizeof(pcb->mppe_decomp));
734 #endif /* MPPE_SUPPORT */
735 #if VJ_SUPPORT
736 vj_compress_init(&pcb->vj_comp);
737 #endif /* VJ_SUPPORT */
738
739 /* Start protocol */
740 new_phase(pcb, PPP_PHASE_ESTABLISH);
741 lcp_open(pcb);
742 lcp_lowerup(pcb);
743 PPPDEBUG(LOG_DEBUG, ("ppp_start[%d]: finished\n", pcb->netif->num));
744 }
745
746 /** Called when link failed to setup */
ppp_link_failed(ppp_pcb * pcb)747 void ppp_link_failed(ppp_pcb *pcb) {
748 PPPDEBUG(LOG_DEBUG, ("ppp_link_failed[%d]\n", pcb->netif->num));
749 new_phase(pcb, PPP_PHASE_DEAD);
750 pcb->err_code = PPPERR_OPEN;
751 pcb->link_status_cb(pcb, pcb->err_code, pcb->ctx_cb);
752 }
753
754 /** Called when link is normally down (i.e. it was asked to end) */
ppp_link_end(ppp_pcb * pcb)755 void ppp_link_end(ppp_pcb *pcb) {
756 PPPDEBUG(LOG_DEBUG, ("ppp_link_end[%d]\n", pcb->netif->num));
757 new_phase(pcb, PPP_PHASE_DEAD);
758 if (pcb->err_code == PPPERR_NONE) {
759 pcb->err_code = PPPERR_CONNECT;
760 }
761 pcb->link_status_cb(pcb, pcb->err_code, pcb->ctx_cb);
762 }
763
764 /*
765 * Pass the processed input packet to the appropriate handler.
766 * This function and all handlers run in the context of the tcpip_thread
767 */
ppp_input(ppp_pcb * pcb,struct pbuf * pb)768 void ppp_input(ppp_pcb *pcb, struct pbuf *pb) {
769 u16_t protocol;
770 #if PPP_DEBUG && PPP_PROTOCOLNAME
771 const char *pname;
772 #endif /* PPP_DEBUG && PPP_PROTOCOLNAME */
773
774 magic_randomize();
775
776 if (pb->len < 2) {
777 PPPDEBUG(LOG_ERR, ("ppp_input[%d]: packet too short\n", pcb->netif->num));
778 goto drop;
779 }
780 protocol = (((u8_t *)pb->payload)[0] << 8) | ((u8_t*)pb->payload)[1];
781
782 #if PRINTPKT_SUPPORT
783 ppp_dump_packet(pcb, "rcvd", (unsigned char *)pb->payload, pb->len);
784 #endif /* PRINTPKT_SUPPORT */
785
786 pbuf_header(pb, -(s16_t)sizeof(protocol));
787
788 LINK_STATS_INC(link.recv);
789 MIB2_STATS_NETIF_INC(pcb->netif, ifinucastpkts);
790 MIB2_STATS_NETIF_ADD(pcb->netif, ifinoctets, pb->tot_len);
791
792 /*
793 * Toss all non-LCP packets unless LCP is OPEN.
794 */
795 if (protocol != PPP_LCP && pcb->lcp_fsm.state != PPP_FSM_OPENED) {
796 ppp_dbglog("Discarded non-LCP packet when LCP not open");
797 goto drop;
798 }
799
800 /*
801 * Until we get past the authentication phase, toss all packets
802 * except LCP, LQR and authentication packets.
803 */
804 if (pcb->phase <= PPP_PHASE_AUTHENTICATE
805 && !(protocol == PPP_LCP
806 #if LQR_SUPPORT
807 || protocol == PPP_LQR
808 #endif /* LQR_SUPPORT */
809 #if PAP_SUPPORT
810 || protocol == PPP_PAP
811 #endif /* PAP_SUPPORT */
812 #if CHAP_SUPPORT
813 || protocol == PPP_CHAP
814 #endif /* CHAP_SUPPORT */
815 #if EAP_SUPPORT
816 || protocol == PPP_EAP
817 #endif /* EAP_SUPPORT */
818 )) {
819 ppp_dbglog("discarding proto 0x%x in phase %d", protocol, pcb->phase);
820 goto drop;
821 }
822
823 #if CCP_SUPPORT
824 #if MPPE_SUPPORT
825 /*
826 * MPPE is required and unencrypted data has arrived (this
827 * should never happen!). We should probably drop the link if
828 * the protocol is in the range of what should be encrypted.
829 * At the least, we drop this packet.
830 */
831 if (pcb->settings.require_mppe && protocol != PPP_COMP && protocol < 0x8000) {
832 PPPDEBUG(LOG_ERR, ("ppp_input[%d]: MPPE required, received unencrypted data!\n", pcb->netif->num));
833 goto drop;
834 }
835 #endif /* MPPE_SUPPORT */
836
837 if (protocol == PPP_COMP) {
838 u8_t *pl;
839
840 switch (pcb->ccp_receive_method) {
841 #if MPPE_SUPPORT
842 case CI_MPPE:
843 if (mppe_decompress(pcb, &pcb->mppe_decomp, &pb) != ERR_OK) {
844 goto drop;
845 }
846 break;
847 #endif /* MPPE_SUPPORT */
848 default:
849 PPPDEBUG(LOG_ERR, ("ppp_input[%d]: bad CCP receive method\n", pcb->netif->num));
850 goto drop; /* Cannot really happen, we only negotiate what we are able to do */
851 }
852
853 /* Assume no PFC */
854 if (pb->len < 2) {
855 goto drop;
856 }
857
858 /* Extract and hide protocol (do PFC decompression if necessary) */
859 pl = (u8_t*)pb->payload;
860 if (pl[0] & 0x01) {
861 protocol = pl[0];
862 pbuf_header(pb, -(s16_t)1);
863 } else {
864 protocol = (pl[0] << 8) | pl[1];
865 pbuf_header(pb, -(s16_t)2);
866 }
867 }
868 #endif /* CCP_SUPPORT */
869
870 switch(protocol) {
871
872 #if PPP_IPV4_SUPPORT
873 case PPP_IP: /* Internet Protocol */
874 PPPDEBUG(LOG_INFO, ("ppp_input[%d]: ip in pbuf len=%d\n", pcb->netif->num, pb->tot_len));
875 ip4_input(pb, pcb->netif);
876 return;
877 #endif /* PPP_IPV4_SUPPORT */
878
879 #if PPP_IPV6_SUPPORT
880 case PPP_IPV6: /* Internet Protocol Version 6 */
881 PPPDEBUG(LOG_INFO, ("ppp_input[%d]: ip6 in pbuf len=%d\n", pcb->netif->num, pb->tot_len));
882 ip6_input(pb, pcb->netif);
883 return;
884 #endif /* PPP_IPV6_SUPPORT */
885
886 #if VJ_SUPPORT
887 case PPP_VJC_COMP: /* VJ compressed TCP */
888 /*
889 * Clip off the VJ header and prepend the rebuilt TCP/IP header and
890 * pass the result to IP.
891 */
892 PPPDEBUG(LOG_INFO, ("ppp_input[%d]: vj_comp in pbuf len=%d\n", pcb->netif->num, pb->tot_len));
893 if (pcb->vj_enabled && vj_uncompress_tcp(&pb, &pcb->vj_comp) >= 0) {
894 ip4_input(pb, pcb->netif);
895 return;
896 }
897 /* Something's wrong so drop it. */
898 PPPDEBUG(LOG_WARNING, ("ppp_input[%d]: Dropping VJ compressed\n", pcb->netif->num));
899 break;
900
901 case PPP_VJC_UNCOMP: /* VJ uncompressed TCP */
902 /*
903 * Process the TCP/IP header for VJ header compression and then pass
904 * the packet to IP.
905 */
906 PPPDEBUG(LOG_INFO, ("ppp_input[%d]: vj_un in pbuf len=%d\n", pcb->netif->num, pb->tot_len));
907 if (pcb->vj_enabled && vj_uncompress_uncomp(pb, &pcb->vj_comp) >= 0) {
908 ip4_input(pb, pcb->netif);
909 return;
910 }
911 /* Something's wrong so drop it. */
912 PPPDEBUG(LOG_WARNING, ("ppp_input[%d]: Dropping VJ uncompressed\n", pcb->netif->num));
913 break;
914 #endif /* VJ_SUPPORT */
915
916 default: {
917 int i;
918 const struct protent *protp;
919
920 /*
921 * Upcall the proper protocol input routine.
922 */
923 for (i = 0; (protp = protocols[i]) != NULL; ++i) {
924 if (protp->protocol == protocol) {
925 pb = ppp_singlebuf(pb);
926 (*protp->input)(pcb, (u8_t*)pb->payload, pb->len);
927 goto out;
928 }
929 #if 0 /* UNUSED
930 *
931 * This is actually a (hacked?) way for the Linux kernel to pass a data
932 * packet to pppd. pppd in normal condition only do signaling
933 * (LCP, PAP, CHAP, IPCP, ...) and does not handle any data packet at all.
934 *
935 * We don't even need this interface, which is only there because of PPP
936 * interface limitation between Linux kernel and pppd. For MPPE, which uses
937 * CCP to negotiate although it is not really a (de)compressor, we added
938 * ccp_resetrequest() in CCP and MPPE input data flow is calling either
939 * ccp_resetrequest() or lcp_close() if the issue is, respectively, non-fatal
940 * or fatal, this is what ccp_datainput() really do.
941 */
942 if (protocol == (protp->protocol & ~0x8000)
943 && protp->datainput != NULL) {
944 (*protp->datainput)(pcb, pb->payload, pb->len);
945 goto out;
946 }
947 #endif /* UNUSED */
948 }
949
950 #if PPP_DEBUG
951 #if PPP_PROTOCOLNAME
952 pname = protocol_name(protocol);
953 if (pname != NULL) {
954 ppp_warn("Unsupported protocol '%s' (0x%x) received", pname, protocol);
955 } else
956 #endif /* PPP_PROTOCOLNAME */
957 ppp_warn("Unsupported protocol 0x%x received", protocol);
958 #endif /* PPP_DEBUG */
959 pbuf_header(pb, (s16_t)sizeof(protocol));
960 lcp_sprotrej(pcb, (u8_t*)pb->payload, pb->len);
961 }
962 break;
963 }
964
965 drop:
966 LINK_STATS_INC(link.drop);
967 MIB2_STATS_NETIF_INC(pcb->netif, ifindiscards);
968
969 out:
970 pbuf_free(pb);
971 }
972
973 /* merge a pbuf chain into one pbuf */
ppp_singlebuf(struct pbuf * p)974 struct pbuf *ppp_singlebuf(struct pbuf *p) {
975 struct pbuf *q, *b;
976 u8_t *pl;
977
978 if(p->tot_len == p->len) {
979 return p;
980 }
981
982 q = pbuf_alloc(PBUF_RAW, p->tot_len, PBUF_RAM);
983 if(!q) {
984 PPPDEBUG(LOG_ERR,
985 ("ppp_singlebuf: unable to alloc new buf (%d)\n", p->tot_len));
986 return p; /* live dangerously */
987 }
988
989 for(b = p, pl = (u8_t*)q->payload; b != NULL; b = b->next) {
990 MEMCPY(pl, b->payload, b->len);
991 pl += b->len;
992 }
993
994 pbuf_free(p);
995
996 return q;
997 }
998
999 /*
1000 * Write a pbuf to a ppp link, only used from PPP functions
1001 * to send PPP packets.
1002 *
1003 * IPv4 and IPv6 packets from lwIP are sent, respectively,
1004 * with ppp_netif_output_ip4() and ppp_netif_output_ip6()
1005 * functions (which are callbacks of the netif PPP interface).
1006 */
ppp_write(ppp_pcb * pcb,struct pbuf * p)1007 err_t ppp_write(ppp_pcb *pcb, struct pbuf *p) {
1008 #if PRINTPKT_SUPPORT
1009 ppp_dump_packet(pcb, "sent", (unsigned char *)p->payload+2, p->len-2);
1010 #endif /* PRINTPKT_SUPPORT */
1011 return pcb->link_cb->write(pcb, pcb->link_ctx_cb, p);
1012 }
1013
ppp_link_terminated(ppp_pcb * pcb)1014 void ppp_link_terminated(ppp_pcb *pcb) {
1015 PPPDEBUG(LOG_DEBUG, ("ppp_link_terminated[%d]\n", pcb->netif->num));
1016 pcb->link_cb->disconnect(pcb, pcb->link_ctx_cb);
1017 PPPDEBUG(LOG_DEBUG, ("ppp_link_terminated[%d]: finished.\n", pcb->netif->num));
1018 }
1019
1020
1021 /************************************************************************
1022 * Functions called by various PPP subsystems to configure
1023 * the PPP interface or change the PPP phase.
1024 */
1025
1026 /*
1027 * new_phase - signal the start of a new phase of pppd's operation.
1028 */
new_phase(ppp_pcb * pcb,int p)1029 void new_phase(ppp_pcb *pcb, int p) {
1030 pcb->phase = p;
1031 PPPDEBUG(LOG_DEBUG, ("ppp phase changed[%d]: phase=%d\n", pcb->netif->num, pcb->phase));
1032 #if PPP_NOTIFY_PHASE
1033 if (pcb->notify_phase_cb != NULL) {
1034 pcb->notify_phase_cb(pcb, p, pcb->ctx_cb);
1035 }
1036 #endif /* PPP_NOTIFY_PHASE */
1037 }
1038
1039 /*
1040 * ppp_send_config - configure the transmit-side characteristics of
1041 * the ppp interface.
1042 */
ppp_send_config(ppp_pcb * pcb,int mtu,u32_t accm,int pcomp,int accomp)1043 int ppp_send_config(ppp_pcb *pcb, int mtu, u32_t accm, int pcomp, int accomp) {
1044 LWIP_UNUSED_ARG(mtu);
1045 /* pcb->mtu = mtu; -- set correctly with netif_set_mtu */
1046
1047 if (pcb->link_cb->send_config) {
1048 pcb->link_cb->send_config(pcb, pcb->link_ctx_cb, accm, pcomp, accomp);
1049 }
1050
1051 PPPDEBUG(LOG_INFO, ("ppp_send_config[%d]\n", pcb->netif->num) );
1052 return 0;
1053 }
1054
1055 /*
1056 * ppp_recv_config - configure the receive-side characteristics of
1057 * the ppp interface.
1058 */
ppp_recv_config(ppp_pcb * pcb,int mru,u32_t accm,int pcomp,int accomp)1059 int ppp_recv_config(ppp_pcb *pcb, int mru, u32_t accm, int pcomp, int accomp) {
1060 LWIP_UNUSED_ARG(mru);
1061
1062 if (pcb->link_cb->recv_config) {
1063 pcb->link_cb->recv_config(pcb, pcb->link_ctx_cb, accm, pcomp, accomp);
1064 }
1065
1066 PPPDEBUG(LOG_INFO, ("ppp_recv_config[%d]\n", pcb->netif->num));
1067 return 0;
1068 }
1069
1070 #if PPP_IPV4_SUPPORT
1071 /*
1072 * sifaddr - Config the interface IP addresses and netmask.
1073 */
sifaddr(ppp_pcb * pcb,u32_t our_adr,u32_t his_adr,u32_t netmask)1074 int sifaddr(ppp_pcb *pcb, u32_t our_adr, u32_t his_adr, u32_t netmask) {
1075 ip4_addr_t ip, nm, gw;
1076
1077 ip4_addr_set_u32(&ip, our_adr);
1078 ip4_addr_set_u32(&nm, netmask);
1079 ip4_addr_set_u32(&gw, his_adr);
1080 netif_set_addr(pcb->netif, &ip, &nm, &gw);
1081 return 1;
1082 }
1083
1084 /********************************************************************
1085 *
1086 * cifaddr - Clear the interface IP addresses, and delete routes
1087 * through the interface if possible.
1088 */
cifaddr(ppp_pcb * pcb,u32_t our_adr,u32_t his_adr)1089 int cifaddr(ppp_pcb *pcb, u32_t our_adr, u32_t his_adr) {
1090 LWIP_UNUSED_ARG(our_adr);
1091 LWIP_UNUSED_ARG(his_adr);
1092
1093 netif_set_addr(pcb->netif, IP4_ADDR_ANY4, IP4_ADDR_BROADCAST, IP4_ADDR_ANY4);
1094 return 1;
1095 }
1096
1097 #if 0 /* UNUSED - PROXY ARP */
1098 /********************************************************************
1099 *
1100 * sifproxyarp - Make a proxy ARP entry for the peer.
1101 */
1102
1103 int sifproxyarp(ppp_pcb *pcb, u32_t his_adr) {
1104 LWIP_UNUSED_ARG(pcb);
1105 LWIP_UNUSED_ARG(his_adr);
1106 return 0;
1107 }
1108
1109 /********************************************************************
1110 *
1111 * cifproxyarp - Delete the proxy ARP entry for the peer.
1112 */
1113
1114 int cifproxyarp(ppp_pcb *pcb, u32_t his_adr) {
1115 LWIP_UNUSED_ARG(pcb);
1116 LWIP_UNUSED_ARG(his_adr);
1117 return 0;
1118 }
1119 #endif /* UNUSED - PROXY ARP */
1120
1121 #if LWIP_DNS
1122 /*
1123 * sdns - Config the DNS servers
1124 */
sdns(ppp_pcb * pcb,u32_t ns1,u32_t ns2)1125 int sdns(ppp_pcb *pcb, u32_t ns1, u32_t ns2) {
1126 ip_addr_t ns;
1127 LWIP_UNUSED_ARG(pcb);
1128
1129 ip_addr_set_ip4_u32(&ns, ns1);
1130 dns_setserver(0, &ns);
1131 ip_addr_set_ip4_u32(&ns, ns2);
1132 dns_setserver(1, &ns);
1133 return 1;
1134 }
1135
1136 /********************************************************************
1137 *
1138 * cdns - Clear the DNS servers
1139 */
cdns(ppp_pcb * pcb,u32_t ns1,u32_t ns2)1140 int cdns(ppp_pcb *pcb, u32_t ns1, u32_t ns2) {
1141 const ip_addr_t *nsa;
1142 ip_addr_t nsb;
1143 LWIP_UNUSED_ARG(pcb);
1144
1145 nsa = dns_getserver(0);
1146 ip_addr_set_ip4_u32(&nsb, ns1);
1147 if (ip_addr_cmp(nsa, &nsb)) {
1148 dns_setserver(0, IP4_ADDR_ANY);
1149 }
1150 nsa = dns_getserver(1);
1151 ip_addr_set_ip4_u32(&nsb, ns2);
1152 if (ip_addr_cmp(nsa, &nsb)) {
1153 dns_setserver(1, IP4_ADDR_ANY);
1154 }
1155 return 1;
1156 }
1157 #endif /* LWIP_DNS */
1158
1159 #if VJ_SUPPORT
1160 /********************************************************************
1161 *
1162 * sifvjcomp - config tcp header compression
1163 */
sifvjcomp(ppp_pcb * pcb,int vjcomp,int cidcomp,int maxcid)1164 int sifvjcomp(ppp_pcb *pcb, int vjcomp, int cidcomp, int maxcid) {
1165 pcb->vj_enabled = vjcomp;
1166 pcb->vj_comp.compressSlot = cidcomp;
1167 pcb->vj_comp.maxSlotIndex = maxcid;
1168 PPPDEBUG(LOG_INFO, ("sifvjcomp[%d]: VJ compress enable=%d slot=%d max slot=%d\n",
1169 pcb->netif->num, vjcomp, cidcomp, maxcid));
1170 return 0;
1171 }
1172 #endif /* VJ_SUPPORT */
1173
1174 /*
1175 * sifup - Config the interface up and enable IP packets to pass.
1176 */
sifup(ppp_pcb * pcb)1177 int sifup(ppp_pcb *pcb) {
1178 pcb->if4_up = 1;
1179 pcb->err_code = PPPERR_NONE;
1180 netif_set_link_up(pcb->netif);
1181
1182 PPPDEBUG(LOG_DEBUG, ("sifup[%d]: err_code=%d\n", pcb->netif->num, pcb->err_code));
1183 pcb->link_status_cb(pcb, pcb->err_code, pcb->ctx_cb);
1184 return 1;
1185 }
1186
1187 /********************************************************************
1188 *
1189 * sifdown - Disable the indicated protocol and config the interface
1190 * down if there are no remaining protocols.
1191 */
sifdown(ppp_pcb * pcb)1192 int sifdown(ppp_pcb *pcb) {
1193
1194 pcb->if4_up = 0;
1195
1196 if (1
1197 #if PPP_IPV6_SUPPORT
1198 /* set the interface down if IPv6 is down as well */
1199 && !pcb->if6_up
1200 #endif /* PPP_IPV6_SUPPORT */
1201 ) {
1202 /* make sure the netif link callback is called */
1203 netif_set_link_down(pcb->netif);
1204 }
1205 PPPDEBUG(LOG_DEBUG, ("sifdown[%d]: err_code=%d\n", pcb->netif->num, pcb->err_code));
1206 return 1;
1207 }
1208
1209 /********************************************************************
1210 *
1211 * Return user specified netmask, modified by any mask we might determine
1212 * for address `addr' (in network byte order).
1213 * Here we scan through the system's list of interfaces, looking for
1214 * any non-point-to-point interfaces which might appear to be on the same
1215 * network as `addr'. If we find any, we OR in their netmask to the
1216 * user-specified netmask.
1217 */
get_mask(u32_t addr)1218 u32_t get_mask(u32_t addr) {
1219 #if 0
1220 u32_t mask, nmask;
1221
1222 addr = lwip_htonl(addr);
1223 if (IP_CLASSA(addr)) { /* determine network mask for address class */
1224 nmask = IP_CLASSA_NET;
1225 } else if (IP_CLASSB(addr)) {
1226 nmask = IP_CLASSB_NET;
1227 } else {
1228 nmask = IP_CLASSC_NET;
1229 }
1230
1231 /* class D nets are disallowed by bad_ip_adrs */
1232 mask = PP_HTONL(0xffffff00UL) | lwip_htonl(nmask);
1233
1234 /* XXX
1235 * Scan through the system's network interfaces.
1236 * Get each netmask and OR them into our mask.
1237 */
1238 /* return mask; */
1239 return mask;
1240 #endif /* 0 */
1241 LWIP_UNUSED_ARG(addr);
1242 return IPADDR_BROADCAST;
1243 }
1244 #endif /* PPP_IPV4_SUPPORT */
1245
1246 #if PPP_IPV6_SUPPORT
1247 #define IN6_LLADDR_FROM_EUI64(ip6, eui64) do { \
1248 ip6.addr[0] = PP_HTONL(0xfe800000); \
1249 ip6.addr[1] = 0; \
1250 eui64_copy(eui64, ip6.addr[2]); \
1251 } while (0)
1252
1253 /********************************************************************
1254 *
1255 * sif6addr - Config the interface with an IPv6 link-local address
1256 */
sif6addr(ppp_pcb * pcb,eui64_t our_eui64,eui64_t his_eui64)1257 int sif6addr(ppp_pcb *pcb, eui64_t our_eui64, eui64_t his_eui64) {
1258 ip6_addr_t ip6;
1259 LWIP_UNUSED_ARG(his_eui64);
1260
1261 IN6_LLADDR_FROM_EUI64(ip6, our_eui64);
1262 netif_ip6_addr_set(pcb->netif, 0, &ip6);
1263 netif_ip6_addr_set_state(pcb->netif, 0, IP6_ADDR_PREFERRED);
1264 /* FIXME: should we add an IPv6 static neighbor using his_eui64 ? */
1265 return 1;
1266 }
1267
1268 /********************************************************************
1269 *
1270 * cif6addr - Remove IPv6 address from interface
1271 */
cif6addr(ppp_pcb * pcb,eui64_t our_eui64,eui64_t his_eui64)1272 int cif6addr(ppp_pcb *pcb, eui64_t our_eui64, eui64_t his_eui64) {
1273 LWIP_UNUSED_ARG(our_eui64);
1274 LWIP_UNUSED_ARG(his_eui64);
1275
1276 netif_ip6_addr_set(pcb->netif, 0, IP6_ADDR_ANY6);
1277 netif_ip6_addr_set_state(pcb->netif, 0, IP6_ADDR_INVALID);
1278 return 1;
1279 }
1280
1281 /*
1282 * sif6up - Config the interface up and enable IPv6 packets to pass.
1283 */
sif6up(ppp_pcb * pcb)1284 int sif6up(ppp_pcb *pcb) {
1285
1286 pcb->if6_up = 1;
1287 pcb->err_code = PPPERR_NONE;
1288 netif_set_link_up(pcb->netif);
1289
1290 PPPDEBUG(LOG_DEBUG, ("sif6up[%d]: err_code=%d\n", pcb->netif->num, pcb->err_code));
1291 pcb->link_status_cb(pcb, pcb->err_code, pcb->ctx_cb);
1292 return 1;
1293 }
1294
1295 /********************************************************************
1296 *
1297 * sif6down - Disable the indicated protocol and config the interface
1298 * down if there are no remaining protocols.
1299 */
sif6down(ppp_pcb * pcb)1300 int sif6down(ppp_pcb *pcb) {
1301
1302 pcb->if6_up = 0;
1303
1304 if (1
1305 #if PPP_IPV4_SUPPORT
1306 /* set the interface down if IPv4 is down as well */
1307 && !pcb->if4_up
1308 #endif /* PPP_IPV4_SUPPORT */
1309 ) {
1310 /* make sure the netif link callback is called */
1311 netif_set_link_down(pcb->netif);
1312 }
1313 PPPDEBUG(LOG_DEBUG, ("sif6down[%d]: err_code=%d\n", pcb->netif->num, pcb->err_code));
1314 return 1;
1315 }
1316 #endif /* PPP_IPV6_SUPPORT */
1317
1318 #if DEMAND_SUPPORT
1319 /*
1320 * sifnpmode - Set the mode for handling packets for a given NP.
1321 */
sifnpmode(ppp_pcb * pcb,int proto,enum NPmode mode)1322 int sifnpmode(ppp_pcb *pcb, int proto, enum NPmode mode) {
1323 LWIP_UNUSED_ARG(pcb);
1324 LWIP_UNUSED_ARG(proto);
1325 LWIP_UNUSED_ARG(mode);
1326 return 0;
1327 }
1328 #endif /* DEMAND_SUPPORT */
1329
1330 /*
1331 * netif_set_mtu - set the MTU on the PPP network interface.
1332 */
netif_set_mtu(ppp_pcb * pcb,int mtu)1333 void netif_set_mtu(ppp_pcb *pcb, int mtu) {
1334
1335 pcb->netif->mtu = mtu;
1336 PPPDEBUG(LOG_INFO, ("netif_set_mtu[%d]: mtu=%d\n", pcb->netif->num, mtu));
1337 }
1338
1339 /*
1340 * netif_get_mtu - get PPP interface MTU
1341 */
netif_get_mtu(ppp_pcb * pcb)1342 int netif_get_mtu(ppp_pcb *pcb) {
1343
1344 return pcb->netif->mtu;
1345 }
1346
1347 #if CCP_SUPPORT
1348 #if 0 /* unused */
1349 /*
1350 * ccp_test - whether a given compression method is acceptable for use.
1351 */
1352 int
1353 ccp_test(ppp_pcb *pcb, u_char *opt_ptr, int opt_len, int for_transmit)
1354 {
1355 LWIP_UNUSED_ARG(pcb);
1356 LWIP_UNUSED_ARG(opt_ptr);
1357 LWIP_UNUSED_ARG(opt_len);
1358 LWIP_UNUSED_ARG(for_transmit);
1359 return -1;
1360 }
1361 #endif /* unused */
1362
1363 /*
1364 * ccp_set - inform about the current state of CCP.
1365 */
1366 void
ccp_set(ppp_pcb * pcb,u8_t isopen,u8_t isup,u8_t receive_method,u8_t transmit_method)1367 ccp_set(ppp_pcb *pcb, u8_t isopen, u8_t isup, u8_t receive_method, u8_t transmit_method)
1368 {
1369 LWIP_UNUSED_ARG(isopen);
1370 LWIP_UNUSED_ARG(isup);
1371 pcb->ccp_receive_method = receive_method;
1372 pcb->ccp_transmit_method = transmit_method;
1373 PPPDEBUG(LOG_DEBUG, ("ccp_set[%d]: is_open=%d, is_up=%d, receive_method=%u, transmit_method=%u\n",
1374 pcb->netif->num, isopen, isup, receive_method, transmit_method));
1375 }
1376
1377 void
ccp_reset_comp(ppp_pcb * pcb)1378 ccp_reset_comp(ppp_pcb *pcb)
1379 {
1380 switch (pcb->ccp_transmit_method) {
1381 #if MPPE_SUPPORT
1382 case CI_MPPE:
1383 mppe_comp_reset(pcb, &pcb->mppe_comp);
1384 break;
1385 #endif /* MPPE_SUPPORT */
1386 default:
1387 break;
1388 }
1389 }
1390
1391 void
ccp_reset_decomp(ppp_pcb * pcb)1392 ccp_reset_decomp(ppp_pcb *pcb)
1393 {
1394 switch (pcb->ccp_receive_method) {
1395 #if MPPE_SUPPORT
1396 case CI_MPPE:
1397 mppe_decomp_reset(pcb, &pcb->mppe_decomp);
1398 break;
1399 #endif /* MPPE_SUPPORT */
1400 default:
1401 break;
1402 }
1403 }
1404
1405 #if 0 /* unused */
1406 /*
1407 * ccp_fatal_error - returns 1 if decompression was disabled as a
1408 * result of an error detected after decompression of a packet,
1409 * 0 otherwise. This is necessary because of patent nonsense.
1410 */
1411 int
1412 ccp_fatal_error(ppp_pcb *pcb)
1413 {
1414 LWIP_UNUSED_ARG(pcb);
1415 return 1;
1416 }
1417 #endif /* unused */
1418 #endif /* CCP_SUPPORT */
1419
1420 #if PPP_IDLETIMELIMIT
1421 /********************************************************************
1422 *
1423 * get_idle_time - return how long the link has been idle.
1424 */
get_idle_time(ppp_pcb * pcb,struct ppp_idle * ip)1425 int get_idle_time(ppp_pcb *pcb, struct ppp_idle *ip) {
1426 /* FIXME: add idle time support and make it optional */
1427 LWIP_UNUSED_ARG(pcb);
1428 LWIP_UNUSED_ARG(ip);
1429 return 1;
1430 }
1431 #endif /* PPP_IDLETIMELIMIT */
1432
1433 #if DEMAND_SUPPORT
1434 /********************************************************************
1435 *
1436 * get_loop_output - get outgoing packets from the ppp device,
1437 * and detect when we want to bring the real link up.
1438 * Return value is 1 if we need to bring up the link, 0 otherwise.
1439 */
get_loop_output(void)1440 int get_loop_output(void) {
1441 return 0;
1442 }
1443 #endif /* DEMAND_SUPPORT */
1444
1445 #if PPP_PROTOCOLNAME
1446 /* List of protocol names, to make our messages a little more informative. */
1447 struct protocol_list {
1448 u_short proto;
1449 const char *name;
1450 } protocol_list[] = {
1451 { 0x21, "IP" },
1452 { 0x23, "OSI Network Layer" },
1453 { 0x25, "Xerox NS IDP" },
1454 { 0x27, "DECnet Phase IV" },
1455 { 0x29, "Appletalk" },
1456 { 0x2b, "Novell IPX" },
1457 { 0x2d, "VJ compressed TCP/IP" },
1458 { 0x2f, "VJ uncompressed TCP/IP" },
1459 { 0x31, "Bridging PDU" },
1460 { 0x33, "Stream Protocol ST-II" },
1461 { 0x35, "Banyan Vines" },
1462 { 0x39, "AppleTalk EDDP" },
1463 { 0x3b, "AppleTalk SmartBuffered" },
1464 { 0x3d, "Multi-Link" },
1465 { 0x3f, "NETBIOS Framing" },
1466 { 0x41, "Cisco Systems" },
1467 { 0x43, "Ascom Timeplex" },
1468 { 0x45, "Fujitsu Link Backup and Load Balancing (LBLB)" },
1469 { 0x47, "DCA Remote Lan" },
1470 { 0x49, "Serial Data Transport Protocol (PPP-SDTP)" },
1471 { 0x4b, "SNA over 802.2" },
1472 { 0x4d, "SNA" },
1473 { 0x4f, "IP6 Header Compression" },
1474 { 0x51, "KNX Bridging Data" },
1475 { 0x53, "Encryption" },
1476 { 0x55, "Individual Link Encryption" },
1477 { 0x57, "IPv6" },
1478 { 0x59, "PPP Muxing" },
1479 { 0x5b, "Vendor-Specific Network Protocol" },
1480 { 0x61, "RTP IPHC Full Header" },
1481 { 0x63, "RTP IPHC Compressed TCP" },
1482 { 0x65, "RTP IPHC Compressed non-TCP" },
1483 { 0x67, "RTP IPHC Compressed UDP 8" },
1484 { 0x69, "RTP IPHC Compressed RTP 8" },
1485 { 0x6f, "Stampede Bridging" },
1486 { 0x73, "MP+" },
1487 { 0xc1, "NTCITS IPI" },
1488 { 0xfb, "single-link compression" },
1489 { 0xfd, "Compressed Datagram" },
1490 { 0x0201, "802.1d Hello Packets" },
1491 { 0x0203, "IBM Source Routing BPDU" },
1492 { 0x0205, "DEC LANBridge100 Spanning Tree" },
1493 { 0x0207, "Cisco Discovery Protocol" },
1494 { 0x0209, "Netcs Twin Routing" },
1495 { 0x020b, "STP - Scheduled Transfer Protocol" },
1496 { 0x020d, "EDP - Extreme Discovery Protocol" },
1497 { 0x0211, "Optical Supervisory Channel Protocol" },
1498 { 0x0213, "Optical Supervisory Channel Protocol" },
1499 { 0x0231, "Luxcom" },
1500 { 0x0233, "Sigma Network Systems" },
1501 { 0x0235, "Apple Client Server Protocol" },
1502 { 0x0281, "MPLS Unicast" },
1503 { 0x0283, "MPLS Multicast" },
1504 { 0x0285, "IEEE p1284.4 standard - data packets" },
1505 { 0x0287, "ETSI TETRA Network Protocol Type 1" },
1506 { 0x0289, "Multichannel Flow Treatment Protocol" },
1507 { 0x2063, "RTP IPHC Compressed TCP No Delta" },
1508 { 0x2065, "RTP IPHC Context State" },
1509 { 0x2067, "RTP IPHC Compressed UDP 16" },
1510 { 0x2069, "RTP IPHC Compressed RTP 16" },
1511 { 0x4001, "Cray Communications Control Protocol" },
1512 { 0x4003, "CDPD Mobile Network Registration Protocol" },
1513 { 0x4005, "Expand accelerator protocol" },
1514 { 0x4007, "ODSICP NCP" },
1515 { 0x4009, "DOCSIS DLL" },
1516 { 0x400B, "Cetacean Network Detection Protocol" },
1517 { 0x4021, "Stacker LZS" },
1518 { 0x4023, "RefTek Protocol" },
1519 { 0x4025, "Fibre Channel" },
1520 { 0x4027, "EMIT Protocols" },
1521 { 0x405b, "Vendor-Specific Protocol (VSP)" },
1522 { 0x8021, "Internet Protocol Control Protocol" },
1523 { 0x8023, "OSI Network Layer Control Protocol" },
1524 { 0x8025, "Xerox NS IDP Control Protocol" },
1525 { 0x8027, "DECnet Phase IV Control Protocol" },
1526 { 0x8029, "Appletalk Control Protocol" },
1527 { 0x802b, "Novell IPX Control Protocol" },
1528 { 0x8031, "Bridging NCP" },
1529 { 0x8033, "Stream Protocol Control Protocol" },
1530 { 0x8035, "Banyan Vines Control Protocol" },
1531 { 0x803d, "Multi-Link Control Protocol" },
1532 { 0x803f, "NETBIOS Framing Control Protocol" },
1533 { 0x8041, "Cisco Systems Control Protocol" },
1534 { 0x8043, "Ascom Timeplex" },
1535 { 0x8045, "Fujitsu LBLB Control Protocol" },
1536 { 0x8047, "DCA Remote Lan Network Control Protocol (RLNCP)" },
1537 { 0x8049, "Serial Data Control Protocol (PPP-SDCP)" },
1538 { 0x804b, "SNA over 802.2 Control Protocol" },
1539 { 0x804d, "SNA Control Protocol" },
1540 { 0x804f, "IP6 Header Compression Control Protocol" },
1541 { 0x8051, "KNX Bridging Control Protocol" },
1542 { 0x8053, "Encryption Control Protocol" },
1543 { 0x8055, "Individual Link Encryption Control Protocol" },
1544 { 0x8057, "IPv6 Control Protocol" },
1545 { 0x8059, "PPP Muxing Control Protocol" },
1546 { 0x805b, "Vendor-Specific Network Control Protocol (VSNCP)" },
1547 { 0x806f, "Stampede Bridging Control Protocol" },
1548 { 0x8073, "MP+ Control Protocol" },
1549 { 0x80c1, "NTCITS IPI Control Protocol" },
1550 { 0x80fb, "Single Link Compression Control Protocol" },
1551 { 0x80fd, "Compression Control Protocol" },
1552 { 0x8207, "Cisco Discovery Protocol Control" },
1553 { 0x8209, "Netcs Twin Routing" },
1554 { 0x820b, "STP - Control Protocol" },
1555 { 0x820d, "EDPCP - Extreme Discovery Protocol Ctrl Prtcl" },
1556 { 0x8235, "Apple Client Server Protocol Control" },
1557 { 0x8281, "MPLSCP" },
1558 { 0x8285, "IEEE p1284.4 standard - Protocol Control" },
1559 { 0x8287, "ETSI TETRA TNP1 Control Protocol" },
1560 { 0x8289, "Multichannel Flow Treatment Protocol" },
1561 { 0xc021, "Link Control Protocol" },
1562 { 0xc023, "Password Authentication Protocol" },
1563 { 0xc025, "Link Quality Report" },
1564 { 0xc027, "Shiva Password Authentication Protocol" },
1565 { 0xc029, "CallBack Control Protocol (CBCP)" },
1566 { 0xc02b, "BACP Bandwidth Allocation Control Protocol" },
1567 { 0xc02d, "BAP" },
1568 { 0xc05b, "Vendor-Specific Authentication Protocol (VSAP)" },
1569 { 0xc081, "Container Control Protocol" },
1570 { 0xc223, "Challenge Handshake Authentication Protocol" },
1571 { 0xc225, "RSA Authentication Protocol" },
1572 { 0xc227, "Extensible Authentication Protocol" },
1573 { 0xc229, "Mitsubishi Security Info Exch Ptcl (SIEP)" },
1574 { 0xc26f, "Stampede Bridging Authorization Protocol" },
1575 { 0xc281, "Proprietary Authentication Protocol" },
1576 { 0xc283, "Proprietary Authentication Protocol" },
1577 { 0xc481, "Proprietary Node ID Authentication Protocol" },
1578 { 0, NULL },
1579 };
1580
1581 /*
1582 * protocol_name - find a name for a PPP protocol.
1583 */
protocol_name(int proto)1584 const char * protocol_name(int proto) {
1585 struct protocol_list *lp;
1586
1587 for (lp = protocol_list; lp->proto != 0; ++lp) {
1588 if (proto == lp->proto) {
1589 return lp->name;
1590 }
1591 }
1592 return NULL;
1593 }
1594 #endif /* PPP_PROTOCOLNAME */
1595
1596 #if PPP_STATS_SUPPORT
1597
1598 /* ---- Note on PPP Stats support ----
1599 *
1600 * The one willing link stats support should add the get_ppp_stats()
1601 * to fetch statistics from lwIP.
1602 */
1603
1604 /*
1605 * reset_link_stats - "reset" stats when link goes up.
1606 */
reset_link_stats(int u)1607 void reset_link_stats(int u) {
1608 if (!get_ppp_stats(u, &old_link_stats)) {
1609 return;
1610 }
1611 gettimeofday(&start_time, NULL);
1612 }
1613
1614 /*
1615 * update_link_stats - get stats at link termination.
1616 */
update_link_stats(int u)1617 void update_link_stats(int u) {
1618 struct timeval now;
1619 char numbuf[32];
1620
1621 if (!get_ppp_stats(u, &link_stats) || gettimeofday(&now, NULL) < 0) {
1622 return;
1623 }
1624 link_connect_time = now.tv_sec - start_time.tv_sec;
1625 link_stats_valid = 1;
1626
1627 link_stats.bytes_in -= old_link_stats.bytes_in;
1628 link_stats.bytes_out -= old_link_stats.bytes_out;
1629 link_stats.pkts_in -= old_link_stats.pkts_in;
1630 link_stats.pkts_out -= old_link_stats.pkts_out;
1631 }
1632
print_link_stats()1633 void print_link_stats() {
1634 /*
1635 * Print connect time and statistics.
1636 */
1637 if (link_stats_valid) {
1638 int t = (link_connect_time + 5) / 6; /* 1/10ths of minutes */
1639 info("Connect time %d.%d minutes.", t/10, t%10);
1640 info("Sent %u bytes, received %u bytes.", link_stats.bytes_out, link_stats.bytes_in);
1641 link_stats_valid = 0;
1642 }
1643 }
1644 #endif /* PPP_STATS_SUPPORT */
1645
1646 #endif /* PPP_SUPPORT */
1647