Wizard generates support for Profiler configured from .env

danieleteti · Oct 4, 2023 · ff66bdd · ff66bdd
1 parent a92deeb
commit ff66bdd
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/ideexpert/DMVC.Expert.CodeGen.Templates.pas b/ideexpert/DMVC.Expert.CodeGen.Templates.pas
@@ -117,6 +117,13 @@ interface
     '      end);' + sLineBreak +
     '' + sLineBreak +
     '    WebRequestHandlerProc.MaxConnections := dotEnv.Env(''dmvc.handler.max_connections'', 1024);' + sLineBreak +	
+	'' + sLineBreak +	
+    '    if dotEnv.Env(''dmvc.profiler.enabled'', false) then' + sLineBreak +	
+    '    begin' + sLineBreak +	
+    '      Profiler.ProfileLogger := Log;' + sLineBreak +	
+    '      Profiler.WarningThreshold := dotEnv.Env(''dmvc.profiler.warning_threshold'', 2000);' + sLineBreak +	
+    '    end;' + sLineBreak +	
+	'' + sLineBreak +				
     '    RunServer(dotEnv.Env(''dmvc.server.port'', %1:d));' + sLineBreak +
     '  except' + sLineBreak +
     '    on E: Exception do' + sLineBreak +