TCP Service in Control6
This example implenents a TCP service that listens on port 4444 and echoes any incoming data via syslog.
CONTROL_START
ON STARTUP DO
TCP_LISTEN(4444, message_handler);
END
TCP_HANDLER(message_handler)
for (;;) {
if (uip_connected()) {
SYSLOG("connected");
}
if (uip_newdata ()) {
char *ptr = (char *) uip_appdata;
ptr[uip_len] = 0;
SYSLOG("%s", ptr)
}
PT_YIELD(pt);
}
TCP_HANDLER_END();
CONTROL_END