A modified version of http://mbed.org/users/segundo/libraries/NetServices/ljhqix to add HTTP proxy feature (based on http://mbed.org/users/igorsk/programs/NetServicesSource/ltjpag)

Dependents:   SenseClient

Committer:
mimil
Date:
Tue Sep 06 13:26:45 2011 +0000
Revision:
0:308f83189a3f

        

Who changed what in which revision?

UserRevisionLine numberNew contents of line
mimil 0:308f83189a3f 1
mimil 0:308f83189a3f 2 /*
mimil 0:308f83189a3f 3 Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com)
mimil 0:308f83189a3f 4
mimil 0:308f83189a3f 5 Permission is hereby granted, free of charge, to any person obtaining a copy
mimil 0:308f83189a3f 6 of this software and associated documentation files (the "Software"), to deal
mimil 0:308f83189a3f 7 in the Software without restriction, including without limitation the rights
mimil 0:308f83189a3f 8 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
mimil 0:308f83189a3f 9 copies of the Software, and to permit persons to whom the Software is
mimil 0:308f83189a3f 10 furnished to do so, subject to the following conditions:
mimil 0:308f83189a3f 11
mimil 0:308f83189a3f 12 The above copyright notice and this permission notice shall be included in
mimil 0:308f83189a3f 13 all copies or substantial portions of the Software.
mimil 0:308f83189a3f 14
mimil 0:308f83189a3f 15 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
mimil 0:308f83189a3f 16 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
mimil 0:308f83189a3f 17 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
mimil 0:308f83189a3f 18 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
mimil 0:308f83189a3f 19 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
mimil 0:308f83189a3f 20 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
mimil 0:308f83189a3f 21 THE SOFTWARE.
mimil 0:308f83189a3f 22 */
mimil 0:308f83189a3f 23
mimil 0:308f83189a3f 24 #include "lwipNetDnsRequest.h"
mimil 0:308f83189a3f 25 #include "lwip/err.h" //err_t, ERR_xxx
mimil 0:308f83189a3f 26 #include "lwip/dns.h"
mimil 0:308f83189a3f 27
mimil 0:308f83189a3f 28 #include "netCfg.h"
mimil 0:308f83189a3f 29 #if NET_LWIP_STACK
mimil 0:308f83189a3f 30
mimil 0:308f83189a3f 31 //#define __DEBUG
mimil 0:308f83189a3f 32 #include "dbg/dbg.h"
mimil 0:308f83189a3f 33
mimil 0:308f83189a3f 34 LwipNetDnsRequest::LwipNetDnsRequest(const char* hostname) : NetDnsRequest(hostname), m_state(LWIPNETDNS_START), m_cbFired(false), m_closing(false)
mimil 0:308f83189a3f 35 {
mimil 0:308f83189a3f 36 DBG("New LwipNetDnsRequest %p\n", this);
mimil 0:308f83189a3f 37 }
mimil 0:308f83189a3f 38
mimil 0:308f83189a3f 39 LwipNetDnsRequest::LwipNetDnsRequest(Host* pHost) : NetDnsRequest(pHost), m_state(LWIPNETDNS_START), m_cbFired(false), m_closing(false)
mimil 0:308f83189a3f 40 {
mimil 0:308f83189a3f 41 DBG("New LwipNetDnsRequest %p\n", this);
mimil 0:308f83189a3f 42 }
mimil 0:308f83189a3f 43
mimil 0:308f83189a3f 44 LwipNetDnsRequest::~LwipNetDnsRequest()
mimil 0:308f83189a3f 45 {
mimil 0:308f83189a3f 46 DBG("LwipNetDnsRequest %p destroyed\n", this);
mimil 0:308f83189a3f 47 }
mimil 0:308f83189a3f 48
mimil 0:308f83189a3f 49 /*
mimil 0:308f83189a3f 50 Main useful function here (see lwip/dns.h):
mimil 0:308f83189a3f 51 err_t dns_gethostbyname(const char *hostname, ip_addr_t *addr,
mimil 0:308f83189a3f 52 dns_found_callback found, void *callback_arg);
mimil 0:308f83189a3f 53 */
mimil 0:308f83189a3f 54
mimil 0:308f83189a3f 55 //Execute request & return OK if found, NOTFOUND or ERROR on error, or PROCESSING if the request has not completed yet
mimil 0:308f83189a3f 56 void LwipNetDnsRequest::poll()
mimil 0:308f83189a3f 57 {
mimil 0:308f83189a3f 58 err_t err;
mimil 0:308f83189a3f 59 switch(m_state)
mimil 0:308f83189a3f 60 {
mimil 0:308f83189a3f 61 case LWIPNETDNS_START: //First req, let's call dns_gethostbyname
mimil 0:308f83189a3f 62 ip_addr_t ipStruct;
mimil 0:308f83189a3f 63 err = dns_gethostbyname(m_hostname, &ipStruct, LwipNetDnsRequest::sFoundCb, (void*) this );
mimil 0:308f83189a3f 64 if( err == ERR_OK )
mimil 0:308f83189a3f 65 {
mimil 0:308f83189a3f 66 m_ip = IpAddr(&ipStruct);
mimil 0:308f83189a3f 67 m_state = LWIPNETDNS_OK;
mimil 0:308f83189a3f 68 DBG("DNS: Ip found in cache.\n");
mimil 0:308f83189a3f 69 }
mimil 0:308f83189a3f 70 else if( err == ERR_INPROGRESS)
mimil 0:308f83189a3f 71 {
mimil 0:308f83189a3f 72 DBG("DNS: Processing.\n");
mimil 0:308f83189a3f 73 m_state = LWIPNETDNS_PROCESSING;
mimil 0:308f83189a3f 74 }
mimil 0:308f83189a3f 75 else //Likely ERR_VAL
mimil 0:308f83189a3f 76 {
mimil 0:308f83189a3f 77 DBG("DNS: Error on init.\n");
mimil 0:308f83189a3f 78 m_state = LWIPNETDNS_ERROR;
mimil 0:308f83189a3f 79 }
mimil 0:308f83189a3f 80 break;
mimil 0:308f83189a3f 81 case LWIPNETDNS_PROCESSING:
mimil 0:308f83189a3f 82 break; //Nothing to do, DNS is polled on interrupt
mimil 0:308f83189a3f 83 case LWIPNETDNS_OK:
mimil 0:308f83189a3f 84 if(!m_cbFired)
mimil 0:308f83189a3f 85 {
mimil 0:308f83189a3f 86 DBG("DNS: Ip found.\n");
mimil 0:308f83189a3f 87 m_cbFired = true;
mimil 0:308f83189a3f 88 onReply(NETDNS_FOUND); //Raise callback
mimil 0:308f83189a3f 89 }
mimil 0:308f83189a3f 90 break;
mimil 0:308f83189a3f 91 case LWIPNETDNS_NOTFOUND:
mimil 0:308f83189a3f 92 if(!m_cbFired)
mimil 0:308f83189a3f 93 {
mimil 0:308f83189a3f 94 DBG("DNS: could not be resolved.\n");
mimil 0:308f83189a3f 95 m_cbFired = true;
mimil 0:308f83189a3f 96 onReply(NETDNS_NOTFOUND); //Raise callback
mimil 0:308f83189a3f 97 }
mimil 0:308f83189a3f 98 break;
mimil 0:308f83189a3f 99 case LWIPNETDNS_ERROR:
mimil 0:308f83189a3f 100 default:
mimil 0:308f83189a3f 101 if(!m_cbFired)
mimil 0:308f83189a3f 102 {
mimil 0:308f83189a3f 103 DBG("DNS: Error.\n");
mimil 0:308f83189a3f 104 m_cbFired = true;
mimil 0:308f83189a3f 105 onReply(NETDNS_ERROR); //Raise callback
mimil 0:308f83189a3f 106 }
mimil 0:308f83189a3f 107 break;
mimil 0:308f83189a3f 108 }
mimil 0:308f83189a3f 109 if(m_closing && (m_state!=LWIPNETDNS_PROCESSING)) //Check wether the closure has been reqd
mimil 0:308f83189a3f 110 {
mimil 0:308f83189a3f 111 DBG("LwipNetDnsRequest: Closing in poll()\n");
mimil 0:308f83189a3f 112 NetDnsRequest::close();
mimil 0:308f83189a3f 113 }
mimil 0:308f83189a3f 114 }
mimil 0:308f83189a3f 115
mimil 0:308f83189a3f 116 void LwipNetDnsRequest::close()
mimil 0:308f83189a3f 117 {
mimil 0:308f83189a3f 118 DBG("LwipNetDnsRequest: Close req\n");
mimil 0:308f83189a3f 119 if(m_state!=LWIPNETDNS_PROCESSING)
mimil 0:308f83189a3f 120 {
mimil 0:308f83189a3f 121 DBG("LwipNetDnsRequest: Closing in close()\n");
mimil 0:308f83189a3f 122 NetDnsRequest::close();
mimil 0:308f83189a3f 123 }
mimil 0:308f83189a3f 124 else //Cannot close rightaway, waiting for callback from underlying layer
mimil 0:308f83189a3f 125 {
mimil 0:308f83189a3f 126 m_closing = true;
mimil 0:308f83189a3f 127 }
mimil 0:308f83189a3f 128 }
mimil 0:308f83189a3f 129
mimil 0:308f83189a3f 130 void LwipNetDnsRequest::foundCb(const char *name, ip_addr_t *ipaddr)
mimil 0:308f83189a3f 131 {
mimil 0:308f83189a3f 132 if( ipaddr == NULL )
mimil 0:308f83189a3f 133 {
mimil 0:308f83189a3f 134 DBG("LwipNetDnsRequest: Callback: Name not found\n");
mimil 0:308f83189a3f 135 m_state = LWIPNETDNS_NOTFOUND;
mimil 0:308f83189a3f 136 return;
mimil 0:308f83189a3f 137 }
mimil 0:308f83189a3f 138 DBG("LwipNetDnsRequest: Callback: Resolved\n");
mimil 0:308f83189a3f 139 m_ip = IpAddr(ipaddr);
mimil 0:308f83189a3f 140 m_state = LWIPNETDNS_OK;
mimil 0:308f83189a3f 141 }
mimil 0:308f83189a3f 142
mimil 0:308f83189a3f 143
mimil 0:308f83189a3f 144 void LwipNetDnsRequest::sFoundCb(const char *name, ip_addr_t *ipaddr, void *arg)
mimil 0:308f83189a3f 145 {
mimil 0:308f83189a3f 146 DBG("LwipNetDnsRequest: Static callback\n");
mimil 0:308f83189a3f 147 LwipNetDnsRequest* pMe = (LwipNetDnsRequest*) arg;
mimil 0:308f83189a3f 148 return pMe->foundCb( name, ipaddr );
mimil 0:308f83189a3f 149 }
mimil 0:308f83189a3f 150
mimil 0:308f83189a3f 151 #endif
mimil 0:308f83189a3f 152