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