!7

cmodule Cruddie > DynPrintLogAndEnabled {
  !include #1027628 // HTTP+HTTPS servers

  transient WebChatBot chatBot;

  S myLink() { ret "https://cruddie.site/"; }
  S botLink() { ret appendWithSlash(myLink(), "bot"); }
  
  start-thread {
    dm_restartOnFieldChange enabled();
    if (!enabled) ret;
    chatBot = new WebChatBot;
    chatBot.baseLink = botLink();
    chatBot.thoughtBot = new O {
      S initialMessage() { ret "Hello"; }
      S answer(S s) { ret "I hear you"; }
    };
    
    chatBot.jsOnMsgHTML = "window.processNewStuff(src);";
    
    chatBot.start();
    start_webServers(javaxSecretDir("cruddie.site/keystore.p12"), "botcompany");
  }

  O webServe(S uri, SS params) {
    printVars("webServe", +uri);
    //S cookie = serveHttp_cookieHandling();
    new Matches m;
    if (startsWith(appendSlash(uri), "/bot/", m))
      ret chatBot.html("/" + m.rest(), params);
      
    S jsOnSpeech = "window.submitAMsg(transcript);";
    
    S sayScript = [[
      window.processNewStuff = function(src) {
        if ($("#speechResults") == null) return; // no speech
        // we assume that webkit speech synthesis is present
        // when there is webkit speech recognition
        if (!bigOn) return; // not enabled
        print("Got speech");
        var match = src.match(/\d+/);
        if (match == null) return;
        if (src.match(/NEW DIALOG -->/)) return;
        print("Got incremental");
        var utterances = src.match(/bot-utterance">(.*?)</g);
        var lastUtterance = utterances[utterances.length-1];
        // TODO: properly drop HTML tags/HTML-decode
        if (lastUtterance)
          say(lastUtterance);
      };
    ]];
    
    S speechUI =
      hdiv(
        "&lt; Talk to me &gt;",
        id := 'speechResults,
        style := "margin: 10px")
      + p(tag("button", "...", onclick := "startOrStop()", type := 'button, id := 'speechOnBtn, disabled := 'disabled));
      
    ret hhtml(hmobilefix() + hhead(
        htitle("CRUDDIE")
      + hLoadJQuery2())
      + hbody(hfullcenter(
        p(hsnippetimage(#1102905))
      + p("Chat bot coming up.")
      + p("Server temperature is " + dm_cpuTemperature())
      + hjavascript(sayScript)
      + hSpeechRecognition(jsOnSpeech, true, "en-US", false,
        noWebKit := p("Use Chrome if you want speech recognition"),
        +speechUI)
      + hscript_src(botLink())
      )));
  }
}