!7

// uses its own transpiler so it can set options

cmodule SnippetTranspiler {
  switchable int refreshDelay = 1; // seconds
  switchable S authModuleID;

  virtual WebResponse html(WebRequest req) {
    SS params = req.params;
    
    // check auth module if set
    if (nempty(authModuleID))
      try object dm_call_assertModuleExists(authModuleID, 'webAuthCheck, req.uri, params);
      
    ret dm_evalInQ(() -> {
      if (eq("1", params.get('medium))) {
        veryQuickJava_mediumRefresh();
        print("Medium-refreshed transpiler.");
      }
      
      if (eq("1", params.get('fresh))) {
        refreshTranspiler();
        print("Refreshed transpiler.");
      }
      
      S uri = dropPrefixSlash(req.uri);
      if (isSnippetID(uri)) params.put(snippetID := uri);
      
      if (empty(params.get('snippetID))) ret "OK";
      
      sendToSnippetUpdatesBot("/transpiling/" + params.get('snippetID));
      
      final bool compile = eq("1", params.get('compile));
      
      final new Flag ok;
      print_byThread = new InheritableThreadLocal;
      S text = hijackPrint_tee(r {
        S snippetID = fsI(params.get('snippetID));
        pcall {
          bool isInclude = getSnippetType(snippetID) == snippetType_JavaXInclude();
          transpileRaw_translator();
          set(transpileRaw_trans, +print_byThread);
          print("Set print_byThread (" + print_byThread! + ") in " + systemHashCode(transpileRaw_trans));
          temp tempSetTL(transpileForServer_compile, compile);
          temp tempSetTL(transpileRaw_asInclude, isInclude);
          transpileForServer(snippetID);
          ok.raise();
        }
      });
      
      S redirect = params.get('redirect);
      
      /*sendToSnippetUpdatesBot("/transpile" + (ok.isUp() ? "OK" : "Fail") 
        + "/" + psI(params.get('snippetID)));*/
      
      ret hhtml(hhead(htitle((ok.isUp() ? "OK" : "Failed") + " Transpilation")
        + (ok.isUp() && nempty(redirect) ? hrefresh(refreshDelay, redirect) : ""))
        + hbody(hsourcecode(text)));
    });
  }
}

Began life as a copy of #1018308