!7

// uses its own transpiler so it can set options

module SnippetTranspiler > DynPrintLog {
  set flag NoNanoHTTPD.
  !include #1029545 // API for Eleu
  
  switchable int refreshDelay = 0; // seconds
  
  start {
   dm_onSnippetTranspiled(voidfunc(S snippetID) {
      if (sameSnippetID(snippetID, defaultTranspilerID()))
        refresh();
    });
  }
  
  void refresh {
    veryQuickJava_refresh();
    vmBus_send('refreshedTranspiler);
    print("Refreshed translator.");
  }

  virtual WebResponse html(IWebRequest req) {
    S realPW = realPW();
    if (empty(realPW))
      ret "No password set by admin - please put password in: " + realPWFile().getAbsolutePath();
    
    S pw = req.get("_pass");
    if (empty(pw)) ret "Need pw";
    
    if (neq(pw, realPW)) {
      print("XXX - Alert, bad PW entered on web - XXX");
      ret "Bad PW, bugger";
    } 
    
    ret dm_evalInQ(->
      snippetTranspileWebBot(req.uri(), req.params(), refreshDelay));
  }
  
  File realPWFile() {
    ret secretProgramFile("master-pw");
  }

  S realPW() {
    ret trim(loadTextFile(realPWFile()));
  }
}

Began life as a copy of #1018308