/* *--------------------------------------------------------------------------- * ipcp.c - PPP IPCP (intrnet protocol) Processor/Handler * *--------------------------------------------------------------------------- * * Version * 0.1 Original Version Jun 3, 2000 * *--------------------------------------------------------------------------- * * Copyright (C) 2000, Mycal Labs www.mycal.com * *--------------------------------------------------------------------------- */ /* * Copyright (c) 2003, Mike Johnson, Mycal Labs, www.mycal.net * All rights reserved. * * 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. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by Mike Johnson/Mycal Labs * www.mycal.net. * 4. The name of the author may not be used to endorse or promote * products derived from this software without specific prior * written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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. * * This file is part of the Mycal Modified uIP TCP/IP stack. * * $Id: ipcp.c,v 1.1 2006/06/17 22:48:09 adamdunkels Exp $ * */ /* */ /* include files */ /* */ #if 0 #define DEBUG1(x) #else #include #define DEBUG1(x) debug_printf x #endif #include "net/uip.h" /*#include "time.h"*/ #include "ipcp.h" #include "ppp.h" #include "ahdlc.h" #define TIMER_expire() #define TIMER_set() #define TIMER_timeout(x) 1 #ifdef IPCP_GET_PEER_IP uip_ipaddr_t peer_ip_addr; #endif #ifdef IPCP_GET_PRI_DNS uip_ipaddr_t pri_dns_addr; #endif #ifdef IPCP_GET_SEC_DNS uip_ipaddr_t sec_dns_addr; #endif static unsigned long prev_ipcp_seconds = 0; /* * Local IPCP state */ u8_t ipcp_state; /* * in the future add copression protocol and name servers (possibly for servers only) */ u8_t ipcplist[] = {0x3, 0}; /*---------------------------------------------------------------------------*/ #if 1 void printip(uip_ipaddr_t ip2) { char *ip = (u8_t*)ip2; DEBUG1((" %d.%d.%d.%d ",ip[0],ip[1],ip[2],ip[3])); } #else #define printip(x) #endif /*---------------------------------------------------------------------------*/ void ipcp_init(void) { DEBUG1(("ipcp init\n")); ipcp_state = 0; ppp_retry = 0; pppif.ipaddr[0] = pppif.ipaddr[1] = 0; } /*---------------------------------------------------------------------------*/ /* * IPCP RX protocol Handler */ void ipcp_rx(u8_t *buffer, u16_t count) { u8_t *bptr = buffer; IPCPPKT *pkt=(IPCPPKT *)buffer; u16_t len; DEBUG1(("IPCP len %d\n",count)); switch(*bptr++) { case CONF_REQ: /* parce request and see if we can ACK it */ ++bptr; len = (*bptr++ << 8); len |= *bptr++; /* len-=2; */ DEBUG1(("check lcplist\n")); if(scan_packet(IPCP, ipcplist, buffer, bptr, (u16_t)(len - 4))) { DEBUG1(("option was bad\n")); } else { DEBUG1(("IPCP options are good\n")); /* * Parse out the results */ /* lets try to implement what peer wants */ /* Reject any protocol not */ /* Error? if we we need to send a config Reject ++++ this is good for a subroutine*/ /* All we should get is the peer IP address */ if(IPCP_IPADDRESS == *bptr++) { /* dump length */ ++bptr; #ifdef IPCP_GET_PEER_IP ((u8_t*)peer_ip_addr)[0] = *bptr++; ((u8_t*)peer_ip_addr)[1] = *bptr++; ((u8_t*)peer_ip_addr)[2] = *bptr++; ((u8_t*)peer_ip_addr)[3] = *bptr++; DEBUG1(("Peer IP ")); /* printip(peer_ip_addr);*/ DEBUG1(("\n")); #else bptr += 4; #endif } else { DEBUG1(("HMMMM this shouldn't happen IPCP1\n")); } #if 0 if(error) { /* write the config NAK packet we've built above, take on the header */ bptr = buffer; *bptr++ = CONF_NAK; /* Write Conf_rej */ *bptr++; /*tptr++;*/ /* skip over ID */ /* Write new length */ *bptr++ = 0; *bptr = tptr - buffer; /* write the reject frame */ DEBUG1(("Writing NAK frame \n")); ahdlc_tx(IPCP, buffer, (u16_t)(tptr - buffer)); DEBUG1(("- End NAK Write frame\n")); } else { } #endif /* * If we get here then we are OK, lets send an ACK and tell the rest * of our modules our negotiated config. */ ipcp_state |= IPCP_RX_UP; DEBUG1(("Send IPCP ACK!\n")); bptr = buffer; *bptr++ = CONF_ACK; /* Write Conf_ACK */ bptr++; /* Skip ID (send same one) */ /* * Set stuff */ /* ppp_flags |= tflag; */ DEBUG1(("SET- stuff -- are we up? c=%d dif=%d \n", count, (u16_t)(bptr-buffer))); /* write the ACK frame */ DEBUG1(("Writing ACK frame \n")); /* Send packet ahdlc_txz(procol,header,data,headerlen,datalen); */ ahdlc_tx(IPCP, 0, buffer, 0, count /*bptr-buffer*/); DEBUG1(("- End ACK Write frame\n")); /* expire the timer to make things happen after a state change */ /*timer_expire(); */ /* } */ } break; case CONF_ACK: /* config Ack */ DEBUG1(("CONF ACK\n")); /* * Parse out the results * * Dump the ID and get the length. */ /* dump the ID */ bptr++; /* get the length */ len = (*bptr++ << 8); len |= *bptr++; #if 0 /* Parse ACK and set data */ while(bptr < buffer + len) { switch(*bptr++) { case IPCP_IPADDRESS: /* dump length */ bptr++; ((u8_t*)ipaddr)[0] = *bptr++; ((u8_t*)ipaddr)[1] = *bptr++; ((u8_t*)ipaddr)[2] = *bptr++; ((u8_t*)ipaddr)[3] = *bptr++; break; case IPCP_PRIMARY_DNS: bptr++; ((u8_t*)pri_dns_addr)[0] = *bptr++; ((u8_t*)pri_dns_addr)[1] = *bptr++; ((u8_t*)pri_dns_addr)[2] = *bptr++; ((u8_t*)pri_dns_addr)[3] = *bptr++; break; case IPCP_SECONDARY_DNS: bptr++; ((u8_t*)sec_dns_addr)[0] = *bptr++; ((u8_t*)sec_dns_addr)[1] = *bptr++; ((u8_t*)sec_dns_addr)[2] = *bptr++; ((u8_t*)sec_dns_addr)[3] = *bptr++; break; default: DEBUG1(("IPCP CONFIG_ACK problem1\n")); } } #endif ipcp_state |= IPCP_TX_UP; /*ipcp_state &= ~IPCP_RX_UP;*/ DEBUG1(("were up! \n")); printip(pppif.ipaddr); #ifdef IPCP_GET_PRI_DNS printip(pri_dns_addr); #endif #ifdef IPCP_GET_SEC_DNS printip(sec_dns_addr); #endif DEBUG1(("\n")); /* expire the timer to make things happen after a state change */ TIMER_expire(); break; case CONF_NAK: /* Config Nack */ DEBUG1(("CONF NAK\n")); /* dump the ID */ bptr++; /* get the length */ len = (*bptr++ << 8); len |= *bptr++; /* Parse ACK and set data */ while(bptr < buffer + len) { switch(*bptr++) { case IPCP_IPADDRESS: /* dump length */ bptr++; ((u8_t*)pppif.ipaddr)[0] = *bptr++; ((u8_t*)pppif.ipaddr)[1] = *bptr++; ((u8_t*)pppif.ipaddr)[2] = *bptr++; ((u8_t*)pppif.ipaddr)[3] = *bptr++; uip_fw_register( &pppif ); DEBUG1(("My PPP-ipno: (%d.%d.%d.%d)\n", ((u8_t*)pppif.ipaddr)[0], ((u8_t*)pppif.ipaddr)[1], ((u8_t*)pppif.ipaddr)[2], ((u8_t*)pppif.ipaddr)[3])); break; #ifdef IPCP_GET_PRI_DNS case IPCP_PRIMARY_DNS: bptr++; ((u8_t*)pri_dns_addr)[0] = *bptr++; ((u8_t*)pri_dns_addr)[1] = *bptr++; ((u8_t*)pri_dns_addr)[2] = *bptr++; ((u8_t*)pri_dns_addr)[3] = *bptr++; break; #endif #ifdef IPCP_GET_SEC_DNS case IPCP_SECONDARY_DNS: bptr++; ((u8_t*)sec_dns_addr)[0] = *bptr++; ((u8_t*)sec_dns_addr)[1] = *bptr++; ((u8_t*)sec_dns_addr)[2] = *bptr++; ((u8_t*)sec_dns_addr)[3] = *bptr++; break; #endif default: DEBUG1(("IPCP CONFIG_ACK problem 2\n")); } } ppp_id++; printip(pppif.ipaddr); #ifdef IPCP_GET_PRI_DNS printip(pri_dns_addr); #endif #ifdef IPCP_GET_PRI_DNS printip(sec_dns_addr); #endif DEBUG1(("\n")); /* expire the timer to make things happen after a state change */ TIMER_expire(); break; case CONF_REJ: /* Config Reject */ DEBUG1(("CONF REJ\n")); /* Remove the offending options*/ ppp_id++; /* dump the ID */ bptr++; /* get the length */ len = (*bptr++ << 8); len |= *bptr++; /* Parse ACK and set data */ while(bptr < buffer + len) { switch(*bptr++) { case IPCP_IPADDRESS: ipcp_state |= IPCP_IP_BIT; bptr += 5; break; #ifdef IPCP_GET_PRI_DNS case IPCP_PRIMARY_DNS: ipcp_state |= IPCP_PRI_DNS_BIT; bptr += 5; break; #endif #ifdef IPCP_GET_PRI_DNS case IPCP_SECONDARY_DNS: ipcp_state |= IPCP_SEC_DNS_BIT; bptr += 5; break; #endif default: DEBUG1(("IPCP this shoudln't happen 3\n")); } } /* expire the timer to make things happen after a state change */ /*timer_expire(); */ break; default: DEBUG1(("-Unknown 4\n")); } } /*---------------------------------------------------------------------------*/ void ipcp_task(u8_t *buffer) { u8_t *bptr; u16_t t; IPCPPKT *pkt; /* IPCP tx not up and hasn't timed out then lets see if we need to send a request */ if(!(ipcp_state & IPCP_TX_UP) && !(ipcp_state & IPCP_TX_TIMEOUT)) { /* Check if we have a request pending */ /*t=get_seconds()-ipcp_tx_time;*/ #if 0 if(TIMER_timeout(IPCP_TIMEOUT)) { #else if((clock_seconds() - prev_ipcp_seconds) > IPCP_TIMEOUT) { prev_ipcp_seconds = clock_seconds(); #endif /* * No pending request, lets build one */ pkt=(IPCPPKT *)buffer; /* Configure-Request only here, write id */ pkt->code = CONF_REQ; pkt->id = ppp_id; bptr = pkt->data; /* * Write options, we want IP address, and DNS addresses if set. */ /* Write zeros for IP address the first time */ *bptr++ = IPCP_IPADDRESS; *bptr++ = 0x6; *bptr++ = ((u8_t*)pppif.ipaddr)[0]; *bptr++ = ((u8_t*)pppif.ipaddr)[1]; *bptr++ = ((u8_t*)pppif.ipaddr)[2]; *bptr++ = ((u8_t*)pppif.ipaddr)[3]; #ifdef IPCP_GET_PRI_DNS if(!(ipcp_state & IPCP_PRI_DNS_BIT)) { /* Write zeros for IP address the first time */ *bptr++ = IPCP_PRIMARY_DNS; *bptr++ = 0x6; *bptr++ = ((u8_t*)pri_dns_addr)[0]; *bptr++ = ((u8_t*)pri_dns_addr)[1]; *bptr++ = ((u8_t*)pri_dns_addr)[2]; *bptr++ = ((u8_t*)pri_dns_addr)[3]; } #endif #ifdef IPCP_GET_SEC_DNS if(!(ipcp_state & IPCP_SEC_DNS_BIT)) { /* Write zeros for IP address the first time */ *bptr++ = IPCP_SECONDARY_DNS; *bptr++ = 0x6; *bptr++ = ((u8_t*)sec_dns_addr)[0]; *bptr++ = ((u8_t*)sec_dns_addr)[1]; *bptr++ = ((u8_t*)sec_dns_addr)[2]; *bptr++ = ((u8_t*)sec_dns_addr)[3]; } #endif /* Write length */ t = bptr - buffer; /* length here - code and ID + */ pkt->len = htons(t); DEBUG1(("\n**Sending IPCP Request packet\n")); /* Send packet ahdlc_txz(procol,header,data,headerlen,datalen); */ ahdlc_tx(IPCP, 0, buffer, 0, t); /* Set timer */ /*ipcp_tx_time=get_seconds();*/ TIMER_set(); /* Inc retry */ /*ipcp_retry++;*/ ppp_retry++; /* * Have we timed out? (combide the timers?) */ if(ppp_retry > IPCP_RETRY_COUNT) ipcp_state &= IPCP_TX_TIMEOUT; } } } /*---------------------------------------------------------------------------*/