Rod Coleman / NetServices

Netservices modded to read fragmented HTTP respsonse/payload from special purpose server - 180 bytes only

drv/gprs/GPRSModem.cpp@0:8f5825f330b0, 2011-09-08 (annotated)

Committer:
RodColeman
Date:
Thu Sep 08 10:41:36 2011 +0000
Revision:
0:8f5825f330b0
setDataLen hacked to 180bytes

Who changed what in which revision?

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