Allows SMS to be sent to query Alexa. Also allows HTTP requests to be sent to Alexa via an ESP8266-hosted web server.
Adafruit_FONA.cpp@0:1271d15b4d4b, 2017-05-02 (annotated)
- Committer:
- itatchi42
- Date:
- Tue May 02 03:13:27 2017 +0000
- Revision:
- 0:1271d15b4d4b
Allows SMS communication with Amazon Dot's Alexa.; Also allows URL queries to be sent to ESP8266-hosted HTTP server to communicate with Alexa.
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
itatchi42 | 0:1271d15b4d4b | 1 | /*************************************************** |
itatchi42 | 0:1271d15b4d4b | 2 | This is a library for our Adafruit FONA Cellular Module |
itatchi42 | 0:1271d15b4d4b | 3 | |
itatchi42 | 0:1271d15b4d4b | 4 | Designed specifically to work with the Adafruit FONA |
itatchi42 | 0:1271d15b4d4b | 5 | ----> http://www.adafruit.com/products/1946 |
itatchi42 | 0:1271d15b4d4b | 6 | ----> http://www.adafruit.com/products/1963 |
itatchi42 | 0:1271d15b4d4b | 7 | |
itatchi42 | 0:1271d15b4d4b | 8 | These displays use TTL Serial to communicate, 2 pins are required to |
itatchi42 | 0:1271d15b4d4b | 9 | interface |
itatchi42 | 0:1271d15b4d4b | 10 | Adafruit invests time and resources providing this open source code, |
itatchi42 | 0:1271d15b4d4b | 11 | please support Adafruit and open-source hardware by purchasing |
itatchi42 | 0:1271d15b4d4b | 12 | products from Adafruit! |
itatchi42 | 0:1271d15b4d4b | 13 | |
itatchi42 | 0:1271d15b4d4b | 14 | Written by Limor Fried/Ladyada for Adafruit Industries. |
itatchi42 | 0:1271d15b4d4b | 15 | BSD license, all text above must be included in any redistribution |
itatchi42 | 0:1271d15b4d4b | 16 | ****************************************************/ |
itatchi42 | 0:1271d15b4d4b | 17 | |
itatchi42 | 0:1271d15b4d4b | 18 | /* |
itatchi42 | 0:1271d15b4d4b | 19 | * Modified by George Tzintzarov & Jesse Baker 03/14/2016 for use in mbed LPC1768 |
itatchi42 | 0:1271d15b4d4b | 20 | */ |
itatchi42 | 0:1271d15b4d4b | 21 | #include <algorithm> |
itatchi42 | 0:1271d15b4d4b | 22 | #include "Adafruit_FONA.h" |
itatchi42 | 0:1271d15b4d4b | 23 | |
itatchi42 | 0:1271d15b4d4b | 24 | #define HIGH 1 |
itatchi42 | 0:1271d15b4d4b | 25 | #define LOW 0 |
itatchi42 | 0:1271d15b4d4b | 26 | |
itatchi42 | 0:1271d15b4d4b | 27 | /* |
itatchi42 | 0:1271d15b4d4b | 28 | Notes George is taking: |
itatchi42 | 0:1271d15b4d4b | 29 | sendCheckReply returns a boolean where its true when FONA responds with the string of its second input |
itatchi42 | 0:1271d15b4d4b | 30 | |
itatchi42 | 0:1271d15b4d4b | 31 | */ |
itatchi42 | 0:1271d15b4d4b | 32 | |
itatchi42 | 0:1271d15b4d4b | 33 | |
itatchi42 | 0:1271d15b4d4b | 34 | bool Adafruit_FONA::begin(int baudrate) { |
itatchi42 | 0:1271d15b4d4b | 35 | mySerial.baud(baudrate); //set the baud rate of the fona serial connection |
itatchi42 | 0:1271d15b4d4b | 36 | mySerial.attach(this, &Adafruit_FONA::onSerialDataReceived, Serial::RxIrq); //attached onSerialDataReceived as Serial receive interrupt |
itatchi42 | 0:1271d15b4d4b | 37 | |
itatchi42 | 0:1271d15b4d4b | 38 | // INIT Reboot process |
itatchi42 | 0:1271d15b4d4b | 39 | _rstpin = HIGH; |
itatchi42 | 0:1271d15b4d4b | 40 | wait_ms(10); |
itatchi42 | 0:1271d15b4d4b | 41 | _rstpin = LOW; |
itatchi42 | 0:1271d15b4d4b | 42 | wait_ms(100); |
itatchi42 | 0:1271d15b4d4b | 43 | _rstpin = HIGH; |
itatchi42 | 0:1271d15b4d4b | 44 | |
itatchi42 | 0:1271d15b4d4b | 45 | // give 3 seconds to reboot |
itatchi42 | 0:1271d15b4d4b | 46 | wait_ms(3000); |
itatchi42 | 0:1271d15b4d4b | 47 | |
itatchi42 | 0:1271d15b4d4b | 48 | // flushes the serial port |
itatchi42 | 0:1271d15b4d4b | 49 | while (readable()) getc(); |
itatchi42 | 0:1271d15b4d4b | 50 | |
itatchi42 | 0:1271d15b4d4b | 51 | // Make sure FONA is alive |
itatchi42 | 0:1271d15b4d4b | 52 | sendCheckReply("AT", "OK"); |
itatchi42 | 0:1271d15b4d4b | 53 | wait_ms(100); |
itatchi42 | 0:1271d15b4d4b | 54 | sendCheckReply("AT", "OK"); |
itatchi42 | 0:1271d15b4d4b | 55 | wait_ms(100); |
itatchi42 | 0:1271d15b4d4b | 56 | sendCheckReply("AT", "OK"); |
itatchi42 | 0:1271d15b4d4b | 57 | wait_ms(100); |
itatchi42 | 0:1271d15b4d4b | 58 | |
itatchi42 | 0:1271d15b4d4b | 59 | // turn off Echo! |
itatchi42 | 0:1271d15b4d4b | 60 | sendCheckReply("ATE0", "OK"); |
itatchi42 | 0:1271d15b4d4b | 61 | wait_ms(100); |
itatchi42 | 0:1271d15b4d4b | 62 | |
itatchi42 | 0:1271d15b4d4b | 63 | // Just checks if the FONA even responds, if it doesnt, then return false |
itatchi42 | 0:1271d15b4d4b | 64 | if (! sendCheckReply("ATE0", "OK")) { |
itatchi42 | 0:1271d15b4d4b | 65 | return false; |
itatchi42 | 0:1271d15b4d4b | 66 | } |
itatchi42 | 0:1271d15b4d4b | 67 | |
itatchi42 | 0:1271d15b4d4b | 68 | return true; |
itatchi42 | 0:1271d15b4d4b | 69 | } |
itatchi42 | 0:1271d15b4d4b | 70 | |
itatchi42 | 0:1271d15b4d4b | 71 | void Adafruit_FONA::setEventListener(EventListener *eventListener) { |
itatchi42 | 0:1271d15b4d4b | 72 | this->eventListener = eventListener; |
itatchi42 | 0:1271d15b4d4b | 73 | } |
itatchi42 | 0:1271d15b4d4b | 74 | |
itatchi42 | 0:1271d15b4d4b | 75 | /********* Stream ********************************************/ |
itatchi42 | 0:1271d15b4d4b | 76 | |
itatchi42 | 0:1271d15b4d4b | 77 | int Adafruit_FONA::_putc(int value) { |
itatchi42 | 0:1271d15b4d4b | 78 | return mySerial.putc(value); |
itatchi42 | 0:1271d15b4d4b | 79 | } |
itatchi42 | 0:1271d15b4d4b | 80 | |
itatchi42 | 0:1271d15b4d4b | 81 | int Adafruit_FONA::_getc() { |
itatchi42 | 0:1271d15b4d4b | 82 | __disable_irq(); // Start Critical Section - don't interrupt while changing global buffer variables |
itatchi42 | 0:1271d15b4d4b | 83 | |
itatchi42 | 0:1271d15b4d4b | 84 | // Wait for data if the buffer is empty |
itatchi42 | 0:1271d15b4d4b | 85 | if (isRxBufferEmpty()) { |
itatchi42 | 0:1271d15b4d4b | 86 | __enable_irq(); // End Critical Section - need to allow rx interrupt to get new characters for buffer |
itatchi42 | 0:1271d15b4d4b | 87 | |
itatchi42 | 0:1271d15b4d4b | 88 | while(isRxBufferEmpty()); |
itatchi42 | 0:1271d15b4d4b | 89 | |
itatchi42 | 0:1271d15b4d4b | 90 | __disable_irq(); // Start Critical Section - don't interrupt while changing global buffer variables |
itatchi42 | 0:1271d15b4d4b | 91 | } |
itatchi42 | 0:1271d15b4d4b | 92 | |
itatchi42 | 0:1271d15b4d4b | 93 | int data = rxBuffer[rxBufferOutIndex]; |
itatchi42 | 0:1271d15b4d4b | 94 | incrementRxBufferOutIndex(); |
itatchi42 | 0:1271d15b4d4b | 95 | |
itatchi42 | 0:1271d15b4d4b | 96 | __enable_irq(); // End Critical Section |
itatchi42 | 0:1271d15b4d4b | 97 | |
itatchi42 | 0:1271d15b4d4b | 98 | return data; |
itatchi42 | 0:1271d15b4d4b | 99 | } |
itatchi42 | 0:1271d15b4d4b | 100 | |
itatchi42 | 0:1271d15b4d4b | 101 | int Adafruit_FONA::readable() { |
itatchi42 | 0:1271d15b4d4b | 102 | return !isRxBufferEmpty(); |
itatchi42 | 0:1271d15b4d4b | 103 | } |
itatchi42 | 0:1271d15b4d4b | 104 | |
itatchi42 | 0:1271d15b4d4b | 105 | void Adafruit_FONA::onSerialDataReceived() { |
itatchi42 | 0:1271d15b4d4b | 106 | while (mySerial.readable() && !isRxBufferFull()) { |
itatchi42 | 0:1271d15b4d4b | 107 | int data = mySerial.getc(); |
itatchi42 | 0:1271d15b4d4b | 108 | rxBuffer[rxBufferInIndex] = data; |
itatchi42 | 0:1271d15b4d4b | 109 | |
itatchi42 | 0:1271d15b4d4b | 110 | // |
itatchi42 | 0:1271d15b4d4b | 111 | // Analyze the received data in order to detect events like RING or NO CARRIER |
itatchi42 | 0:1271d15b4d4b | 112 | // |
itatchi42 | 0:1271d15b4d4b | 113 | |
itatchi42 | 0:1271d15b4d4b | 114 | // Copy the data in the current line |
itatchi42 | 0:1271d15b4d4b | 115 | if (currentReceivedLineSize < RX_BUFFER_SIZE && data != '\r' && data != '\n') { |
itatchi42 | 0:1271d15b4d4b | 116 | currentReceivedLine[currentReceivedLineSize] = (char) data; |
itatchi42 | 0:1271d15b4d4b | 117 | currentReceivedLineSize++; |
itatchi42 | 0:1271d15b4d4b | 118 | } |
itatchi42 | 0:1271d15b4d4b | 119 | |
itatchi42 | 0:1271d15b4d4b | 120 | // Check if the line is complete |
itatchi42 | 0:1271d15b4d4b | 121 | if (data == '\n') { |
itatchi42 | 0:1271d15b4d4b | 122 | currentReceivedLine[currentReceivedLineSize] = 0; |
itatchi42 | 0:1271d15b4d4b | 123 | |
itatchi42 | 0:1271d15b4d4b | 124 | if (eventListener != NULL) { |
itatchi42 | 0:1271d15b4d4b | 125 | // Check if we have a special event |
itatchi42 | 0:1271d15b4d4b | 126 | if (strcmp(currentReceivedLine, "RING") == 0) { |
itatchi42 | 0:1271d15b4d4b | 127 | eventListener->onRing(); |
itatchi42 | 0:1271d15b4d4b | 128 | } else if (strcmp(currentReceivedLine, "NO CARRIER") == 0) { |
itatchi42 | 0:1271d15b4d4b | 129 | eventListener->onNoCarrier(); |
itatchi42 | 0:1271d15b4d4b | 130 | } |
itatchi42 | 0:1271d15b4d4b | 131 | } |
itatchi42 | 0:1271d15b4d4b | 132 | |
itatchi42 | 0:1271d15b4d4b | 133 | currentReceivedLineSize = 0; |
itatchi42 | 0:1271d15b4d4b | 134 | } |
itatchi42 | 0:1271d15b4d4b | 135 | |
itatchi42 | 0:1271d15b4d4b | 136 | incrementRxBufferInIndex(); |
itatchi42 | 0:1271d15b4d4b | 137 | } |
itatchi42 | 0:1271d15b4d4b | 138 | } |
itatchi42 | 0:1271d15b4d4b | 139 | |
itatchi42 | 0:1271d15b4d4b | 140 | /********* Real Time Clock ********************************************/ |
itatchi42 | 0:1271d15b4d4b | 141 | |
itatchi42 | 0:1271d15b4d4b | 142 | bool Adafruit_FONA::enableRTC(uint8_t i) { |
itatchi42 | 0:1271d15b4d4b | 143 | if (! sendCheckReply("AT+CLTS=", i, "OK")) |
itatchi42 | 0:1271d15b4d4b | 144 | return false; |
itatchi42 | 0:1271d15b4d4b | 145 | return sendCheckReply("AT&W", "OK"); |
itatchi42 | 0:1271d15b4d4b | 146 | } |
itatchi42 | 0:1271d15b4d4b | 147 | |
itatchi42 | 0:1271d15b4d4b | 148 | /********* BATTERY & ADC ********************************************/ |
itatchi42 | 0:1271d15b4d4b | 149 | |
itatchi42 | 0:1271d15b4d4b | 150 | /* returns value in mV (uint16_t) */ |
itatchi42 | 0:1271d15b4d4b | 151 | bool Adafruit_FONA::getBattVoltage(uint16_t *v) { |
itatchi42 | 0:1271d15b4d4b | 152 | return sendParseReply("AT+CBC", "+CBC: ", v, ',', 2); |
itatchi42 | 0:1271d15b4d4b | 153 | } |
itatchi42 | 0:1271d15b4d4b | 154 | |
itatchi42 | 0:1271d15b4d4b | 155 | /* returns the percentage charge of battery as reported by sim800 */ |
itatchi42 | 0:1271d15b4d4b | 156 | bool Adafruit_FONA::getBattPercent(uint16_t *p) { |
itatchi42 | 0:1271d15b4d4b | 157 | return sendParseReply("AT+CBC", "+CBC: ", p, ',', 1); |
itatchi42 | 0:1271d15b4d4b | 158 | } |
itatchi42 | 0:1271d15b4d4b | 159 | |
itatchi42 | 0:1271d15b4d4b | 160 | bool Adafruit_FONA::getADCVoltage(uint16_t *v) { |
itatchi42 | 0:1271d15b4d4b | 161 | return sendParseReply("AT+CADC?", "+CADC: 1,", v); |
itatchi42 | 0:1271d15b4d4b | 162 | } |
itatchi42 | 0:1271d15b4d4b | 163 | |
itatchi42 | 0:1271d15b4d4b | 164 | /********* SIM ***********************************************************/ |
itatchi42 | 0:1271d15b4d4b | 165 | |
itatchi42 | 0:1271d15b4d4b | 166 | bool Adafruit_FONA::unlockSIM(char *pin) |
itatchi42 | 0:1271d15b4d4b | 167 | { |
itatchi42 | 0:1271d15b4d4b | 168 | char sendbuff[14] = "AT+CPIN="; |
itatchi42 | 0:1271d15b4d4b | 169 | sendbuff[8] = pin[0]; |
itatchi42 | 0:1271d15b4d4b | 170 | sendbuff[9] = pin[1]; |
itatchi42 | 0:1271d15b4d4b | 171 | sendbuff[10] = pin[2]; |
itatchi42 | 0:1271d15b4d4b | 172 | sendbuff[11] = pin[3]; |
itatchi42 | 0:1271d15b4d4b | 173 | sendbuff[12] = NULL; |
itatchi42 | 0:1271d15b4d4b | 174 | |
itatchi42 | 0:1271d15b4d4b | 175 | return sendCheckReply(sendbuff, "OK"); |
itatchi42 | 0:1271d15b4d4b | 176 | } |
itatchi42 | 0:1271d15b4d4b | 177 | |
itatchi42 | 0:1271d15b4d4b | 178 | uint8_t Adafruit_FONA::getSIMCCID(char *ccid) { |
itatchi42 | 0:1271d15b4d4b | 179 | getReply("AT+CCID"); |
itatchi42 | 0:1271d15b4d4b | 180 | // up to 20 chars |
itatchi42 | 0:1271d15b4d4b | 181 | strncpy(ccid, replybuffer, 20); |
itatchi42 | 0:1271d15b4d4b | 182 | ccid[20] = 0; |
itatchi42 | 0:1271d15b4d4b | 183 | |
itatchi42 | 0:1271d15b4d4b | 184 | readline(); // eat 'OK' |
itatchi42 | 0:1271d15b4d4b | 185 | |
itatchi42 | 0:1271d15b4d4b | 186 | return strlen(ccid); |
itatchi42 | 0:1271d15b4d4b | 187 | } |
itatchi42 | 0:1271d15b4d4b | 188 | |
itatchi42 | 0:1271d15b4d4b | 189 | /********* IMEI **********************************************************/ |
itatchi42 | 0:1271d15b4d4b | 190 | |
itatchi42 | 0:1271d15b4d4b | 191 | uint8_t Adafruit_FONA::getIMEI(char *imei) { |
itatchi42 | 0:1271d15b4d4b | 192 | getReply("AT+GSN"); |
itatchi42 | 0:1271d15b4d4b | 193 | |
itatchi42 | 0:1271d15b4d4b | 194 | // up to 15 chars |
itatchi42 | 0:1271d15b4d4b | 195 | strncpy(imei, replybuffer, 15); |
itatchi42 | 0:1271d15b4d4b | 196 | imei[15] = 0; |
itatchi42 | 0:1271d15b4d4b | 197 | |
itatchi42 | 0:1271d15b4d4b | 198 | readline(); // eat 'OK' |
itatchi42 | 0:1271d15b4d4b | 199 | |
itatchi42 | 0:1271d15b4d4b | 200 | return strlen(imei); |
itatchi42 | 0:1271d15b4d4b | 201 | } |
itatchi42 | 0:1271d15b4d4b | 202 | |
itatchi42 | 0:1271d15b4d4b | 203 | /********* NETWORK *******************************************************/ |
itatchi42 | 0:1271d15b4d4b | 204 | |
itatchi42 | 0:1271d15b4d4b | 205 | uint8_t Adafruit_FONA::getNetworkStatus(void) { |
itatchi42 | 0:1271d15b4d4b | 206 | uint16_t status; |
itatchi42 | 0:1271d15b4d4b | 207 | |
itatchi42 | 0:1271d15b4d4b | 208 | if (! sendParseReply("AT+CREG?", "+CREG: ", &status, ',', 1)) return 0; |
itatchi42 | 0:1271d15b4d4b | 209 | |
itatchi42 | 0:1271d15b4d4b | 210 | return status; |
itatchi42 | 0:1271d15b4d4b | 211 | } |
itatchi42 | 0:1271d15b4d4b | 212 | |
itatchi42 | 0:1271d15b4d4b | 213 | |
itatchi42 | 0:1271d15b4d4b | 214 | uint8_t Adafruit_FONA::getRSSI(void) { |
itatchi42 | 0:1271d15b4d4b | 215 | uint16_t reply; |
itatchi42 | 0:1271d15b4d4b | 216 | |
itatchi42 | 0:1271d15b4d4b | 217 | if (! sendParseReply("AT+CSQ", "+CSQ: ", &reply) ) return 0; |
itatchi42 | 0:1271d15b4d4b | 218 | |
itatchi42 | 0:1271d15b4d4b | 219 | return reply; |
itatchi42 | 0:1271d15b4d4b | 220 | } |
itatchi42 | 0:1271d15b4d4b | 221 | |
itatchi42 | 0:1271d15b4d4b | 222 | /********* AUDIO *******************************************************/ |
itatchi42 | 0:1271d15b4d4b | 223 | |
itatchi42 | 0:1271d15b4d4b | 224 | bool Adafruit_FONA::setAudio(uint8_t a) { |
itatchi42 | 0:1271d15b4d4b | 225 | // 0 is headset, 1 is external audio |
itatchi42 | 0:1271d15b4d4b | 226 | if (a > 1) return false; |
itatchi42 | 0:1271d15b4d4b | 227 | |
itatchi42 | 0:1271d15b4d4b | 228 | return sendCheckReply("AT+CHFA=", a, "OK"); |
itatchi42 | 0:1271d15b4d4b | 229 | } |
itatchi42 | 0:1271d15b4d4b | 230 | |
itatchi42 | 0:1271d15b4d4b | 231 | uint8_t Adafruit_FONA::getVolume(void) { |
itatchi42 | 0:1271d15b4d4b | 232 | uint16_t reply; |
itatchi42 | 0:1271d15b4d4b | 233 | |
itatchi42 | 0:1271d15b4d4b | 234 | if (! sendParseReply("AT+CLVL?", "+CLVL: ", &reply) ) return 0; |
itatchi42 | 0:1271d15b4d4b | 235 | |
itatchi42 | 0:1271d15b4d4b | 236 | return reply; |
itatchi42 | 0:1271d15b4d4b | 237 | } |
itatchi42 | 0:1271d15b4d4b | 238 | |
itatchi42 | 0:1271d15b4d4b | 239 | bool Adafruit_FONA::setVolume(uint8_t i) { |
itatchi42 | 0:1271d15b4d4b | 240 | return sendCheckReply("AT+CLVL=", i, "OK"); |
itatchi42 | 0:1271d15b4d4b | 241 | } |
itatchi42 | 0:1271d15b4d4b | 242 | |
itatchi42 | 0:1271d15b4d4b | 243 | |
itatchi42 | 0:1271d15b4d4b | 244 | bool Adafruit_FONA::playDTMF(char dtmf) { |
itatchi42 | 0:1271d15b4d4b | 245 | char str[4]; |
itatchi42 | 0:1271d15b4d4b | 246 | str[0] = '\"'; |
itatchi42 | 0:1271d15b4d4b | 247 | str[1] = dtmf; |
itatchi42 | 0:1271d15b4d4b | 248 | str[2] = '\"'; |
itatchi42 | 0:1271d15b4d4b | 249 | str[3] = 0; |
itatchi42 | 0:1271d15b4d4b | 250 | return sendCheckReply("AT+CLDTMF=3,", str, "OK"); |
itatchi42 | 0:1271d15b4d4b | 251 | } |
itatchi42 | 0:1271d15b4d4b | 252 | |
itatchi42 | 0:1271d15b4d4b | 253 | bool Adafruit_FONA::playToolkitTone(uint8_t t, uint16_t len) { |
itatchi42 | 0:1271d15b4d4b | 254 | return sendCheckReply("AT+STTONE=1,", t, len, "OK"); |
itatchi42 | 0:1271d15b4d4b | 255 | } |
itatchi42 | 0:1271d15b4d4b | 256 | |
itatchi42 | 0:1271d15b4d4b | 257 | bool Adafruit_FONA::setMicVolume(uint8_t a, uint8_t level) { |
itatchi42 | 0:1271d15b4d4b | 258 | // 0 is headset, 1 is external audio |
itatchi42 | 0:1271d15b4d4b | 259 | if (a > 1) return false; |
itatchi42 | 0:1271d15b4d4b | 260 | |
itatchi42 | 0:1271d15b4d4b | 261 | return sendCheckReply("AT+CMIC=", a, level, "OK"); |
itatchi42 | 0:1271d15b4d4b | 262 | } |
itatchi42 | 0:1271d15b4d4b | 263 | |
itatchi42 | 0:1271d15b4d4b | 264 | /********* FM RADIO *******************************************************/ |
itatchi42 | 0:1271d15b4d4b | 265 | |
itatchi42 | 0:1271d15b4d4b | 266 | |
itatchi42 | 0:1271d15b4d4b | 267 | bool Adafruit_FONA::FMradio(bool onoff, uint8_t a) { |
itatchi42 | 0:1271d15b4d4b | 268 | if (! onoff) { |
itatchi42 | 0:1271d15b4d4b | 269 | return sendCheckReply("AT+FMCLOSE", "OK"); |
itatchi42 | 0:1271d15b4d4b | 270 | } |
itatchi42 | 0:1271d15b4d4b | 271 | |
itatchi42 | 0:1271d15b4d4b | 272 | // 0 is headset, 1 is external audio |
itatchi42 | 0:1271d15b4d4b | 273 | if (a > 1) return false; |
itatchi42 | 0:1271d15b4d4b | 274 | |
itatchi42 | 0:1271d15b4d4b | 275 | return sendCheckReply("AT+FMOPEN=", a, "OK"); |
itatchi42 | 0:1271d15b4d4b | 276 | } |
itatchi42 | 0:1271d15b4d4b | 277 | |
itatchi42 | 0:1271d15b4d4b | 278 | bool Adafruit_FONA::tuneFMradio(uint16_t station) { |
itatchi42 | 0:1271d15b4d4b | 279 | // Fail if FM station is outside allowed range. |
itatchi42 | 0:1271d15b4d4b | 280 | if ((station < 870) || (station > 1090)) |
itatchi42 | 0:1271d15b4d4b | 281 | return false; |
itatchi42 | 0:1271d15b4d4b | 282 | |
itatchi42 | 0:1271d15b4d4b | 283 | return sendCheckReply("AT+FMFREQ=", station, "OK"); |
itatchi42 | 0:1271d15b4d4b | 284 | } |
itatchi42 | 0:1271d15b4d4b | 285 | |
itatchi42 | 0:1271d15b4d4b | 286 | bool Adafruit_FONA::setFMVolume(uint8_t i) { |
itatchi42 | 0:1271d15b4d4b | 287 | // Fail if volume is outside allowed range (0-6). |
itatchi42 | 0:1271d15b4d4b | 288 | if (i > 6) { |
itatchi42 | 0:1271d15b4d4b | 289 | return false; |
itatchi42 | 0:1271d15b4d4b | 290 | } |
itatchi42 | 0:1271d15b4d4b | 291 | // Send FM volume command and verify response. |
itatchi42 | 0:1271d15b4d4b | 292 | return sendCheckReply("AT+FMVOLUME=", i, "OK"); |
itatchi42 | 0:1271d15b4d4b | 293 | } |
itatchi42 | 0:1271d15b4d4b | 294 | |
itatchi42 | 0:1271d15b4d4b | 295 | int8_t Adafruit_FONA::getFMVolume() { |
itatchi42 | 0:1271d15b4d4b | 296 | uint16_t level; |
itatchi42 | 0:1271d15b4d4b | 297 | |
itatchi42 | 0:1271d15b4d4b | 298 | if (! sendParseReply("AT+FMVOLUME?", "+FMVOLUME: ", &level) ) return 0; |
itatchi42 | 0:1271d15b4d4b | 299 | |
itatchi42 | 0:1271d15b4d4b | 300 | return level; |
itatchi42 | 0:1271d15b4d4b | 301 | } |
itatchi42 | 0:1271d15b4d4b | 302 | |
itatchi42 | 0:1271d15b4d4b | 303 | int8_t Adafruit_FONA::getFMSignalLevel(uint16_t station) { |
itatchi42 | 0:1271d15b4d4b | 304 | // Fail if FM station is outside allowed range. |
itatchi42 | 0:1271d15b4d4b | 305 | if ((station < 875) || (station > 1080)) { |
itatchi42 | 0:1271d15b4d4b | 306 | return -1; |
itatchi42 | 0:1271d15b4d4b | 307 | } |
itatchi42 | 0:1271d15b4d4b | 308 | |
itatchi42 | 0:1271d15b4d4b | 309 | // Send FM signal level query command. |
itatchi42 | 0:1271d15b4d4b | 310 | // Note, need to explicitly send timeout so right overload is chosen. |
itatchi42 | 0:1271d15b4d4b | 311 | getReply("AT+FMSIGNAL=", station, FONA_DEFAULT_TIMEOUT_MS); |
itatchi42 | 0:1271d15b4d4b | 312 | // Check response starts with expected value. |
itatchi42 | 0:1271d15b4d4b | 313 | char *p = strstr(replybuffer, "+FMSIGNAL: "); |
itatchi42 | 0:1271d15b4d4b | 314 | if (p == 0) return -1; |
itatchi42 | 0:1271d15b4d4b | 315 | p+=11; |
itatchi42 | 0:1271d15b4d4b | 316 | // Find second colon to get start of signal quality. |
itatchi42 | 0:1271d15b4d4b | 317 | p = strchr(p, ':'); |
itatchi42 | 0:1271d15b4d4b | 318 | if (p == 0) return -1; |
itatchi42 | 0:1271d15b4d4b | 319 | p+=1; |
itatchi42 | 0:1271d15b4d4b | 320 | // Parse signal quality. |
itatchi42 | 0:1271d15b4d4b | 321 | int8_t level = atoi(p); |
itatchi42 | 0:1271d15b4d4b | 322 | readline(); // eat the "OK" |
itatchi42 | 0:1271d15b4d4b | 323 | return level; |
itatchi42 | 0:1271d15b4d4b | 324 | } |
itatchi42 | 0:1271d15b4d4b | 325 | |
itatchi42 | 0:1271d15b4d4b | 326 | /********* PWM/BUZZER **************************************************/ |
itatchi42 | 0:1271d15b4d4b | 327 | |
itatchi42 | 0:1271d15b4d4b | 328 | bool Adafruit_FONA::setPWM(uint16_t period, uint8_t duty) { |
itatchi42 | 0:1271d15b4d4b | 329 | if (period > 2000) return false; |
itatchi42 | 0:1271d15b4d4b | 330 | if (duty > 100) return false; |
itatchi42 | 0:1271d15b4d4b | 331 | |
itatchi42 | 0:1271d15b4d4b | 332 | return sendCheckReply("AT+SPWM=0,", period, duty, "OK"); |
itatchi42 | 0:1271d15b4d4b | 333 | } |
itatchi42 | 0:1271d15b4d4b | 334 | |
itatchi42 | 0:1271d15b4d4b | 335 | /********* CALL PHONES **************************************************/ |
itatchi42 | 0:1271d15b4d4b | 336 | bool Adafruit_FONA::callPhone(char *number) { |
itatchi42 | 0:1271d15b4d4b | 337 | char sendbuff[35] = "ATD"; |
itatchi42 | 0:1271d15b4d4b | 338 | strncpy(sendbuff+3, number, min((int)30, (int)strlen(number))); |
itatchi42 | 0:1271d15b4d4b | 339 | uint8_t x = strlen(sendbuff); |
itatchi42 | 0:1271d15b4d4b | 340 | sendbuff[x] = ';'; |
itatchi42 | 0:1271d15b4d4b | 341 | sendbuff[x+1] = 0; |
itatchi42 | 0:1271d15b4d4b | 342 | |
itatchi42 | 0:1271d15b4d4b | 343 | return sendCheckReply(sendbuff, "OK"); |
itatchi42 | 0:1271d15b4d4b | 344 | } |
itatchi42 | 0:1271d15b4d4b | 345 | |
itatchi42 | 0:1271d15b4d4b | 346 | bool Adafruit_FONA::hangUp(void) { |
itatchi42 | 0:1271d15b4d4b | 347 | return sendCheckReply("ATH0", "OK"); |
itatchi42 | 0:1271d15b4d4b | 348 | } |
itatchi42 | 0:1271d15b4d4b | 349 | |
itatchi42 | 0:1271d15b4d4b | 350 | bool Adafruit_FONA::pickUp(void) { |
itatchi42 | 0:1271d15b4d4b | 351 | return sendCheckReply("ATA", "OK"); |
itatchi42 | 0:1271d15b4d4b | 352 | } |
itatchi42 | 0:1271d15b4d4b | 353 | |
itatchi42 | 0:1271d15b4d4b | 354 | void Adafruit_FONA::onIncomingCall() { |
itatchi42 | 0:1271d15b4d4b | 355 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 356 | printf("> Incoming call...\r\n"); |
itatchi42 | 0:1271d15b4d4b | 357 | #endif |
itatchi42 | 0:1271d15b4d4b | 358 | _incomingCall = true; |
itatchi42 | 0:1271d15b4d4b | 359 | } |
itatchi42 | 0:1271d15b4d4b | 360 | |
itatchi42 | 0:1271d15b4d4b | 361 | bool Adafruit_FONA::callerIdNotification(bool enable) { |
itatchi42 | 0:1271d15b4d4b | 362 | if(enable){ |
itatchi42 | 0:1271d15b4d4b | 363 | _ringIndicatorInterruptIn.fall(this, &Adafruit_FONA::onIncomingCall); |
itatchi42 | 0:1271d15b4d4b | 364 | return sendCheckReply("AT+CLIP=1", "OK"); |
itatchi42 | 0:1271d15b4d4b | 365 | } |
itatchi42 | 0:1271d15b4d4b | 366 | |
itatchi42 | 0:1271d15b4d4b | 367 | _ringIndicatorInterruptIn.fall(NULL); |
itatchi42 | 0:1271d15b4d4b | 368 | return sendCheckReply("AT+CLIP=0", "OK"); |
itatchi42 | 0:1271d15b4d4b | 369 | } |
itatchi42 | 0:1271d15b4d4b | 370 | |
itatchi42 | 0:1271d15b4d4b | 371 | bool Adafruit_FONA::incomingCallNumber(char* phonenum) { |
itatchi42 | 0:1271d15b4d4b | 372 | //+CLIP: "<incoming phone number>",145,"",0,"",0 |
itatchi42 | 0:1271d15b4d4b | 373 | if(!_incomingCall) |
itatchi42 | 0:1271d15b4d4b | 374 | return false; |
itatchi42 | 0:1271d15b4d4b | 375 | |
itatchi42 | 0:1271d15b4d4b | 376 | readline(); |
itatchi42 | 0:1271d15b4d4b | 377 | while(!strcmp(replybuffer, "RING") == 0) { |
itatchi42 | 0:1271d15b4d4b | 378 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 379 | readline(); |
itatchi42 | 0:1271d15b4d4b | 380 | } |
itatchi42 | 0:1271d15b4d4b | 381 | |
itatchi42 | 0:1271d15b4d4b | 382 | readline(); //reads incoming phone number line |
itatchi42 | 0:1271d15b4d4b | 383 | |
itatchi42 | 0:1271d15b4d4b | 384 | parseReply("+CLIP: \"", phonenum, '"'); |
itatchi42 | 0:1271d15b4d4b | 385 | |
itatchi42 | 0:1271d15b4d4b | 386 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 387 | printf("Phone Number: %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 388 | #endif |
itatchi42 | 0:1271d15b4d4b | 389 | |
itatchi42 | 0:1271d15b4d4b | 390 | _incomingCall = false; |
itatchi42 | 0:1271d15b4d4b | 391 | return true; |
itatchi42 | 0:1271d15b4d4b | 392 | } |
itatchi42 | 0:1271d15b4d4b | 393 | |
itatchi42 | 0:1271d15b4d4b | 394 | /********* SMS **********************************************************/ |
itatchi42 | 0:1271d15b4d4b | 395 | |
itatchi42 | 0:1271d15b4d4b | 396 | uint8_t Adafruit_FONA::getSMSInterrupt(void) { |
itatchi42 | 0:1271d15b4d4b | 397 | uint16_t reply; |
itatchi42 | 0:1271d15b4d4b | 398 | |
itatchi42 | 0:1271d15b4d4b | 399 | if (! sendParseReply("AT+CFGRI?", "+CFGRI: ", &reply) ) return 0; |
itatchi42 | 0:1271d15b4d4b | 400 | |
itatchi42 | 0:1271d15b4d4b | 401 | return reply; |
itatchi42 | 0:1271d15b4d4b | 402 | } |
itatchi42 | 0:1271d15b4d4b | 403 | |
itatchi42 | 0:1271d15b4d4b | 404 | bool Adafruit_FONA::setSMSInterrupt(uint8_t i) { |
itatchi42 | 0:1271d15b4d4b | 405 | return sendCheckReply("AT+CFGRI=", i, "OK"); |
itatchi42 | 0:1271d15b4d4b | 406 | } |
itatchi42 | 0:1271d15b4d4b | 407 | |
itatchi42 | 0:1271d15b4d4b | 408 | int8_t Adafruit_FONA::getNumSMS(void) { |
itatchi42 | 0:1271d15b4d4b | 409 | uint16_t numsms; |
itatchi42 | 0:1271d15b4d4b | 410 | |
itatchi42 | 0:1271d15b4d4b | 411 | if (! sendCheckReply("AT+CMGF=1", "OK")) return -1; |
itatchi42 | 0:1271d15b4d4b | 412 | // ask how many sms are stored |
itatchi42 | 0:1271d15b4d4b | 413 | |
itatchi42 | 0:1271d15b4d4b | 414 | if (! sendParseReply("AT+CPMS?", "+CPMS: \"SM_P\",", &numsms) ) return -1; |
itatchi42 | 0:1271d15b4d4b | 415 | |
itatchi42 | 0:1271d15b4d4b | 416 | return numsms; |
itatchi42 | 0:1271d15b4d4b | 417 | } |
itatchi42 | 0:1271d15b4d4b | 418 | |
itatchi42 | 0:1271d15b4d4b | 419 | // Reading SMS's is a bit involved so we don't use helpers that may cause delays or debug |
itatchi42 | 0:1271d15b4d4b | 420 | // printouts! |
itatchi42 | 0:1271d15b4d4b | 421 | bool Adafruit_FONA::readSMS(uint8_t i, char *smsbuff, uint16_t maxlen, uint16_t *readlen) { |
itatchi42 | 0:1271d15b4d4b | 422 | // text mode |
itatchi42 | 0:1271d15b4d4b | 423 | if (! sendCheckReply("AT+CMGF=1", "OK")) return false; |
itatchi42 | 0:1271d15b4d4b | 424 | |
itatchi42 | 0:1271d15b4d4b | 425 | // show all text mode parameters |
itatchi42 | 0:1271d15b4d4b | 426 | if (! sendCheckReply("AT+CSDH=1", "OK")) return false; |
itatchi42 | 0:1271d15b4d4b | 427 | |
itatchi42 | 0:1271d15b4d4b | 428 | // parse out the SMS len |
itatchi42 | 0:1271d15b4d4b | 429 | uint16_t thesmslen = 0; |
itatchi42 | 0:1271d15b4d4b | 430 | |
itatchi42 | 0:1271d15b4d4b | 431 | //getReply(F("AT+CMGR="), i, 1000); // do not print debug! |
itatchi42 | 0:1271d15b4d4b | 432 | mySerial.printf("AT+CMGR=%d\r\n", i); |
itatchi42 | 0:1271d15b4d4b | 433 | readline(1000); // timeout |
itatchi42 | 0:1271d15b4d4b | 434 | |
itatchi42 | 0:1271d15b4d4b | 435 | // parse it out... |
itatchi42 | 0:1271d15b4d4b | 436 | if (! parseReply("+CMGR:", &thesmslen, ',', 11)) { |
itatchi42 | 0:1271d15b4d4b | 437 | *readlen = 0; |
itatchi42 | 0:1271d15b4d4b | 438 | return false; |
itatchi42 | 0:1271d15b4d4b | 439 | } |
itatchi42 | 0:1271d15b4d4b | 440 | |
itatchi42 | 0:1271d15b4d4b | 441 | readRaw(thesmslen); |
itatchi42 | 0:1271d15b4d4b | 442 | |
itatchi42 | 0:1271d15b4d4b | 443 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 444 | |
itatchi42 | 0:1271d15b4d4b | 445 | uint16_t thelen = min(maxlen, (uint16_t)strlen(replybuffer)); |
itatchi42 | 0:1271d15b4d4b | 446 | strncpy(smsbuff, replybuffer, thelen); |
itatchi42 | 0:1271d15b4d4b | 447 | smsbuff[thelen] = 0; // end the string |
itatchi42 | 0:1271d15b4d4b | 448 | |
itatchi42 | 0:1271d15b4d4b | 449 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 450 | printf("%s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 451 | #endif |
itatchi42 | 0:1271d15b4d4b | 452 | *readlen = thelen; |
itatchi42 | 0:1271d15b4d4b | 453 | return true; |
itatchi42 | 0:1271d15b4d4b | 454 | } |
itatchi42 | 0:1271d15b4d4b | 455 | |
itatchi42 | 0:1271d15b4d4b | 456 | // Retrieve the sender of the specified SMS message and copy it as a string to |
itatchi42 | 0:1271d15b4d4b | 457 | // the sender buffer. Up to senderlen characters of the sender will be copied |
itatchi42 | 0:1271d15b4d4b | 458 | // and a null terminator will be added if less than senderlen charactesr are |
itatchi42 | 0:1271d15b4d4b | 459 | // copied to the result. Returns true if a result was successfully retrieved, |
itatchi42 | 0:1271d15b4d4b | 460 | // otherwise false. |
itatchi42 | 0:1271d15b4d4b | 461 | bool Adafruit_FONA::getSMSSender(uint8_t i, char *sender, int senderlen) { |
itatchi42 | 0:1271d15b4d4b | 462 | // Ensure text mode and all text mode parameters are sent. |
itatchi42 | 0:1271d15b4d4b | 463 | if (! sendCheckReply("AT+CMGF=1", "OK")) return false; |
itatchi42 | 0:1271d15b4d4b | 464 | if (! sendCheckReply("AT+CSDH=1", "OK")) return false; |
itatchi42 | 0:1271d15b4d4b | 465 | // Send command to retrieve SMS message and parse a line of response. |
itatchi42 | 0:1271d15b4d4b | 466 | mySerial.printf("AT+CMGR=%d\r\n", i); |
itatchi42 | 0:1271d15b4d4b | 467 | readline(1000); |
itatchi42 | 0:1271d15b4d4b | 468 | // Parse the second field in the response. |
itatchi42 | 0:1271d15b4d4b | 469 | bool result = parseReplyQuoted("+CMGR:", sender, senderlen, ',', 1); |
itatchi42 | 0:1271d15b4d4b | 470 | // Drop any remaining data from the response. |
itatchi42 | 0:1271d15b4d4b | 471 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 472 | return result; |
itatchi42 | 0:1271d15b4d4b | 473 | } |
itatchi42 | 0:1271d15b4d4b | 474 | |
itatchi42 | 0:1271d15b4d4b | 475 | bool Adafruit_FONA::sendSMS(char *smsaddr, char *smsmsg) { |
itatchi42 | 0:1271d15b4d4b | 476 | if (! sendCheckReply("AT+CMGF=1", "OK")) return -1; |
itatchi42 | 0:1271d15b4d4b | 477 | |
itatchi42 | 0:1271d15b4d4b | 478 | char sendcmd[30] = "AT+CMGS=\""; |
itatchi42 | 0:1271d15b4d4b | 479 | strncpy(sendcmd+9, smsaddr, 30-9-2); // 9 bytes beginning, 2 bytes for close quote + null |
itatchi42 | 0:1271d15b4d4b | 480 | sendcmd[strlen(sendcmd)] = '\"'; |
itatchi42 | 0:1271d15b4d4b | 481 | |
itatchi42 | 0:1271d15b4d4b | 482 | if (! sendCheckReply(sendcmd, "> ")) return false; |
itatchi42 | 0:1271d15b4d4b | 483 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 484 | printf("> %s\r\n", smsmsg); |
itatchi42 | 0:1271d15b4d4b | 485 | #endif |
itatchi42 | 0:1271d15b4d4b | 486 | mySerial.printf("%s\r\n\r\n", smsmsg); |
itatchi42 | 0:1271d15b4d4b | 487 | mySerial.putc(0x1A); |
itatchi42 | 0:1271d15b4d4b | 488 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 489 | printf("^Z\r\n"); |
itatchi42 | 0:1271d15b4d4b | 490 | #endif |
itatchi42 | 0:1271d15b4d4b | 491 | readline(10000); // read the +CMGS reply, wait up to 10 seconds!!! |
itatchi42 | 0:1271d15b4d4b | 492 | //Serial.print("* "); Serial.println(replybuffer); |
itatchi42 | 0:1271d15b4d4b | 493 | if (strstr(replybuffer, "+CMGS") == 0) { |
itatchi42 | 0:1271d15b4d4b | 494 | return false; |
itatchi42 | 0:1271d15b4d4b | 495 | } |
itatchi42 | 0:1271d15b4d4b | 496 | readline(1000); // read OK |
itatchi42 | 0:1271d15b4d4b | 497 | //Serial.print("* "); Serial.println(replybuffer); |
itatchi42 | 0:1271d15b4d4b | 498 | |
itatchi42 | 0:1271d15b4d4b | 499 | if (strcmp(replybuffer, "OK") != 0) { |
itatchi42 | 0:1271d15b4d4b | 500 | return false; |
itatchi42 | 0:1271d15b4d4b | 501 | } |
itatchi42 | 0:1271d15b4d4b | 502 | |
itatchi42 | 0:1271d15b4d4b | 503 | return true; |
itatchi42 | 0:1271d15b4d4b | 504 | } |
itatchi42 | 0:1271d15b4d4b | 505 | |
itatchi42 | 0:1271d15b4d4b | 506 | |
itatchi42 | 0:1271d15b4d4b | 507 | bool Adafruit_FONA::deleteSMS(uint8_t i) { |
itatchi42 | 0:1271d15b4d4b | 508 | if (! sendCheckReply("AT+CMGF=1", "OK")) return -1; |
itatchi42 | 0:1271d15b4d4b | 509 | // read an sms |
itatchi42 | 0:1271d15b4d4b | 510 | char sendbuff[12] = "AT+CMGD=000"; |
itatchi42 | 0:1271d15b4d4b | 511 | sendbuff[8] = (i / 100) + '0'; |
itatchi42 | 0:1271d15b4d4b | 512 | i %= 100; |
itatchi42 | 0:1271d15b4d4b | 513 | sendbuff[9] = (i / 10) + '0'; |
itatchi42 | 0:1271d15b4d4b | 514 | i %= 10; |
itatchi42 | 0:1271d15b4d4b | 515 | sendbuff[10] = i + '0'; |
itatchi42 | 0:1271d15b4d4b | 516 | |
itatchi42 | 0:1271d15b4d4b | 517 | return sendCheckReply(sendbuff, "OK", 2000); |
itatchi42 | 0:1271d15b4d4b | 518 | } |
itatchi42 | 0:1271d15b4d4b | 519 | |
itatchi42 | 0:1271d15b4d4b | 520 | /********* TIME **********************************************************/ |
itatchi42 | 0:1271d15b4d4b | 521 | |
itatchi42 | 0:1271d15b4d4b | 522 | bool Adafruit_FONA::enableNetworkTimeSync(bool onoff) { |
itatchi42 | 0:1271d15b4d4b | 523 | if (onoff) { |
itatchi42 | 0:1271d15b4d4b | 524 | if (! sendCheckReply("AT+CLTS=1", "OK")) |
itatchi42 | 0:1271d15b4d4b | 525 | return false; |
itatchi42 | 0:1271d15b4d4b | 526 | } else { |
itatchi42 | 0:1271d15b4d4b | 527 | if (! sendCheckReply("AT+CLTS=0", "OK")) |
itatchi42 | 0:1271d15b4d4b | 528 | return false; |
itatchi42 | 0:1271d15b4d4b | 529 | } |
itatchi42 | 0:1271d15b4d4b | 530 | |
itatchi42 | 0:1271d15b4d4b | 531 | flushInput(); // eat any 'Unsolicted Result Code' |
itatchi42 | 0:1271d15b4d4b | 532 | |
itatchi42 | 0:1271d15b4d4b | 533 | return true; |
itatchi42 | 0:1271d15b4d4b | 534 | } |
itatchi42 | 0:1271d15b4d4b | 535 | |
itatchi42 | 0:1271d15b4d4b | 536 | bool Adafruit_FONA::enableNTPTimeSync(bool onoff, const char* ntpserver) { |
itatchi42 | 0:1271d15b4d4b | 537 | if (onoff) { |
itatchi42 | 0:1271d15b4d4b | 538 | if (! sendCheckReply("AT+CNTPCID=1", "OK")) |
itatchi42 | 0:1271d15b4d4b | 539 | return false; |
itatchi42 | 0:1271d15b4d4b | 540 | |
itatchi42 | 0:1271d15b4d4b | 541 | mySerial.printf("AT+CNTP=\""); |
itatchi42 | 0:1271d15b4d4b | 542 | if (ntpserver != 0) { |
itatchi42 | 0:1271d15b4d4b | 543 | mySerial.printf(ntpserver); |
itatchi42 | 0:1271d15b4d4b | 544 | } else { |
itatchi42 | 0:1271d15b4d4b | 545 | mySerial.printf("pool.ntp.org"); |
itatchi42 | 0:1271d15b4d4b | 546 | } |
itatchi42 | 0:1271d15b4d4b | 547 | mySerial.printf("\",0\r\n"); |
itatchi42 | 0:1271d15b4d4b | 548 | readline(FONA_DEFAULT_TIMEOUT_MS); |
itatchi42 | 0:1271d15b4d4b | 549 | if (strcmp(replybuffer, "OK") != 0) |
itatchi42 | 0:1271d15b4d4b | 550 | return false; |
itatchi42 | 0:1271d15b4d4b | 551 | |
itatchi42 | 0:1271d15b4d4b | 552 | if (! sendCheckReply("AT+CNTP", "OK", 10000)) |
itatchi42 | 0:1271d15b4d4b | 553 | return false; |
itatchi42 | 0:1271d15b4d4b | 554 | |
itatchi42 | 0:1271d15b4d4b | 555 | uint16_t status; |
itatchi42 | 0:1271d15b4d4b | 556 | readline(10000); |
itatchi42 | 0:1271d15b4d4b | 557 | if (! parseReply("+CNTP:", &status)) |
itatchi42 | 0:1271d15b4d4b | 558 | return false; |
itatchi42 | 0:1271d15b4d4b | 559 | } else { |
itatchi42 | 0:1271d15b4d4b | 560 | if (! sendCheckReply("AT+CNTPCID=0", "OK")) |
itatchi42 | 0:1271d15b4d4b | 561 | return false; |
itatchi42 | 0:1271d15b4d4b | 562 | } |
itatchi42 | 0:1271d15b4d4b | 563 | |
itatchi42 | 0:1271d15b4d4b | 564 | return true; |
itatchi42 | 0:1271d15b4d4b | 565 | } |
itatchi42 | 0:1271d15b4d4b | 566 | |
itatchi42 | 0:1271d15b4d4b | 567 | bool Adafruit_FONA::getTime(char* buff, uint16_t maxlen) { |
itatchi42 | 0:1271d15b4d4b | 568 | getReply("AT+CCLK?", (uint16_t) 10000); |
itatchi42 | 0:1271d15b4d4b | 569 | if (strncmp(replybuffer, "+CCLK: ", 7) != 0) |
itatchi42 | 0:1271d15b4d4b | 570 | return false; |
itatchi42 | 0:1271d15b4d4b | 571 | |
itatchi42 | 0:1271d15b4d4b | 572 | char *p = replybuffer+7; |
itatchi42 | 0:1271d15b4d4b | 573 | uint16_t lentocopy = min((uint16_t)(maxlen-1), (uint16_t)strlen(p)); |
itatchi42 | 0:1271d15b4d4b | 574 | strncpy(buff, p, lentocopy+1); |
itatchi42 | 0:1271d15b4d4b | 575 | buff[lentocopy] = 0; |
itatchi42 | 0:1271d15b4d4b | 576 | |
itatchi42 | 0:1271d15b4d4b | 577 | readline(); // eat OK |
itatchi42 | 0:1271d15b4d4b | 578 | |
itatchi42 | 0:1271d15b4d4b | 579 | return true; |
itatchi42 | 0:1271d15b4d4b | 580 | } |
itatchi42 | 0:1271d15b4d4b | 581 | |
itatchi42 | 0:1271d15b4d4b | 582 | /********* GPS **********************************************************/ |
itatchi42 | 0:1271d15b4d4b | 583 | |
itatchi42 | 0:1271d15b4d4b | 584 | |
itatchi42 | 0:1271d15b4d4b | 585 | bool Adafruit_FONA::enableGPS(bool onoff) { |
itatchi42 | 0:1271d15b4d4b | 586 | uint16_t state; |
itatchi42 | 0:1271d15b4d4b | 587 | |
itatchi42 | 0:1271d15b4d4b | 588 | // first check if its already on or off |
itatchi42 | 0:1271d15b4d4b | 589 | if (! sendParseReply("AT+CGPSPWR?", "+CGPSPWR: ", &state) ) |
itatchi42 | 0:1271d15b4d4b | 590 | return false; |
itatchi42 | 0:1271d15b4d4b | 591 | |
itatchi42 | 0:1271d15b4d4b | 592 | if (onoff && !state) { |
itatchi42 | 0:1271d15b4d4b | 593 | if (! sendCheckReply("AT+CGPSPWR=1", "OK")) |
itatchi42 | 0:1271d15b4d4b | 594 | return false; |
itatchi42 | 0:1271d15b4d4b | 595 | } else if (!onoff && state) { |
itatchi42 | 0:1271d15b4d4b | 596 | if (! sendCheckReply("AT+CGPSPWR=0", "OK")) |
itatchi42 | 0:1271d15b4d4b | 597 | return false; |
itatchi42 | 0:1271d15b4d4b | 598 | } |
itatchi42 | 0:1271d15b4d4b | 599 | return true; |
itatchi42 | 0:1271d15b4d4b | 600 | } |
itatchi42 | 0:1271d15b4d4b | 601 | |
itatchi42 | 0:1271d15b4d4b | 602 | int8_t Adafruit_FONA::GPSstatus(void) { |
itatchi42 | 0:1271d15b4d4b | 603 | getReply("AT+CGPSSTATUS?"); |
itatchi42 | 0:1271d15b4d4b | 604 | |
itatchi42 | 0:1271d15b4d4b | 605 | char *p = strstr(replybuffer, "+CGPSSTATUS: Location "); |
itatchi42 | 0:1271d15b4d4b | 606 | if (p == 0) return -1; |
itatchi42 | 0:1271d15b4d4b | 607 | |
itatchi42 | 0:1271d15b4d4b | 608 | p+=22; |
itatchi42 | 0:1271d15b4d4b | 609 | |
itatchi42 | 0:1271d15b4d4b | 610 | readline(); // eat 'OK' |
itatchi42 | 0:1271d15b4d4b | 611 | |
itatchi42 | 0:1271d15b4d4b | 612 | |
itatchi42 | 0:1271d15b4d4b | 613 | if (p[0] == 'U') return 0; |
itatchi42 | 0:1271d15b4d4b | 614 | if (p[0] == 'N') return 1; |
itatchi42 | 0:1271d15b4d4b | 615 | if (p[0] == '2') return 2; |
itatchi42 | 0:1271d15b4d4b | 616 | if (p[0] == '3') return 3; |
itatchi42 | 0:1271d15b4d4b | 617 | |
itatchi42 | 0:1271d15b4d4b | 618 | // else |
itatchi42 | 0:1271d15b4d4b | 619 | return 0; |
itatchi42 | 0:1271d15b4d4b | 620 | } |
itatchi42 | 0:1271d15b4d4b | 621 | |
itatchi42 | 0:1271d15b4d4b | 622 | uint8_t Adafruit_FONA::getGPS(uint8_t arg, char *buffer, uint8_t maxbuff) { |
itatchi42 | 0:1271d15b4d4b | 623 | int32_t x = arg; |
itatchi42 | 0:1271d15b4d4b | 624 | |
itatchi42 | 0:1271d15b4d4b | 625 | getReply("AT+CGPSINF=", x); |
itatchi42 | 0:1271d15b4d4b | 626 | |
itatchi42 | 0:1271d15b4d4b | 627 | char *p = strstr(replybuffer, "CGPSINF: "); |
itatchi42 | 0:1271d15b4d4b | 628 | if (p == 0){ |
itatchi42 | 0:1271d15b4d4b | 629 | buffer[0] = 0; |
itatchi42 | 0:1271d15b4d4b | 630 | return 0; |
itatchi42 | 0:1271d15b4d4b | 631 | } |
itatchi42 | 0:1271d15b4d4b | 632 | p+=9; |
itatchi42 | 0:1271d15b4d4b | 633 | uint8_t len = max((uint8_t)(maxbuff-1), (uint8_t)strlen(p)); |
itatchi42 | 0:1271d15b4d4b | 634 | strncpy(buffer, p, len); |
itatchi42 | 0:1271d15b4d4b | 635 | buffer[len] = 0; |
itatchi42 | 0:1271d15b4d4b | 636 | |
itatchi42 | 0:1271d15b4d4b | 637 | readline(); // eat 'OK' |
itatchi42 | 0:1271d15b4d4b | 638 | return len; |
itatchi42 | 0:1271d15b4d4b | 639 | } |
itatchi42 | 0:1271d15b4d4b | 640 | |
itatchi42 | 0:1271d15b4d4b | 641 | bool Adafruit_FONA::getGPS(float *lat, float *lon, float *speed_kph, float *heading, float *altitude) { |
itatchi42 | 0:1271d15b4d4b | 642 | char gpsbuffer[120]; |
itatchi42 | 0:1271d15b4d4b | 643 | |
itatchi42 | 0:1271d15b4d4b | 644 | // we need at least a 2D fix |
itatchi42 | 0:1271d15b4d4b | 645 | if (GPSstatus() < 2) |
itatchi42 | 0:1271d15b4d4b | 646 | return false; |
itatchi42 | 0:1271d15b4d4b | 647 | |
itatchi42 | 0:1271d15b4d4b | 648 | // grab the mode 2^5 gps csv from the sim808 |
itatchi42 | 0:1271d15b4d4b | 649 | uint8_t res_len = getGPS(32, gpsbuffer, 120); |
itatchi42 | 0:1271d15b4d4b | 650 | |
itatchi42 | 0:1271d15b4d4b | 651 | // make sure we have a response |
itatchi42 | 0:1271d15b4d4b | 652 | if (res_len == 0) |
itatchi42 | 0:1271d15b4d4b | 653 | return false; |
itatchi42 | 0:1271d15b4d4b | 654 | |
itatchi42 | 0:1271d15b4d4b | 655 | // skip mode |
itatchi42 | 0:1271d15b4d4b | 656 | char *tok = strtok(gpsbuffer, ","); |
itatchi42 | 0:1271d15b4d4b | 657 | if (! tok) return false; |
itatchi42 | 0:1271d15b4d4b | 658 | |
itatchi42 | 0:1271d15b4d4b | 659 | // skip date |
itatchi42 | 0:1271d15b4d4b | 660 | tok = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 661 | if (! tok) return false; |
itatchi42 | 0:1271d15b4d4b | 662 | |
itatchi42 | 0:1271d15b4d4b | 663 | // skip fix |
itatchi42 | 0:1271d15b4d4b | 664 | tok = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 665 | if (! tok) return false; |
itatchi42 | 0:1271d15b4d4b | 666 | |
itatchi42 | 0:1271d15b4d4b | 667 | // grab the latitude |
itatchi42 | 0:1271d15b4d4b | 668 | char *latp = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 669 | if (! latp) return false; |
itatchi42 | 0:1271d15b4d4b | 670 | |
itatchi42 | 0:1271d15b4d4b | 671 | // grab latitude direction |
itatchi42 | 0:1271d15b4d4b | 672 | char *latdir = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 673 | if (! latdir) return false; |
itatchi42 | 0:1271d15b4d4b | 674 | |
itatchi42 | 0:1271d15b4d4b | 675 | // grab longitude |
itatchi42 | 0:1271d15b4d4b | 676 | char *longp = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 677 | if (! longp) return false; |
itatchi42 | 0:1271d15b4d4b | 678 | |
itatchi42 | 0:1271d15b4d4b | 679 | // grab longitude direction |
itatchi42 | 0:1271d15b4d4b | 680 | char *longdir = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 681 | if (! longdir) return false; |
itatchi42 | 0:1271d15b4d4b | 682 | |
itatchi42 | 0:1271d15b4d4b | 683 | double latitude = atof(latp); |
itatchi42 | 0:1271d15b4d4b | 684 | double longitude = atof(longp); |
itatchi42 | 0:1271d15b4d4b | 685 | |
itatchi42 | 0:1271d15b4d4b | 686 | // convert latitude from minutes to decimal |
itatchi42 | 0:1271d15b4d4b | 687 | float degrees = floor(latitude / 100); |
itatchi42 | 0:1271d15b4d4b | 688 | double minutes = latitude - (100 * degrees); |
itatchi42 | 0:1271d15b4d4b | 689 | minutes /= 60; |
itatchi42 | 0:1271d15b4d4b | 690 | degrees += minutes; |
itatchi42 | 0:1271d15b4d4b | 691 | |
itatchi42 | 0:1271d15b4d4b | 692 | // turn direction into + or - |
itatchi42 | 0:1271d15b4d4b | 693 | if (latdir[0] == 'S') degrees *= -1; |
itatchi42 | 0:1271d15b4d4b | 694 | |
itatchi42 | 0:1271d15b4d4b | 695 | *lat = degrees; |
itatchi42 | 0:1271d15b4d4b | 696 | |
itatchi42 | 0:1271d15b4d4b | 697 | // convert longitude from minutes to decimal |
itatchi42 | 0:1271d15b4d4b | 698 | degrees = floor(longitude / 100); |
itatchi42 | 0:1271d15b4d4b | 699 | minutes = longitude - (100 * degrees); |
itatchi42 | 0:1271d15b4d4b | 700 | minutes /= 60; |
itatchi42 | 0:1271d15b4d4b | 701 | degrees += minutes; |
itatchi42 | 0:1271d15b4d4b | 702 | |
itatchi42 | 0:1271d15b4d4b | 703 | // turn direction into + or - |
itatchi42 | 0:1271d15b4d4b | 704 | if (longdir[0] == 'W') degrees *= -1; |
itatchi42 | 0:1271d15b4d4b | 705 | |
itatchi42 | 0:1271d15b4d4b | 706 | *lon = degrees; |
itatchi42 | 0:1271d15b4d4b | 707 | |
itatchi42 | 0:1271d15b4d4b | 708 | // only grab speed if needed |
itatchi42 | 0:1271d15b4d4b | 709 | if (speed_kph != NULL) { |
itatchi42 | 0:1271d15b4d4b | 710 | |
itatchi42 | 0:1271d15b4d4b | 711 | // grab the speed in knots |
itatchi42 | 0:1271d15b4d4b | 712 | char *speedp = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 713 | if (! speedp) return false; |
itatchi42 | 0:1271d15b4d4b | 714 | |
itatchi42 | 0:1271d15b4d4b | 715 | // convert to kph |
itatchi42 | 0:1271d15b4d4b | 716 | *speed_kph = atof(speedp) * 1.852; |
itatchi42 | 0:1271d15b4d4b | 717 | |
itatchi42 | 0:1271d15b4d4b | 718 | } |
itatchi42 | 0:1271d15b4d4b | 719 | |
itatchi42 | 0:1271d15b4d4b | 720 | // only grab heading if needed |
itatchi42 | 0:1271d15b4d4b | 721 | if (heading != NULL) { |
itatchi42 | 0:1271d15b4d4b | 722 | |
itatchi42 | 0:1271d15b4d4b | 723 | // grab the speed in knots |
itatchi42 | 0:1271d15b4d4b | 724 | char *coursep = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 725 | if (! coursep) return false; |
itatchi42 | 0:1271d15b4d4b | 726 | |
itatchi42 | 0:1271d15b4d4b | 727 | *heading = atof(coursep); |
itatchi42 | 0:1271d15b4d4b | 728 | |
itatchi42 | 0:1271d15b4d4b | 729 | } |
itatchi42 | 0:1271d15b4d4b | 730 | |
itatchi42 | 0:1271d15b4d4b | 731 | // no need to continue |
itatchi42 | 0:1271d15b4d4b | 732 | if (altitude == NULL) |
itatchi42 | 0:1271d15b4d4b | 733 | return true; |
itatchi42 | 0:1271d15b4d4b | 734 | |
itatchi42 | 0:1271d15b4d4b | 735 | // we need at least a 3D fix for altitude |
itatchi42 | 0:1271d15b4d4b | 736 | if (GPSstatus() < 3) |
itatchi42 | 0:1271d15b4d4b | 737 | return false; |
itatchi42 | 0:1271d15b4d4b | 738 | |
itatchi42 | 0:1271d15b4d4b | 739 | // grab the mode 0 gps csv from the sim808 |
itatchi42 | 0:1271d15b4d4b | 740 | res_len = getGPS(0, gpsbuffer, 120); |
itatchi42 | 0:1271d15b4d4b | 741 | |
itatchi42 | 0:1271d15b4d4b | 742 | // make sure we have a response |
itatchi42 | 0:1271d15b4d4b | 743 | if (res_len == 0) |
itatchi42 | 0:1271d15b4d4b | 744 | return false; |
itatchi42 | 0:1271d15b4d4b | 745 | |
itatchi42 | 0:1271d15b4d4b | 746 | // skip mode |
itatchi42 | 0:1271d15b4d4b | 747 | tok = strtok(gpsbuffer, ","); |
itatchi42 | 0:1271d15b4d4b | 748 | if (! tok) return false; |
itatchi42 | 0:1271d15b4d4b | 749 | |
itatchi42 | 0:1271d15b4d4b | 750 | // skip lat |
itatchi42 | 0:1271d15b4d4b | 751 | tok = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 752 | if (! tok) return false; |
itatchi42 | 0:1271d15b4d4b | 753 | |
itatchi42 | 0:1271d15b4d4b | 754 | // skip long |
itatchi42 | 0:1271d15b4d4b | 755 | tok = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 756 | if (! tok) return false; |
itatchi42 | 0:1271d15b4d4b | 757 | |
itatchi42 | 0:1271d15b4d4b | 758 | // grab altitude |
itatchi42 | 0:1271d15b4d4b | 759 | char *altp = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 760 | if (! altp) return false; |
itatchi42 | 0:1271d15b4d4b | 761 | |
itatchi42 | 0:1271d15b4d4b | 762 | *altitude = atof(altp); |
itatchi42 | 0:1271d15b4d4b | 763 | |
itatchi42 | 0:1271d15b4d4b | 764 | return true; |
itatchi42 | 0:1271d15b4d4b | 765 | } |
itatchi42 | 0:1271d15b4d4b | 766 | |
itatchi42 | 0:1271d15b4d4b | 767 | bool Adafruit_FONA::enableGPSNMEA(uint8_t i) { |
itatchi42 | 0:1271d15b4d4b | 768 | char sendbuff[15] = "AT+CGPSOUT=000"; |
itatchi42 | 0:1271d15b4d4b | 769 | sendbuff[11] = (i / 100) + '0'; |
itatchi42 | 0:1271d15b4d4b | 770 | i %= 100; |
itatchi42 | 0:1271d15b4d4b | 771 | sendbuff[12] = (i / 10) + '0'; |
itatchi42 | 0:1271d15b4d4b | 772 | i %= 10; |
itatchi42 | 0:1271d15b4d4b | 773 | sendbuff[13] = i + '0'; |
itatchi42 | 0:1271d15b4d4b | 774 | |
itatchi42 | 0:1271d15b4d4b | 775 | return sendCheckReply(sendbuff, "OK", 2000); |
itatchi42 | 0:1271d15b4d4b | 776 | } |
itatchi42 | 0:1271d15b4d4b | 777 | |
itatchi42 | 0:1271d15b4d4b | 778 | |
itatchi42 | 0:1271d15b4d4b | 779 | /********* GPRS **********************************************************/ |
itatchi42 | 0:1271d15b4d4b | 780 | |
itatchi42 | 0:1271d15b4d4b | 781 | |
itatchi42 | 0:1271d15b4d4b | 782 | bool Adafruit_FONA::enableGPRS(bool onoff) { |
itatchi42 | 0:1271d15b4d4b | 783 | if (onoff) { |
itatchi42 | 0:1271d15b4d4b | 784 | // disconnect all sockets |
itatchi42 | 0:1271d15b4d4b | 785 | sendCheckReply("AT+CIPSHUT", "SHUT OK", 5000); |
itatchi42 | 0:1271d15b4d4b | 786 | |
itatchi42 | 0:1271d15b4d4b | 787 | if (! sendCheckReply("AT+CGATT=1", "OK", 10000)) |
itatchi42 | 0:1271d15b4d4b | 788 | return false; |
itatchi42 | 0:1271d15b4d4b | 789 | |
itatchi42 | 0:1271d15b4d4b | 790 | // set bearer profile! connection type GPRS |
itatchi42 | 0:1271d15b4d4b | 791 | if (! sendCheckReply("AT+SAPBR=3,1,\"CONTYPE\",\"GPRS\"", "OK", 10000)) |
itatchi42 | 0:1271d15b4d4b | 792 | return false; |
itatchi42 | 0:1271d15b4d4b | 793 | |
itatchi42 | 0:1271d15b4d4b | 794 | // set bearer profile access point name |
itatchi42 | 0:1271d15b4d4b | 795 | if (apn) { |
itatchi42 | 0:1271d15b4d4b | 796 | // Send command AT+SAPBR=3,1,"APN","<apn value>" where <apn value> is the configured APN value. |
itatchi42 | 0:1271d15b4d4b | 797 | if (! sendCheckReplyQuoted("AT+SAPBR=3,1,\"APN\",", apn, "OK", 10000)) |
itatchi42 | 0:1271d15b4d4b | 798 | return false; |
itatchi42 | 0:1271d15b4d4b | 799 | |
itatchi42 | 0:1271d15b4d4b | 800 | // set username/password |
itatchi42 | 0:1271d15b4d4b | 801 | if (apnusername) { |
itatchi42 | 0:1271d15b4d4b | 802 | // Send command AT+SAPBR=3,1,"USER","<user>" where <user> is the configured APN username. |
itatchi42 | 0:1271d15b4d4b | 803 | if (! sendCheckReplyQuoted("AT+SAPBR=3,1,\"USER\",", apnusername, "OK", 10000)) |
itatchi42 | 0:1271d15b4d4b | 804 | return false; |
itatchi42 | 0:1271d15b4d4b | 805 | } |
itatchi42 | 0:1271d15b4d4b | 806 | if (apnpassword) { |
itatchi42 | 0:1271d15b4d4b | 807 | // Send command AT+SAPBR=3,1,"PWD","<password>" where <password> is the configured APN password. |
itatchi42 | 0:1271d15b4d4b | 808 | if (! sendCheckReplyQuoted("AT+SAPBR=3,1,\"PWD\",", apnpassword, "OK", 10000)) |
itatchi42 | 0:1271d15b4d4b | 809 | return false; |
itatchi42 | 0:1271d15b4d4b | 810 | } |
itatchi42 | 0:1271d15b4d4b | 811 | } |
itatchi42 | 0:1271d15b4d4b | 812 | |
itatchi42 | 0:1271d15b4d4b | 813 | // open GPRS context |
itatchi42 | 0:1271d15b4d4b | 814 | if (! sendCheckReply("AT+SAPBR=1,1", "OK", 10000)) |
itatchi42 | 0:1271d15b4d4b | 815 | return false; |
itatchi42 | 0:1271d15b4d4b | 816 | } else { |
itatchi42 | 0:1271d15b4d4b | 817 | // disconnect all sockets |
itatchi42 | 0:1271d15b4d4b | 818 | if (! sendCheckReply("AT+CIPSHUT", "SHUT OK", 5000)) |
itatchi42 | 0:1271d15b4d4b | 819 | return false; |
itatchi42 | 0:1271d15b4d4b | 820 | |
itatchi42 | 0:1271d15b4d4b | 821 | // close GPRS context |
itatchi42 | 0:1271d15b4d4b | 822 | if (! sendCheckReply("AT+SAPBR=0,1", "OK", 10000)) |
itatchi42 | 0:1271d15b4d4b | 823 | return false; |
itatchi42 | 0:1271d15b4d4b | 824 | |
itatchi42 | 0:1271d15b4d4b | 825 | if (! sendCheckReply("AT+CGATT=0", "OK", 10000)) |
itatchi42 | 0:1271d15b4d4b | 826 | return false; |
itatchi42 | 0:1271d15b4d4b | 827 | } |
itatchi42 | 0:1271d15b4d4b | 828 | return true; |
itatchi42 | 0:1271d15b4d4b | 829 | } |
itatchi42 | 0:1271d15b4d4b | 830 | |
itatchi42 | 0:1271d15b4d4b | 831 | uint8_t Adafruit_FONA::GPRSstate(void) { |
itatchi42 | 0:1271d15b4d4b | 832 | uint16_t state; |
itatchi42 | 0:1271d15b4d4b | 833 | |
itatchi42 | 0:1271d15b4d4b | 834 | if (! sendParseReply("AT+CGATT?", "+CGATT: ", &state) ) |
itatchi42 | 0:1271d15b4d4b | 835 | return -1; |
itatchi42 | 0:1271d15b4d4b | 836 | |
itatchi42 | 0:1271d15b4d4b | 837 | return state; |
itatchi42 | 0:1271d15b4d4b | 838 | } |
itatchi42 | 0:1271d15b4d4b | 839 | |
itatchi42 | 0:1271d15b4d4b | 840 | void Adafruit_FONA::setGPRSNetworkSettings(const char* apn, const char* ausername, const char* apassword) { |
itatchi42 | 0:1271d15b4d4b | 841 | this->apn = (char*) apn; |
itatchi42 | 0:1271d15b4d4b | 842 | this->apnusername = (char*) ausername; |
itatchi42 | 0:1271d15b4d4b | 843 | this->apnpassword = (char*) apassword; |
itatchi42 | 0:1271d15b4d4b | 844 | } |
itatchi42 | 0:1271d15b4d4b | 845 | |
itatchi42 | 0:1271d15b4d4b | 846 | bool Adafruit_FONA::getGSMLoc(uint16_t *errorcode, char *buff, uint16_t maxlen) { |
itatchi42 | 0:1271d15b4d4b | 847 | getReply("AT+CIPGSMLOC=1,1", (uint16_t)10000); |
itatchi42 | 0:1271d15b4d4b | 848 | |
itatchi42 | 0:1271d15b4d4b | 849 | if (! parseReply("+CIPGSMLOC: ", errorcode)) |
itatchi42 | 0:1271d15b4d4b | 850 | return false; |
itatchi42 | 0:1271d15b4d4b | 851 | |
itatchi42 | 0:1271d15b4d4b | 852 | char *p = replybuffer+14; |
itatchi42 | 0:1271d15b4d4b | 853 | uint16_t lentocopy = min((uint16_t)(maxlen-1), (uint16_t)strlen(p)); |
itatchi42 | 0:1271d15b4d4b | 854 | strncpy(buff, p, lentocopy+1); |
itatchi42 | 0:1271d15b4d4b | 855 | |
itatchi42 | 0:1271d15b4d4b | 856 | readline(); // eat OK |
itatchi42 | 0:1271d15b4d4b | 857 | |
itatchi42 | 0:1271d15b4d4b | 858 | return true; |
itatchi42 | 0:1271d15b4d4b | 859 | } |
itatchi42 | 0:1271d15b4d4b | 860 | |
itatchi42 | 0:1271d15b4d4b | 861 | bool Adafruit_FONA::getGSMLoc(float *lat, float *lon) { |
itatchi42 | 0:1271d15b4d4b | 862 | uint16_t returncode; |
itatchi42 | 0:1271d15b4d4b | 863 | char gpsbuffer[120]; |
itatchi42 | 0:1271d15b4d4b | 864 | |
itatchi42 | 0:1271d15b4d4b | 865 | // make sure we could get a response |
itatchi42 | 0:1271d15b4d4b | 866 | if (! getGSMLoc(&returncode, gpsbuffer, 120)) |
itatchi42 | 0:1271d15b4d4b | 867 | return false; |
itatchi42 | 0:1271d15b4d4b | 868 | |
itatchi42 | 0:1271d15b4d4b | 869 | // make sure we have a valid return code |
itatchi42 | 0:1271d15b4d4b | 870 | if (returncode != 0) |
itatchi42 | 0:1271d15b4d4b | 871 | return false; |
itatchi42 | 0:1271d15b4d4b | 872 | |
itatchi42 | 0:1271d15b4d4b | 873 | // tokenize the gps buffer to locate the lat & long |
itatchi42 | 0:1271d15b4d4b | 874 | char *latp = strtok(gpsbuffer, ","); |
itatchi42 | 0:1271d15b4d4b | 875 | if (! latp) return false; |
itatchi42 | 0:1271d15b4d4b | 876 | |
itatchi42 | 0:1271d15b4d4b | 877 | char *longp = strtok(NULL, ","); |
itatchi42 | 0:1271d15b4d4b | 878 | if (! longp) return false; |
itatchi42 | 0:1271d15b4d4b | 879 | |
itatchi42 | 0:1271d15b4d4b | 880 | *lat = atof(latp); |
itatchi42 | 0:1271d15b4d4b | 881 | *lon = atof(longp); |
itatchi42 | 0:1271d15b4d4b | 882 | |
itatchi42 | 0:1271d15b4d4b | 883 | return true; |
itatchi42 | 0:1271d15b4d4b | 884 | } |
itatchi42 | 0:1271d15b4d4b | 885 | |
itatchi42 | 0:1271d15b4d4b | 886 | /********* TCP FUNCTIONS ************************************/ |
itatchi42 | 0:1271d15b4d4b | 887 | |
itatchi42 | 0:1271d15b4d4b | 888 | |
itatchi42 | 0:1271d15b4d4b | 889 | bool Adafruit_FONA::TCPconnect(char *server, uint16_t port) { |
itatchi42 | 0:1271d15b4d4b | 890 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 891 | |
itatchi42 | 0:1271d15b4d4b | 892 | // close all old connections |
itatchi42 | 0:1271d15b4d4b | 893 | if (! sendCheckReply("AT+CIPSHUT", "SHUT OK", 5000) ) return false; |
itatchi42 | 0:1271d15b4d4b | 894 | |
itatchi42 | 0:1271d15b4d4b | 895 | // single connection at a time |
itatchi42 | 0:1271d15b4d4b | 896 | if (! sendCheckReply("AT+CIPMUX=0", "OK") ) return false; |
itatchi42 | 0:1271d15b4d4b | 897 | |
itatchi42 | 0:1271d15b4d4b | 898 | // manually read data |
itatchi42 | 0:1271d15b4d4b | 899 | if (! sendCheckReply("AT+CIPRXGET=1", "OK") ) return false; |
itatchi42 | 0:1271d15b4d4b | 900 | |
itatchi42 | 0:1271d15b4d4b | 901 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 902 | printf("AT+CIPSTART=\"TCP\",\"%s\",\"%d\"\r\n", server, port); |
itatchi42 | 0:1271d15b4d4b | 903 | #endif |
itatchi42 | 0:1271d15b4d4b | 904 | |
itatchi42 | 0:1271d15b4d4b | 905 | mySerial.printf("AT+CIPSTART=\"TCP\",\"%s\",\"%d\"\r\n", server, port); |
itatchi42 | 0:1271d15b4d4b | 906 | |
itatchi42 | 0:1271d15b4d4b | 907 | if (! expectReply("OK")) return false; |
itatchi42 | 0:1271d15b4d4b | 908 | if (! expectReply("CONNECT OK")) return false; |
itatchi42 | 0:1271d15b4d4b | 909 | return true; |
itatchi42 | 0:1271d15b4d4b | 910 | } |
itatchi42 | 0:1271d15b4d4b | 911 | |
itatchi42 | 0:1271d15b4d4b | 912 | bool Adafruit_FONA::TCPclose(void) { |
itatchi42 | 0:1271d15b4d4b | 913 | return sendCheckReply("AT+CIPCLOSE", "OK"); |
itatchi42 | 0:1271d15b4d4b | 914 | } |
itatchi42 | 0:1271d15b4d4b | 915 | |
itatchi42 | 0:1271d15b4d4b | 916 | bool Adafruit_FONA::TCPconnected(void) { |
itatchi42 | 0:1271d15b4d4b | 917 | if (! sendCheckReply("AT+CIPSTATUS", "OK", 100) ) return false; |
itatchi42 | 0:1271d15b4d4b | 918 | readline(100); |
itatchi42 | 0:1271d15b4d4b | 919 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 920 | printf("\t<--- %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 921 | #endif |
itatchi42 | 0:1271d15b4d4b | 922 | return (strcmp(replybuffer, "STATE: CONNECT OK") == 0); |
itatchi42 | 0:1271d15b4d4b | 923 | } |
itatchi42 | 0:1271d15b4d4b | 924 | |
itatchi42 | 0:1271d15b4d4b | 925 | bool Adafruit_FONA::TCPsend(char *packet, uint8_t len) { |
itatchi42 | 0:1271d15b4d4b | 926 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 927 | printf("AT+CIPSEND=%d\r\n", len); |
itatchi42 | 0:1271d15b4d4b | 928 | |
itatchi42 | 0:1271d15b4d4b | 929 | for (uint16_t i=0; i<len; i++) { |
itatchi42 | 0:1271d15b4d4b | 930 | printf(" 0x%#02x", packet[i]); |
itatchi42 | 0:1271d15b4d4b | 931 | } |
itatchi42 | 0:1271d15b4d4b | 932 | printf("\r\n"); |
itatchi42 | 0:1271d15b4d4b | 933 | #endif |
itatchi42 | 0:1271d15b4d4b | 934 | |
itatchi42 | 0:1271d15b4d4b | 935 | |
itatchi42 | 0:1271d15b4d4b | 936 | mySerial.printf("AT+CIPSEND=%d\r\n", len); |
itatchi42 | 0:1271d15b4d4b | 937 | readline(); |
itatchi42 | 0:1271d15b4d4b | 938 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 939 | printf("\t<--- %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 940 | #endif |
itatchi42 | 0:1271d15b4d4b | 941 | if (replybuffer[0] != '>') return false; |
itatchi42 | 0:1271d15b4d4b | 942 | |
itatchi42 | 0:1271d15b4d4b | 943 | for (uint16_t i=0; i<len; i++) { |
itatchi42 | 0:1271d15b4d4b | 944 | mySerial.putc(packet[i]); |
itatchi42 | 0:1271d15b4d4b | 945 | } |
itatchi42 | 0:1271d15b4d4b | 946 | readline(3000); // wait up to 3 seconds to send the data |
itatchi42 | 0:1271d15b4d4b | 947 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 948 | printf("\t<--- %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 949 | #endif |
itatchi42 | 0:1271d15b4d4b | 950 | |
itatchi42 | 0:1271d15b4d4b | 951 | return (strcmp(replybuffer, "SEND OK") == 0); |
itatchi42 | 0:1271d15b4d4b | 952 | } |
itatchi42 | 0:1271d15b4d4b | 953 | |
itatchi42 | 0:1271d15b4d4b | 954 | uint16_t Adafruit_FONA::TCPavailable(void) { |
itatchi42 | 0:1271d15b4d4b | 955 | uint16_t avail; |
itatchi42 | 0:1271d15b4d4b | 956 | |
itatchi42 | 0:1271d15b4d4b | 957 | if (! sendParseReply("AT+CIPRXGET=4", "+CIPRXGET: 4,", &avail, ',', 0) ) return false; |
itatchi42 | 0:1271d15b4d4b | 958 | |
itatchi42 | 0:1271d15b4d4b | 959 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 960 | printf("%d bytes available\r\n", avail); |
itatchi42 | 0:1271d15b4d4b | 961 | #endif |
itatchi42 | 0:1271d15b4d4b | 962 | |
itatchi42 | 0:1271d15b4d4b | 963 | return avail; |
itatchi42 | 0:1271d15b4d4b | 964 | } |
itatchi42 | 0:1271d15b4d4b | 965 | |
itatchi42 | 0:1271d15b4d4b | 966 | |
itatchi42 | 0:1271d15b4d4b | 967 | uint16_t Adafruit_FONA::TCPread(uint8_t *buff, uint8_t len) { |
itatchi42 | 0:1271d15b4d4b | 968 | uint16_t avail; |
itatchi42 | 0:1271d15b4d4b | 969 | |
itatchi42 | 0:1271d15b4d4b | 970 | mySerial.printf("AT+CIPRXGET=2,%d\r\n", len); |
itatchi42 | 0:1271d15b4d4b | 971 | readline(); |
itatchi42 | 0:1271d15b4d4b | 972 | if (! parseReply("+CIPRXGET: 2,", &avail, ',', 0)) return false; |
itatchi42 | 0:1271d15b4d4b | 973 | |
itatchi42 | 0:1271d15b4d4b | 974 | readRaw(avail); |
itatchi42 | 0:1271d15b4d4b | 975 | |
itatchi42 | 0:1271d15b4d4b | 976 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 977 | printf("%d bytes read\r\n", avail); |
itatchi42 | 0:1271d15b4d4b | 978 | for (uint8_t i=0;i<avail;i++) { |
itatchi42 | 0:1271d15b4d4b | 979 | printf(" 0x%#02x", replybuffer[i]); |
itatchi42 | 0:1271d15b4d4b | 980 | } |
itatchi42 | 0:1271d15b4d4b | 981 | printf("\r\n"); |
itatchi42 | 0:1271d15b4d4b | 982 | #endif |
itatchi42 | 0:1271d15b4d4b | 983 | |
itatchi42 | 0:1271d15b4d4b | 984 | memcpy(buff, replybuffer, avail); |
itatchi42 | 0:1271d15b4d4b | 985 | |
itatchi42 | 0:1271d15b4d4b | 986 | return avail; |
itatchi42 | 0:1271d15b4d4b | 987 | } |
itatchi42 | 0:1271d15b4d4b | 988 | |
itatchi42 | 0:1271d15b4d4b | 989 | /********* HTTP LOW LEVEL FUNCTIONS ************************************/ |
itatchi42 | 0:1271d15b4d4b | 990 | |
itatchi42 | 0:1271d15b4d4b | 991 | bool Adafruit_FONA::HTTP_init() { |
itatchi42 | 0:1271d15b4d4b | 992 | return sendCheckReply("AT+HTTPINIT", "OK"); |
itatchi42 | 0:1271d15b4d4b | 993 | } |
itatchi42 | 0:1271d15b4d4b | 994 | |
itatchi42 | 0:1271d15b4d4b | 995 | bool Adafruit_FONA::HTTP_term() { |
itatchi42 | 0:1271d15b4d4b | 996 | return sendCheckReply("AT+HTTPTERM", "OK"); |
itatchi42 | 0:1271d15b4d4b | 997 | } |
itatchi42 | 0:1271d15b4d4b | 998 | |
itatchi42 | 0:1271d15b4d4b | 999 | void Adafruit_FONA::HTTP_para_start(const char* parameter, bool quoted) { |
itatchi42 | 0:1271d15b4d4b | 1000 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 1001 | |
itatchi42 | 0:1271d15b4d4b | 1002 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1003 | printf("\t---> AT+HTTPPARA=\"%s\"\r\n", parameter); |
itatchi42 | 0:1271d15b4d4b | 1004 | #endif |
itatchi42 | 0:1271d15b4d4b | 1005 | |
itatchi42 | 0:1271d15b4d4b | 1006 | mySerial.printf("AT+HTTPPARA=\"%s", parameter); |
itatchi42 | 0:1271d15b4d4b | 1007 | if (quoted) |
itatchi42 | 0:1271d15b4d4b | 1008 | mySerial.printf("\",\""); |
itatchi42 | 0:1271d15b4d4b | 1009 | else |
itatchi42 | 0:1271d15b4d4b | 1010 | mySerial.printf("\","); |
itatchi42 | 0:1271d15b4d4b | 1011 | } |
itatchi42 | 0:1271d15b4d4b | 1012 | |
itatchi42 | 0:1271d15b4d4b | 1013 | bool Adafruit_FONA::HTTP_para_end(bool quoted) { |
itatchi42 | 0:1271d15b4d4b | 1014 | if (quoted) |
itatchi42 | 0:1271d15b4d4b | 1015 | mySerial.printf("\"\r\n"); |
itatchi42 | 0:1271d15b4d4b | 1016 | else |
itatchi42 | 0:1271d15b4d4b | 1017 | mySerial.printf("\r\n"); |
itatchi42 | 0:1271d15b4d4b | 1018 | |
itatchi42 | 0:1271d15b4d4b | 1019 | return expectReply("OK"); |
itatchi42 | 0:1271d15b4d4b | 1020 | } |
itatchi42 | 0:1271d15b4d4b | 1021 | |
itatchi42 | 0:1271d15b4d4b | 1022 | bool Adafruit_FONA::HTTP_para(const char* parameter, const char* value) { |
itatchi42 | 0:1271d15b4d4b | 1023 | HTTP_para_start(parameter, true); |
itatchi42 | 0:1271d15b4d4b | 1024 | mySerial.printf(value); |
itatchi42 | 0:1271d15b4d4b | 1025 | return HTTP_para_end(true); |
itatchi42 | 0:1271d15b4d4b | 1026 | } |
itatchi42 | 0:1271d15b4d4b | 1027 | |
itatchi42 | 0:1271d15b4d4b | 1028 | bool Adafruit_FONA::HTTP_para(const char* parameter, int32_t value) { |
itatchi42 | 0:1271d15b4d4b | 1029 | HTTP_para_start(parameter, false); |
itatchi42 | 0:1271d15b4d4b | 1030 | mySerial.printf("%d", value); |
itatchi42 | 0:1271d15b4d4b | 1031 | return HTTP_para_end(false); |
itatchi42 | 0:1271d15b4d4b | 1032 | } |
itatchi42 | 0:1271d15b4d4b | 1033 | |
itatchi42 | 0:1271d15b4d4b | 1034 | bool Adafruit_FONA::HTTP_data(uint32_t size, uint32_t maxTime) { |
itatchi42 | 0:1271d15b4d4b | 1035 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 1036 | |
itatchi42 | 0:1271d15b4d4b | 1037 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1038 | printf("\t---> AT+HTTPDATA=%d,%d\r\n", size, maxTime); |
itatchi42 | 0:1271d15b4d4b | 1039 | #endif |
itatchi42 | 0:1271d15b4d4b | 1040 | |
itatchi42 | 0:1271d15b4d4b | 1041 | mySerial.printf("AT+HTTPDATA=%d,%d\r\n", size, maxTime); |
itatchi42 | 0:1271d15b4d4b | 1042 | |
itatchi42 | 0:1271d15b4d4b | 1043 | return expectReply("DOWNLOAD"); |
itatchi42 | 0:1271d15b4d4b | 1044 | } |
itatchi42 | 0:1271d15b4d4b | 1045 | |
itatchi42 | 0:1271d15b4d4b | 1046 | bool Adafruit_FONA::HTTP_action(uint8_t method, uint16_t *status, uint16_t *datalen, int32_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1047 | // Send request. |
itatchi42 | 0:1271d15b4d4b | 1048 | if (! sendCheckReply("AT+HTTPACTION=", method, "OK")) |
itatchi42 | 0:1271d15b4d4b | 1049 | return false; |
itatchi42 | 0:1271d15b4d4b | 1050 | |
itatchi42 | 0:1271d15b4d4b | 1051 | // Parse response status and size. |
itatchi42 | 0:1271d15b4d4b | 1052 | readline(timeout); |
itatchi42 | 0:1271d15b4d4b | 1053 | if (! parseReply("+HTTPACTION:", status, ',', 1)) |
itatchi42 | 0:1271d15b4d4b | 1054 | return false; |
itatchi42 | 0:1271d15b4d4b | 1055 | if (! parseReply("+HTTPACTION:", datalen, ',', 2)) |
itatchi42 | 0:1271d15b4d4b | 1056 | return false; |
itatchi42 | 0:1271d15b4d4b | 1057 | |
itatchi42 | 0:1271d15b4d4b | 1058 | return true; |
itatchi42 | 0:1271d15b4d4b | 1059 | } |
itatchi42 | 0:1271d15b4d4b | 1060 | |
itatchi42 | 0:1271d15b4d4b | 1061 | bool Adafruit_FONA::HTTP_readall(uint16_t *datalen) { |
itatchi42 | 0:1271d15b4d4b | 1062 | getReply("AT+HTTPREAD"); |
itatchi42 | 0:1271d15b4d4b | 1063 | if (! parseReply("+HTTPREAD:", datalen, ',', 0)) |
itatchi42 | 0:1271d15b4d4b | 1064 | return false; |
itatchi42 | 0:1271d15b4d4b | 1065 | |
itatchi42 | 0:1271d15b4d4b | 1066 | return true; |
itatchi42 | 0:1271d15b4d4b | 1067 | } |
itatchi42 | 0:1271d15b4d4b | 1068 | |
itatchi42 | 0:1271d15b4d4b | 1069 | bool Adafruit_FONA::HTTP_ssl(bool onoff) { |
itatchi42 | 0:1271d15b4d4b | 1070 | return sendCheckReply("AT+HTTPSSL=", onoff ? 1 : 0, "OK"); |
itatchi42 | 0:1271d15b4d4b | 1071 | } |
itatchi42 | 0:1271d15b4d4b | 1072 | |
itatchi42 | 0:1271d15b4d4b | 1073 | /********* HTTP HIGH LEVEL FUNCTIONS ***************************/ |
itatchi42 | 0:1271d15b4d4b | 1074 | |
itatchi42 | 0:1271d15b4d4b | 1075 | bool Adafruit_FONA::HTTP_GET_start(char *url, uint16_t *status, uint16_t *datalen){ |
itatchi42 | 0:1271d15b4d4b | 1076 | if (! HTTP_setup(url)) |
itatchi42 | 0:1271d15b4d4b | 1077 | return false; |
itatchi42 | 0:1271d15b4d4b | 1078 | |
itatchi42 | 0:1271d15b4d4b | 1079 | // HTTP GET |
itatchi42 | 0:1271d15b4d4b | 1080 | if (! HTTP_action(FONA_HTTP_GET, status, datalen)) |
itatchi42 | 0:1271d15b4d4b | 1081 | return false; |
itatchi42 | 0:1271d15b4d4b | 1082 | |
itatchi42 | 0:1271d15b4d4b | 1083 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1084 | printf("Status: %d\r\n", *status); |
itatchi42 | 0:1271d15b4d4b | 1085 | printf("Len: %d\r\n", *datalen); |
itatchi42 | 0:1271d15b4d4b | 1086 | #endif |
itatchi42 | 0:1271d15b4d4b | 1087 | |
itatchi42 | 0:1271d15b4d4b | 1088 | // HTTP response data |
itatchi42 | 0:1271d15b4d4b | 1089 | if (! HTTP_readall(datalen)) |
itatchi42 | 0:1271d15b4d4b | 1090 | return false; |
itatchi42 | 0:1271d15b4d4b | 1091 | |
itatchi42 | 0:1271d15b4d4b | 1092 | return true; |
itatchi42 | 0:1271d15b4d4b | 1093 | } |
itatchi42 | 0:1271d15b4d4b | 1094 | |
itatchi42 | 0:1271d15b4d4b | 1095 | void Adafruit_FONA::HTTP_GET_end(void) { |
itatchi42 | 0:1271d15b4d4b | 1096 | HTTP_term(); |
itatchi42 | 0:1271d15b4d4b | 1097 | } |
itatchi42 | 0:1271d15b4d4b | 1098 | |
itatchi42 | 0:1271d15b4d4b | 1099 | bool Adafruit_FONA::HTTP_POST_start(char *url, const char* contenttype, const uint8_t *postdata, uint16_t postdatalen, uint16_t *status, uint16_t *datalen) { |
itatchi42 | 0:1271d15b4d4b | 1100 | if (! HTTP_setup(url)) |
itatchi42 | 0:1271d15b4d4b | 1101 | return false; |
itatchi42 | 0:1271d15b4d4b | 1102 | |
itatchi42 | 0:1271d15b4d4b | 1103 | if (! HTTP_para("CONTENT", contenttype)) { |
itatchi42 | 0:1271d15b4d4b | 1104 | return false; |
itatchi42 | 0:1271d15b4d4b | 1105 | } |
itatchi42 | 0:1271d15b4d4b | 1106 | |
itatchi42 | 0:1271d15b4d4b | 1107 | // HTTP POST data |
itatchi42 | 0:1271d15b4d4b | 1108 | if (! HTTP_data(postdatalen, 10000)) |
itatchi42 | 0:1271d15b4d4b | 1109 | return false; |
itatchi42 | 0:1271d15b4d4b | 1110 | for (uint16_t i = 0; i < postdatalen; i++) { |
itatchi42 | 0:1271d15b4d4b | 1111 | mySerial.putc(postdata[i]); |
itatchi42 | 0:1271d15b4d4b | 1112 | } |
itatchi42 | 0:1271d15b4d4b | 1113 | if (! expectReply("OK")) |
itatchi42 | 0:1271d15b4d4b | 1114 | return false; |
itatchi42 | 0:1271d15b4d4b | 1115 | |
itatchi42 | 0:1271d15b4d4b | 1116 | // HTTP POST |
itatchi42 | 0:1271d15b4d4b | 1117 | if (! HTTP_action(FONA_HTTP_POST, status, datalen)) |
itatchi42 | 0:1271d15b4d4b | 1118 | return false; |
itatchi42 | 0:1271d15b4d4b | 1119 | |
itatchi42 | 0:1271d15b4d4b | 1120 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1121 | printf("Status: %d\r\n", *status); |
itatchi42 | 0:1271d15b4d4b | 1122 | printf("Len: %d\r\n", *datalen); |
itatchi42 | 0:1271d15b4d4b | 1123 | #endif |
itatchi42 | 0:1271d15b4d4b | 1124 | |
itatchi42 | 0:1271d15b4d4b | 1125 | // HTTP response data |
itatchi42 | 0:1271d15b4d4b | 1126 | if (! HTTP_readall(datalen)) |
itatchi42 | 0:1271d15b4d4b | 1127 | return false; |
itatchi42 | 0:1271d15b4d4b | 1128 | |
itatchi42 | 0:1271d15b4d4b | 1129 | return true; |
itatchi42 | 0:1271d15b4d4b | 1130 | } |
itatchi42 | 0:1271d15b4d4b | 1131 | |
itatchi42 | 0:1271d15b4d4b | 1132 | void Adafruit_FONA::HTTP_POST_end(void) { |
itatchi42 | 0:1271d15b4d4b | 1133 | HTTP_term(); |
itatchi42 | 0:1271d15b4d4b | 1134 | } |
itatchi42 | 0:1271d15b4d4b | 1135 | |
itatchi42 | 0:1271d15b4d4b | 1136 | void Adafruit_FONA::setUserAgent(const char* useragent) { |
itatchi42 | 0:1271d15b4d4b | 1137 | this->useragent = (char*) useragent; |
itatchi42 | 0:1271d15b4d4b | 1138 | } |
itatchi42 | 0:1271d15b4d4b | 1139 | |
itatchi42 | 0:1271d15b4d4b | 1140 | void Adafruit_FONA::setHTTPSRedirect(bool onoff) { |
itatchi42 | 0:1271d15b4d4b | 1141 | httpsredirect = onoff; |
itatchi42 | 0:1271d15b4d4b | 1142 | } |
itatchi42 | 0:1271d15b4d4b | 1143 | |
itatchi42 | 0:1271d15b4d4b | 1144 | /********* HTTP HELPERS ****************************************/ |
itatchi42 | 0:1271d15b4d4b | 1145 | |
itatchi42 | 0:1271d15b4d4b | 1146 | bool Adafruit_FONA::HTTP_setup(char *url) { |
itatchi42 | 0:1271d15b4d4b | 1147 | // Handle any pending |
itatchi42 | 0:1271d15b4d4b | 1148 | HTTP_term(); |
itatchi42 | 0:1271d15b4d4b | 1149 | |
itatchi42 | 0:1271d15b4d4b | 1150 | // Initialize and set parameters |
itatchi42 | 0:1271d15b4d4b | 1151 | if (! HTTP_init()) |
itatchi42 | 0:1271d15b4d4b | 1152 | return false; |
itatchi42 | 0:1271d15b4d4b | 1153 | if (! HTTP_para("CID", 1)) |
itatchi42 | 0:1271d15b4d4b | 1154 | return false; |
itatchi42 | 0:1271d15b4d4b | 1155 | if (! HTTP_para("UA", useragent)) |
itatchi42 | 0:1271d15b4d4b | 1156 | return false; |
itatchi42 | 0:1271d15b4d4b | 1157 | if (! HTTP_para("URL", url)) |
itatchi42 | 0:1271d15b4d4b | 1158 | return false; |
itatchi42 | 0:1271d15b4d4b | 1159 | |
itatchi42 | 0:1271d15b4d4b | 1160 | // HTTPS redirect |
itatchi42 | 0:1271d15b4d4b | 1161 | if (httpsredirect) { |
itatchi42 | 0:1271d15b4d4b | 1162 | if (! HTTP_para("REDIR",1)) |
itatchi42 | 0:1271d15b4d4b | 1163 | return false; |
itatchi42 | 0:1271d15b4d4b | 1164 | |
itatchi42 | 0:1271d15b4d4b | 1165 | if (! HTTP_ssl(true)) |
itatchi42 | 0:1271d15b4d4b | 1166 | return false; |
itatchi42 | 0:1271d15b4d4b | 1167 | } |
itatchi42 | 0:1271d15b4d4b | 1168 | |
itatchi42 | 0:1271d15b4d4b | 1169 | return true; |
itatchi42 | 0:1271d15b4d4b | 1170 | } |
itatchi42 | 0:1271d15b4d4b | 1171 | |
itatchi42 | 0:1271d15b4d4b | 1172 | |
itatchi42 | 0:1271d15b4d4b | 1173 | /********* HELPERS *********************************************/ |
itatchi42 | 0:1271d15b4d4b | 1174 | |
itatchi42 | 0:1271d15b4d4b | 1175 | bool Adafruit_FONA::expectReply(const char* reply, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1176 | readline(timeout); |
itatchi42 | 0:1271d15b4d4b | 1177 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1178 | printf("\t<--- %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 1179 | #endif |
itatchi42 | 0:1271d15b4d4b | 1180 | return (strcmp(replybuffer, reply) == 0); |
itatchi42 | 0:1271d15b4d4b | 1181 | } |
itatchi42 | 0:1271d15b4d4b | 1182 | |
itatchi42 | 0:1271d15b4d4b | 1183 | /********* LOW LEVEL *******************************************/ |
itatchi42 | 0:1271d15b4d4b | 1184 | |
itatchi42 | 0:1271d15b4d4b | 1185 | void Adafruit_FONA::flushInput() { |
itatchi42 | 0:1271d15b4d4b | 1186 | // Read all available serial input to flush pending data. |
itatchi42 | 0:1271d15b4d4b | 1187 | uint16_t timeoutloop = 0; |
itatchi42 | 0:1271d15b4d4b | 1188 | while (timeoutloop++ < 40) { |
itatchi42 | 0:1271d15b4d4b | 1189 | while(readable()) { |
itatchi42 | 0:1271d15b4d4b | 1190 | getc(); |
itatchi42 | 0:1271d15b4d4b | 1191 | timeoutloop = 0; // If char was received reset the timer |
itatchi42 | 0:1271d15b4d4b | 1192 | } |
itatchi42 | 0:1271d15b4d4b | 1193 | wait_ms(1); |
itatchi42 | 0:1271d15b4d4b | 1194 | } |
itatchi42 | 0:1271d15b4d4b | 1195 | } |
itatchi42 | 0:1271d15b4d4b | 1196 | |
itatchi42 | 0:1271d15b4d4b | 1197 | uint16_t Adafruit_FONA::readRaw(uint16_t b) { |
itatchi42 | 0:1271d15b4d4b | 1198 | uint16_t idx = 0; |
itatchi42 | 0:1271d15b4d4b | 1199 | |
itatchi42 | 0:1271d15b4d4b | 1200 | while (b && (idx < sizeof(replybuffer)-1)) { |
itatchi42 | 0:1271d15b4d4b | 1201 | if (readable()) { |
itatchi42 | 0:1271d15b4d4b | 1202 | replybuffer[idx] = getc(); |
itatchi42 | 0:1271d15b4d4b | 1203 | idx++; |
itatchi42 | 0:1271d15b4d4b | 1204 | b--; |
itatchi42 | 0:1271d15b4d4b | 1205 | } |
itatchi42 | 0:1271d15b4d4b | 1206 | } |
itatchi42 | 0:1271d15b4d4b | 1207 | replybuffer[idx] = 0; |
itatchi42 | 0:1271d15b4d4b | 1208 | |
itatchi42 | 0:1271d15b4d4b | 1209 | return idx; |
itatchi42 | 0:1271d15b4d4b | 1210 | } |
itatchi42 | 0:1271d15b4d4b | 1211 | |
itatchi42 | 0:1271d15b4d4b | 1212 | // This function just reads the output from FONA after an AT command is sent to it |
itatchi42 | 0:1271d15b4d4b | 1213 | uint8_t Adafruit_FONA::readline(uint16_t timeout, bool multiline) { |
itatchi42 | 0:1271d15b4d4b | 1214 | uint16_t replyidx = 0; |
itatchi42 | 0:1271d15b4d4b | 1215 | |
itatchi42 | 0:1271d15b4d4b | 1216 | while (timeout--) { |
itatchi42 | 0:1271d15b4d4b | 1217 | if (replyidx >= 254) { |
itatchi42 | 0:1271d15b4d4b | 1218 | break; |
itatchi42 | 0:1271d15b4d4b | 1219 | } |
itatchi42 | 0:1271d15b4d4b | 1220 | |
itatchi42 | 0:1271d15b4d4b | 1221 | while(readable()) { |
itatchi42 | 0:1271d15b4d4b | 1222 | char c = getc(); |
itatchi42 | 0:1271d15b4d4b | 1223 | if (c == '\r') continue; |
itatchi42 | 0:1271d15b4d4b | 1224 | if (c == 0xA) { |
itatchi42 | 0:1271d15b4d4b | 1225 | if (replyidx == 0) // the first 0x0A is ignored |
itatchi42 | 0:1271d15b4d4b | 1226 | continue; |
itatchi42 | 0:1271d15b4d4b | 1227 | |
itatchi42 | 0:1271d15b4d4b | 1228 | if (!multiline) { |
itatchi42 | 0:1271d15b4d4b | 1229 | timeout = 0; // the second 0x0A is the end of the line |
itatchi42 | 0:1271d15b4d4b | 1230 | break; |
itatchi42 | 0:1271d15b4d4b | 1231 | } |
itatchi42 | 0:1271d15b4d4b | 1232 | } |
itatchi42 | 0:1271d15b4d4b | 1233 | replybuffer[replyidx] = c; |
itatchi42 | 0:1271d15b4d4b | 1234 | replyidx++; |
itatchi42 | 0:1271d15b4d4b | 1235 | } |
itatchi42 | 0:1271d15b4d4b | 1236 | |
itatchi42 | 0:1271d15b4d4b | 1237 | if (timeout == 0) { |
itatchi42 | 0:1271d15b4d4b | 1238 | break; |
itatchi42 | 0:1271d15b4d4b | 1239 | } |
itatchi42 | 0:1271d15b4d4b | 1240 | wait_ms(1); |
itatchi42 | 0:1271d15b4d4b | 1241 | } |
itatchi42 | 0:1271d15b4d4b | 1242 | replybuffer[replyidx] = 0; // null term |
itatchi42 | 0:1271d15b4d4b | 1243 | return replyidx; |
itatchi42 | 0:1271d15b4d4b | 1244 | } |
itatchi42 | 0:1271d15b4d4b | 1245 | |
itatchi42 | 0:1271d15b4d4b | 1246 | uint8_t Adafruit_FONA::getReply(const char* send, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1247 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 1248 | |
itatchi42 | 0:1271d15b4d4b | 1249 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1250 | printf("\t---> %s\r\n", send); |
itatchi42 | 0:1271d15b4d4b | 1251 | #endif |
itatchi42 | 0:1271d15b4d4b | 1252 | |
itatchi42 | 0:1271d15b4d4b | 1253 | mySerial.printf("%s\r\n",send); |
itatchi42 | 0:1271d15b4d4b | 1254 | |
itatchi42 | 0:1271d15b4d4b | 1255 | uint8_t l = readline(timeout); |
itatchi42 | 0:1271d15b4d4b | 1256 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1257 | printf("\t<--- %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 1258 | #endif |
itatchi42 | 0:1271d15b4d4b | 1259 | return l; |
itatchi42 | 0:1271d15b4d4b | 1260 | } |
itatchi42 | 0:1271d15b4d4b | 1261 | |
itatchi42 | 0:1271d15b4d4b | 1262 | // Send prefix, suffix, and newline. Return response (and also set replybuffer with response). |
itatchi42 | 0:1271d15b4d4b | 1263 | uint8_t Adafruit_FONA::getReply(const char* prefix, char* suffix, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1264 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 1265 | |
itatchi42 | 0:1271d15b4d4b | 1266 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1267 | printf("\t---> %s%s\r\n", prefix, suffix); |
itatchi42 | 0:1271d15b4d4b | 1268 | #endif |
itatchi42 | 0:1271d15b4d4b | 1269 | |
itatchi42 | 0:1271d15b4d4b | 1270 | mySerial.printf("%s%s\r\n", prefix, suffix); |
itatchi42 | 0:1271d15b4d4b | 1271 | |
itatchi42 | 0:1271d15b4d4b | 1272 | uint8_t l = readline(timeout); |
itatchi42 | 0:1271d15b4d4b | 1273 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1274 | printf("\t<--- %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 1275 | #endif |
itatchi42 | 0:1271d15b4d4b | 1276 | return l; |
itatchi42 | 0:1271d15b4d4b | 1277 | } |
itatchi42 | 0:1271d15b4d4b | 1278 | |
itatchi42 | 0:1271d15b4d4b | 1279 | // Send prefix, suffix, and newline. Return response (and also set replybuffer with response). |
itatchi42 | 0:1271d15b4d4b | 1280 | uint8_t Adafruit_FONA::getReply(const char* prefix, int32_t suffix, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1281 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 1282 | |
itatchi42 | 0:1271d15b4d4b | 1283 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1284 | printf("\t---> %s%d\r\n", prefix, suffix); |
itatchi42 | 0:1271d15b4d4b | 1285 | #endif |
itatchi42 | 0:1271d15b4d4b | 1286 | |
itatchi42 | 0:1271d15b4d4b | 1287 | mySerial.printf("%s%d\r\n", prefix, suffix); |
itatchi42 | 0:1271d15b4d4b | 1288 | |
itatchi42 | 0:1271d15b4d4b | 1289 | uint8_t l = readline(timeout); |
itatchi42 | 0:1271d15b4d4b | 1290 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1291 | printf("\t<--- %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 1292 | #endif |
itatchi42 | 0:1271d15b4d4b | 1293 | return l; |
itatchi42 | 0:1271d15b4d4b | 1294 | } |
itatchi42 | 0:1271d15b4d4b | 1295 | |
itatchi42 | 0:1271d15b4d4b | 1296 | // Send prefix, suffix, suffix2, and newline. Return response (and also set replybuffer with response). |
itatchi42 | 0:1271d15b4d4b | 1297 | uint8_t Adafruit_FONA::getReply(const char* prefix, int32_t suffix1, int32_t suffix2, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1298 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 1299 | |
itatchi42 | 0:1271d15b4d4b | 1300 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1301 | printf("\t---> %s%d,%d\r\n", prefix, suffix1, suffix2); |
itatchi42 | 0:1271d15b4d4b | 1302 | #endif |
itatchi42 | 0:1271d15b4d4b | 1303 | |
itatchi42 | 0:1271d15b4d4b | 1304 | mySerial.printf("%s%d,%d\r\n", prefix, suffix1, suffix2); |
itatchi42 | 0:1271d15b4d4b | 1305 | |
itatchi42 | 0:1271d15b4d4b | 1306 | uint8_t l = readline(timeout); |
itatchi42 | 0:1271d15b4d4b | 1307 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1308 | printf("\t<--- %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 1309 | #endif |
itatchi42 | 0:1271d15b4d4b | 1310 | return l; |
itatchi42 | 0:1271d15b4d4b | 1311 | } |
itatchi42 | 0:1271d15b4d4b | 1312 | |
itatchi42 | 0:1271d15b4d4b | 1313 | // Send prefix, ", suffix, ", and newline. Return response (and also set replybuffer with response). |
itatchi42 | 0:1271d15b4d4b | 1314 | uint8_t Adafruit_FONA::getReplyQuoted(const char* prefix, const char* suffix, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1315 | flushInput(); |
itatchi42 | 0:1271d15b4d4b | 1316 | |
itatchi42 | 0:1271d15b4d4b | 1317 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1318 | printf("\t---> %s\"%s\"\r\n", prefix, suffix); |
itatchi42 | 0:1271d15b4d4b | 1319 | #endif |
itatchi42 | 0:1271d15b4d4b | 1320 | |
itatchi42 | 0:1271d15b4d4b | 1321 | mySerial.printf("%s\"%s\"\r\n", prefix, suffix); |
itatchi42 | 0:1271d15b4d4b | 1322 | |
itatchi42 | 0:1271d15b4d4b | 1323 | uint8_t l = readline(timeout); |
itatchi42 | 0:1271d15b4d4b | 1324 | #ifdef ADAFRUIT_FONA_DEBUG |
itatchi42 | 0:1271d15b4d4b | 1325 | printf("\t<--- %s\r\n", replybuffer); |
itatchi42 | 0:1271d15b4d4b | 1326 | #endif |
itatchi42 | 0:1271d15b4d4b | 1327 | return l; |
itatchi42 | 0:1271d15b4d4b | 1328 | } |
itatchi42 | 0:1271d15b4d4b | 1329 | |
itatchi42 | 0:1271d15b4d4b | 1330 | |
itatchi42 | 0:1271d15b4d4b | 1331 | bool Adafruit_FONA::sendCheckReply(const char *send, const char *reply, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1332 | getReply(send, timeout); |
itatchi42 | 0:1271d15b4d4b | 1333 | |
itatchi42 | 0:1271d15b4d4b | 1334 | return (strcmp(replybuffer, reply) == 0); |
itatchi42 | 0:1271d15b4d4b | 1335 | } |
itatchi42 | 0:1271d15b4d4b | 1336 | |
itatchi42 | 0:1271d15b4d4b | 1337 | // Send prefix, suffix, and newline. Verify FONA response matches reply parameter. |
itatchi42 | 0:1271d15b4d4b | 1338 | bool Adafruit_FONA::sendCheckReply(const char* prefix, char *suffix, const char* reply, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1339 | getReply(prefix, suffix, timeout); |
itatchi42 | 0:1271d15b4d4b | 1340 | return (strcmp(replybuffer, reply) == 0); |
itatchi42 | 0:1271d15b4d4b | 1341 | } |
itatchi42 | 0:1271d15b4d4b | 1342 | |
itatchi42 | 0:1271d15b4d4b | 1343 | // Send prefix, suffix, and newline. Verify FONA response matches reply parameter. |
itatchi42 | 0:1271d15b4d4b | 1344 | bool Adafruit_FONA::sendCheckReply(const char* prefix, int32_t suffix, const char* reply, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1345 | getReply(prefix, suffix, timeout); |
itatchi42 | 0:1271d15b4d4b | 1346 | return (strcmp(replybuffer, reply) == 0); |
itatchi42 | 0:1271d15b4d4b | 1347 | } |
itatchi42 | 0:1271d15b4d4b | 1348 | |
itatchi42 | 0:1271d15b4d4b | 1349 | // Send prefix, suffix, suffix2, and newline. Verify FONA response matches reply parameter. |
itatchi42 | 0:1271d15b4d4b | 1350 | bool Adafruit_FONA::sendCheckReply(const char* prefix, int32_t suffix1, int32_t suffix2, const char* reply, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1351 | getReply(prefix, suffix1, suffix2, timeout); |
itatchi42 | 0:1271d15b4d4b | 1352 | return (strcmp(replybuffer, reply) == 0); |
itatchi42 | 0:1271d15b4d4b | 1353 | } |
itatchi42 | 0:1271d15b4d4b | 1354 | |
itatchi42 | 0:1271d15b4d4b | 1355 | // Send prefix, ", suffix, ", and newline. Verify FONA response matches reply parameter. |
itatchi42 | 0:1271d15b4d4b | 1356 | bool Adafruit_FONA::sendCheckReplyQuoted(const char* prefix, const char* suffix, const char* reply, uint16_t timeout) { |
itatchi42 | 0:1271d15b4d4b | 1357 | getReplyQuoted(prefix, suffix, timeout); |
itatchi42 | 0:1271d15b4d4b | 1358 | return (strcmp(replybuffer, reply) == 0); |
itatchi42 | 0:1271d15b4d4b | 1359 | } |
itatchi42 | 0:1271d15b4d4b | 1360 | |
itatchi42 | 0:1271d15b4d4b | 1361 | bool Adafruit_FONA::parseReply(const char* toreply, uint16_t *v, char divider, uint8_t index) { |
itatchi42 | 0:1271d15b4d4b | 1362 | char *p = strstr(replybuffer, toreply); // get the pointer to the voltage |
itatchi42 | 0:1271d15b4d4b | 1363 | if (p == 0) return false; |
itatchi42 | 0:1271d15b4d4b | 1364 | p += strlen(toreply); |
itatchi42 | 0:1271d15b4d4b | 1365 | |
itatchi42 | 0:1271d15b4d4b | 1366 | for (uint8_t i=0; i<index;i++) { |
itatchi42 | 0:1271d15b4d4b | 1367 | // increment dividers |
itatchi42 | 0:1271d15b4d4b | 1368 | p = strchr(p, divider); |
itatchi42 | 0:1271d15b4d4b | 1369 | if (!p) return false; |
itatchi42 | 0:1271d15b4d4b | 1370 | p++; |
itatchi42 | 0:1271d15b4d4b | 1371 | } |
itatchi42 | 0:1271d15b4d4b | 1372 | |
itatchi42 | 0:1271d15b4d4b | 1373 | *v = atoi(p); |
itatchi42 | 0:1271d15b4d4b | 1374 | |
itatchi42 | 0:1271d15b4d4b | 1375 | return true; |
itatchi42 | 0:1271d15b4d4b | 1376 | } |
itatchi42 | 0:1271d15b4d4b | 1377 | |
itatchi42 | 0:1271d15b4d4b | 1378 | bool Adafruit_FONA::parseReply(const char* toreply, char *v, char divider, uint8_t index) { |
itatchi42 | 0:1271d15b4d4b | 1379 | uint8_t i=0; |
itatchi42 | 0:1271d15b4d4b | 1380 | char *p = strstr(replybuffer, toreply); |
itatchi42 | 0:1271d15b4d4b | 1381 | if (p == 0) return false; |
itatchi42 | 0:1271d15b4d4b | 1382 | p+=strlen(toreply); |
itatchi42 | 0:1271d15b4d4b | 1383 | |
itatchi42 | 0:1271d15b4d4b | 1384 | for (i=0; i<index;i++) { |
itatchi42 | 0:1271d15b4d4b | 1385 | // increment dividers |
itatchi42 | 0:1271d15b4d4b | 1386 | p = strchr(p, divider); |
itatchi42 | 0:1271d15b4d4b | 1387 | if (!p) return false; |
itatchi42 | 0:1271d15b4d4b | 1388 | p++; |
itatchi42 | 0:1271d15b4d4b | 1389 | } |
itatchi42 | 0:1271d15b4d4b | 1390 | |
itatchi42 | 0:1271d15b4d4b | 1391 | for(i=0; i<strlen(p);i++) { |
itatchi42 | 0:1271d15b4d4b | 1392 | if(p[i] == divider) |
itatchi42 | 0:1271d15b4d4b | 1393 | break; |
itatchi42 | 0:1271d15b4d4b | 1394 | v[i] = p[i]; |
itatchi42 | 0:1271d15b4d4b | 1395 | } |
itatchi42 | 0:1271d15b4d4b | 1396 | |
itatchi42 | 0:1271d15b4d4b | 1397 | v[i] = '\0'; |
itatchi42 | 0:1271d15b4d4b | 1398 | |
itatchi42 | 0:1271d15b4d4b | 1399 | return true; |
itatchi42 | 0:1271d15b4d4b | 1400 | } |
itatchi42 | 0:1271d15b4d4b | 1401 | |
itatchi42 | 0:1271d15b4d4b | 1402 | // Parse a quoted string in the response fields and copy its value (without quotes) |
itatchi42 | 0:1271d15b4d4b | 1403 | // to the specified character array (v). Only up to maxlen characters are copied |
itatchi42 | 0:1271d15b4d4b | 1404 | // into the result buffer, so make sure to pass a large enough buffer to handle the |
itatchi42 | 0:1271d15b4d4b | 1405 | // response. |
itatchi42 | 0:1271d15b4d4b | 1406 | bool Adafruit_FONA::parseReplyQuoted(const char* toreply, char* v, int maxlen, char divider, uint8_t index) { |
itatchi42 | 0:1271d15b4d4b | 1407 | uint8_t i=0, j; |
itatchi42 | 0:1271d15b4d4b | 1408 | // Verify response starts with toreply. |
itatchi42 | 0:1271d15b4d4b | 1409 | char *p = strstr(replybuffer, toreply); |
itatchi42 | 0:1271d15b4d4b | 1410 | if (p == 0) return false; |
itatchi42 | 0:1271d15b4d4b | 1411 | p+=strlen(toreply); |
itatchi42 | 0:1271d15b4d4b | 1412 | |
itatchi42 | 0:1271d15b4d4b | 1413 | // Find location of desired response field. |
itatchi42 | 0:1271d15b4d4b | 1414 | for (i=0; i<index;i++) { |
itatchi42 | 0:1271d15b4d4b | 1415 | // increment dividers |
itatchi42 | 0:1271d15b4d4b | 1416 | p = strchr(p, divider); |
itatchi42 | 0:1271d15b4d4b | 1417 | if (!p) return false; |
itatchi42 | 0:1271d15b4d4b | 1418 | p++; |
itatchi42 | 0:1271d15b4d4b | 1419 | } |
itatchi42 | 0:1271d15b4d4b | 1420 | |
itatchi42 | 0:1271d15b4d4b | 1421 | // Copy characters from response field into result string. |
itatchi42 | 0:1271d15b4d4b | 1422 | for(i=0, j=0; j<maxlen && i<strlen(p); ++i) { |
itatchi42 | 0:1271d15b4d4b | 1423 | // Stop if a divier is found. |
itatchi42 | 0:1271d15b4d4b | 1424 | if(p[i] == divider) |
itatchi42 | 0:1271d15b4d4b | 1425 | break; |
itatchi42 | 0:1271d15b4d4b | 1426 | // Skip any quotation marks. |
itatchi42 | 0:1271d15b4d4b | 1427 | else if(p[i] == '"') |
itatchi42 | 0:1271d15b4d4b | 1428 | continue; |
itatchi42 | 0:1271d15b4d4b | 1429 | v[j++] = p[i]; |
itatchi42 | 0:1271d15b4d4b | 1430 | } |
itatchi42 | 0:1271d15b4d4b | 1431 | |
itatchi42 | 0:1271d15b4d4b | 1432 | // Add a null terminator if result string buffer was not filled. |
itatchi42 | 0:1271d15b4d4b | 1433 | if (j < maxlen) |
itatchi42 | 0:1271d15b4d4b | 1434 | v[j] = '\0'; |
itatchi42 | 0:1271d15b4d4b | 1435 | |
itatchi42 | 0:1271d15b4d4b | 1436 | return true; |
itatchi42 | 0:1271d15b4d4b | 1437 | } |
itatchi42 | 0:1271d15b4d4b | 1438 | |
itatchi42 | 0:1271d15b4d4b | 1439 | bool Adafruit_FONA::sendParseReply(const char* tosend, const char* toreply, uint16_t *v, char divider, uint8_t index) { |
itatchi42 | 0:1271d15b4d4b | 1440 | getReply(tosend); |
itatchi42 | 0:1271d15b4d4b | 1441 | |
itatchi42 | 0:1271d15b4d4b | 1442 | if (! parseReply(toreply, v, divider, index)) return false; |
itatchi42 | 0:1271d15b4d4b | 1443 | |
itatchi42 | 0:1271d15b4d4b | 1444 | readline(); // eat 'OK' |
itatchi42 | 0:1271d15b4d4b | 1445 | |
itatchi42 | 0:1271d15b4d4b | 1446 | return true; |
itatchi42 | 0:1271d15b4d4b | 1447 | } |