Experimental HTTPClient with proxy support

Committer:
igorsk
Date:
Wed Jun 29 16:01:58 2011 +0000
Revision:
0:b56b6a05cad4

        

Who changed what in which revision?

UserRevisionLine numberNew contents of line
igorsk 0:b56b6a05cad4 1
igorsk 0:b56b6a05cad4 2 /*
igorsk 0:b56b6a05cad4 3 Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com)
igorsk 0:b56b6a05cad4 4
igorsk 0:b56b6a05cad4 5 Permission is hereby granted, free of charge, to any person obtaining a copy
igorsk 0:b56b6a05cad4 6 of this software and associated documentation files (the "Software"), to deal
igorsk 0:b56b6a05cad4 7 in the Software without restriction, including without limitation the rights
igorsk 0:b56b6a05cad4 8 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
igorsk 0:b56b6a05cad4 9 copies of the Software, and to permit persons to whom the Software is
igorsk 0:b56b6a05cad4 10 furnished to do so, subject to the following conditions:
igorsk 0:b56b6a05cad4 11
igorsk 0:b56b6a05cad4 12 The above copyright notice and this permission notice shall be included in
igorsk 0:b56b6a05cad4 13 all copies or substantial portions of the Software.
igorsk 0:b56b6a05cad4 14
igorsk 0:b56b6a05cad4 15 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
igorsk 0:b56b6a05cad4 16 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
igorsk 0:b56b6a05cad4 17 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
igorsk 0:b56b6a05cad4 18 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
igorsk 0:b56b6a05cad4 19 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
igorsk 0:b56b6a05cad4 20 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
igorsk 0:b56b6a05cad4 21 THE SOFTWARE.
igorsk 0:b56b6a05cad4 22 */
igorsk 0:b56b6a05cad4 23
igorsk 0:b56b6a05cad4 24 #include "GPRSModem.h"
igorsk 0:b56b6a05cad4 25 #include "mbed.h"
igorsk 0:b56b6a05cad4 26
igorsk 0:b56b6a05cad4 27 //#define __DEBUG
igorsk 0:b56b6a05cad4 28 #include "dbg/dbg.h"
igorsk 0:b56b6a05cad4 29
igorsk 0:b56b6a05cad4 30 #define WAIT_BTW_NETW_POLLS 3.
igorsk 0:b56b6a05cad4 31
igorsk 0:b56b6a05cad4 32 #include "netCfg.h"
igorsk 0:b56b6a05cad4 33 #if NET_GPRS
igorsk 0:b56b6a05cad4 34
igorsk 0:b56b6a05cad4 35 GPRSModem::GPRSModem() : ATIf()
igorsk 0:b56b6a05cad4 36 {
igorsk 0:b56b6a05cad4 37 DBG("New GPRSModem@%p\n", this);
igorsk 0:b56b6a05cad4 38 }
igorsk 0:b56b6a05cad4 39
igorsk 0:b56b6a05cad4 40 GPRSModem::~GPRSModem()
igorsk 0:b56b6a05cad4 41 {
igorsk 0:b56b6a05cad4 42
igorsk 0:b56b6a05cad4 43 }
igorsk 0:b56b6a05cad4 44
igorsk 0:b56b6a05cad4 45 GPRSErr GPRSModem::getNetworkState()
igorsk 0:b56b6a05cad4 46 {
igorsk 0:b56b6a05cad4 47 ATIf::flushBuffer();
igorsk 0:b56b6a05cad4 48 /*
igorsk 0:b56b6a05cad4 49 netState can be : (Telit_AT_Reference_Guide.pdf p.98)
igorsk 0:b56b6a05cad4 50 0 - not registered, ME is not currently searching a new operator to register to
igorsk 0:b56b6a05cad4 51 1 - registered, home network
igorsk 0:b56b6a05cad4 52 2 - not registered, but ME is currently searching a new operator to register to
igorsk 0:b56b6a05cad4 53 3 - registration denied
igorsk 0:b56b6a05cad4 54 4 - unknown
igorsk 0:b56b6a05cad4 55 5 - registered, roaming
igorsk 0:b56b6a05cad4 56 */
igorsk 0:b56b6a05cad4 57 // DBG("Network?...\r\n");
igorsk 0:b56b6a05cad4 58 ATIf::setReadMode(false); //Discard chars
igorsk 0:b56b6a05cad4 59 ATIf::setTimeout(10000);
igorsk 0:b56b6a05cad4 60 ATIf::setLineMode(true); //Line mode
igorsk 0:b56b6a05cad4 61 int netState = 0;
igorsk 0:b56b6a05cad4 62 int len;
igorsk 0:b56b6a05cad4 63 len = ATIf::printf("AT+CREG?"); //Registered ?
igorsk 0:b56b6a05cad4 64 if(!len) DBG("\r\nprintf - len=%d\r\n",len);
igorsk 0:b56b6a05cad4 65 if(!len)
igorsk 0:b56b6a05cad4 66 return GPRS_MODEM; //Nothing was actually sent
igorsk 0:b56b6a05cad4 67
igorsk 0:b56b6a05cad4 68 len = ATIf::scanf("+CREG: 0,%d", &netState); //Get status
igorsk 0:b56b6a05cad4 69 if(len != 1) DBG("\r\nscanf - len=%d\r\n",len);
igorsk 0:b56b6a05cad4 70 if(len != 1) //Likely +CMS ERROR was returned
igorsk 0:b56b6a05cad4 71 return GPRS_MODEM;
igorsk 0:b56b6a05cad4 72
igorsk 0:b56b6a05cad4 73 if( !!ATIf::checkOK() ) //Should not be a problem
igorsk 0:b56b6a05cad4 74 {DBG("\r\nNOK\r\n"); return GPRS_MODEM; }
igorsk 0:b56b6a05cad4 75
igorsk 0:b56b6a05cad4 76 switch(netState)
igorsk 0:b56b6a05cad4 77 {
igorsk 0:b56b6a05cad4 78 case 1:
igorsk 0:b56b6a05cad4 79 case 5: //TODO: Option allow roaming
igorsk 0:b56b6a05cad4 80 DBG("\r\nNetwork is up!\r\n");
igorsk 0:b56b6a05cad4 81 return GPRS_OK;
igorsk 0:b56b6a05cad4 82 case 3:
igorsk 0:b56b6a05cad4 83 DBG("\r\nAccess to network denied.\r\n");
igorsk 0:b56b6a05cad4 84 return GPRS_DENIED;
igorsk 0:b56b6a05cad4 85 case 0:
igorsk 0:b56b6a05cad4 86 DBG("\r\nNo network.\r\n");
igorsk 0:b56b6a05cad4 87 return GPRS_NONETWORK;
igorsk 0:b56b6a05cad4 88 case 4:
igorsk 0:b56b6a05cad4 89 case 2:
igorsk 0:b56b6a05cad4 90 //DBG("\r\nRegistering...\r\n");
igorsk 0:b56b6a05cad4 91 return GPRS_REGISTERING;
igorsk 0:b56b6a05cad4 92 }
igorsk 0:b56b6a05cad4 93
igorsk 0:b56b6a05cad4 94 return GPRS_MODEM; // Should not reach this
igorsk 0:b56b6a05cad4 95
igorsk 0:b56b6a05cad4 96 }
igorsk 0:b56b6a05cad4 97
igorsk 0:b56b6a05cad4 98 GPRSErr GPRSModem::setNetworkUp()
igorsk 0:b56b6a05cad4 99 {
igorsk 0:b56b6a05cad4 100 ATIf::flushBuffer();
igorsk 0:b56b6a05cad4 101 GPRSErr err = GPRS_REGISTERING;
igorsk 0:b56b6a05cad4 102 while(true)
igorsk 0:b56b6a05cad4 103 {
igorsk 0:b56b6a05cad4 104 err = getNetworkState();
igorsk 0:b56b6a05cad4 105 if(err != GPRS_REGISTERING)
igorsk 0:b56b6a05cad4 106 break;
igorsk 0:b56b6a05cad4 107 wait(WAIT_BTW_NETW_POLLS);
igorsk 0:b56b6a05cad4 108 }
igorsk 0:b56b6a05cad4 109 return err;
igorsk 0:b56b6a05cad4 110 }
igorsk 0:b56b6a05cad4 111
igorsk 0:b56b6a05cad4 112 //Same, but for GPRS
igorsk 0:b56b6a05cad4 113 GPRSErr GPRSModem::getGPRSState()
igorsk 0:b56b6a05cad4 114 {
igorsk 0:b56b6a05cad4 115 ATIf::flushBuffer();
igorsk 0:b56b6a05cad4 116 /*
igorsk 0:b56b6a05cad4 117 netState can be : (Telit_AT_Reference_Guide.pdf p.192)
igorsk 0:b56b6a05cad4 118 0 - not registered, terminal is not currently searching a new operator to register to
igorsk 0:b56b6a05cad4 119 1 - registered, home network
igorsk 0:b56b6a05cad4 120 2 - not registered, but terminal is currently searching a new operator to register to
igorsk 0:b56b6a05cad4 121 3 - registration denied
igorsk 0:b56b6a05cad4 122 4 - unknown
igorsk 0:b56b6a05cad4 123 5 - registered, roaming
igorsk 0:b56b6a05cad4 124 */
igorsk 0:b56b6a05cad4 125
igorsk 0:b56b6a05cad4 126 DBG("GPRS?...\r\n");
igorsk 0:b56b6a05cad4 127 ATIf::setReadMode(false); //Discard chars
igorsk 0:b56b6a05cad4 128 ATIf::setTimeout(10000);
igorsk 0:b56b6a05cad4 129 ATIf::setLineMode(true); //Line mode
igorsk 0:b56b6a05cad4 130 int netState = 0;
igorsk 0:b56b6a05cad4 131 int len;
igorsk 0:b56b6a05cad4 132 len = ATIf::printf("AT+CGREG?"); //Registered ?
igorsk 0:b56b6a05cad4 133 if(!len)
igorsk 0:b56b6a05cad4 134 return GPRS_MODEM; //Nothing was actually sent
igorsk 0:b56b6a05cad4 135
igorsk 0:b56b6a05cad4 136 len = ATIf::scanf("+CGREG: %*d,%d", &netState); //Get GPRS status, see GSM 07.07 spec as Telit AT ref is wrong
igorsk 0:b56b6a05cad4 137 if(len != 1) DBG("\r\nscanf - len=%d\r\n",len);
igorsk 0:b56b6a05cad4 138 if(len != 1) //Likely +CMS ERROR was returned
igorsk 0:b56b6a05cad4 139 return GPRS_MODEM;
igorsk 0:b56b6a05cad4 140
igorsk 0:b56b6a05cad4 141 if( !!ATIf::checkOK() ) //Should not be a problem
igorsk 0:b56b6a05cad4 142 return GPRS_MODEM;
igorsk 0:b56b6a05cad4 143
igorsk 0:b56b6a05cad4 144 switch(netState)
igorsk 0:b56b6a05cad4 145 {
igorsk 0:b56b6a05cad4 146 case 1:
igorsk 0:b56b6a05cad4 147 case 5: //TODO: Option allow roaming
igorsk 0:b56b6a05cad4 148 DBG("\r\nNetwork is up!\r\n");
igorsk 0:b56b6a05cad4 149 return GPRS_OK;
igorsk 0:b56b6a05cad4 150 case 3:
igorsk 0:b56b6a05cad4 151 DBG("\r\nAccess to network denied.\r\n");
igorsk 0:b56b6a05cad4 152 return GPRS_DENIED;
igorsk 0:b56b6a05cad4 153 case 0:
igorsk 0:b56b6a05cad4 154 DBG("\r\nNo network.\r\n");
igorsk 0:b56b6a05cad4 155 return GPRS_NONETWORK;
igorsk 0:b56b6a05cad4 156 case 4:
igorsk 0:b56b6a05cad4 157 case 2:
igorsk 0:b56b6a05cad4 158 DBG("\r\nRegistering...\r\n");
igorsk 0:b56b6a05cad4 159 return GPRS_REGISTERING;
igorsk 0:b56b6a05cad4 160 }
igorsk 0:b56b6a05cad4 161
igorsk 0:b56b6a05cad4 162 return GPRS_MODEM; // Should not reach this
igorsk 0:b56b6a05cad4 163
igorsk 0:b56b6a05cad4 164 }
igorsk 0:b56b6a05cad4 165
igorsk 0:b56b6a05cad4 166 GPRSErr GPRSModem::setGPRSUp()
igorsk 0:b56b6a05cad4 167 {
igorsk 0:b56b6a05cad4 168 ATIf::flushBuffer();
igorsk 0:b56b6a05cad4 169 GPRSErr err;
igorsk 0:b56b6a05cad4 170
igorsk 0:b56b6a05cad4 171 err = setNetworkUp();
igorsk 0:b56b6a05cad4 172 if(err)
igorsk 0:b56b6a05cad4 173 return err;
igorsk 0:b56b6a05cad4 174
igorsk 0:b56b6a05cad4 175 DBG("\r\nAttaching GPRS...\r\n");
igorsk 0:b56b6a05cad4 176 ATIf::setReadMode(false); //Discard chars
igorsk 0:b56b6a05cad4 177 ATIf::setTimeout(10000);
igorsk 0:b56b6a05cad4 178 ATIf::setLineMode(true); //Line mode
igorsk 0:b56b6a05cad4 179 int len;
igorsk 0:b56b6a05cad4 180
igorsk 0:b56b6a05cad4 181 err = getGPRSState();
igorsk 0:b56b6a05cad4 182 if(err == GPRS_NONETWORK)
igorsk 0:b56b6a05cad4 183 {
igorsk 0:b56b6a05cad4 184 len = ATIf::printf("AT+CGATT=1"); //Attach
igorsk 0:b56b6a05cad4 185 if(!len)
igorsk 0:b56b6a05cad4 186 return GPRS_MODEM; //Nothing was actually sent
igorsk 0:b56b6a05cad4 187
igorsk 0:b56b6a05cad4 188 if( !!ATIf::checkOK() ) //Should not be a problem
igorsk 0:b56b6a05cad4 189 return GPRS_MODEM;
igorsk 0:b56b6a05cad4 190 }
igorsk 0:b56b6a05cad4 191
igorsk 0:b56b6a05cad4 192 while(true)
igorsk 0:b56b6a05cad4 193 {
igorsk 0:b56b6a05cad4 194 err = getGPRSState();
igorsk 0:b56b6a05cad4 195 if(err != GPRS_REGISTERING)
igorsk 0:b56b6a05cad4 196 break;
igorsk 0:b56b6a05cad4 197 wait(WAIT_BTW_NETW_POLLS);
igorsk 0:b56b6a05cad4 198 }
igorsk 0:b56b6a05cad4 199 return err;
igorsk 0:b56b6a05cad4 200 }
igorsk 0:b56b6a05cad4 201
igorsk 0:b56b6a05cad4 202 GPRSErr GPRSModem::setGPRSDown()
igorsk 0:b56b6a05cad4 203 {
igorsk 0:b56b6a05cad4 204 ATIf::flushBuffer();
igorsk 0:b56b6a05cad4 205 DBG("\r\nDetaching GPRS...\r\n");
igorsk 0:b56b6a05cad4 206 ATIf::setReadMode(false); //Discard chars
igorsk 0:b56b6a05cad4 207 ATIf::setTimeout(10000);
igorsk 0:b56b6a05cad4 208 ATIf::setLineMode(true); //Line mode
igorsk 0:b56b6a05cad4 209 int len;
igorsk 0:b56b6a05cad4 210
igorsk 0:b56b6a05cad4 211 len = ATIf::printf("AT+CGATT=0"); //Detach
igorsk 0:b56b6a05cad4 212 if(!len)
igorsk 0:b56b6a05cad4 213 return GPRS_MODEM; //Nothing was actually sent
igorsk 0:b56b6a05cad4 214
igorsk 0:b56b6a05cad4 215 if( !!ATIf::checkOK() ) //Should not be a problem
igorsk 0:b56b6a05cad4 216 return GPRS_MODEM;
igorsk 0:b56b6a05cad4 217
igorsk 0:b56b6a05cad4 218 return GPRS_OK;
igorsk 0:b56b6a05cad4 219 }
igorsk 0:b56b6a05cad4 220
igorsk 0:b56b6a05cad4 221
igorsk 0:b56b6a05cad4 222 GPRSErr GPRSModem::connect(const char* apn /*=NULL*/)
igorsk 0:b56b6a05cad4 223 {
igorsk 0:b56b6a05cad4 224 ATIf::flushBuffer();
igorsk 0:b56b6a05cad4 225 GPRSErr err;
igorsk 0:b56b6a05cad4 226
igorsk 0:b56b6a05cad4 227 ATIf::setReadMode(false); //Discard chars
igorsk 0:b56b6a05cad4 228 ATIf::setTimeout(5000);
igorsk 0:b56b6a05cad4 229 ATIf::setLineMode(true); //Line mode
igorsk 0:b56b6a05cad4 230
igorsk 0:b56b6a05cad4 231 DBG("\r\nConnecting...\r\n");
igorsk 0:b56b6a05cad4 232
igorsk 0:b56b6a05cad4 233 int len;
igorsk 0:b56b6a05cad4 234
igorsk 0:b56b6a05cad4 235 if( apn != NULL ) //Config APN
igorsk 0:b56b6a05cad4 236 {
igorsk 0:b56b6a05cad4 237 len = ATIf::printf("AT+CGDCONT=1,\"IP\",\"%s\"",apn); //Define APN
igorsk 0:b56b6a05cad4 238 if(!len)
igorsk 0:b56b6a05cad4 239 return GPRS_MODEM; //Nothing was actually sent
igorsk 0:b56b6a05cad4 240
igorsk 0:b56b6a05cad4 241 if( !!ATIf::checkOK() ) //Should not be a problem
igorsk 0:b56b6a05cad4 242 return GPRS_MODEM;
igorsk 0:b56b6a05cad4 243 }
igorsk 0:b56b6a05cad4 244
igorsk 0:b56b6a05cad4 245 err = setGPRSUp();
igorsk 0:b56b6a05cad4 246 if(err)
igorsk 0:b56b6a05cad4 247 return err;
igorsk 0:b56b6a05cad4 248
igorsk 0:b56b6a05cad4 249 ATIf::setReadMode(false); //Discard chars
igorsk 0:b56b6a05cad4 250 ATIf::setTimeout(60000);
igorsk 0:b56b6a05cad4 251 ATIf::setLineMode(true); //Line mode
igorsk 0:b56b6a05cad4 252 //
igorsk 0:b56b6a05cad4 253 //len = ATIf::printf("AT+CGDATA=\"PPP\",1"); //Connect using PDP context #1
igorsk 0:b56b6a05cad4 254 // len = ATIf::printf("ATDT *99***1#");
igorsk 0:b56b6a05cad4 255 len = ATIf::printf("ATDT *99#");
igorsk 0:b56b6a05cad4 256 if(!len)
igorsk 0:b56b6a05cad4 257 return GPRS_MODEM; //Nothing was actually sent
igorsk 0:b56b6a05cad4 258
igorsk 0:b56b6a05cad4 259 len = ATIf::scanf("CONNECT"); //Beginning of session
igorsk 0:b56b6a05cad4 260 if(len != 0) //Likely +CME ERROR was returned or NO CARRIER
igorsk 0:b56b6a05cad4 261 return GPRS_MODEM;
igorsk 0:b56b6a05cad4 262
igorsk 0:b56b6a05cad4 263 //ATIf::setSignals(false);
igorsk 0:b56b6a05cad4 264
igorsk 0:b56b6a05cad4 265 DBG("\r\nConnected.\r\n");
igorsk 0:b56b6a05cad4 266
igorsk 0:b56b6a05cad4 267 return GPRS_OK; //Time to enter a PPP Session !
igorsk 0:b56b6a05cad4 268
igorsk 0:b56b6a05cad4 269 }
igorsk 0:b56b6a05cad4 270
igorsk 0:b56b6a05cad4 271 GPRSErr GPRSModem::disconnect()
igorsk 0:b56b6a05cad4 272 {
igorsk 0:b56b6a05cad4 273 ATIf::flushBuffer();
igorsk 0:b56b6a05cad4 274 ATIf::setReadMode(false); //Discard chars
igorsk 0:b56b6a05cad4 275 ATIf::setTimeout(5000);
igorsk 0:b56b6a05cad4 276 ATIf::setLineMode(true); //Line mode
igorsk 0:b56b6a05cad4 277
igorsk 0:b56b6a05cad4 278 if( !!ATIf::checkOK() ) //Should be present at the end of connection
igorsk 0:b56b6a05cad4 279 return GPRS_MODEM;
igorsk 0:b56b6a05cad4 280
igorsk 0:b56b6a05cad4 281 GPRSErr err;
igorsk 0:b56b6a05cad4 282 err = setGPRSDown();
igorsk 0:b56b6a05cad4 283 if(err)
igorsk 0:b56b6a05cad4 284 return err;
igorsk 0:b56b6a05cad4 285
igorsk 0:b56b6a05cad4 286 DBG("\r\nDisconnected.\r\n");
igorsk 0:b56b6a05cad4 287
igorsk 0:b56b6a05cad4 288 return GPRS_OK;
igorsk 0:b56b6a05cad4 289 }
igorsk 0:b56b6a05cad4 290
igorsk 0:b56b6a05cad4 291 #endif
igorsk 0:b56b6a05cad4 292