- VERSION 5.09.15

1.  **Nuevas Funcionalidades en el Panel de Administración (Manager):**
	*   Se añadió el comando `slowqueries` al `Manager` para permitir la visualización de las 20 consultas más lentas registradas en la tabla `query_logs` de SQLite [22].
	*   Se mejoró el comando `totalcon` en `Manager.bas` para mostrar estadísticas detalladas de *todos* los pools de conexión C3P0 configurados, obteniendo métricas en tiempo real (TotalConnections, BusyConnections, IdleConnections, etc.) de cada `RDCConnector` [2, 22].
	*   Beneficio: Mayor visibilidad y control proactivo sobre el rendimiento y el uso de recursos del servidor desde la interfaz de administración.

	2.  **Optimización de la Gestión de Logs (`query_logs`):**
	*   Se implementó un `Public timerLogs As Timer` en `Main.bas` [conversación], que se inicializa en `AppStart` y ejecuta periódicamente (cada 10 minutos) la subrutina `borraArribaDe15000Logs`.
	*   La subrutina `borraArribaDe15000Logs` recorta la tabla `query_logs` en `users.db` para mantener solo los 15,000 registros más recientes, y luego realiza un `vacuum` para optimizar el espacio en disco utilizado por la base de datos SQLite [conversación].
	*   Beneficio: Prevención del crecimiento excesivo de la base de datos de logs de rendimiento, manteniendo un historial manejable y optimizando el uso del almacenamiento a largo plazo.

Manager.bas

@@ -4,25 +4,39 @@ ModulesStructureVersion=1
 Type=Class
 Version=8.8
 @EndOfDesignText@
-'Handler class
+' Módulo de clase: Manager
+' Este handler proporciona un panel de administración web para el servidor jRDC2-Multi.
+' Permite monitorear el estado del servidor, recargar configuraciones de bases de datos,
+' ver estadísticas de rendimiento, reiniciar servicios externos, y gestionar la autenticación de usuarios.
+
 Sub Class_Globals
+	' Objeto para generar respuestas JSON. Se utiliza para mostrar mapas de datos de forma legible.
 	Dim j As JSONGenerator
-'	Dim rdcc As RDCConnector
+	' La clase BCrypt no se usa directamente en este módulo, pero se mantiene si hubiera planes futuros.
+	' Private bc As BCrypt
 End Sub
 
+' Subrutina de inicialización de la clase. Se llama cuando se crea un objeto de esta clase.
 Public Sub Initialize
-	
+	' No se requiere inicialización específica para esta clase en este momento.
 End Sub
 
+' Método principal que maneja las peticiones HTTP para el panel de administración.
+' req: El objeto ServletRequest que contiene la información de la petición entrante.
+' resp: El objeto ServletResponse para construir y enviar la respuesta al cliente.
 Sub Handle(req As ServletRequest, resp As ServletResponse)
-	' 1. --- Bloque de Seguridad ---
+	' --- 1. Bloque de Seguridad: Autenticación de Usuario ---
+	' Verifica si el usuario actual ha iniciado sesión y está autorizado.
+	' Si no está autorizado, se le redirige a la página de login.
 	If req.GetSession.GetAttribute2("user_is_authorized", False) = False Then
 		resp.SendRedirect("/login")
-		Return
+		Return ' Termina la ejecución si no está autorizado.
 	End If
 
+	' Obtiene el comando solicitado de los parámetros de la URL (ej. "?command=reload").
 	Dim Command As String = req.GetParameter("command")
-	If Command = "" Then Command = "ping"
+	If Command = "" Then Command = "ping" ' Si no se especifica un comando, por defecto es "ping".
+
 	Log($"Command: ${Command}"$)
 
 	' --- MANEJO ESPECIAL PARA SNAPSHOT ---
@@ -46,9 +60,9 @@ Sub Handle(req As ServletRequest, resp As ServletResponse)
 	End If
 	' --- FIN DE MANEJO ESPECIAL ---
 
-	' Para todos los demás comandos, construimos la página HTML
-	resp.ContentType = "text/html"
-	Dim sb As StringBuilder
+	' Para todos los demás comandos, construimos la página HTML de respuesta.
+	resp.ContentType = "text/html" ' Establece el tipo de contenido como HTML.
+	Dim sb As StringBuilder ' Usamos StringBuilder para construir eficientemente el HTML.
 	sb.Initialize
 
 	' --- Estilos y JavaScript (igual que antes) ---
@@ -64,12 +78,23 @@ Sub Handle(req As ServletRequest, resp As ServletResponse)
 	sb.Append("<script>function toggleForm() {var form = document.getElementById('changePassForm'); if (form.style.display === 'none') {form.style.display = 'block';} else {form.style.display = 'none';}}</script>")
 	sb.Append("</head><body>")
 
-	' --- Cabecera, Botón y Formulario Oculto (igual que antes) ---
+	' --- Cabecera de la Página y Mensaje de Bienvenida ---
 	sb.Append("<h1>Panel de Administración jRDC</h1>")
-	sb.Append($"Bienvenido, <b>${req.GetSession.GetAttribute("username")}</b><br>"$)
-'	sb.Append("<p class='nav'><a href='/manager?command=test'>Test</a> | <a href='/manager?command=ping'>Ping</a> | <a href='/manager?command=reload'>Reload</a> | <a href='/manager?command=rpm2'>Reiniciar (pm2)</a> | <a href='/manager?command=reviveBow'>Revive Bow</a></p><hr>")
-	sb.Append("<p class='nav'><a href='/manager?command=test'>Test</a> | <a href='/manager?command=ping'>Ping</a> | <a href='/manager?command=reload'>Reload</a> | <a href='/manager?command=slowqueries'>Queries Lentos</a> | <a href='/manager?command=totalcon'>Estadísticas Pool</a> | <a href='/manager?command=rpm2'>Reiniciar (pm2)</a> | <a href='/manager?command=reviveBow'>Revive Bow</a></p><hr>")
-'	sb.Append("<button onclick='toggleForm()'>Cambiar Contraseña</button>")
+	sb.Append($"<p>Bienvenido, <strong>${req.GetSession.GetAttribute("username")}</strong></p>"$)
+	
+	' --- Menú de Navegación del Manager ---
+	' Este menú incluye las opciones para interactuar con el servidor.
+	sb.Append("<div class='menu'>")
+	sb.Append("<a href='/manager?command=test'>Test</a> | ")
+	sb.Append("<a href='/manager?command=ping'>Ping</a> | ")
+	sb.Append("<a href='/manager?command=reload'>Reload</a> | ")
+	sb.Append("<a href='/manager?command=slowqueries'>Queries Lentas</a> | ") ' Nuevo enlace para queries lentas.
+	sb.Append("<a href='/manager?command=totalcon'>Estadísticas Pool</a> | ") ' Nuevo enlace para estadísticas del pool.
+	sb.Append("<a href='/manager?command=rpm2'>Reiniciar (pm2)</a> | ")
+	sb.Append("<a href='/manager?command=reviveBow'>Revive Bow</a>")
+	sb.Append("</div>")
+	sb.Append("<hr>")
+
 	sb.Append("<div id='changePassForm' style='display:none;'>")
 	sb.Append("<h2>Cambiar Contraseña</h2><form action='/changepass' method='post'>")
 	sb.Append("Contraseña Actual: <input type='password' name='current_password' required><br>")
@@ -93,12 +118,12 @@ Sub Handle(req As ServletRequest, resp As ServletResponse)
 		' 1. Crear un nuevo mapa temporal para almacenar los conectores recién inicializados.
 		Dim newConnectors As Map
 		newConnectors.Initialize
-    
+
 		' Guardamos una referencia al mapa de conectores actualmente activos.
 		Dim oldConnectors As Map
-    
+
 		Dim reloadSuccessful As Boolean = True
-    
+
 		' *** INICIO DEL BLOQUE CRÍTICO 1: Obtener oldConnectors con ReentrantLock ***
 		Dim lock1Acquired As Boolean = False ' Bandera para saber si el bloqueo fue adquirido.
 		Try
@@ -119,7 +144,7 @@ Sub Handle(req As ServletRequest, resp As ServletResponse)
 			sb.Append($"¡ERROR: La recarga de configuración falló en la fase de bloqueo inicial! Los conectores antiguos siguen activos."$).Append("<br>" & CRLF)
 			Return ' Salir del Handle ya que ocurrió un error crítico irrecuperable.
 		End If
-    
+
 		' 2. Iterar sobre las bases de datos configuradas y crear *nuevas* instancias de RDCConnector.
 		For Each dbKey As String In Main.listaDeCP
 			Try
@@ -129,14 +154,14 @@ Sub Handle(req As ServletRequest, resp As ServletResponse)
             
 				Dim newPoolStats As Map = newRDC.GetPoolStats
 				sbTemp.Append($"  -> ${dbKey}: Nuevo conector inicializado. Conexiones: ${newPoolStats.Get("TotalConnections")}"$).Append("<br>" & CRLF)
-            
+
 			Catch
 				sbTemp.Append($"  -> ERROR CRÍTICO al inicializar nuevo conector para ${dbKey}: ${LastException.Message}"$).Append("<br>" & CRLF)
 				reloadSuccessful = False
 				Exit ' Si uno falla, abortamos la recarga completa para evitar un estado inconsistente.
 			End Try
 		Next
-    
+
 		sb.Append(sbTemp.ToString) ' Añadimos los logs acumulados de la inicialización al StringBuilder principal.
 
 		If reloadSuccessful Then