!7

cmodule2 LANWebserver > DynEleuMultiIP {
  //S password = aRandomID(6);
  S webSiteModuleID; // module ID (integer)

  start {
    NanoHTTPD_debug = debugNanoHTTPD;
    dbIndexingCI(Domain, 'domain);
    uniqCI Domain(domain := "<default>");
    domainCRUD = new CRUD(Domain);
  }
  
  @Override 
  abstract S moduleForDomain(S domain) {
    ret dm_moduleExists(webSiteModuleID) ? webSiteModuleID : null;
  }
  
  Domain defaultDomain() {
    ret conceptWhereCI Domain(domain := "<default>");
  }
  
  S findMod(Domain d) {
    if (d == null || empty(d.moduleLibID)) null;
    ret d.mustBeEnabled
      ? dm_findModuleWithParams(d.moduleLibID, enabled := true)
      : dm_findModule(d.moduleLibID);
  }
}