- VERSION 5.09.16

- feat: Implementa control de logs de SQLite granular por DBKey y corrige la concurrencia del Timer en Hot-Swap.
- Este commit introduce una mejora crucial en el rendimiento y la flexibilidad del servidor al permitir el control detallado del registro de logs en SQLite (users.db) por cada base de datos configurada (DB1, DB2, etc.).
- Cambios Principales y Beneficios:
1. Control Granular de Logs: Se reemplazó el flag de control global de logs por un mapa (SQLiteLoggingStatusByDB), permitiendo al administrador deshabilitar el costoso proceso de escritura de query_logs y errores para bases de datos específicas mediante la propiedad enableSQLiteLogs en sus archivos .properties correspondientes.
2. Estabilización del Timer y Hot-Swap:
    ◦ Se corrigió un problema de concurrencia y estado asegurando que timerLogs se inicialice incondicionalmente, resolviendo el error IllegalStateException: Interval must be larger than 0 que ocurría durante el reload.
    ◦ El Timer de limpieza (borraArribaDe15000Logs y VACUUM) ahora se activa solo si al menos una base de datos tiene el logging habilitado (IsAnySQLiteLoggingEnabled), minimizando el overhead de E/S de disco cuando los logs no se requieren.
3. Recarga Dinámica de Estado: El comando manager?command=reload ahora lee la configuración enableSQLiteLogs de todos los conectores nuevos y actualiza atómicamente el estado global de logs, aplicando los cambios sin requerir un reinicio del servidor.

DBHandlerB4X.bas

@@ -76,7 +76,7 @@ Sub Handle(req As ServletRequest, resp As ServletResponse)
 	End If
 	' === FIN DE LA LÓGICA DINÁMICA ===
 
-	Log("********************* " & dbKey & " ********************") ' Log de depuración para identificar la base de datos.
+'	Log("********************* " & dbKey & " ********************") ' Log de depuración para identificar la base de datos.
 
 	Dim start As Long = DateTime.Now ' Registra el tiempo de inicio de la petición para calcular la duración.
 
@@ -117,7 +117,7 @@ Sub Handle(req As ServletRequest, resp As ServletResponse)
 		End If
 		' <<<< ¡FIN DE CAPTURA! >>>>
 
-		Log("Metodo: " & method) ' Log de depuración para identificar el método de la petición.
+'		Log("Metodo: " & method) ' Log de depuración para identificar el método de la petición.
 
 		' --- Lógica para ejecutar diferentes tipos de comandos basados en el parámetro 'method' ---
 		If method = "query2" Then
@@ -177,7 +177,7 @@ Sub Handle(req As ServletRequest, resp As ServletResponse)
 	' Este bloque se asegura de que, independientemente de cómo termine la petición (éxito o error),
 	' la duración se calcule y se llamen las subrutinas de limpieza y logging.
 	duration = DateTime.Now - start ' Calcula la duración total de la petición.
-	Log($"Command: ${q}, took: ${duration}ms, client=${req.RemoteAddress}"$) ' Logea el comando y la duración.
+	Log($"${dbKey} - Command: ${q}, took: ${duration}ms, client=${req.RemoteAddress}"$) ' Logea el comando y la duración.
 	' Llama a la subrutina centralizada para registrar el rendimiento y limpiar recursos.
 	CleanupAndLog(dbKey, q, duration, req.RemoteAddress, requestsBeforeDecrement, poolBusyConnectionsForLog, con)
 
@@ -202,7 +202,7 @@ Private Sub CleanupAndLog(dbKey As String, qName As String, durMs As Long, clien
 	Else
 		' Si el contador ya está en 0 o negativo (lo cual no debería ocurrir con la lógica actual,
 		' pero se maneja para robustez), registramos una advertencia y lo aseguramos en 0.
-		Log($"ADVERTENCIA: Intento de decrementar ActiveRequestsCountByDB para ${dbKey} que ya estaba en ${currentCount}. Asegurando a 0."$)
+'		Log($"ADVERTENCIA: Intento de decrementar ActiveRequestsCountByDB para ${dbKey} que ya estaba en ${currentCount}. Asegurando a 0."$)
 		GlobalParameters.ActiveRequestsCountByDB.Put(dbKey, 0)
 	End If
 	' Log($"[DEBUG] CleanupAndLog After Decrement (B4X): dbKey=${dbKey}, New count (as Int)=${GlobalParameters.ActiveRequestsCountByDB.GetDefault(dbKey,0).As(Int)}, Map state: ${GlobalParameters.ActiveRequestsCountByDB}"$)
@@ -480,7 +480,7 @@ End Sub
 
 ' Ejecuta una consulta única usando el protocolo V1.
 Private Sub ExecuteQuery(DB As String, con As SQL, in As InputStream, resp As ServletResponse) As String
-    Log("====================== ExecuteQuery =====================")
+'    Log("====================== ExecuteQuery =====================")
     ' Deserializa los datos de la petición usando el protocolo V1.
     Dim clientVersion As Float = ReadObject(in) 'ignore
     Dim queryName As String = ReadObject(in)