Adafruit_FONA_3G - Library for the Adafruit FONA. This is a port of …

Users » Nels885 » Code » Adafruit_FONA_3G

Library for the Adafruit FONA. This is a port of the original Arduino library available at: https://github.com/adafruit/Adafruit_FONA_Library . - Modified by Marc PLOUHINEC 27/06/2015 for use in mbed - Modified by lionel VOIRIN 05/08/2018 for use Adafruit FONA 3

Dependents: Adafruit_FONA_3G_Library_Test

Adafruit_FONA.cpp@4:05c32425d2da, 2018-08-11 (annotated)

Committer:: Nels885
Date:: Sat Aug 11 09:44:50 2018 +0000
Revision:: 4:05c32425d2da
Parent:: 3:addc5ef76145
Child:: 5:79e4c91f2b73

addding getTCPtimeout and getIpaddr method

Who changed what in which revision?

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

Repository toolbox

Export to desktop IDE

Repository details

Type:	Library
Created:	05 Aug 2018
Imports:	11
Forks:	0
Commits:	13
Dependents:	1
Dependencies:	0
Followers:	1
Issues:	0

Adafruit_FONA.cpp@4:05c32425d2da, 2018-08-11 (annotated)

Who changed what in which revision?

Repository toolbox

Repository details

Important Information for this Arm website

Access Warning