AT_Response parse_at_response(u8* offset )
{
char *p;
if (!pData)
return INVAT;
p = Ql_strstr(pData,"+CPIN:");
if (p)
{
*offset=p-pData+6;
return CPIN;
}
p = Ql_strstr(pData,"+CREG:");
if (p)
{
*offset=p-pData+6;
return CREG;
}
p = Ql_strstr(pData,"+CSQ:");
if (p)
{
*offset=p-pData+5;
return CSQ;
}
*offset = 0;
return INVAT;
}
bool get_http_data(QlClient *client,HttpHeader *header) {
char* fota = Ql_strstr((char*)client->recvBuffer, "QUECTEL_FOTA_UPGRADE");
if (fota) {
unsigned char* end = &client->recvBuffer[client->pRecvCurrentPos - (Ql_strlen(header->boundary) + 8)];
if (Ql_strstr((char*)end, header->boundary)) {
int lens = (char*)end - fota;
Ql_memcpy(header->data, fota, lens);
}
return TRUE;
}
else
return FALSE;
}
bool vilidation(HttpHeader *http_header){
OUTD("cookie value is:%s",http_header->cookie);
if (Ql_strstr(http_header->cookie,"NONE"))
{
return FALSE;
}
else return TRUE;
}
void CallBack_socket_read(u8 contexid, s8 sock, bool result, s32 error){
u8 len=0;
s32 index=0;
s32 ret=0;
//OUTLOG("resive from socket:%d",sock);
//Ql_memset(__socketBuffer,0,LEN_SOCKET_BUFFER);
//len=Ql_SocketRecv(sock,(u8*)&__socketBuffer[0],LEN_SOCKET_BUFFER);
//if (len>0) {
if (sock==__est_connector_socket) {
Ql_memset(__socketBuffer,0,LEN_SOCKET_BUFFER);
len=Ql_SocketRecv(sock,(u8*)&__socketBuffer[0],LEN_SOCKET_BUFFER);
if (len>0) {
unreplace(&__socketBuffer[0],len);
if (!__waitConfirm){
nSTATE = STATE_SOCKET_SEND;
__toSend=0;
Ql_StopGPTimer();
}
__countRepeat=0;
__start_empty_tmr=Ql_GetRelativeTime();
}
}
else{
// __socketBuffer[len] = '\0';
//read_request((char*)__socketBuffer, sock);
index=findClientBySockid(sock);
ret=__client[index].read_handle_callback(contexid,sock,result,error,index);
//OUTD("size recive:%d",ret);
if (ret>0) {
if (__client[index].protocol==HTTP) {
if (parse_header((char*)__client[index].recvBuffer,(u32)__client[index].pRecvCurrentPos)) {
//OUTD("header:%s",__client[index].recvBuffer);
if (__header.method==GET) {
if (!__header.authorization) {
Ql_strcpy(__header.action,"autorize");
}
page_response();
__client[index].send_handle(sock,__s_buf);
}
else if (__header.method==POST) {
OUTD("len:%d",__header.length);
}
}
}
else if (__client[index].protocol==STREAM) {
OUTD("stream",NULL);
Ql_SendToUart(ql_uart_port3,__client[index].recvBuffer,ret);
}
else if ( __client[index].protocol==UPGRADE) {
s32 init=0;
int pp=(u16)(__client[index].pRecvCurrentPos);
if (Ql_strstr((char*)&__client[index].recvBuffer[pp-3],"END")) {
OUTD("end file is:%s",&__client[index].recvBuffer[pp]);
init = Ql_Fota_App_Write_Data(ret-3, (s8 *)__client[index].recvBuffer);
OUTD("write fota:%d", init);
init=Ql_Fota_App_Finish();
__client[index].send_handle(sock,init==0 ? "0":"1");
OUTD("finish write:%d", init);
if (init==0) {
init=Ql_Fota_Update();
}
}
else{
init = Ql_Fota_App_Write_Data(ret, (s8 *)__client[index].recvBuffer);
__client[index].send_handle(sock,init==0 ? "0":"1");
OUTD("fota write:%d", init);
}
}
}
}
}
void ql_entry(void)
{
s32 ret;
bool keepGoing = TRUE;
bool isContinued = FALSE;
u32 cnt = 0;
Ql_DebugTrace("OpenCPU: Hello TTS !\r\n\r\n"); /* Print out messages through DEBUG port */
Ql_SetDebugMode(BASIC_MODE); /* Only after the device reboots,
* the set debug-mode takes effect.
*/
// Initialize TTS, and register callback function
Ql_TTS_Initialize(&Callback_TTS_Play);
while(keepGoing)
{
Ql_GetEvent(&g_event);
switch(g_event.eventType)
{
case EVENT_UARTDATA:
{
// TODO: receive and handle data from UART
ascii* pChar;
s16 strLen;
PortData_Event* pDataEvt = (PortData_Event*)&g_event.eventData.uartdata_evt;
/* Change audio path (Command: audio path=0/1/2)
* 0 = the main audio path
* 1 = earphone audio path
* 2 = loudspeaker audio path
*/
Ql_memset(g_buffer, 0x0, sizeof(g_buffer));
strLen = Ql_sprintf(g_buffer, "audio path=");
pChar = Ql_strstr((char*)pDataEvt->data, g_buffer);
if (pChar)
{
u8 audPath;
char* p1;
char* p2;
Ql_DebugTrace((char*)pDataEvt->data);
p1 = Ql_strstr((char*)pDataEvt->data, "=");
p2 = Ql_strstr((char*)pDataEvt->data, "\r\n");
Ql_memset(g_buffer, 0x0, sizeof(g_buffer));
memcpy(g_buffer, p1 + 1, p2 - p1 -1);
if (Ql_strcmp(g_buffer, "1") == 0)
{
audPath = QL_AUDIO_PATH_HEADSET;
}
else if (Ql_strcmp(g_buffer, "2") == 0)
{
audPath = QL_AUDIO_PATH_LOUDSPEAKER;
}
else
{
audPath = QL_AUDIO_PATH_NORMAL;
}
if (!Ql_VoiceCallChangePath(audPath))
{
Ql_DebugTrace("Fail to change audio path.\r\n");
}
else
{
Ql_DebugTrace("Change audio path to %d.\r\n", audPath);
}
break;
}
// Start tts speech (Command: start tts=...)
strLen = Ql_sprintf(g_buffer, "start tts=");
ret = Ql_strncmp((char*)pDataEvt->data, g_buffer, strLen);
if (0 == ret)
{
char* pCh = NULL;
pCh = Ql_strstr((char*)pDataEvt->data, "=");
if (pCh != NULL)
{
Ql_memset(g_buffer, 0x0, sizeof(g_buffer));
Ql_strncpy(g_buffer, pCh + 1, pDataEvt->len - (pCh - (char*)pDataEvt->data + 1) - 2);
Ql_DebugTrace("Ql_TTS_Play(), len=%d\r\n", Ql_strlen(g_buffer));
ret = Ql_TTS_Play((u8*)g_buffer, sizeof(g_buffer));
if (ret < 0)
{
Ql_DebugTrace("Fail to play TTS.\r\n");
break;
}
else
{
Ql_DebugTrace("Playing finished.\r\n");
}
}
break;
}
// Stop TTS (Command: stop tts)
Ql_memset(g_buffer, 0x0, Ql_strlen(g_buffer));
strLen = Ql_sprintf(g_buffer, "stop tts\r\n");
ret = Ql_strncmp((char*)pDataEvt->data, g_buffer, strLen);
if (0 == ret)
{
Ql_DebugTrace(g_buffer);
Ql_TTS_Stop();
break;
}
// Query TTS' status (Command: tts?)
Ql_memset(g_buffer, 0x0, Ql_strlen(g_buffer));
strLen = Ql_sprintf(g_buffer, "tts?\r\n");
ret = Ql_strncmp((char*)pDataEvt->data, g_buffer, strLen);
if (0 == ret)
{
Ql_DebugTrace(g_buffer);
ret = Ql_TTS_Query();
switch (ret)
{
case TTS_STATUS_IDLE:
Ql_DebugTrace("TTS: idle\r\n");
break;
case TTS_STATUS_PLAYING:
Ql_DebugTrace("TTS: playing\r\n");
break;
default:
Ql_DebugTrace("Fail to query TTS' status. Error code: %d\r\n", ret);
break;
}
break;
}
// Set volume (Command: tts vol=0..100)
Ql_memset(g_buffer, 0x0, sizeof(g_buffer));
strLen = Ql_sprintf(g_buffer, "tts vol=");
pChar = Ql_strstr((char*)pDataEvt->data, g_buffer);
if (pChar)
{
u8 ttsVol;
char* p1;
char* p2;
Ql_DebugTrace((char*)pDataEvt->data);
p1 = Ql_strstr((char*)pDataEvt->data, "=");
p2 = Ql_strstr((char*)pDataEvt->data, "\r\n");
Ql_memset(g_buffer, 0x0, sizeof(g_buffer));
memcpy(g_buffer, p1 + 1, p2 - p1 -1);
ttsVol = Ql_atoi(g_buffer);
ttsVol = (ttsVol > 100) ? 100 : ttsVol;
Ql_SetVolume_Ex(VOL_TYPE_MEDIA, QL_AUDIO_PATH_HEADSET, ttsVol);
break;
}
// Set TTS Style
// Set TTS fastest voice speed
Ql_memset(g_buffer, 0x0, sizeof(g_buffer));
strLen = Ql_sprintf(g_buffer, "tts Style1=");
pChar = Ql_strstr((char*)pDataEvt->data, g_buffer);
if (pChar)
{
u32 ret;
ret = Ql_TTS_SetStyle(TTS_PARAM_VOICE_SPEED,TTS_SPEED_MAX);
Ql_DebugTrace("Set TTS fastest voice speed.\r\n");
break;
}
// Set TTS minimized volume.
Ql_memset(g_buffer, 0x0, sizeof(g_buffer));
strLen = Ql_sprintf(g_buffer, "tts Style2=");
pChar = Ql_strstr((char*)pDataEvt->data, g_buffer);
if (pChar)
{
u32 ret;
ret = Ql_TTS_SetStyle(TTS_PARAM_VOLUME,TTS_VOLUME_MIN);
Ql_DebugTrace("Set TTS minimized volume.\r\n");
break;
}
// Set TTS voice effect --eccentric
Ql_memset(g_buffer, 0x0, sizeof(g_buffer));
strLen = Ql_sprintf(g_buffer, "tts Style3=");
pChar = Ql_strstr((char*)pDataEvt->data, g_buffer);
if (pChar)
{
u32 ret;
ret = Ql_TTS_SetStyle(TTS_PARAM_VEMODE,TTS_VEMODE_ECCENTRIC);
Ql_DebugTrace("Set TTS voice effect --eccentric.\r\n");
break;
}
}
/*************************************
* 'Case' another EVENT if needed.
*
**************************************/
default:
break;
}
}
}
static void CallBack_UART_Hdlr(Enum_SerialPort port, Enum_UARTEventType msg, bool level, void* customizedPara)
{
//APP_DEBUG("CallBack_UART_Hdlr: port=%d, event=%d, level=%d, p=%x\r\n", port, msg, level, customizedPara);
u32 rdLen=0;
s32 ret;
char *pData= NULL;
char *p=NULL;
char *p1=NULL;
char *p2=NULL;
bool bRet = FALSE;
switch (msg)
{
case EVENT_UART_READY_TO_READ:
{
if(UART_PORT1 == port)
{
do
{
Ql_memset(m_RxBuf_mcuUart, 0x0, sizeof(m_RxBuf_mcuUart));
rdLen = Ql_UART_Read(port, m_RxBuf_mcuUart, sizeof(m_RxBuf_mcuUart));
pData = m_RxBuf_mcuUart;
/*set last tail data eq 0*/
pData[rdLen + 1] = '\0';
/*cmd: DEPO*/
p = Ql_strstr(pData,"DEPO");
if (p)
{
APP_DEBUG(textBuf,"\r\nDEPO \r\n");
bRet = SendMtkBinCmd("$PMTK253,1,0*37");
if(!bRet)
{
APP_DEBUG(textBuf,"\r\n Send $PMTK Error \r\n");
break;
}
else
{
bRet = VerifyFileAndSendFirstEpoPacket(s_s8FilePath);
if(!bRet)
{
APP_DEBUG(textBuf,"\r\n VerifyFile Error \r\n");
break;
}
else
{
APP_DEBUG(textBuf,"Update EPO Progress Start £º\r\n");
}
}
break;
}
/*cmd: QueryAvailableStorage=UFS*/
p = Ql_strstr(pData,"QueryAvailableStorage");
if (p)
{
if(Ql_strstr(pData,"=UFS"))
{
s64 size;
size = Ql_FS_GetFreeSpace(1); // UFS
APP_DEBUG(textBuf,"QueryAvailableStorage=%lld\r\n",size);
}else if(Ql_strstr(pData,"=SD"))
{
s64 size;
size = Ql_FS_GetFreeSpace(2); //SD
APP_DEBUG(textBuf,"QueryAvailableStorage=%lld\r\n",size);
}else if(Ql_strstr(pData,"=RAM"))
{
s64 size;
size = Ql_FS_GetFreeSpace(3); //RAM
APP_DEBUG(textBuf,"QueryAvailableStorage=%lld\r\n",size);
}else
{
APP_DEBUG(textBuf,"QueryAvailableStorage param error!\r\n");
}
break;
}
/*cmd: WriteFile=password.txt*/
p = Ql_strstr(pData,"WriteFile=");
if (p)
{
s32 s32Res = -1;
u32 uiFlag = 0;
u32 i=0;
char stmpdir[100],dir[100];
char *p1[100];
//u32 filesize = 10240;
u32 filesize = 276480;
p = Ql_strstr(pData, "=");
(*p) = '\0';
p++;
Ql_memset(s_s8FilePath, 0, sizeof(s_s8FilePath)); //File Name
Ql_strcpy((char *)s_s8FilePath, p);
uiFlag |= QL_FS_READ_WRITE;
uiFlag |= QL_FS_CREATE;
flag = 1;
if(Ql_strncmp((char*)s_s8FilePath,"RAM:",4))
{
ret = Ql_FS_Open((u8*)s_s8FilePath, uiFlag);
}
else
{
ret = Ql_FS_OpenRAMFile((u8*)s_s8FilePath, uiFlag,filesize);
}
if(ret >= QL_RET_OK)
{
filehandle = ret;
}
APP_DEBUG(textBuf,"filehandle=%d\r\n",filehandle);
break;
}
//Receiving data and StopWrite
if (flag)
{
u32 writeedlen;
p = Ql_strstr(pData,"StopWrite");
if (p)
{
Ql_FS_Close(filehandle);
filehandle = -1;
flag =0;
APP_DEBUG(textBuf,"Ql_WriteFinish()\r\n");
break;
}
ret = Ql_FS_Write(filehandle, (u8*)pData, rdLen, &writeedlen);
if(ret== QL_RET_OK)
{
//APP_DEBUG(textBuf,"Ql_File()=%d: writeedlen=%d,Download times=%d\r\n",ret, writeedlen,flag++);
}else if(ret == QL_RET_ERR_FILEDISKFULL)
{
Ql_FS_Close(filehandle);
filehandle = -1;
flag =0;
APP_DEBUG(textBuf,"Storage Full,close file! ret=%d\r\n",ret);
break;
}else
{
Ql_FS_Close(filehandle);
filehandle = -1;
flag =0;
APP_DEBUG(textBuf,"write error,close file!ret=%d \r\n",ret);
break;
}
}
/*cmd: AT Command*/
if (Ql_strstr(pData,"AT")||Ql_strstr(pData,"at") || Ql_strstr(pData,"At") || Ql_strstr(pData,"aT"))
{
//APP_DEBUG(textBuf,"%s", pData);
Ql_UART_Write(VIRTUAL_PORT1,(u8*)pData,rdLen);
break;
}
}while(rdLen > 0);
}
else if(UART_PORT3 == port)
{
s32 totalBytes = ReadSerialPort(port, m_RxBuf_gnssUART, sizeof(m_RxBuf_gnssUART));
if (totalBytes <= 0)
{
APP_DEBUG("<-- No data in gnssUART buffer! -->\r\n");
return;
}
ReadAckAndSendEpoPacket(m_RxBuf_gnssUART,totalBytes);
}
else if((VIRTUAL_PORT1 == port) || (VIRTUAL_PORT2 == port))
{
s32 ret,totalBytes;
totalBytes = ReadSerialPort(port, m_RxBuf_VirtualPort, sizeof(m_RxBuf_VirtualPort));
if (totalBytes <= 0)
{
APP_DEBUG("<-- No data in virtural UART buffer! -->\r\n");
return;
}
Ql_UART_Write(UART_PORT1,(u8*)m_RxBuf_VirtualPort,totalBytes);
}
break;
}
default:
break;
}
}
void ql_entry()
{
bool keepGoing = TRUE;
QlEventBuffer flSignalBuffer;
s32 period = 10;
char buffer[100];
char *pData, *p;
Ql_SetDebugMode(BASIC_MODE);
Ql_DebugTrace("pwm: ql_entry\r\n");
Ql_OpenModemPort(ql_md_port1);
while(keepGoing)
{
Ql_GetEvent(&flSignalBuffer);
switch(flSignalBuffer.eventType)
{
case EVENT_UARTDATA:
{
if (flSignalBuffer.eventData.uartdata_evt.len>0)
{
s32 pin;
s32 mod = 0;
s32 pinpullenable = 0;
s32 pindirection = 0;
s32 pinlevel = 0;
s32 iret;
pData = (char*)flSignalBuffer.eventData.uartdata_evt.data;
//command-->select QL_PINNAME_BUZZER pin function to mode1, it is Net light function
p = Ql_strstr(pData,"1");
if (p)
{
iret = Ql_pinSubscribe(QL_PINNAME_BUZZER, QL_PINMODE_1, NULL);
Ql_sprintf(buffer, "\r\nSubscribe(%d),pin=%d,mod=%d\r\n",iret,QL_PINNAME_BUZZER,QL_PINMODE_1);
Ql_SendToUart(ql_uart_port1,(u8*)buffer,Ql_strlen(buffer));
break;
}
//command-->select QL_PINNAME_BUZZER pin function to mode3, it is pwm function
p = Ql_strstr(pData,"3");
if (p)
{
QlPinParameter pinparameter;
pinparameter.pinconfigversion = QL_PIN_VERSION;
pinparameter.pinparameterunion.pwmparameter.pwmsource = QL_PWMSOURCE_32K;
pinparameter.pinparameterunion.pwmparameter.pwmclkdiv = QL_PWMSOURCE_DIV8;
pinparameter.pinparameterunion.pwmparameter.lowpulesnumber = 4000;
pinparameter.pinparameterunion.pwmparameter.highpulesnumber = 8000;
iret = Ql_pinSubscribe(QL_PINNAME_BUZZER, QL_PINMODE_3, &pinparameter);
Ql_sprintf(buffer, "\r\nSubscribe(%d),pin=%d,mod=%d\r\n",iret,QL_PINNAME_BUZZER,QL_PINMODE_3);
Ql_SendToUart(ql_uart_port1,(u8*)buffer,Ql_strlen(buffer));
break;
}
//command-->unsubscribe
p = Ql_strstr(pData,"u");
if (p)
{
iret = Ql_pinUnSubscribe(QL_PINNAME_BUZZER);
Ql_sprintf(buffer, "\r\nUnSubscribe(%d),pin=%d\r\n",iret,QL_PINNAME_BUZZER);
Ql_SendToUart(ql_uart_port1,(u8*)buffer,Ql_strlen(buffer));
break;
}
//command-->control start pwm
p = Ql_strstr(pData,"s");
if (p)
{
iret = Ql_pinControl(QL_PINNAME_BUZZER, QL_PINCONTROL_START);
Ql_sprintf(buffer, "\r\nStart(%d),pin=%d\r\n",iret,QL_PINNAME_BUZZER);
Ql_SendToUart(ql_uart_port1,(u8*)buffer,Ql_strlen(buffer));
break;
}
//command-->control stop pwm
p = Ql_strstr(pData,"t");
if (p)
{
iret = Ql_pinControl(QL_PINNAME_BUZZER, QL_PINCONTROL_STOP);
Ql_sprintf(buffer, "\r\nStop(%d),pin=%d\r\n",iret,QL_PINNAME_BUZZER);
Ql_SendToUart(ql_uart_port1,(u8*)buffer,Ql_strlen(buffer));
break;
}
}
break;
}
default:
break;
}
}
}
void setCommand(char* command){
char* cmd = NULL;
char idx=0;
char* pch=NULL;
cmd = Ql_strstr(command, "DEBUG=");
if (cmd){
cmd += 6;
if (Ql_strstr(cmd, "TRUE")){
__debug=TRUE;
}
else{
__debug=FALSE;
}
Ql_strcpy(&__settings.Debug[0],cmd);
}
cmd = Ql_strstr(command, "LOG=");
if (cmd){
cmd += 4;
if (Ql_strstr(cmd, "TRUE")){
__log=TRUE;
}
else{
__log=FALSE;
}
Ql_strcpy(&__settings.Log[0],cmd);
}
cmd = Ql_strstr(command, "TCP=");
if (cmd){
cmd += 4;
__settings.TCP=Ql_atoi(cmd);
}
cmd = Ql_strstr(command, "IP=");
if (cmd){
cmd += 3;
pch = strtok(cmd, ".");
while (pch != NULL)
{
__settings.IP[idx] = Ql_atoi(pch);
pch = strtok(NULL, ".");
idx++;
}
//OUTD("Set IP:%d.%d.%d.%d\r\n",__settings.IP[0],__settings.IP[1],__settings.IP[2],__settings.IP[3]);
}
cmd = Ql_strstr(command, "APN=");
if (cmd){
cmd += 4;
Ql_strcpy(&__settings.APN[0],cmd);
}
cmd = Ql_strstr(command, "PASS="******"NUM=");
if (cmd){
cmd += 4;
__settings.Num=Ql_atoi(cmd);
}
/*cmd = Ql_strstr(command, "PWD=");
if (cmd){
cmd += 4;
Ql_strcpy(&__settings.Pwd[0],cmd);
}*/
cmd = Ql_strstr(command, "USER="******"TIME=");
if (cmd){
char* last;
QlSysTimer tm;
Ql_GetLocalTime(&tm);
cmd+=5;
if (Ql_strlen(cmd)==8) {
tm.hour = Ql_atoi(strtok_r(cmd, ":",&last));
tm.minute = Ql_atoi(strtok_r(last, ":",&last));
tm.second = Ql_atoi(strtok_r(last, ":",&last));
Ql_SetLocalTime(&tm);
}
}
cmd = Ql_strstr(command, "DATE=");
if (cmd){
char* last;
QlSysTimer tm;
Ql_GetLocalTime(&tm);
cmd+=5;
if (Ql_strlen(cmd)==8) {
tm.day = Ql_atoi(strtok_r(cmd, ".",&last));
tm.month = Ql_atoi(strtok_r(last, ".",&last));
tm.year = Ql_atoi(strtok_r(last, ".",&last));
Ql_SetLocalTime(&tm);
}
}
cmd = Ql_strstr(command, "REBOOT");
if (cmd){
OUTD("!-----Get command to reboot..-----",NULL);
Ql_Sleep(100);
Ql_Reset(0);
}
cmd = Ql_strstr(command, "TSEND=");
if (cmd){
s32 tsend;
cmd+=6;
tsend=Ql_atoi(cmd);
if (tsend>10 && tsend<60) {
__settings.TSend = tsend;
}
}
cmd = Ql_strstr(command, "DEBOUNCE=");
if (cmd){
s32 deboung;
cmd+=9;
deboung=Ql_atoi(cmd);
//OUTD("set debounce ok:%d",deboung);
if (deboung>=100 && deboung<=1000) {
//OUTD("set debounce ok:%d",deboung);
__settings.Deboung = deboung;
}
}
cmd = Ql_strstr(command, "WUser="******"WPass="******"?");
if (cmd){
PrintSettings();
}
}
static void proc_handle(char *pData,s32 len)
{
char *p = NULL;
s32 iret;
u8 srvport[10];
//command: Set_APN_Param=<APN>,<username>,<password>
p = Ql_strstr(pData,"Set_APN_Param=");
if (p)
{
Ql_memset(m_apn, 0, 10);
if (Analyse_Command(pData, 1, '>', m_apn))
{
APP_DEBUG("<--APN Parameter Error.-->\r\n");
return;
}
Ql_memset(m_userid, 0, 10);
if (Analyse_Command(pData, 2, '>', m_userid))
{
APP_DEBUG("<--APN Username Parameter Error.-->\r\n");
return;
}
Ql_memset(m_passwd, 0, 10);
if (Analyse_Command(pData, 3, '>', m_passwd))
{
APP_DEBUG("<--APN Password Parameter Error.-->\r\n");
return;
}
APP_DEBUG("<--Set APN Parameter Successfully<%s>,<%s>,<%s>.-->\r\n",m_apn,m_userid,m_passwd);
return;
}
//command: Set_Srv_Param=<srv ip>,<srv port>
p = Ql_strstr(pData,"Set_Srv_Param=");
if (p)
{
Ql_memset(m_SrvADDR, 0, SRVADDR_BUFFER_LEN);
if (Analyse_Command(pData, 1, '>', m_SrvADDR))
{
APP_DEBUG("<--Server Address Parameter Error.-->\r\n");
return;
}
Ql_memset(srvport, 0, 10);
if (Analyse_Command(pData, 2, '>', srvport))
{
APP_DEBUG("<--Server Port Parameter Error.-->\r\n");
return;
}
m_SrvPort = Ql_atoi(srvport);
APP_DEBUG("<--Set TCP Server Parameter Successfully<%s>,<%d>.-->\r\n",m_SrvADDR,m_SrvPort);
m_tcp_state = STATE_NW_GET_SIMSTATE;
APP_DEBUG("<--Restart the TCP connection process.-->\r\n");
return;
}
//if not command,send it to server
m_pCurrentPos = m_send_buf;
Ql_strcpy(m_pCurrentPos + m_remain_len, pData);
m_remain_len = Ql_strlen(m_pCurrentPos);
}
void ql_entry()
{
bool keepGoing = TRUE;
QlEventBuffer flSignalBuffer;
char *p=NULL;
char *p1=NULL;
char *pData= NULL;
Ql_memset(data_p, '*', DATA_LEN);
data_p[0] = 'B';
data_p[1] = 'e';
data_p[2] = 'g';
data_p[3] = 'i';
data_p[4] = 'n';
data_p[DATA_LEN-3] = 'E';
data_p[DATA_LEN-2] = 'n';
data_p[DATA_LEN-1] = 'D';
Ql_SetDebugMode(BASIC_MODE);
Ql_DebugTrace("tcpip: ql_entry\r\n");
Ql_GprsNetworkInitialize(0, 0, &callback_func);
Ql_GprsNetworkInitialize(1, 1, &callback_func);
while(keepGoing)
{
Ql_GetEvent(&flSignalBuffer);
switch(flSignalBuffer.eventType)
{
case EVENT_UARTDATA:
{
pData = (char*)flSignalBuffer.eventData.uartdata_evt.data;
pData[flSignalBuffer.eventData.uartdata_evt.len+1] = '\0';
/*APNSet=0-1*/
p = Ql_strstr(pData,"APNSet=");
if (p)
{
s32 ret;
p = Ql_strstr(pData,"=");
p += 1;
ret = Ql_GprsAPNSet(Ql_atoi(p), (u8*)"CMNET", (u8*)"", (u8*)"", CallBack_GprsAPNSet);
OUT_DEBUG(textBuf,"Ql_GprsAPNSet(%d)=%d\r\n",Ql_atoi(p),ret);
break;
}
/*APNGet=0-1*/
p = Ql_strstr(pData,"APNGet=");
if (p)
{
s32 ret;
p = Ql_strstr(pData,"=");
p += 1;
ret = Ql_GprsAPNGet(Ql_atoi(p), CallBack_GprsAPNGet);
OUT_DEBUG(textBuf,"Ql_GprsAPNGet(%d)=%d\r\n",Ql_atoi(p),ret);
break;
}
/*NetworkActive=0-1*/
p = Ql_strstr(pData,"NetworkActive=");
if (p)
{
s32 ret;
p = Ql_strstr(pData,"=");
p += 1;
ret = Ql_GprsNetworkActive(Ql_atoi(p));
OUT_DEBUG(textBuf,"Ql_GprsNetworkActive(contxtid=%d)=%d\r\n",Ql_atoi(p),ret);
break;
}
/*NetworkDeactive=0-1*/
p = Ql_strstr(pData,"NetworkDeactive=");
if (p)
{
s32 ret;
p = Ql_strstr(pData,"=");
p += 1;
//you must close socket
if(socketonly[Ql_atoi(p)] >= 0)
{
Ql_SocketClose(socketonly[Ql_atoi(p)]);
socketonly[Ql_atoi(p)] = 0xFF;
send_dataLen[Ql_atoi(p)] = 0;
}
if(udponly[Ql_atoi(p)] >= 0)
{
Ql_SocketClose(udponly[Ql_atoi(p)]);
udponly[Ql_atoi(p)] = 0xFF;
send_dataLen[Ql_atoi(p)] = 0;
}
ret = Ql_GprsNetworkDeactive(Ql_atoi(p));
OUT_DEBUG(textBuf,"Ql_GprsNetworkDeactive(contxtid=%d)=%d\r\n",Ql_atoi(p),ret);
break;
}
/*NetworkGetState=0-1*/
p = Ql_strstr(pData,"NetworkGetState=");
if (p)
{
s32 ret;
OpenCpuNetWorkState_e networkstate;
u8 ps_status;
p = Ql_strstr(pData,"=");
p += 1;
ret = Ql_GprsNetworkGetState(Ql_atoi(p), &networkstate, &ps_status);
OUT_DEBUG(textBuf,"Ql_GprsNetworkGetState(contxtid=%d,networkstate=%d,ps_status=%d)=%d\r\n",Ql_atoi(p),networkstate,ps_status,ret);
break;
}
/*GetHostIpbyName=0-1,www.quectel.com*/
p = Ql_strstr(pData,"GetHostIpbyName=");
if (p)
{
s32 ret;
OpenCpuNetWorkState_e networkstate;
u8 addr[4*5];
u8 addr_len = 0;
u8 out_entry_num;
u8 ps_status;
p = Ql_strstr(pData,"=");
p += 1;
p1 = Ql_strstr(pData,",");
*p1 = '\0';
p1 += 1;
ret = Ql_GetHostIpbyName(Ql_atoi(p), (u8*)p1, addr, &addr_len, 5, &out_entry_num, CallBack_getipbyname);
OUT_DEBUG(textBuf,"Ql_GetHostIpbyName(contxtid=%d,\"%s\")=%d\r\n",Ql_atoi(p),p1,ret);
if(ret == 0)
{
OUT_DEBUG(textBuf,"addr_len=%d,ip=%d.%d.%d.%d,out_entry_num=%d\r\n",addr_len, addr[0],addr[1],addr[2],addr[3],out_entry_num);
}
else if(ret == -2)
{
OUT_DEBUG(textBuf,"please wait CallBack_getipbyname\r\n");
}
else
{
OUT_DEBUG(textBuf,"Ql_GetHostIpbyName run error\r\n");
}
break;
}
/*socketcreate=0-1*/
p = Ql_strstr(pData,"socketcreate="); // tcp socket
if (p)
{
s32 ret;
OpenCpuNetWorkState_e networkstate;
u8 ps_status;
p = Ql_strstr(pData,"=");
p += 1;
ret = Ql_SocketCreate(Ql_atoi(p), 0);
OUT_DEBUG(textBuf,"Ql_SocketCreate(contxtid=%d)=%d\r\n",Ql_atoi(p),ret);
if(ret < 0)
{
OUT_DEBUG(textBuf,"failed to create socket\r\n");
break;
}
socketonly[Ql_atoi(p)] = ret;
ret = Ql_SocketConnect(ret, address, port);
OUT_DEBUG(textBuf,"Ql_SocketConnect(ip=%d,%d,%d,%d,port=%d)=%d\r\n",address[0],address[1],address[2],address[3],port,ret);
if(ret == 0)
{
OUT_DEBUG(textBuf,"Ql_SocketConnect connect successed\r\n");
}
else if(ret == -2)
{
OUT_DEBUG(textBuf,"please wait CallBack_socket_connect\r\n");
}
else
{
OUT_DEBUG(textBuf,"Ql_SocketConnect run error\r\n");
}
break;
}
/*socketclose=0-1*/
p = Ql_strstr(pData,"socketclose=");
if (p)
{
s32 ret;
p = Ql_strstr(pData,"=");
p += 1;
if(socketonly[Ql_atoi(p)] == 0xFF)
{
OUT_DEBUG(textBuf,"socket already close\r\n");
break;
}
ret = Ql_SocketClose(socketonly[Ql_atoi(p)]);
OUT_DEBUG(textBuf,"Ql_SocketClose(socket=%d)=%d\r\n",socketonly[Ql_atoi(p)],ret);
socketonly[Ql_atoi(p)] = 0xFF;
send_dataLen[Ql_atoi(p)] = 0;
break;
}
/*socketsend=0-1*/
p = Ql_strstr(pData,"socketsend="); //tcp send
if (p)
{
s32 ret;
p = Ql_strstr(pData,"=");
p += 1;
if(socketonly[Ql_atoi(p)] == 0xFF)
{
OUT_DEBUG(textBuf,"socket not create\r\n");
break;
}
if(send_dataLen[Ql_atoi(p)] > 0)
{
OUT_DEBUG(textBuf,"socket now busy, sending\r\n");
break;
}
send_dataLen[Ql_atoi(p)] = 0;
dataLen[Ql_atoi(p)] = DATA_LEN;
do
{
ret = Ql_SocketSend(socketonly[Ql_atoi(p)] , data_p + send_dataLen[Ql_atoi(p)] ,dataLen[Ql_atoi(p)] - send_dataLen[Ql_atoi(p)] );
OUT_DEBUG(textBuf,"Ql_SocketSend(socket=%d,dataLen=%d)=%d\r\n",socketonly[Ql_atoi(p)] ,dataLen[Ql_atoi(p)] ,ret);
if(ret == (dataLen[Ql_atoi(p)] - send_dataLen[Ql_atoi(p)] ))
{
//send compelete
send_dataLen[Ql_atoi(p)] = 0;
break;
}
else if((ret < 0) && (ret == -2))
{
//you must wait CallBack_socket_write, then send data;
break;
}
else if(ret < 0)
{
//error , Ql_SocketClose
Ql_SocketClose(socketonly[Ql_atoi(p)]);
socketonly[Ql_atoi(p)] = 0xFF;
send_dataLen[Ql_atoi(p)] = 0;
break;
}
else if(ret <= dataLen[Ql_atoi(p)] )
{
send_dataLen[Ql_atoi(p)] += ret;
//continue send
}
}while(1);
break;
}
/*socketack=*/
p = Ql_strstr(pData,"socketack="); // tcp ack
if (p)
{
s8 ret;
u64 ackedNum;
p = Ql_strstr(pData,"=");
p += 1;
if(socketonly[Ql_atoi(p)] == 0xFF)
{
OUT_DEBUG(textBuf,"socket not create\r\n");
break;
}
ret = Ql_SocketTcpAckNumber(socketonly[Ql_atoi(p)], &ackedNum);
OUT_DEBUG(textBuf,"Ql_SocketTcpAckNumber(socket=%d,ackedNum=%d)=%d\r\n",socketonly[Ql_atoi(p)],ackedNum,ret);
break;
}
/*udpcreate=0-1*/
p = Ql_strstr(pData,"udpcreate="); //udp socket
if (p)
{
s32 ret;
OpenCpuNetWorkState_e networkstate;
u8 ps_status;
p = Ql_strstr(pData,"=");
p += 1;
ret = Ql_SocketCreate(Ql_atoi(p), 1);
OUT_DEBUG(textBuf,"Ql_SocketCreate(contxtid=%d)=%d\r\n",Ql_atoi(p),ret);
if(ret < 0)
{
OUT_DEBUG(textBuf,"failed to create socket\r\n");
break;
}
udponly[Ql_atoi(p)] = ret;
break;
}
/*udpclose=0-1*/
p = Ql_strstr(pData,"udpclose=");
if (p)
{
s32 ret;
p = Ql_strstr(pData,"=");
p += 1;
if(udponly[Ql_atoi(p)] == 0xFF)
{
OUT_DEBUG(textBuf,"socket already close\r\n");
break;
}
ret = Ql_SocketClose(udponly[Ql_atoi(p)]);
OUT_DEBUG(textBuf,"Ql_SocketClose(socket=%d)=%d\r\n",udponly[Ql_atoi(p)],ret);
udponly[Ql_atoi(p)] = 0xFF;
send_dataLen[Ql_atoi(p)] = 0;
break;
}
/*SendHeartBeat*/
p = Ql_strstr(pData,"SendHeartBeat");
if (p)
{
s32 ret;
ret = Ql_SwitchHeartBeat(1, 70, 15);
OUT_DEBUG(textBuf,"!!!!SET heart Beat =%d!!!!\r\n",ret);
break;
}
/*udpsend=0-1*/
p = Ql_strstr(pData,"udpsend=");
if (p)
{
s32 ret;
p = Ql_strstr(pData,"=");
p += 1;
if(udponly[Ql_atoi(p)] == 0xFF)
{
OUT_DEBUG(textBuf,"socket not create\r\n");
break;
}
if(send_dataLen[Ql_atoi(p)] > 0)
{
OUT_DEBUG(textBuf,"socket now busy, sending\r\n");
break;
}
send_dataLen[Ql_atoi(p)] = 0;
dataLen[Ql_atoi(p)] = DATA_LEN;
ret = Ql_SocketSendTo(udponly[Ql_atoi(p)], data_p, DATA_LEN, address, port);
OUT_DEBUG(textBuf,"Ql_SocketSendTo(socket=%d,dataLen=%d)=%d\r\n",udponly[Ql_atoi(p)] ,DATA_LEN ,ret);
if(ret == DATA_LEN)
{
//send success
}
else if(ret < 0)
{
//error , Ql_SocketClose
Ql_SocketClose(udponly[Ql_atoi(p)]);
udponly[Ql_atoi(p)] = 0xFF;
send_dataLen[Ql_atoi(p)] = 0;
OUT_DEBUG(textBuf,"Ql_SocketSendTo send error\r\n");
}
else
{
//error , Ql_SocketClose
Ql_SocketClose(udponly[Ql_atoi(p)]);
udponly[Ql_atoi(p)] = 0xFF;
send_dataLen[Ql_atoi(p)] = 0;
OUT_DEBUG(textBuf,"Ql_SocketSendTo send error\r\n");
}
break;
}
break;
}
default:
break;
}
}
Ql_GprsNetworkUnInitialize(0);
Ql_GprsNetworkUnInitialize(1);
}
static void CallBack_UART_Hdlr(Enum_SerialPort port, Enum_UARTEventType msg, bool level, void* customizedPara)
{
s32 ret;
APP_DEBUG("CallBack_UART_Hdlr: port=%d, event=%d, level=%d, p=%x\r\n", port, msg, level, customizedPara);
switch (msg)
{
case EVENT_UART_READY_TO_READ:
{
if (m_myUartPort == port)
{
// Write the data from UART port to virtual serial port
s32 totalBytes = ReadSerialPort(port, m_RxBuf_UartPort, sizeof(m_RxBuf_UartPort));
APP_DEBUG("m_RxBuf_UartPort:%s\r\n",m_RxBuf_UartPort );
if (totalBytes > 0)
{
if (m_bCsdConnected && Ql_StrPrefixMatch(m_RxBuf_UartPort, "+++"))
{
// -------- Disconnect CSD -------
CSD_Disconnect();
m_bCsdConnected = FALSE;
}else{
// No CSD connection, then transparently transmit the data from UART port to virtual serial port
// And make sure all data is sent out
s32 realSentByte = 0;
do
{
ret = Ql_UART_Write(m_myVirtualPort, m_RxBuf_UartPort + realSentByte, totalBytes - realSentByte);
if (ret > 0 && ret < (totalBytes - realSentByte))
{
Ql_Sleep(100);
}
realSentByte += ret;
APP_DEBUG("CallBack_UART_Hdlr ret:%d realSentByte:%d \r\n",ret,realSentByte );
} while (realSentByte != totalBytes);
}
}
}
else if (m_myVirtualPort == port)
{
// Write the data from virtual serial port to UART port
s32 totalBytes = ReadSerialPort(port, m_RxBuf_VirtualPort, sizeof(m_RxBuf_VirtualPort));
APP_DEBUG(" m_RxBuf_VirtualPort:%s\r\n",m_RxBuf_VirtualPort );
if (totalBytes > 0)
{
if (Ql_strstr(m_RxBuf_VirtualPort, "\r\nRING\r\n"))
{
// -------- Received RING, answer CSD call -------
CSD_Answer();
}
else if (Ql_strstr(m_RxBuf_VirtualPort, "CONNECT"))
{
// -------- Received CONNECT 9600, CSD connected -------
m_bCsdConnected = TRUE;
}
Ql_UART_Write(m_myUartPort, m_RxBuf_VirtualPort, totalBytes);
}
}
break;
}
default:
break;
}
}
static void CallBack_UART_Hdlr(Enum_SerialPort port, Enum_UARTEventType msg, bool level, void* customizedPara)
{
u32 rdLen=0;
s32 ret;
char *p=NULL;
char *p1=NULL;
char *p2=NULL;
u8 write_buffer[4]={'a','b','c','D'};
u8 read_buffer[6]={0x00,0x00,0x00,0x00,0x00,0x00};
u8 registerAdrr[2]={0x01,0x45};
switch (msg)
{
case EVENT_UART_READY_TO_READ:
{
Ql_memset(m_Read_Buffer, 0x0, sizeof(m_Read_Buffer));
rdLen = Ql_UART_Read(port, m_Read_Buffer, sizeof(m_Read_Buffer));
//command-->Init the IIC , type 0 Лђеп 1.
p = Ql_strstr(m_Read_Buffer,"Ql_IIC_Init=");
if(p)
{
char* p1 = NULL;
char* p2 = NULL;
u8 NumberBuf[10];
s8 IIC_type=0;
p1 = Ql_strstr(m_Read_Buffer, "=");
p2 = Ql_strstr(m_Read_Buffer, "\r\n");
Ql_memset(NumberBuf, 0x0, sizeof(NumberBuf));
Ql_memcpy(NumberBuf, p1 + 1, p2 - p1 -1);
IIC_type = Ql_atoi(NumberBuf);
if(0 == IIC_type)// simultion iic test, and we choose PINNAME_GPIO4, PINNAME_GPIO5 for IIC SCL and SDA pins
{
ret = Ql_IIC_Init(0,PINNAME_CTS,PINNAME_RTS,0);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed!! Ql_IIC_Init channel 0 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--pins(%d & %d) Ql_IIC_Init channel 0 ret=%d-->\r\n",PINNAME_CTS,PINNAME_RTS,ret);
break;
}
else if(1 == IIC_type)// IIC controller
{
ret = Ql_IIC_Init(1,PINNAME_RI,PINNAME_DCD,1);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed!! IIC controller Ql_IIC_Init channel 1 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--pins(SCL=%d,SDA=%d) IIC controller Ql_IIC_Init channel 1 ret=%d-->\r\n",PINNAME_RI,PINNAME_DCD,ret);
break;
}
else
{
APP_DEBUG("\r\n<--IIC type error!!!!-->\r\n");
break;
}
}
//command-->IIC config, IIC controller interface
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Config=0\r\n");// simultion IIC (channel 0)
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Config(0,TRUE, 0x07, 0);// simultion IIC interface ,do not care the IicSpeed.
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !!Ql_IIC_Config channel 0 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--Ql_IIC_Config channel 0 ret=%d-->\r\n",ret);
break;
}
//command-->IIC config, IIC controller interface
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Config=1\r\n");// IIC controller (channel 1)
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Config(1,TRUE, 0x07, 300);// just for the IIC controller
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !! IIC controller Ql_IIC_Config channel 1 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--IIC controller Ql_IIC_Config channel 1 ret=%d-->\r\n",ret);
break;
}
//command-->IIC write
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Write=0\r\n");// channel 0
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Write(0, 0x07, write_buffer, 4);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !! Ql_IIC_Write channel 0 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--channel 0 Ql_IIC_Write ret=%d-->\r\n",ret);
break;
}
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Write=1\r\n");// channel 1
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Write(1, 0x07, write_buffer,4);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !! IIC controller Ql_IIC_Write channel 1 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--IIC controller Ql_IIC_Write ret=%d-->\r\n",ret);
break;
}
//command-->IIC read
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Read=0\r\n");// channel 0
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Read(0, 0x07, read_buffer, 6);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !! Ql_IIC_Read channel 0 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--channel 0 Ql_IIC_Read ret=%d-->\r\n",ret);
break;
}
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Read=1\r\n");// channel 1
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Read(1, 0x07, write_buffer, 6);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !! IIC controller Ql_IIC_Read channel 1 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--IIC controller Ql_IIC_Read ret=%d-->\r\n",ret);
break;
}
//command-->IIC write then read
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Write_Read=0\r\n");// channel 0
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Write_Read(0, 0x07, registerAdrr, 2,read_buffer, 6);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !! Ql_IIC_Write_Read channel 0 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--channel 0 Ql_IIC_Write_Read ret=%d-->\r\n",ret);
break;
}
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Write_Read=1\r\n");// channel 1
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Write_Read(1, 0x07, registerAdrr, 2,read_buffer, 6);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !! IIC controller Ql_IIC_Write_Read channel 1 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--IIC controller Ql_IIC_Write_Read ret=%d-->\r\n",ret);
break;
}
//command-->IIC write then read
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Uninit=0\r\n");// channel 0
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Uninit(0);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !! Ql_IIC_Uninit channel 0 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--channel 0 Ql_IIC_Uninit ret=%d-->\r\n",ret);
break;
}
Ql_memset(m_buffer, 0x0, sizeof(m_buffer));
Ql_sprintf(m_buffer, "Ql_IIC_Uninit=1\r\n");// channel 1
ret = Ql_strncmp(m_Read_Buffer, m_buffer, Ql_strlen(m_buffer));
if(0 == ret)
{
ret = Ql_IIC_Uninit(1);
if(ret < 0)
{
APP_DEBUG("\r\n<--Failed !! IIC controller Ql_IIC_Uninit channel 1 fail ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--IIC controller (chnnlNo 1) Ql_IIC_Uninit ret=%d-->\r\n",ret);
break;
}
APP_DEBUG("\r\n<--Not found this command, please check you command-->\r\n");
}
default:
break;
}
}
void ql_entry(void)
{
bool keepGoing = TRUE;
s32 ret;
s32 i;
char notes[50];
OUT_DEBUG(debug_buffer,"sms: ql_entry\r\n");
Ql_SetDebugMode(ADVANCE_MODE);
Ql_OpenModemPort(ql_md_port1);
Ql_SMS_Callback cb_func={CallBack_NewSMS,CallBack_SendSMS,CallBack_DeleteSMS, //public
CallBack_ReadPDUSMS,CallBack_NewFlashPDUSMS,CallBack_PDUStatusReport, //pdu
CallBack_ReadTextSMS,CallBack_NewFlashTextSMS,CallBack_TextStatusReport}; //text
ret=Ql_SMSInitialize(&cb_func);
OUT_DEBUG(debug_buffer,"\r\nQl_SMSInitialize=%d\r\n",ret);
//OUT_DEBUG(debug_buffer,"CallBack_ReadPDUSMS=%X\r\n",CallBack_ReadPDUSMS);
while(keepGoing)
{
Ql_GetEvent(&g_event);
switch(g_event.eventType)
{
case EVENT_MODEMDATA:
{
//TODO: receive and hanle data from CORE through virtual modem port
PortData_Event* pPortEvt = (PortData_Event*)&g_event.eventData.modemdata_evt;
OUT_DEBUG(debug_buffer,"%s", pPortEvt->data);
break;
}
case EVENT_UARTDATA:
{
char* pChar=NULL;
char* pChar2=NULL;
PortData_Event* pDataEvt = (PortData_Event*)&g_event.eventData.uartdata_evt;
//Ql_SetSMSStorage=(0-3)
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_SetSMSStorage=");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u8 storage;
pChar+=17;
storage=Ql_atoi(pChar);
ret=Ql_SetSMSStorage(storage);
OUT_DEBUG(debug_buffer,"\r\nQl_SetSMSStorage(storage=%d)=%d\r\n",storage,ret);
break;
}
//Ql_GetSMSStorageInfo
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_GetSMSStorageInfo");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u8 current_mem,used,total;
ret=Ql_GetSMSStorageInfo(¤t_mem, &used, &total);
OUT_DEBUG(debug_buffer,"\r\nQl_GetSMSStorageInfo(current_mem=%d,used=%d,total=%d)=%d\r\n",
current_mem,used,total,ret);
break;
}
//Ql_SetInfoCentreNum="<sca number>" eg:Ql_SetInfoCentreNum="+8613800551500"
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_SetInfoCentreNum=\"");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
pChar+=21;
pChar2 = Ql_strstr(pChar,"\"");
*pChar2=0;
ret=Ql_SetInfoCentreNum((u8*)pChar);
OUT_DEBUG(debug_buffer,"\r\nQl_SetInfoCentreNum(sca_num=%s)=%d\r\n", pChar,ret);
break;
}
//Ql_GetInfoCentreNum
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_GetInfoCentreNum");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u8 sca_number[40];
u8 type;
ret=Ql_GetInfoCentreNum(sca_number,&type);
OUT_DEBUG(debug_buffer,"\r\nQl_GetInfoCentreNum(sca_number=\"%s\",type=%d)=%d\r\n",
sca_number,type,ret);
break;
}
//Ql_SetNewSMSDirectToTE=(0,1)
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_SetNewSMSDirectToTE=");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u8 op;
pChar+=23;
op=Ql_atoi(pChar);
ret=Ql_SetNewSMSDirectToTE(op);
OUT_DEBUG(debug_buffer,"\r\nQl_SetNewSMSDirectToTE(op=%d)=%d\r\n",op,ret);
break;
}
//Ql_SetSMSFormat=(0,1)
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_SetSMSFormat=");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u8 format;
pChar+=16;
format=Ql_atoi(pChar);
ret=Ql_SetSMSFormat(format);
OUT_DEBUG(debug_buffer,"\r\nQl_SetSMSFormat(format=%d)=%d\r\n",format,ret);
break;
}
//Ql_ReadSMS=(1,300),(0,1)
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_ReadSMS=");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u16 index;
u8 mode;
pChar+=11;
index=Ql_atoi(pChar);
pChar=Ql_strstr(pChar, ",");
pChar++;
mode=Ql_atoi(pChar);
ret=Ql_ReadSMS(index,mode);
OUT_DEBUG(debug_buffer,"\r\nQl_ReadSMS(index=%d,mode=%d)=%d\r\n",index,mode,ret);
break;
}
//Ql_DeleteSMS=(1,300),(0,4)
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_DeleteSMS=");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u16 index;
u8 flag;
pChar+=13;
index=Ql_atoi(pChar);
pChar=Ql_strstr(pChar, ",");
pChar++;
flag=Ql_atoi(pChar);
ret=Ql_DeleteSMS(index,flag);
OUT_DEBUG(debug_buffer,"\r\nQl_DeleteSMS(index=%d,flag=%d)=%d\r\n",index,flag,ret);
break;
}
//Ql_ListSMS=(0,4)
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_ListSMS=");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u8 by_status;
u16 sms_count=0;
QlSMSListNode sms_list[MAX_LIST_NODE_COUNT]; //MAX_LIST_NODE_COUNT should be set large enough
pChar+=11;
by_status=Ql_atoi(pChar);
ret=Ql_ListSMS(sms_list, MAX_LIST_NODE_COUNT, by_status, &sms_count);
OUT_DEBUG(debug_buffer,"\r\nQl_ListSMS(by_status=%d,node_count=%d,sms_count=%d)=%d\r\n",
by_status,MAX_LIST_NODE_COUNT,sms_count,ret);
if(0==ret)
{
for(i=0;i<sms_count;i++)
{
OUT_DEBUG(debug_buffer,"index=%d,status=%d\r\n",sms_list[i].index,sms_list[i].status);
}
}
break;
}
//Ql_GetUnReadSMS=(0,1)
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_GetUnReadSMS=");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u8 mode;
pChar+=16;
mode=Ql_atoi(pChar);
ret=Ql_GetUnReadSMS(mode);
OUT_DEBUG(debug_buffer,"\r\nQl_GetUnReadSMS(mode=%d)=%d\r\n",mode,ret);
break;
}
//Ql_SendPDUSMS
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_SendPDUSMS");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u8 pdu_len;
u8 pdu_string[]={0x00, //Set aside for SCA
0x31, //FO
0xff, //Set aside for MR
/*
0x05, //DA Length
0x81, //DA type
0x01,
0x80,
0xf6, //DA:10086
*/
0x0b, //DA Length
0x81, //DA type
0x31,
0x58,
0x15,
0x64,
0x79,
0xf3, //DA:13855146973
0x00, //PID
0x00, //DCS
0x47, //VP
0x07, //UDH
0xd1,
0x7a,
0x79,
0x4c,
0x2f,
0xb3,
0x01 //UD:Quectel, GSM 7-bit coding
};
pdu_len=sizeof(pdu_string);
ret=Ql_SendPDUSMS(pdu_string,pdu_len);
OUT_DEBUG(debug_buffer,"\r\nQl_SendPDUSMS(pdu_len=%d)=%d\r\n",pdu_len,ret);
if(0==ret)
{
for(i=0;i<pdu_len;i++)
{
OUT_DEBUG(debug_buffer,"%02X",pdu_string[i]);
}
OUT_DEBUG(debug_buffer,"\r\n");
}
break;
}
//Ql_SetTextSMSPara=(0-2),(0,1),(0,1)
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_SetTextSMSPara=");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
u8 chset,isflashsms,status_report;
pChar+=18;
chset=Ql_atoi(pChar);
pChar=Ql_strstr(pChar, ",");
pChar++;
isflashsms=Ql_atoi(pChar);
pChar=Ql_strstr(pChar, ",");
pChar++;
status_report=Ql_atoi(pChar);
ret=Ql_SetTextSMSPara(chset, isflashsms, status_report);
OUT_DEBUG(debug_buffer,
"\r\nQl_SetTextSMSPara(chset=%d,isflashsms=%d,status_report=%d)=%d\r\n",chset,isflashsms,status_report,ret);
break;
}
//Ql_SendTextSMS="<phone number>"
Ql_memset(notes, 0x0, sizeof(notes));
Ql_sprintf(notes, "Ql_SendTextSMS=\"");
pChar = Ql_strstr((char*)pDataEvt->data, notes);
if (NULL != pChar)
{
pChar+=16;
pChar2 = Ql_strstr(pChar,"\"");
*pChar2=0;
ret=Ql_SendTextSMS((u8*)pChar,(u8*)"Welcome to use Quectel module!",
Ql_strlen((u8*)"Welcome to use Quectel module!"));
OUT_DEBUG(debug_buffer, "\r\nQl_SendTextSMS(phone_num=\"%s\")=%d\r\n",pChar,ret);
break;
}
Ql_SendToModem(ql_md_port1, (u8*)pDataEvt->data, pDataEvt->len);
break;
}
default:
break;
}
}
}
static void proc_handle(char *pData,s32 len)
{
char *p = NULL;
char parambuf[100];
//command: Reset=<type>
p = Ql_strstr(pData,"Reset=");
if (p)
{
Ql_memset(parambuf, 0, 100);
if (Analyse_Command(pData, 1, '>', parambuf))
{
APP_DEBUG("<--Parameter Error.-->\r\n");
return;
}
if (Ql_atoi(parambuf) != 0)//must be 0
{
APP_DEBUG("<--Parameter Error.-->\r\n");
return;
}
APP_DEBUG("<--Set Reset Parameter Successfully<%d>.-->\r\n",Ql_atoi(parambuf));
Ql_Sleep(100);
Ql_Reset(Ql_atoi(parambuf));
return;
}
//command: Sleep=<msec>
p = Ql_strstr(pData,"Sleep=");
if (p)
{
s32 ret;
ST_Time time,*tm;
Ql_memset(parambuf, 0, 100);
if (Analyse_Command(pData, 1, '>', parambuf))
{
APP_DEBUG("<--Parameter Error.-->\r\n");
return;
}
APP_DEBUG("<--Set Sleep Parameter Successfully<%d>.-->\r\n",Ql_atoi(parambuf));
APP_DEBUG("<--Start sleeping-->\r\n");
Ql_Sleep(Ql_atoi(parambuf));
APP_DEBUG("<--sleeping over-->\r\n");
return;
}
//command: Read Module UID
p = Ql_strstr(pData,"Read Module UID");
if (p)
{
s32 i, uidLen;
u8 moduleUID[100];
u8 tmpbuf[100];
Ql_memset(moduleUID, 0, sizeof(moduleUID));
Ql_memset(tmpbuf, 0, sizeof(tmpbuf));
uidLen = Ql_GetUID(moduleUID, sizeof(moduleUID));
for (i = 0; i < uidLen; i++)
{
Ql_sprintf(tmpbuf + i*2, "%02X", moduleUID[i]);
}
APP_DEBUG("<--Module UID=0x%s,len=%d-->\r\n", tmpbuf, uidLen);
return;
}
//command: Get Core Version
p = Ql_strstr(pData,"Get Core Version");
if (p)
{
s32 ret;
u8 tmpbuf[100];
Ql_memset(tmpbuf, 0, sizeof(tmpbuf));
ret = Ql_GetCoreVer((u8*)tmpbuf, sizeof(tmpbuf));
if(ret > 0)
{
APP_DEBUG("<--Core Version:%s-->\r\n", tmpbuf);
} else
{
APP_DEBUG("<--Get Core Version Failure.-->\r\n");
}
return;
}
//command: Get SDK Version
p = Ql_strstr(pData,"Get SDK Version");
if (p)
{
s32 ret;
u8 tmpbuf[100];
Ql_memset(tmpbuf, 0, sizeof(tmpbuf));
ret = Ql_GetSDKVer((u8*)tmpbuf, sizeof(tmpbuf));
if(ret > 0)
{
APP_DEBUG("<--SDK Version:%s.-->\r\n", tmpbuf);
} else
{
APP_DEBUG("<--Get SDK Version Failure.-->\r\n");
}
return;
}
//command: Get Ms Since PwrOn
p = Ql_strstr(pData,"Get Ms Since PwrOn");
if (p)
{
u64 totalMS;
totalMS = Ql_GetMsSincePwrOn();
APP_DEBUG("<--Get Ms Since PwrOn:=%lld.-->\r\n", totalMS);
return;
}
//command: Ql_SleepEnable set the module into sleep mod
p= Ql_strstr(pData,"Ql_SleepEnable");
if(p)
{
s32 ret;
APP_DEBUG("<-- Ql_SleepEnable=%d -->\r\n", ret);
ret = Ql_SleepEnable();
return;
}
//
p= Ql_strstr(pData,"Ql_SleepDisable");
if(p)
{
s32 ret;
APP_DEBUG("<-- Ql_SleepDisable=%d -->\r\n", ret);
ret = Ql_SleepDisable();
return;
}
//command:Ql_SecureData_Store=<n> , n=1~13.
p= Ql_strstr(pData,"Ql_SecureData_Store=");
if(p)
{
s32 ret;
u8 index;
Ql_memset(parambuf, 0, 100);
if (Analyse_Command(pData, 1, '>', parambuf))
{
APP_DEBUG("<--Parameter Error.-->\r\n");
return;
}
index = Ql_atoi(parambuf);
if(index <1 || index >13)
{
APP_DEBUG("<--Parameter n Error.-->\r\n");
return;
}
ret = Ql_SecureData_Store(index, (u8*)&test,sizeof(test));
APP_DEBUG("<-- Ql_SecureData_Store(index=%d, value=%d, data size=%d)=%d -->\r\n", index,test.reset.Period,sizeof(Global_SYS_Cfg),ret);
return;
}
//command:Ql_SecureData_Read=<n> , n=1~13.
p= Ql_strstr(pData,"Ql_SecureData_Read=");
if(p)
{
s32 ret;
u8 index;
Ql_memset(parambuf, 0, 100);
if (Analyse_Command(pData, 1, '>', parambuf))
{
APP_DEBUG("<--Parameter Error.-->\r\n");
return;
}
index = Ql_atoi(parambuf);
if(index <1 || index >13)
{
APP_DEBUG("<--Parameter n Error.-->\r\n");
return;
}
ret = Ql_SecureData_Read(index, (u8*)&tempTest,sizeof(Global_SYS_Cfg));
APP_DEBUG("<-- Ql_SecureData_Read =%d \r\n test.version:%s test.data=%s test.reset.timeDelay =%d-->\r\n",ret, tempTest.version,tempTest.data,tempTest.reset.timeDelay);
return;
}
return;
}
bool parse_header(void *clients,HttpHeader *http_header){
char *param;
char *value;
char *last;
char *ph;
char* bon_val = NULL;
char header[1024 * 2];
char*lens=NULL;
QlClient *client=(QlClient*)clients;
char* head = Ql_strstr((char*)client->recvBuffer, "\r\n\r\n");
if (head) {
http_header->set_cookie=FALSE;
http_header->authorization=FALSE;
Ql_memset(http_header->action,0,100);
Ql_memset(http_header->boundary,0,200);
Ql_memset(http_header->cookie,0,200);
Ql_memset(http_header->data,0,10 * 1024);
http_header->length=0;
Ql_strcpy(http_header->cookie, "NONE");
int head_len = (char*)head - ((char*)client->recvBuffer);
int body_len = (int)(client->pRecvCurrentPos) - head_len - 4;
Ql_memcpy(header, client->recvBuffer, head_len);
ph = strtok_r(header, "\r\n", &last);
char* lst;
if (Ql_strstr(ph, "GET")!=NULL)
{
char* act = strtok_r(ph+4, " ", &lst);
if (Ql_strlen(act)>1)
Ql_strcpy(http_header->action, act+1);
else
Ql_strcpy(http_header->action, act);
http_header->method = GET;
OUTD("action:%s",http_header->action);
}
if (Ql_strstr(ph, "POST")!=NULL) {
http_header->method = POST;
char* act = strtok_r(ph+5, " ", &lst);
if (Ql_strlen(act)>1)
Ql_strcpy(http_header->action, act+1);
else
Ql_strcpy(http_header->action, act);
}
while (1)
{
ph = strtok_r(NULL, "\r", &last);
if (ph == NULL) {
return TRUE;
}
param = strtok_r(ph + 1, ":", &value);
if (Ql_strstr(param, "Content-Type")) {
char* bon = Ql_strstr(value, "boundary");
bon_val = bon + 9;
Ql_strcpy(http_header->boundary, bon_val);
}
else if ((lens = Ql_strstr(param, "Cookie"))!=NULL)
{
char* cookie;
if ((cookie=Ql_strstr(value,"__ztp"))!=NULL) {
Ql_strcpy(http_header->cookie, cookie+6);
http_header->authorization=TRUE;
http_header->set_cookie=FALSE;
}
}
else if ((lens = Ql_strstr(param, "Content-Length"))!=NULL) {
char* slen = lens + 16;
int len_head = Ql_atoi(slen);
http_header->length = len_head;
if (len_head == body_len){
OUTD("data full",NULL);
}
else
{
OUTD("not full data.wait:%d have:%d", len_head, body_len);
return FALSE;
}
}
else if ((lens = Ql_strstr(param, "Authorization"))!=NULL) {
/*char* slen = lens + 21;
unsigned char dbuf[50];
Ql_memset(dbuf,0,50);
decode_b64((unsigned char*)slen,dbuf);
OUTD("decode buf:%s",dbuf);
param = strtok_r((char*)dbuf, ":", &value);
if (Ql_strstr(param,"admin") && Ql_strstr(value,"admin")) {
OUTD("Autorization user:%s pswd:%s",param,value);
http_header->authorization=TRUE;
http_header->set_cookie=TRUE;
}*/
}
}
}
else
{
return FALSE;
}
}
void page_response(HttpHeader *header){
bool reset=FALSE;
bool prepare=TRUE;
char* action=header->action;
OUTD("action=%s",action);
Ql_memset(__data_buf,0,4096);
Ql_memset(__s_buf,0,10240);
if (Ql_strstr(header->action, "/")) {
get_main_page( __est_connection ? "System state is start":"System state stop");
OUTD("main page",NULL);
}
else if (Ql_strstr(action,"reboot")) {
get_rebot_page();
reset=TRUE;
}
else if (Ql_strstr(action,"settings?")) {
char* pch=NULL;
char* last=NULL;
//OUTD("parse setting action:%s",pch);
pch=strtok_r(action+9,"&",&last);
//OUTD("parse command:%s",pch);
while (pch!=NULL) {
setCommand(pch);
pch=strtok_r(NULL,"&",&last);
//OUTD("parse command:%s",pch);
}
WriteSettings();
ReadSettings();
get_main_page("Save settings controller is OK");
}
else if (Ql_strstr(action,"date?")) {
bool sdt=SetLocDate(action+5);
get_main_page(sdt ? "Set date and time is OK":"Error set date and time");
}
else if (Ql_strstr(action,"stop")) {
StopEstConnection();
get_main_page("Recive command Stop");
}
else if (Ql_strstr(action,"run")) {
nSTATE=STATE_EST_SOCKET_CREATE;
get_main_page("Recive command Start");
}
else if (Ql_strstr(action,"log")) {
u16 size=0;
ReadLogFile(&size);
Ql_sprintf(__s_buf,__download_page,size);
//Ql_strcpy(&__s_buf[Ql_strlen(__s_buf)],__buf_log);
Ql_memcpy(&__s_buf[Ql_strlen(__s_buf)],__buf_log,size);
OUTD("__download_page:%d file size:%d buffer-len:%d",Ql_strlen(__download_page),size,Ql_strlen(__s_buf));
prepare=FALSE;
}
else if (Ql_strstr(action, "autorize")) {
Ql_sprintf(__s_buf,__autorize,0);
prepare=FALSE;
OUTD("set autorize",NULL);
}
else {
get_error_page();
Ql_sprintf(__s_buf,__error_page,0);
prepare=FALSE;
}
if (prepare) {
//if (header->set_cookie) {
// Ql_sprintf(__s_buf, __ok_page, Ql_strlen(__data_buf),"\r\nSet-Cookie: __ztp=987654321\r\n");
//}
Ql_sprintf(__s_buf, __ok_page, Ql_strlen(__data_buf));
Ql_strcpy(&__s_buf[Ql_strlen(__s_buf)],__data_buf);
OUTD("sbuf:%d dbuf:%d",Ql_strlen(__s_buf),Ql_strlen(__data_buf));
}
if (reset) {
Ql_Sleep(10000);
Ql_Reset(0);
}
}
