/*****************************************************************************
*
* Exosite_Write
*
* \param pbuf - string buffer containing data to be sent
* bufsize - number of bytes to send
*
* \return 1 success; 0 failure
*
* \brief Writes data to Exosite cloud
*
*****************************************************************************/
int
Exosite_Write(char * pbuf, unsigned int bufsize)
{
int success = 0;
int http_status = 0;
char bufCIK[41];
char strBuf[10];
if (!exosite_initialized) {
status_code = EXO_STATUS_INIT;
return success;
}
if (!Exosite_GetCIK(bufCIK))
{
return success;
}
long sock = connect_to_exosite();
if (sock < 0) {
status_code = EXO_STATUS_BAD_TCP;
return 0;
}
// This is an example write POST...
// s.send('POST /onep:v1/stack/alias HTTP/1.1\r\n')
// s.send('Host: m2.exosite.com\r\n')
// s.send('X-Exosite-CIK: 5046454a9a1666c3acfae63bc854ec1367167815\r\n')
// s.send('Content-Type: application/x-www-form-urlencoded; charset=utf-8\r\n')
// s.send('Content-Length: 6\r\n\r\n')
// s.send('temp=2')
itoa((int)bufsize, strBuf, 10); //make a string for length
sendLine(sock, POSTDATA_LINE, "/onep:v1/stack/alias");
sendLine(sock, HOST_LINE, NULL);
sendLine(sock, CIK_LINE, bufCIK);
sendLine(sock, CONTENT_LINE, NULL);
sendLine(sock, LENGTH_LINE, strBuf);
exoHAL_SocketSend(sock, pbuf, bufsize);
http_status = get_http_status(sock);
exoHAL_SocketClose(sock);
if (401 == http_status)
{
status_code = EXO_STATUS_NOAUTH;
}
if (204 == http_status)
{
success = 1;
status_code = EXO_STATUS_OK;
}
return success;
}
int
Exosite_SyncTime()
{
char day[11];
char time[9];
int http_status = 0;
int strLen;
char *testStr = "GET /ip HTTP/1.1\r\n";
unsigned char serverAddr[6] = {54, 183, 115, 21, 0, 80};
char strBuf[RX_SIZE];
DateTime datetime;
if (!exosite_initialized)
{
return -1;
}
long sock = connect_to_exosite_with_server_addr("", serverAddr);
if (sock < 0)
{
return -1;
}
exoHAL_SocketSend(sock, testStr, strlen(testStr));
sendLine(sock, HOST_LINE, NULL);
sendLine(sock, ACCEPT_LINE, "\r\n");
http_status = get_http_status(sock);
if (200 != http_status)
return -1;
strLen = exoHAL_SocketRecv(sock, strBuf, RX_SIZE);
exoHAL_SocketClose(sock);
if(strLen <= 0)
return -1;
if(parse_datetime(strBuf, strLen, &datetime) < 0)
return -1;
sprintf(day, "%s/%02d/%s", datetime.dayStr, month_to_num(datetime.monStr), datetime.yearStr);
sprintf(time, "%s:%s:%s", datetime.hourStr, datetime.minStr, datetime.secStr);
if(AtLibGs_SetTime(day, time) != ATLIBGS_MSG_ID_OK)
return -1;
return 0;
}
/*****************************************************************************
*
* sendLine
*
* \param Which line type
*
* \return socket handle
*
* \brief Sends data out
*
*****************************************************************************/
void
sendLine(long socket, unsigned char LINE, const char * payload)
{
char strBuf[70];
unsigned char strLen;
switch(LINE) {
case CIK_LINE:
strLen = strlen(STR_CIK_HEADER);
memcpy(strBuf,STR_CIK_HEADER,strLen);
memcpy(&strBuf[strLen],payload, strlen(payload));
strLen += strlen(payload);
memcpy(&strBuf[strLen],STR_CRLF, 2);
strLen += strlen(STR_CRLF);
break;
case HOST_LINE:
strLen = strlen(STR_HOST);
memcpy(strBuf,STR_HOST,strLen);
break;
case USER_AGENT_LINE:
strLen = strlen(STR_USER_AGENT);
memcpy(strBuf,STR_USER_AGENT,strLen);
break;
case CONNECTION_LINE:
strLen = strlen(STR_CONNECTION);
memcpy(strBuf,STR_CONNECTION,strLen);
break;
case CONTENT_LINE:
strLen = strlen(STR_CONTENT);
memcpy(strBuf,STR_CONTENT,strLen);
break;
case ACCEPT_LINE:
strLen = strlen(STR_ACCEPT);
memcpy(strBuf,STR_ACCEPT,strLen);
memcpy(&strBuf[strLen],payload, strlen(payload));
strLen += strlen(payload);
break;
case LENGTH_LINE: // Content-Length: NN
strLen = strlen(STR_CONTENT_LENGTH);
memcpy(strBuf,STR_CONTENT_LENGTH,strLen);
memcpy(&strBuf[strLen],payload, strlen(payload));
strLen += strlen(payload);
memcpy(&strBuf[strLen],STR_CRLF, 2);
strLen += 2;
memcpy(&strBuf[strLen],STR_CRLF, 2);
strLen += 2;
break;
case GETDATA_LINE:
strLen = strlen(STR_GET_URL);
memcpy(strBuf,STR_GET_URL,strLen);
memcpy(&strBuf[strLen],payload, strlen(payload));
strLen += strlen(payload);
memcpy(&strBuf[strLen],STR_HTTP, strlen(STR_HTTP));
strLen += strlen(STR_HTTP);
break;
case POSTDATA_LINE:
strLen = strlen("POST ");
memcpy(strBuf,"POST ", strLen);
memcpy(&strBuf[strLen],payload, strlen(payload));
strLen += strlen(payload);
memcpy(&strBuf[strLen],STR_HTTP, strlen(STR_HTTP));
strLen += strlen(STR_HTTP);
break;
case EMPTY_LINE:
strLen = strlen(STR_CRLF);
memcpy(strBuf,STR_CRLF,strLen);
break;
default:
break;
}
strBuf[strLen] = 0;
exoHAL_SocketSend(socket, strBuf, strLen);
return;
}
/*****************************************************************************
*
* Exosite_Activate
*
* \param None
*
* \return 1 - activation success
* 0 - activation failure
*
* \brief Called after Init has been run in the past, but maybe comms were
* down and we have to keep trying
*
*****************************************************************************/
int
Exosite_Activate(void)
{
int length;
char strLen[5];
char *cmp_ss = "Content-Length: 40";
char *cmp = cmp_ss;
int newcik = 0;
int http_status = 0;
if (!exosite_initialized) {
status_code = EXO_STATUS_INIT;
return newcik;
}
update_m2ip(); //check our IP api to see if the old IP is advertising a new one
long sock = connect_to_exosite();
if (sock < 0) {
status_code = EXO_STATUS_BAD_TCP;
return 0;
}
// Get activation Serial Number
length = strlen(exosite_provision_info);
sprintf(strLen, "%d", length); //make a string for length
sendLine(sock, POSTDATA_LINE, "/provision/activate");
sendLine(sock, HOST_LINE, NULL);
sendLine(sock, USER_AGENT_LINE, NULL);
sendLine(sock, CONNECTION_LINE, NULL);
sendLine(sock, CONTENT_LINE, NULL);
sendLine(sock, LENGTH_LINE, strLen);
exoHAL_SocketSend(sock, exosite_provision_info, length);
http_status = get_http_status(sock);
if (200 == http_status)
{
char strBuf[RX_SIZE];
unsigned char strLen, len;
unsigned char cik_len_valid = 0;
char *p;
unsigned char crlf = 0;
unsigned char ciklen = 0;
char NCIK[CIK_LENGTH + 1];
do
{
strLen = exoHAL_SocketRecv(sock, strBuf, RX_SIZE);
len = strLen;
p = strBuf;
// Find 4 consecutive \r or \n - should be: \r\n\r\n
while (0 < len && 4 > crlf)
{
if ('\r' == *p || '\n' == *p)
{
++crlf;
}
else
{
crlf = 0;
if (*cmp == *p)
{
// check the cik length from http response
cmp++;
if (cmp > cmp_ss + strlen(cmp_ss) - 1)
cik_len_valid = 1;
}
else
cmp = cmp_ss;
}
++p;
--len;
}
// The body is the cik
if (0 < len && 4 == crlf && CIK_LENGTH > ciklen)
{
// TODO, be more robust - match Content-Length header value to CIK_LENGTH
unsigned char need, part;
if (!(cik_len_valid == 1)) // cik length != 40
{
status_code = EXO_STATUS_CONFLICT;
exoHAL_SocketClose(sock);
return newcik;
}
need = CIK_LENGTH - ciklen;
part = need < len ? need : len;
strncpy(NCIK + ciklen, p, part);
ciklen += part;
}
} while (RX_SIZE == strLen);
if (CIK_LENGTH == ciklen)
{
NCIK[40] = 0;
Exosite_SetCIK(NCIK);
newcik = 1;
}
}
exoHAL_SocketClose(sock);
if (200 == http_status)
status_code = EXO_STATUS_OK;
if (404 == http_status)
status_code = EXO_STATUS_BAD_SN;
if (409 == http_status || 408 == http_status)
{
status_code = EXO_STATUS_CONFLICT;
}
return newcik;
}
