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@6:8fdb30dc3108, 2018-09-06 (annotated)

Committer:: Nels885
Date:: Thu Sep 06 20:17:02 2018 +0000
Revision:: 6:8fdb30dc3108
Parent:: 5:79e4c91f2b73
Child:: 7:e60a2ee53aa0

Add TCP SSL connection methods

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

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@6:8fdb30dc3108, 2018-09-06 (annotated)

Who changed what in which revision?

Repository toolbox

Repository details

Important Information for this Arm website

Access Warning