!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);
  }
}

Began life as a copy of #1029773