!7

!include once #1028763 // helper for HttpFromFileSystem

set flag NoNanoHTTPD.

cmodule ServeDir > DynPrintLog {

  !include #1029545 // API for Eleu

  switchable File dir;

  O html(virtual Request request) {

    S uri = cast get(request, 'uri);

    HttpFromFileSystem server = new(dir);

    server.serveFile = f -> {

      if (fileHasExtension(f, ".html"))

        ret rewriteHTML(loadTextFile(f));

      ret server.serveFile_base(f);

    };

    ret server.serve(uri);

  }

  S rewriteHTML(S html) {

    LS tok = htmlTok(html);

    // drop dummy chat bot CSS

    listSet(tok, indexOf(tok, [[<link rel="stylesheet" href="css/chatbot.css">]]), "");

    // drop dummy chat bot

    int iJS = indexOf(tok, [[<script src="js/chatbot.js">]]);

    if (iJS >= 0)

      clearTokens(tok, iJS, findClosingTag(tok, iJS)+1);

    int iOpening = indexOf(tok, [[<div id="body">]]);

    if (iOpening >= 0) {

      clearTokens(tok, iOpening, findClosingTag(tok, iOpening)+1);

      // add real chat bot

      int iEndOfBody = indexOfIC(tok, "</body>");

      if (iEndOfBody >= 0)

        tokAppend(tok, iEndOfBody-1, hscriptsrc("https://gaippbots.com/bot/script"));

    }

    ret join(tok);

  }

}