David Smart / Mbed 2 deprecated X10Svr

X10 Server - IOT device to leverage a collection of old X10 devices for home automation and lighting control.

Dependencies:   IniManager mbed HTTPClient SWUpdate mbed-rtos Watchdog X10 SW_HTTPServer SW_String EthernetInterface TimeInterface SSDP

X10 Server

See the X10 Server Nodebook page

WebPages.cpp

Committer:
WiredHome
Date:
2018-08-31
Revision:
4:5da66fab599c
Parent:
2:ca5d12560ff7
Child:
7:16129d213e6a

File content as of revision 4:5da66fab599c:


#include "mbed.h"

#include "EthernetInterface.h"
#include "WebPages.h"

extern EthernetInterface eth;
extern const char * BUILD_DATE;
extern const char * PROG_NAME;
extern const char * My_Name;
extern const char * My_SerialNum;
extern int Server_Port;


// ##########################################
// This test version controls the LEDs
//
DigitalOut leds[4] = { LED1, LED2, LED3, LED4 };


static const char hdrTypeHTML_NoCache[] = 
    "Content-Type: text/html\r\n"
    "Cache-Control: no-cache\r\n";


// sprintf(buf, ROOTPAGE, "NodeName", "NodeName", "BuildDate", 
static const char ROOTPAGE[] =
    "<!DOCTYPE html>\r\n"
    "<html><head><title>%s</title>\r\n"
    "</head>\r\n"
    "<body>\r\n"
    "<h1>%s</h1>"
    "This project demonstrates the Smartware web server and the Smartware SSDP discovery server.\n"
    "You should be able to scan the network (e.g. in Windows Explorer) and find this device.\n"
    "Then you can click on it to open this web page to interact with it.\n"
    "<br/><br/>Build %s<br/><br/>\n"
    "<font size='+5'>\n"
    "<table><tr>\n"
    "<td>"
    "<button onclick=\"window.location.href='/?LED=1&CMD=1'\">LED 1 On</button><br/>\n"
    "<button onclick=\"window.location.href='/?LED=1&CMD=0'\">LED 1 Off</button><br/>\n"
    "</td><td>"
    "<button onclick=\"window.location.href='/?LED=2&CMD=1'\">LED 2 On</button><br/>\n"
    "<button onclick=\"window.location.href='/?LED=2&CMD=0'\">LED 2 Off</button><br/>\n"
    "</td><td>"
    "<button onclick=\"window.location.href='/?LED=3&CMD=1'\">LED 3 On</button><br/>\n"
    "<button onclick=\"window.location.href='/?LED=3&CMD=0'\">LED 3 Off</button><br/>\n"
    "</td><td>"
    "<button onclick=\"window.location.href='/?LED=4&CMD=1'\">LED 4 On</button><br/>\n"
    "<button onclick=\"window.location.href='/?LED=4&CMD=0'\">LED 4 Off</button><br/>\n"
    "</td>"
    "</tr></table>\n"
    "</font>\n"
    "<form method='get'>\n"
    "<table>\n"
    "<tr><td>Set LED</td>\n"
    "<td><select name='LED'>\n"
    "   <option value='1'>1</option>\n"
    "   <option value='2'>2</option>\n"
    "   <option value='3'>3</option>\n"
    "   <option value='4'>4</option>\n"
    " </select>\n"
    " \n"
    " <select name='CMD'>\n"
    "   <option value='0'>Off</option>\n"
    "   <option value='1'>On</option>\n"
    " </select>\n"
    "</td></tr>\n"
    "<tr><td>&nbsp;</td><td><input type='submit' value='Apply'></td></tr>\n"
    "</table>\n"
    "</form>\n"
    "</body>\n"
    "</html>\n"
    "";


// The /setup.xml file
//
// sprintf(buf, SETUP_TEMPLATE, "FriendlyName", "udn_hexstring", "serialNum", "ip.ad.dr", portNum);
static const char SETUP_TEMPLATE[] =
    "<?xml version=\"1.0\"?>\n"
    "<root xmlns=\"urn:Belkin:device-1-0\">\n"
    " <specVersion>\n"
    "  <major>1</major>\n"
    "  <minor>0</minor>\n"
    " </specVersion>\n"
    " <device>\n"
    "  <deviceType>urn:Belkin:device:controllee:1</deviceType>\n"
    "  <friendlyName>%s</friendlyName>\n"
    "  <manufacturer>Belkin International Inc.</manufacturer>\n"            ///< must be "Belkin..." for Alexa discovery
    "  <manufacturerURL>http://www.smart-family.net</manufacturerURL>\n"    ///<
    "  <modelDescription>Special thing</modelDescription>\n"   ///<
    "  <modelName>Smart Node</modelName>\n"                                ///<
    "  <modelNumber>1.0.0</modelNumber>\n"
#if 0
    "  <modelURL>http://www.smart-family.net</modelURL>\n"                  ///< This causes it to fail to send completely
#endif
    "  <UDN>uuid:Socket-1_0-%s</UDN>\n"
    "  <serialNumber>%s</serialNumber>\n"
    "  <iconList>\n"
    "   <mimetype>jpg</mimetype>\n"
    "   <width>100</width>\n"
    "   <height>100</height>\n"
    "   <depth>100</depth>\n"
    "   <url>icon.jpg</url>\n"
    "  </iconList>\n"
    "  <presentationURL>http://%s:%d</presentationURL>\n"
#if 0
    "  <serviceList>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:WiFiSetup:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:WiFiSetup1</serviceId>\n"
    "    <controlURL>/upnp/control/WiFiSetup1</controlURL>\n"
    "    <eventSubURL>/upnp/event/WiFiSetup1</eventSubURL>\n"
    "    <SCPDURL>/setupservice.xml</SCPDURL>\n"
    "   </service>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:timesync:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:timesync1</serviceId>\n"
    "    <controlURL>/upnp/control/timesync1</controlURL>\n"
    "    <eventSubURL>/upnp/event/timesync1</eventSubURL>\n"
    "    <SCPDURL>/timesyncservice.xml</SCPDURL>\n"
    "   </service>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:basicevent:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:basicevent1</serviceId>\n"
    "    <controlURL>/upnp/control/basicevent1</controlURL>\n"
    "    <eventSubURL>/upnp/event/basicevent1</eventSubURL>\n"
    "    <SCPDURL>/eventservice.xml</SCPDURL>\n"
    "   </service>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:firmwareupdate:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:firmwareupdate1</serviceId>\n"
    "    <controlURL>/upnp/control/firmwareupdate1</controlURL>\n"
    "    <eventSubURL>/upnp/event/firmwareupdate1</eventSubURL>\n"
    "    <SCPDURL>/firmwareupdate.xml</SCPDURL>\n"
    "   </service>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:rules:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:rules1</serviceId>\n"
    "    <controlURL>/upnp/control/rules1</controlURL>\n"
    "    <eventSubURL>/upnp/event/rules1</eventSubURL>\n"
    "    <SCPDURL>/rulesservice.xml</SCPDURL>\n"
    "   </service>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:metainfo:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:metainfo1</serviceId>\n"
    "    <controlURL>/upnp/control/metainfo1</controlURL>\n"
    "    <eventSubURL>/upnp/event/metainfo1</eventSubURL>\n"
    "    <SCPDURL>/metainfoservice.xml</SCPDURL>\n"
    "   </service>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:remoteaccess:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:remoteaccess1</serviceId>\n"
    "    <controlURL>/upnp/control/remoteaccess1</controlURL>\n"
    "    <eventSubURL>/upnp/event/remoteaccess1</eventSubURL>\n"
    "    <SCPDURL>/remoteaccess.xml</SCPDURL>\n"
    "   </service>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:deviceinfo:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:deviceinfo1</serviceId>\n"
    "    <controlURL>/upnp/control/deviceinfo1</controlURL>\n"
    "    <eventSubURL>/upnp/event/deviceinfo1</eventSubURL>\n"
    "    <SCPDURL>/deviceinfoservice.xml</SCPDURL>\n"
    "   </service>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:smartsetup:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:smartsetup1</serviceId>\n"
    "    <controlURL>/upnp/control/smartsetup1</controlURL>\n"
    "    <eventSubURL>/upnp/event/smartsetup1</eventSubURL>\n"
    "    <SCPDURL>/smartsetup.xml</SCPDURL>\n"
    "   </service>\n"
    "   <service>\n"
    "    <serviceType>urn:Belkin:service:manufacture:1</serviceType>\n"
    "    <serviceId>urn:Belkin:serviceId:manufacture1</serviceId>\n"
    "    <controlURL>/upnp/control/manufacture1</controlURL>\n"
    "    <eventSubURL>/upnp/event/manufacture1</eventSubURL>\n"
    "    <SCPDURL>/manufacture.xml</SCPDURL>\n"
    "   </service>\n"
    "  </serviceList>\n"
#endif
    " </device>\n"
    "</root>\n";


HTTPServer::CallBackResults Setup_xml(HTTPServer *svr, HTTPServer::CallBackType type, char * path,
                       const HTTPServer::namevalue *queryParams, int queryParamCount)
{
    char BigBuffer[sizeof(SETUP_TEMPLATE) + 150];
    HTTPServer::CallBackResults ret = HTTPServer::ACCEPT_ERROR;
    switch (type) {
        case HTTPServer::SEND_PAGE:
            svr->header(HTTPServer::OK, "OK", hdrTypeHTML_NoCache);
            sprintf(BigBuffer, SETUP_TEMPLATE, 
                My_Name, eth.getMACAddress(), My_SerialNum,
                eth.getIPAddress(), Server_Port);
            svr->send(BigBuffer);
            ret = HTTPServer::ACCEPT_COMPLETE;
            break;
        case HTTPServer::CONTENT_LENGTH_REQUEST:
            ret = HTTPServer::ACCEPT_COMPLETE;
            break;
        case HTTPServer::DATA_TRANSFER:
            ret = HTTPServer::ACCEPT_COMPLETE;
            break;
        default:
            ret = HTTPServer::ACCEPT_ERROR;
            break;
    }
    return ret;
}



HTTPServer::CallBackResults RootPage(HTTPServer *svr, HTTPServer::CallBackType type, char * path,
                       const HTTPServer::namevalue *queryParams, int queryParamCount)
{
    #define bufSize (sizeof(ROOTPAGE) + 100)
    char * BigBuffer = (char *)malloc(bufSize);
    HTTPServer::CallBackResults ret = HTTPServer::ACCEPT_ERROR;
    if (!BigBuffer) {
        printf("cannot allocate %d bytes\n", bufSize);
        return ret;
    }
    
    int led, cmd;
    int mask = 0;
    for (int i=0; i<queryParamCount; i++) {
        if (strcmp(queryParams[i].name, "LED") == 0) {
            led = atoi(queryParams[i].value);
            mask |= 1;
        } else if (strcmp(queryParams[i].name, "CMD") == 0) {
            cmd = atoi(queryParams[i].value);
            mask |= 2;
        }
    }
    if (mask == 3) {
        switch (led) {
            case 1:
            case 2:
            case 3:
            case 4:
                leds[led - 1] = cmd;
                break;
            default:
                break;
        }
    }
    
    switch (type) {
        case HTTPServer::SEND_PAGE:
            svr->header(HTTPServer::OK, "OK", hdrTypeHTML_NoCache);
            snprintf(BigBuffer, bufSize, ROOTPAGE, PROG_NAME, PROG_NAME, BUILD_DATE);            
            svr->send(BigBuffer);
            ret = HTTPServer::ACCEPT_COMPLETE;
            break;
        case HTTPServer::CONTENT_LENGTH_REQUEST:
            ret = HTTPServer::ACCEPT_COMPLETE;
            break;
        case HTTPServer::DATA_TRANSFER:
            ret = HTTPServer::ACCEPT_COMPLETE;
            break;
        default:
            ret = HTTPServer::ACCEPT_ERROR;
            break;
    }
    if (BigBuffer)
        free(BigBuffer);
    return ret;
}