////////////////////////////////////////////////////////////////////////
// net_state_activity()
// State Model: Some async data has been received
// This is called to indicate to the state that a complete piece of async
// data has been received in net_buf (with length net_buf_pos, and mode
// net_buf_mode), and the data should be completely handled before
// returning.
//
void net_state_activity()
{
if (net_buf_mode == NET_BUF_SMS)
{
// An SMS has arrived, and net_caller has been primed
if ((net_reg != 0x01)&&(net_reg != 0x05))
{ // Treat this as a network registration
net_watchdog=0; // Disable watchdog, as we have connectivity
net_reg = 0x05;
led_net(1);
}
net_sms_in(net_caller,net_buf,net_buf_pos);
return;
}
else if (net_buf_mode != NET_BUF_CRLF)
{
// An IP data message has arrived
net_msg_in(net_buf);
return;
}
switch (net_state)
{
case NET_STATE_DOINIT:
if ((net_buf_pos >= 2)&&(net_buf[0] == 'O')&&(net_buf[1] == 'K'))
{
net_state_enter(NET_STATE_COPS);
}
break;
case NET_STATE_COPS:
if ((net_buf_pos >= 2)&&(net_buf[0] == 'O')&&(net_buf[1] == 'K'))
net_state_enter(NET_STATE_DONETINIT); // COPS reconnect was OK
else if ((net_buf_pos >= 5)&&(net_buf[0] == 'E')&&(net_buf[1] == 'R'))
net_state_enter(NET_STATE_SOFTRESET); // Reset the entire async
break;
case NET_STATE_DONETINIT:
if ((net_buf_pos >= 2)&&
(net_buf[0] == 'E')&&
(net_buf[1] == 'R')&&
(net_state_vchar == 5)) // ERROR response to AT+CIFSR
{
// This is a nasty case. The GPRS has locked up.
// The only solution I can find is a hard reset of the modem
led_act(0);
net_state_enter(NET_STATE_HARDRESET);
}
else if ((net_buf_pos >= 2)&&
(((net_buf[0] == 'O')&&(net_buf[1] == 'K')))|| // OK
(((net_buf[0] == 'S')&&(net_buf[1] == 'H')))|| // SHUT OK
(net_state_vchar == 5)) // Local IP address
{
net_buf_pos = 0;
net_timeout_ticks = 60;
net_link = 0;
delay100(1);
switch (++net_state_vchar)
{
case 1:
net_puts_rom("AT+CGDCONT=1,\"IP\",\"");
net_puts_ram(par_get(PARAM_GPRSAPN));
net_puts_rom("\"\r");
break;
case 2:
net_puts_rom("AT+CSTT=\"");
net_puts_ram(par_get(PARAM_GPRSAPN));
net_puts_rom("\",\"");
net_puts_ram(par_get(PARAM_GPRSUSER));
net_puts_rom("\",\"");
net_puts_ram(par_get(PARAM_GPRSPASS));
net_puts_rom("\"\r");
break;
case 3:
net_puts_rom("AT+CIICR\r");
break;
case 4:
net_puts_rom("AT+CIPHEAD=1\r");
break;
case 5:
net_puts_rom("AT+CIFSR\r");
break;
case 6:
net_puts_rom("AT+CLPORT=\"TCP\",\"6867\"\r");
break;
case 7:
net_puts_rom("AT+CIPSTART=\"TCP\",\"");
net_puts_ram(par_get(PARAM_SERVERIP));
net_puts_rom("\",\"6867\"\r");
break;
case 8:
net_state_enter(NET_STATE_READY);
break;
}
}
else if ((net_buf_pos>=7)&&
(memcmppgm2ram(net_buf, (char const rom far*)"+CREG: 0", 8) == 0))
{ // Lost network connectivity during NETINIT
net_state_enter(NET_STATE_SOFTRESET);
}
else if (memcmppgm2ram(net_buf, (char const rom far*)"+PDP: DEACT", 11) == 0)
{ // PDP couldn't be activated - try again...
net_state_enter(NET_STATE_SOFTRESET);
}
break;
case NET_STATE_READY:
if (memcmppgm2ram(net_buf, (char const rom far*)"+CREG", 5) == 0)
{ // "+CREG" Network registration
if (net_buf[8]==',')
net_reg = net_buf[9]&0x07; // +CREG: 1,x
else
net_reg = net_buf[7]&0x07; // +CREG: x
if ((net_reg == 0x01)||(net_reg == 0x05)) // Registered to network?
{
net_watchdog=0; // Disable watchdog, as we have connectivity
led_net(1);
}
else if (net_watchdog == 0)
{
net_watchdog = 120; // We need connectivity within 120 seconds
led_net(0);
}
}
else if (memcmppgm2ram(net_buf, (char const rom far*)"+CLIP", 5) == 0)
{ // Incoming CALL
if ((net_reg != 0x01)&&(net_reg != 0x05))
{ // Treat this as a network registration
net_watchdog=0; // Disable watchdog, as we have connectivity
net_reg = 0x05;
led_net(1);
}
delay100(1);
net_puts_rom(NET_HANGUP);
net_notify_status();
}
else if (memcmppgm2ram(net_buf, (char const rom far*)"CONNECT OK", 10) == 0)
{
if (net_link == 0)
{
net_msg_start();
net_msg_register();
net_msg_send();
}
net_link = 1;
}
else if (memcmppgm2ram(net_buf, (char const rom far*)"STATE: ", 7) == 0)
{ // Incoming CIPSTATUS
if (memcmppgm2ram(net_buf, (char const rom far*)"STATE: CONNECT OK", 17) == 0)
{
if (net_link == 0)
{
net_msg_start();
net_msg_register();
net_msg_send();
}
net_link = 1;
}
else
{
net_link = 0;
if ((net_reg == 0x01)||(net_reg == 0x05))
{
// We have a GSM network, but CIPSTATUS is not up
net_msg_disconnected();
net_state_enter(NET_STATE_DONETINIT);
}
}
}
else if (memcmppgm2ram(net_buf, (char const rom far*)"SEND OK", 7) == 0)
{
net_msg_sendpending = 0;
}
else if ( (memcmppgm2ram(net_buf, (char const rom far*)"SEND FAIL", 9) == 0)||
(memcmppgm2ram(net_buf, (char const rom far*)"CLOSED", 6) == 0)||
(memcmppgm2ram(net_buf, (char const rom far*)"+CME ERROR", 10) == 0)||
(memcmppgm2ram(net_buf, (char const rom far*)"+PDP: DEACT", 11) == 0) )
{ // Various GPRS error results
// Re-initialize GPRS network and TCP socket
net_msg_disconnected();
net_state_enter(NET_STATE_DONETINIT);
}
break;
}
}
BOOL net_msg_cmd_exec(void)
{
int k;
char *p, *s;
delay100(2);
CHECKPOINT(0x43)
switch (net_msg_cmd_code)
{
case 1: // Request feature list (params unused)
for (k=0;k<FEATURES_MAX;k++)
{
s = stp_i(net_scratchpad, "MP-0 c1,0,", k);
s = stp_i(s, ",", FEATURES_MAX);
s = stp_i(s, ",", sys_features[k]);
net_msg_encode_puts();
}
break;
case 2: // Set feature (params: feature number, value)
for (p=net_msg_cmd_msg;(*p != 0)&&(*p != ',');p++) ;
// check if a value exists and is separated by a comma
if (*p == ',')
{
*p++ = 0;
// At this point, <net_msg_cmd_msg> points to the command, and <p> to the param value
k = atoi(net_msg_cmd_msg);
if ((k>=0)&&(k<FEATURES_MAX))
{
sys_features[k] = atoi(p);
if (k>=FEATURES_MAP_PARAM) // Top N features are persistent
par_set(PARAM_FEATURE_S+(k-FEATURES_MAP_PARAM), p);
if (k == FEATURE_CANWRITE) vehicle_initialise();
STP_OK(net_scratchpad, net_msg_cmd_code);
}
else
{
STP_INVALIDRANGE(net_scratchpad, net_msg_cmd_code);
}
}
else
{
STP_INVALIDSYNTAX(net_scratchpad, net_msg_cmd_code);
}
net_msg_encode_puts();
break;
case 3: // Request parameter list (params unused)
for (k=0;k<PARAM_MAX;k++)
{
p = par_get(k);
if (k==PARAM_SERVERPASS) *p=0; // Don't show netpass1
s = stp_i(net_scratchpad, "MP-0 c3,0,", k);
s = stp_i(s, ",", PARAM_MAX);
s = stp_s(s, ",", p);
net_msg_encode_puts();
}
break;
case 4: // Set parameter (params: param number, value)
for (p=net_msg_cmd_msg;(*p != 0)&&(*p != ',');p++) ;
// check if a value exists and is separated by a comma
if (*p == ',')
{
*p++ = 0;
// At this point, <net_msg_cmd_msg> points to the command, and <p> to the param value
k = atoi(net_msg_cmd_msg);
if ((k>=0)&&(k<PARAM_FEATURE_S))
{
par_set(k, p);
STP_OK(net_scratchpad, net_msg_cmd_code);
if ((k==PARAM_MILESKM) || (k==PARAM_VEHICLETYPE)) vehicle_initialise();
#ifdef OVMS_ACCMODULE
// Reset the ACC state it an ACC parameter is changed
if ((k>=PARAM_ACC_S)&&(k<(PARAM_ACC_S+PARAM_ACC_COUNT)))
acc_state_enter(ACC_STATE_FIRSTRUN);
#endif
}
else
{
STP_INVALIDRANGE(net_scratchpad, net_msg_cmd_code);
}
}
else
{
STP_INVALIDSYNTAX(net_scratchpad, net_msg_cmd_code);
}
net_msg_encode_puts();
break;
case 5: // Reboot (params unused)
STP_OK(net_scratchpad, net_msg_cmd_code);
net_msg_encode_puts();
net_state_enter(NET_STATE_HARDSTOP);
break;
case 6: // CHARGE ALERT (params unused)
net_msg_alert();
net_msg_encode_puts();
break;
case 7: // SMS command wrapper
// process command:
net_msg_bufpos = net_msg_scratchpad;
k = net_sms_in(par_get(PARAM_REGPHONE), net_msg_cmd_msg);
net_msg_bufpos = NULL;
// output is now in net_msg_scratchpad
// create return string:
s = stp_i(net_scratchpad, NET_MSG_CMDRESP, net_msg_cmd_code);
s = stp_i(s, ",", 1-k); // 0=ok 1=error
if (k)
{
*s++ = ',';
for (p = net_msg_scratchpad; *p; p++)
{
if (*p == '\n')
*s++ = '\r'; // translate LF to CR
else if (*p == ',')
*s++ = ';'; // translate , to ;
else
*s++ = *p;
}
*s = 0;
}
// send return string:
net_msg_encode_puts();
break;
case 40: // Send SMS (params: phone number, SMS message)
for (p=net_msg_cmd_msg;(*p != 0)&&(*p != ',');p++) ;
// check if a value exists and is separated by a comma
if (*p == ',')
{
*p++ = 0;
// At this point, <net_msg_cmd_msg> points to the phone number, and <p> to the SMS message
net_send_sms_start(net_msg_cmd_msg);
net_puts_ram(p);
net_puts_rom("\x1a");
delay100(5);
net_msg_start();
STP_OK(net_scratchpad, net_msg_cmd_code);
}
else
{
net_msg_start();
STP_INVALIDSYNTAX(net_scratchpad, net_msg_cmd_code);
}
net_msg_encode_puts();
delay100(2);
break;
case 41: // Send MMI/USSD Codes (param: USSD_CODE)
net_puts_rom("AT+CUSD=1,\"");
net_puts_ram(net_msg_cmd_msg);
net_puts_rom("\",15\r");
// cmd reply #1 to acknowledge command:
delay100(5);
net_msg_start();
STP_OK(net_scratchpad, net_msg_cmd_code);
net_msg_encode_puts();
delay100(2);
// cmd reply #2 sent on USSD response, see net_msg_reply_ussd()
break;
case 49: // Send raw AT command (param: raw AT command)
net_puts_ram(net_msg_cmd_msg);
net_puts_rom("\r");
delay100(5);
net_msg_start();
STP_OK(net_scratchpad, net_msg_cmd_code);
net_msg_encode_puts();
delay100(2);
break;
default:
return FALSE;
}
return TRUE;
}
