Example self-announcing webserver which controls a servo through a smallHTML userinterface.

Dependencies:   mbed

Committer:
dirkx
Date:
Sat Aug 14 15:56:01 2010 +0000
Revision:
0:a259777c45a3

        

Who changed what in which revision?

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