/// @cond debug
int cHTTPRequest()
{
char cmdReply[200];
char msg2send[200];
int resCheck = 0;
DWORD tick;
int countData;
int chars2read;
int msgLength = 0;
switch(smInternal)
{
case 0:
// Check if Buffer is free
if(GSMBufferSize() > 0)
{
// Parse Unsol Message
mainGSMStateMachine = SM_GSM_CMD_PENDING;
return -1;
}
else
smInternal++;
case 1:
// Send first AT command
// Calculate tcp write length...
// Header length:
if(httpReqType == HTTP_GET)
{
msgLength = 131;
}
else if(httpReqType == HTTP_POST)
{
msgLength = 132;
}
msgLength += strlen(httpReqUrl);
msgLength += strlen(httpWriteBuffer);
sprintf(msg2send, "%d", strlen(httpWriteBuffer));
msgLength += strlen(msg2send);
if(httpParams != HTTP_NO_PARAM)
{
msgLength += strlen(httpParams);
}
// ---------- TCP Write Command ----------
sprintf(msg2send, "AT+KTCPSND=%d,%d\r",xSocket->number, msgLength);
GSMWrite(msg2send);
// Start timeout count
tick = TickGetDiv64K(); // 1 tick every seconds
maxtimeout = 75;// 60;
smInternal++;
case 2:
vTaskDelay(20);
// Check ECHO
countData = 0;
resCheck = CheckEcho(countData, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
case 3:
// Get reply "\r\nCONNECT\r\n"
vTaskDelay(20);
sprintf(msg2send, "\r\nCONNECT");
chars2read = 2;
countData = 4; // GSM buffer should be: <CR><LF>CONNECT<CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
else
{
if(httpReqType == HTTP_GET)
{
GSMWrite("GET ");
}
else
{
GSMWrite("POST ");
}
char* req = strstr(httpReqUrl, "/");
GSMWrite(req);
GSMWrite(" HTTP/1.1\r\nHost: ");
int tokenPos;
for(tokenPos = 0; tokenPos < strlen(httpReqUrl); tokenPos++)
{
if(httpReqUrl[tokenPos] == '/')
{
break;
}
GSMWriteCh(httpReqUrl[tokenPos]);
}
GSMWrite("\r\nUser-Agent: Flyport-GPRS\r\n");
if(httpParams != HTTP_NO_PARAM)
{
GSMWrite(httpParams);
}
else
{
GSMWrite("Content-Length: ");
char contentlength[5];
sprintf(contentlength, "%d", strlen(httpWriteBuffer));
GSMWrite(contentlength);
GSMWrite("\r\nContent-Type: application/x-www-form-urlencoded\r\nAccept: */*");
}
GSMWrite("\r\n\r\n");
GSMWrite(httpWriteBuffer);
// and write --EOF--Pattern-- (without \r)
GSMWrite("--EOF--Pattern--");
}
case 4:
// Get reply (\r\nOK\r\n)
vTaskDelay(20);
// Get OK
sprintf(msg2send, "OK\r\n");
chars2read = 2;
countData = 2; // GSM buffer should be: <CR><LF>OK<CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
case 5:
if(GSMBufferSize() > 0)
{
// Parse Unsol Message
mainGSMStateMachine = SM_GSM_CMD_PENDING;
return -1;
}
// Read 1 char at time on Hilo TCP Buffer to get
// HTTP Header reply, using GSMpSeek/GSMpRead, etc
// ---------- TCP Status Update ----------
sprintf(msg2send, "AT+KTCPSTAT=%d\r",xSocket->number);
GSMWrite(msg2send);
// Start timeout count
tick = TickGetDiv64K(); // 1 tick every seconds
maxtimeout = 75;// 60;
smInternal++;
case 6:
vTaskDelay(20);
// Check ECHO
countData = 0;
resCheck = CheckEcho(countData, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
case 7:
// Get reply "\r\n+KTCPSTAT: <status>,<tcp_notif>,<rem_data>,<rcv_data>\r\n"
vTaskDelay(20);
sprintf(msg2send, "+KTCPSTAT");
chars2read = 2;
countData = 2; // GSM buffer should be: <CR><LF>+KTCPSTAT: <status>,<tcp_notif>,<rem_data>,<rcv_data><CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
else
{
// Get status
char temp[25];
int res = getfield(':', ',', 5, 1, cmdReply, temp, 500);
if(res != 1)
{
// Execute Error Handler
gsmDebugPrint( "Error in getfield for +KTCPSTAT socket\r\n");
break;
}
else
{
xSocket->status = atoi(temp);
}
// Get tcp_notif
res = getfield(',', ',', 5, 1, cmdReply, temp, 500);
if(res != 1)
{
// Execute Error Handler
gsmDebugPrint( "Error in getfield for +KTCPSTAT socket\r\n");
break;
}
else
{
xSocket->notif = atoi(temp);
}
// Get rcv_data
res = getfield(',', '\r', 6, 3, cmdReply, temp, 500);
if(res != 1)
{
// Execute Error Handler
gsmDebugPrint( "Error in getfield for +KTCPSTAT socket\r\n");
break;
}
else
{
xSocket->rxLen = atoi(temp);
}
}
case 8:
// Get reply (\r\nOK\r\n)
vTaskDelay(1);
// Get OK
sprintf(msg2send, "OK\r\n");
chars2read = 2;
countData = 2; // GSM buffer should be: <CR><LF>OK<CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
smInternal++; // exit from the switch!
break;
/*
case 9:
// check if there are enough BYTEs on TCP Buffer for HTTP Response parsing
if(xSocket->rxLen < 12)
{
// Break operation
smInternal = 5;
maxHTTPattempt--;
break;
}
maxHTTPattempt = 10;
// Send first AT command
// ---------- TCP Read Command ----------
httpReadBufferCount = 12;
sprintf(msg2send, "AT+KTCPRCV=%d,%d\r",xSocket->number, httpReadBufferCount);
GSMWrite(msg2send);
// Start timeout count
tick = TickGetDiv64K(); // 1 tick every seconds
maxtimeout = 60;
smInternal++;
case 10:
vTaskDelay(20);
// Check ECHO
countData = 0;
resCheck = CheckEcho(countData, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
case 11:
// Get reply "\r\nCONNECT\r\n"
vTaskDelay(2);
sprintf(msg2send, "CONNECT");
chars2read = 2;
countData = 2; // GSM buffer should be: <CR><LF>CONNECT<CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
case 12:
// Get "HTTP/1.1 "reply:
// Read data from TCP Socket
httpReadBufferCount = GSMRead(tmp, 12);
tmp[12] = '\0';
// Decrease xSocket->rxLen:
xSocket->rxLen -= httpReadBufferCount;
char* httpReplyVal = strstr(tmp, "HTTP/1.1 ");
if(httpReplyVal != NULL)
{
httpCount = atoi(&httpReplyVal[9]);
}
xHTTPCode = httpCount;
httpCount = 0;
smInternal++;
case 13:
// Now flush all the TCP Data until the first \r\n\r\n
// ---------- TCP Status Update ----------
sprintf(msg2send, "AT+KTCPSTAT=%d\r",xSocket->number);
GSMWrite(msg2send);
// Start timeout count
tick = TickGetDiv64K(); // 1 tick every seconds
maxtimeout = 60;
smInternal++;
case 14:
vTaskDelay(2);
// Check ECHO
countData = 0;
resCheck = CheckEcho(countData, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
case 15:
// Get reply "\r\n+KTCPSTAT: <status>,<tcp_notif>,<rem_data>,<rcv_data>\r\n"
vTaskDelay(2);
sprintf(msg2send, "+KTCPSTAT");
chars2read = 2;
countData = 2; // GSM buffer should be: <CR><LF>+KTCPSTAT: <status>,<tcp_notif>,<rem_data>,<rcv_data><CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
else
{
// Get status
char temp[25];
int res = getfield(':', ',', 5, 1, cmdReply, temp, 500);
if(res != 1)
{
// Execute Error Handler
gsmDebugPrint( "Error in getfield for +KTCPSTAT socket\r\n");
break;
}
else
{
xSocket->status = atoi(temp);
}
// Get tcp_notif
res = getfield(',', ',', 5, 1, cmdReply, temp, 500);
if(res != 1)
{
// Execute Error Handler
gsmDebugPrint("Error in getfield for +KTCPSTAT socket\r\n");
break;
}
else
{
xSocket->notif = atoi(temp);
}
// Get rcv_data
res = getfield(',', '\r', 6, 3, cmdReply, temp, 500);
if(res != 1)
{
// Execute Error Handler
gsmDebugPrint("Error in getfield for +KTCPSTAT socket\r\n");
break;
}
else
{
xSocket->rxLen = atoi(temp);
}
}
case 16:
// Get reply (\r\nOK\r\n)
//vTaskDelay(1);
// Get OK
sprintf(msg2send, "OK");
chars2read = 2;
countData = 2; // GSM buffer should be: <CR><LF>OK<CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
case 17:
if(xSocket->rxLen == 0)
{
smInternal = 13;
maxHTTPattempt--;
if(maxHTTPattempt > 0)
vTaskDelay(20);
else
// Break operation
break;
}
else
{
// ---------- TCP Read Command ----------
sprintf(msg2send, "AT+KTCPRCV=%d,1\r",xSocket->number);
GSMWrite(msg2send);
// Start timeout count
tick = TickGetDiv64K(); // 1 tick every seconds
maxtimeout = 60;
smInternal++;
}
case 18:
//vTaskDelay(2);
// Check ECHO
countData = 0;
resCheck = CheckEcho(countData, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
case 19:
// Get reply "\r\nCONNECT\r\n"
//vTaskDelay(2);
sprintf(msg2send, "CONNECT");
chars2read = 2;
countData = 2; // GSM buffer should be: <CR><LF>CONNECT<CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
else
{
GSMRead(tmp, 1+22); //our char + "--EOF--Pattern--\r\nOK"
//UARTWriteCh(1, tmp[0]);
xSocket->rxLen--;
if(tmp[0] == termString[httpCount])
{
httpCount++;
}
if(httpCount > 4)
{
maxHTTPattempt = -2; // we found the termString as desired
break;
}
else
{
smInternal = 13;
}
}
* */
/*
case 20:
// Get reply (\r\n--EOF--Pattern--\r\nOK\r\n)
vTaskDelay(1);
// Get OK
sprintf(msg2send, "--EOF--Pattern--\r\nOK");
chars2read = 2;
countData = 2; // GSM buffer should be: <CR><LF>--EOF--Pattern--<CR><LF>OK<CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
*/
default:
// Check if Buffer is free
if(GSMBufferSize() > 0)
{
// Parse Unsol Message
mainGSMStateMachine = SM_GSM_CMD_PENDING;
return -1;
}
else
smInternal++;
break;
}// switch(smInternal)
smInternal = 0;
// Cmd = 0 only if the last command successfully executed
mainOpStatus.ExecStat = OP_SUCCESS;
mainOpStatus.Function = 0;
mainOpStatus.ErrorCode = 0;
mainGSMStateMachine = SM_GSM_IDLE;
return -1;
}
/// @cond debug
//****************************************************************************
// Only internal use:
// cTCPWrite callback function
//****************************************************************************
int cTCPWrite()
{
char cmdReply[200];
char msg2send[200];
int resCheck = 0;
DWORD tick;
int countData;
int chars2read;
switch(smInternal)
{
case 0:
// Check if Buffer is free
if(GSMBufferSize() > 0)
{
// Parse Unsol Message
mainGSMStateMachine = SM_GSM_CMD_PENDING;
return -1;
}
else
smInternal++;
case 1:
// Send first AT command
// ---------- TCP Write Command ----------
sprintf(msg2send, "AT+KTCPSND=%d,%d\r",xSocket->number, tcpWriteBufferCount);
GSMWrite(msg2send);
// Start timeout count
tick = TickGetDiv64K(); // 1 tick every seconds
maxtimeout = 120;
smInternal++;
case 2:
vTaskDelay(20);
// Check ECHO
countData = 0;
resCheck = CheckEcho(countData, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
case 3:
// Get reply "\r\nCONNECT\r\n"
vTaskDelay(20);
sprintf(msg2send, "\r\nCONNECT");
chars2read = 2;
countData = 4; // GSM buffer should be: <CR><LF>CONNECT<CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
else
{
int counterLen = 0;
while(counterLen < tcpWriteBufferCount)
{
GSMWriteCh(tcpWriteBuffer[counterLen]);
counterLen++;
}
// and write --EOF--Pattern-- (without \r)
GSMWrite("--EOF--Pattern--");
}
case 4:
// Get reply (\r\nOK\r\n)
vTaskDelay(20);
// Get OK
sprintf(msg2send, "OK");
chars2read = 2;
countData = 2; // GSM buffer should be: <CR><LF>OK<CR><LF>
resCheck = CheckCmd(countData, chars2read, tick, cmdReply, msg2send, maxtimeout);
CheckErr(resCheck, &smInternal, &tick);
if(resCheck)
{
return mainOpStatus.ErrorCode;
}
default:
break;
}
smInternal = 0;
// Cmd = 0 only if the last command successfully executed
mainOpStatus.ExecStat = OP_SUCCESS;
mainOpStatus.Function = 0;
mainOpStatus.ErrorCode = 0;
mainGSMStateMachine = SM_GSM_IDLE;
return -1;
}
