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@9:b18cfba4283a, 2018-10-23 (annotated)

Committer:: Nels885
Date:: Tue Oct 23 19:16:20 2018 +0000
Revision:: 9:b18cfba4283a
Parent:: 8:d54fbb976688
Child:: 10:7951d9691cb2

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

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@9:b18cfba4283a, 2018-10-23 (annotated)

Who changed what in which revision?

Repository toolbox

Repository details

Important Information for this Arm website

Access Warning