AppType=StandardJava Build1=Default,b4j.JRDCMulti File1=config.DB2.properties File10=stop.bat File2=config.DB3.properties File3=config.DB4.properties File4=config.properties File5=login.html File6=reiniciaProcesoBow.bat File7=reiniciaProcesoPM2.bat File8=start.bat File9=start2.bat FileGroup1=Default Group FileGroup10=Default Group FileGroup2=Default Group FileGroup3=Default Group FileGroup4=Default Group FileGroup5=Default Group FileGroup6=Default Group FileGroup7=Default Group FileGroup8=Default Group FileGroup9=Default Group Group=Default Group Library1=byteconverter Library2=javaobject Library3=jcore Library4=jrandomaccessfile Library5=jserver Library6=jshell Library7=json Library8=jsql Library9=bcrypt Module1=Cambios Module10=Manager Module11=ParameterValidationUtils Module12=ping Module13=RDCConnector Module14=TestHandler Module2=ChangePassHandler Module3=DBHandlerB4X Module4=DBHandlerJSON Module5=DoLoginHandler Module6=faviconHandler Module7=GlobalParameters Module8=LoginHandler Module9=LogoutHandler NumberOfFiles=10 NumberOfLibraries=9 NumberOfModules=14 Version=10.3 @EndOfDesignText@ 'Non-UI application (console / server application) #Region Project Attributes #CommandLineArgs: #MergeLibraries: True ' VERSION 5.09.16 '########################################################################################################### '###################### PULL ############################################################# 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull '########################################################################################################### '###################### PUSH ############################################################# 'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\ '########################################################################################################### '###################### PUSH TORTOISE GIT ######################################################### 'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"../"&Args=/closeonend:2 '########################################################################################################### #End Region 'change based on the jdbc jar file '#AdditionalJar: mysql-connector-java-5.1.27-bin '#AdditionalJar: postgresql-42.7.0 #AdditionalJar: ojdbc11 ' Librería para manejar la base de datos SQLite #AdditionalJar: sqlite-jdbc-3.7.2 Sub Process_Globals ' --- Variables globales accesibles desde cualquier parte del proyecto --- ' Objeto principal del servidor HTTP de B4J. Public srvr As Server ' La versión actual de este servidor jRDC modificado. Public const VERSION As Float = 2.23 ' Tipos personalizados (clases) para la serialización y deserialización de datos ' entre el cliente B4X (DBRequestManager) y el servidor jRDC2. Type DBCommand (Name As String, Parameters() As Object) ' Define un comando SQL. Type DBResult (Tag As Object, Columns As Map, Rows As List) ' Define la estructura de un resultado de consulta. ' Contiene una lista de los identificadores de bases de datos configuradas (ej. "DB1", "DB2"). Public listaDeCP As List ' Una lista temporal para almacenar los nombres de archivos de configuración encontrados. Private cpFiles As List ' Mapas globales para gestionar los conectores de base de datos y los comandos SQL. ' Connectors: Almacena las instancias de RDCConnector por cada base de datos (DB1, DB2, etc.). ' commandsMap: Almacena los comandos SQL cargados de los archivos de configuración para cada DB. Public Connectors, commandsMap As Map ' Objeto SQL para interactuar con la base de datos de usuarios y logs (SQLite). Public SQL1 As SQL ' Objeto para realizar operaciones de hashing de contraseñas de forma segura (para autenticación de Manager). Private bc As BCrypt ' Objeto de bloqueo (ReentrantLock) para proteger el mapa Main.Connectors durante operaciones de recarga (Hot-Swap). Public MainConnectorsLock As JavaObject ' Timer para ejecutar tareas periódicas, como la limpieza de logs. Public timerLogs As Timer ' Tipo para encapsular el resultado de la validación de parámetros. Type ParameterValidationResult ( _ Success As Boolean, _ ErrorMessage As String, _ ParamsToExecute As List _ ' La lista de parámetros final a usar en la ejecución SQL ) End Sub Sub AppStart (Args() As String) ' --- Subrutina principal que se ejecuta al iniciar la aplicación --- bc.Initialize("BC") ' 1. Inicializa la base de datos local de usuarios (SQLite) y la tabla de logs. ' Esta base de datos se crea automáticamente si no existe o se migra si es necesario. InitializeSQLiteDatabase ' <<<< Bloque de inicialización del Timer para la limpieza de logs >>>> ' Inicializa y configura el Timer para borrar logs antiguos cada 10 minutos (600,000 milisegundos). timerLogs.Initialize("TimerLogs", 600000) ' 10 minutos = 600 * 1000 = 600000 ms timerLogs.Enabled = True ' Habilita el timer para que empiece a correr. Log("Main.AppStart: Timer de limpieza de 'query_logs' inicializado para ejecutarse cada 10 minutos.") ' <<<< Fin del bloque del Timer >>>> ' 2. Inicializa los mapas globales definidos en GlobalParameters.bas. ' Estos mapas se usan para monitorear el servidor y gestionar configuraciones dinámicas. GlobalParameters.mpLogs.Initialize ' Mapa para almacenar logs de actividad general. GlobalParameters.mpTotalRequests.Initialize ' Mapa para contar peticiones por endpoint/DB. GlobalParameters.mpTotalConnections.Initialize ' Mapa para almacenar el estado de los pools de conexión por DB. GlobalParameters.mpBlockConnection.Initialize ' Mapa para gestionar IPs bloqueadas (si la funcionalidad está activa). ' Aseguramos que el mapa de conteo de peticiones activas sea thread-safe para un manejo concurrente seguro. GlobalParameters.ActiveRequestsCountByDB = srvr.CreateThreadSafeMap ' 3. Inicializa las estructuras principales del servidor HTTP. listaDeCP.Initialize ' Inicializa la lista que contendrá los IDs de las bases de datos. srvr.Initialize("") ' Inicializa el objeto servidor HTTP. Connectors = srvr.CreateThreadSafeMap ' Crea un mapa seguro para almacenar instancias de RDCConnector (un conector por DB). commandsMap.Initialize ' Inicializa el mapa que almacenará los comandos SQL cargados de los archivos de configuración. ' Creamos una instancia de ReentrantLock para proteger Main.Connectors durante operaciones atómicas de Hot-Swap. MainConnectorsLock.InitializeNewInstance("java.util.concurrent.locks.ReentrantLock", Null) ' === 4. INICIALIZACIÓN DEL CONECTOR PARA LA BASE DE DATOS PRINCIPAL (DB1) === ' DB1 siempre usa el archivo 'config.properties' por defecto. Try Dim con1 As RDCConnector ' Declara una variable específica y única para el conector de DB1. con1.Initialize("DB1") ' Inicializa la instancia del conector para "DB1". Connectors.Put("DB1", con1) ' Asocia el identificador "DB1" con su instancia de RDCConnector. srvr.Port = con1.serverPort ' El puerto del servidor HTTP se obtiene del config.properties de DB1. listaDeCP.Add("DB1") ' Añade "DB1" a la lista de bases de datos gestionadas. Log($"Main.AppStart: Conector 'DB1' inicializado exitosamente en puerto: ${srvr.Port}"$) Catch Dim ErrorMsg As String = $"Main.AppStart: ERROR CRÍTICO al inicializar conector 'DB1': ${LastException.Message}"$ Log(ErrorMsg) LogServerError("ERROR", "Main.AppStart", ErrorMsg, "DB1", Null, Null) ' Si DB1 falla, el servidor no puede arrancar correctamente. ExitApplication End Try ' === 5. DETECCIÓN E INICIALIZACIÓN DE BASES DE DATOS ADICIONALES (DB2, DB3, DB4) === ' El servidor busca archivos de configuración adicionales (ej. config.DB2.properties) ' en el mismo directorio donde se ejecuta el JAR. cpFiles = File.ListFiles("./") If cpFiles.Size > 0 Then For i = 0 To cpFiles.Size - 1 ' Procesa 'config.DB2.properties' If cpFiles.Get(i) = "config.DB2.properties" Then Try Dim con2 As RDCConnector con2.Initialize("DB2") Connectors.Put("DB2", con2) listaDeCP.Add("DB2") Log("Main.AppStart: Conector 'DB2' inicializado exitosamente.") Catch Dim ErrorMsg As String = $"Main.AppStart: ERROR al inicializar conector 'DB2': ${LastException.Message}"$ Log(ErrorMsg) LogServerError("ERROR", "Main.AppStart", ErrorMsg, "DB2", Null, Null) ' Si un conector secundario falla, el servidor puede continuar, pero es importante saberlo. End Try End If ' Procesa 'config.DB3.properties' If cpFiles.Get(i) = "config.DB3.properties" Then Try Dim con3 As RDCConnector con3.Initialize("DB3") Connectors.Put("DB3", con3) listaDeCP.Add("DB3") Log("Main.AppStart: Conector 'DB3' inicializado exitosamente.") Catch Dim ErrorMsg As String = $"Main.AppStart: ERROR al inicializar conector 'DB3': ${LastException.Message}"$ Log(ErrorMsg) LogServerError("ERROR", "Main.AppStart", ErrorMsg, "DB3", Null, Null) ' Si un conector secundario falla, el servidor puede continuar, pero es importante saberlo. End Try End If ' Procesa 'config.DB4.properties' If cpFiles.Get(i) = "config.DB4.properties" Then Try Dim con4 As RDCConnector con4.Initialize("DB4") Connectors.Put("DB4", con4) listaDeCP.Add("DB4") Log("Main.AppStart: Conector 'DB4' inicializado exitosamente.") Catch Dim ErrorMsg As String = $"Main.AppStart: ERROR al inicializar conector 'DB4': ${LastException.Message}"$ Log(ErrorMsg) LogServerError("ERROR", "Main.AppStart", ErrorMsg, "DB4", Null, Null) ' Si un conector secundario falla, el servidor puede continuar, pero es importante saberlo. End Try End If Next Else Log("Main.AppStart: No se encontraron archivos de configuración adicionales (config.DBx.properties).") End If ' Log final de las bases de datos que el servidor está gestionando. Dim sbListaDeCP_Log As StringBuilder sbListaDeCP_Log.Initialize For Each item As String In listaDeCP sbListaDeCP_Log.Append(item).Append(", ") Next If sbListaDeCP_Log.Length > 0 Then sbListaDeCP_Log.Remove(sbListaDeCP_Log.Length - 2, sbListaDeCP_Log.Length) ' Elimina la última ", " End If Log($"Main.AppStart: Bases de datos configuradas y listas: [${sbListaDeCP_Log.ToString}]"$) ' === 6. REGISTRO DE HANDLERS HTTP PARA EL SERVIDOR === ' Asocia rutas URL específicas con clases que manejarán las peticiones correspondientes. ' El último parámetro (True) indica que el handler se ejecutará en un nuevo hilo, ' lo que es recomendable para la mayoría de los casos para evitar bloqueos. srvr.AddHandler("/ping", "ping", False) ' Endpoint simple para verificar si el servidor está activo. srvr.AddHandler("/test", "TestHandler", False) ' Endpoint para pruebas de conexión y estado del servidor. srvr.AddHandler("/login", "LoginHandler", False) ' Muestra la página HTML de login. srvr.AddHandler("/dologin", "DoLoginHandler", False) ' Procesa el intento de inicio de sesión. srvr.AddHandler("/logout", "LogoutHandler", False) ' Cierra la sesión del usuario. srvr.AddHandler("/changepass", "ChangePassHandler", False) ' Permite a los usuarios cambiar su contraseña. srvr.AddHandler("/manager", "Manager", False) ' Panel de administración del servidor (requiere autenticación). srvr.AddHandler("/DBJ", "DBHandlerJSON", False) ' Handler para clientes web (ej. JavaScript, Node.js) que usan JSON. srvr.AddHandler("/dbrquery", "DBHandlerJSON", False) ' Un alias para el handler JSON, por si se usa en clientes específicos. srvr.AddHandler("/favicon.ico", "faviconHandler", False) ' Sirve el icono de la página (favicon). srvr.AddHandler("/*", "DBHandlerB4X", False) ' Handler por defecto para clientes B4X (DBRequestManager), ' procesa peticiones dinámicamente según la URL. ' 7. Inicia el servidor HTTP. srvr.Start Log("===========================================================") Log($"-=== jRDC está funcionando en el puerto: ${srvr.Port} (versión = $1.2{VERSION}) ===-"$) Log("===========================================================") ' 8. Inicia el bucle de mensajes de B4J. Es esencial para que la aplicación ' de servidor continúe ejecutándose y procesando eventos. StartMessageLoop End Sub ' --- Subrutina para inicializar la base de datos de usuarios local (SQLite) --- ' Esta base de datos se utiliza para almacenar credenciales de usuarios que pueden ' acceder al panel de administración del servidor jRDC y los logs de queries. Sub InitializeSQLiteDatabase Dim dbFileName As String = "users.db" ' Nombre del archivo de la base de datos SQLite. ' Verifica si el archivo de la base de datos ya existe en el directorio de la aplicación. If File.Exists(File.DirApp, dbFileName) = False Then Log("Creando nueva base de datos de usuarios: " & dbFileName) ' Inicializa la conexión a la base de datos SQLite, creándola si no existe (último parámetro en True). SQL1.InitializeSQLite(File.DirApp, dbFileName, True) ' Define y ejecuta la sentencia SQL para crear la tabla 'users' para la autenticación del Manager. Dim createUserTable As String = "CREATE TABLE users (username TEXT PRIMARY KEY, password_hash TEXT NOT NULL)" SQL1.ExecNonQuery(createUserTable) ' >>> INICIO: Creación de la tabla query_logs con las nuevas columnas desde CERO <<< Log("Creando tabla 'query_logs' con columnas de rendimiento.") ' Esta tabla almacena métricas detalladas de cada query ejecutada. Dim createQueryLogsTable As String = "CREATE TABLE query_logs (id INTEGER PRIMARY KEY AUTOINCREMENT, query_name TEXT, duration_ms INTEGER, timestamp INTEGER, db_key TEXT, client_ip TEXT, busy_connections INTEGER, handler_active_requests INTEGER)" SQL1.ExecNonQuery(createQueryLogsTable) ' >>> FIN: Creación de la tabla query_logs <<< ' Crea un usuario por defecto para facilitar el primer acceso al panel de administración. Dim defaultUser As String = "admin" Dim defaultPass As String = "12345" ' Genera un hash seguro de la contraseña usando BCrypt, lo cual es crucial para la seguridad. Dim hashedPass As String = bc.hashpw(defaultPass, bc.gensalt) ' Inserta el usuario por defecto en la tabla 'users'. SQL1.ExecNonQuery2("INSERT INTO users (username, password_hash) VALUES (?, ?)", Array As Object(defaultUser, hashedPass)) Log($"Usuario por defecto creado -> user: ${defaultUser}, pass: ${defaultPass}"$) Dim createQueryLogsTable As String = "CREATE TABLE query_logs (id INTEGER PRIMARY KEY AUTOINCREMENT, query_name TEXT, duration_ms INTEGER, timestamp INTEGER, db_key TEXT, client_ip TEXT, busy_connections INTEGER, handler_active_requests INTEGER)" SQL1.ExecNonQuery(createQueryLogsTable) ' >>> INICIO: Creación de la tabla errores con columnas de error/advertencia <<< Log("Creando tabla 'errores' para registrar eventos.") Dim createErrorsTable As String = "CREATE TABLE errores (id INTEGER PRIMARY KEY AUTOINCREMENT, timestamp INTEGER, type TEXT, source TEXT, message TEXT, db_key TEXT, command_name TEXT, client_ip TEXT)" SQL1.ExecNonQuery(createErrorsTable) ' >>> FIN: Creación de la tabla errores <<< Else ' Si el archivo de la base de datos ya existe, simplemente se abre. SQL1.InitializeSQLite(File.DirApp, dbFileName, True) Log("Base de datos de usuarios cargada.") ' >>> INICIO: Lógica de migración (ALTER TABLE) si la DB ya existía <<< Log("Verificando y migrando tabla 'query_logs' si es necesario.") ' Primero, verificar si la tabla query_logs existe. If SQL1.ExecQuerySingleResult("SELECT name FROM sqlite_master WHERE type='table' AND name='query_logs'") = Null Then Log("Tabla 'query_logs' no encontrada, creándola con columnas de rendimiento.") Dim createQueryLogsTable As String = "CREATE TABLE query_logs (id INTEGER PRIMARY KEY AUTOINCREMENT, query_name TEXT, duration_ms INTEGER, timestamp INTEGER, db_key TEXT, client_ip TEXT, busy_connections INTEGER, handler_active_requests INTEGER)" SQL1.ExecNonQuery(createQueryLogsTable) Else ' Si la tabla query_logs ya existe, entonces verificamos y añadimos las columnas faltantes (busy_connections, handler_active_requests). Dim columnExists As Boolean Dim rs As ResultSet ' --- VERIFICAR Y AÑADIR busy_connections --- columnExists = False ' Ejecutamos PRAGMA para obtener la información de la tabla y verificar la existencia de la columna. rs = SQL1.ExecQuery("PRAGMA table_info(query_logs)") Do While rs.NextRow If rs.GetString("name").EqualsIgnoreCase("busy_connections") Then columnExists = True Exit ' La columna ya existe, salimos del bucle. End If Loop rs.Close ' ¡Importante cerrar el ResultSet para liberar recursos! If columnExists = False Then Log("Añadiendo columna 'busy_connections' a query_logs.") SQL1.ExecNonQuery("ALTER TABLE query_logs ADD COLUMN busy_connections INTEGER DEFAULT 0") End If ' --- VERIFICAR Y AÑADIR handler_active_requests --- columnExists = False rs = SQL1.ExecQuery("PRAGMA table_info(query_logs)") ' Ejecutamos PRAGMA nuevamente para esta columna. Do While rs.NextRow If rs.GetString("name").EqualsIgnoreCase("handler_active_requests") Then columnExists = True Exit ' La columna ya existe, salimos del bucle. End If Loop rs.Close ' ¡Importante cerrar el ResultSet! If columnExists = False Then Log("Añadiendo columna 'handler_active_requests' a query_logs.") SQL1.ExecNonQuery("ALTER TABLE query_logs ADD COLUMN handler_active_requests INTEGER DEFAULT 0") End If ' >>> INICIO: Lógica de migración para 'errores' si la DB ya existía <<< Log("Verificando y migrando tabla 'errores' si es necesario.") If SQL1.ExecQuerySingleResult("SELECT name FROM sqlite_master WHERE type='table' AND name='errores'") = Null Then Log("Tabla 'errores' no encontrada, creándola.") Dim createErrorsTable As String = "CREATE TABLE errores (id INTEGER PRIMARY KEY AUTOINCREMENT, timestamp INTEGER, type TEXT, source TEXT, message TEXT, db_key TEXT, command_name TEXT, client_ip TEXT)" SQL1.ExecNonQuery(createErrorsTable) Else ' Si la tabla ya existe, podrías añadir lógica para ALTER TABLE si se añaden nuevas columnas en el futuro. ' Por ahora, asumimos que la estructura inicial es suficiente. Log("Tabla 'errores' ya existe.") End If ' >>> FIN: Lógica de migración para 'errores' <<< End If ' >>> FIN: Lógica de migración (ALTER TABLE) <<< End If End Sub ' Subrutina para registrar las métricas de rendimiento de las queries en la tabla 'query_logs'. Public Sub LogQueryPerformance(QueryName As String, DurationMs As Long, DbKey As String, ClientIp As String, HandlerActiveRequests As Int, PoolBusyConnections As Int) Try ' Los valores de PoolBusyConnections y HandlerActiveRequests ya se reciben directamente del handler, ' eliminando la necesidad de obtenerlos del conector en este punto. ' Insertamos los datos en la tabla query_logs de SQLite. SQL1.ExecNonQuery2("INSERT INTO query_logs (query_name, duration_ms, timestamp, db_key, client_ip, busy_connections, handler_active_requests) VALUES (?, ?, ?, ?, ?, ?, ?)", _ Array As Object(QueryName, DurationMs, DateTime.Now, DbKey, ClientIp, PoolBusyConnections, HandlerActiveRequests)) Catch Log("Error al guardar log de query en SQLite (Main.LogQueryPerformance): " & LastException.Message) End Try End Sub ' Subrutina para registrar errores y advertencias en la tabla 'errores'. ' Type: "ERROR" o "ADVERTENCIA" ' Source: Módulo.Subrutina donde ocurrió el evento (ej. "DBHandlerJSON.Handle") ' Message: El mensaje descriptivo del error/advertencia. ' DBKey: La clave de la base de datos involucrada (ej. "DB1", "DB2"), Null si no aplica. ' CommandName: El nombre del comando SQL (ej. "select_user"), Null si no aplica. ' ClientIp: La dirección IP del cliente que originó la petición, Null si no aplica. Public Sub LogServerError(Type0 As String, Source As String, Message As String, DBKey As String, CommandName As String, ClientIp As String) Try SQL1.ExecNonQuery2("INSERT INTO errores (timestamp, type, source, message, db_key, command_name, client_ip) VALUES (?, ?, ?, ?, ?, ?, ?)", _ Array As Object(DateTime.Now, Type0, Source, Message, DBKey, CommandName, ClientIp)) Catch Log("ERROR CRÍTICO: Fallo al guardar el log de error/advertencia en SQLite (Main.LogServerError): " & LastException.Message) ' En este punto, no podemos hacer mucho más que loggear el fallo en la consola, ' para evitar un bucle infinito de errores de logging. End Try End Sub ' Subrutina de evento para el Timer 'timerLogs'. ' Se ejecuta periódicamente (cada 10 minutos) para limpiar la tabla de logs. Sub TimerLogs_Tick Try borraArribaDe15000Logs ' Llama a la función para limpiar los logs. Catch Dim ErrorMsg As String = "ERROR en TimerLogs_Tick al intentar borrar logs: " & LastException.Message Log(ErrorMsg) LogServerError("ERROR", "Main.TimerLogs_Tick", ErrorMsg, Null, "log_cleanup", Null) ' <-- Nuevo Log End Try End Sub ' Borra los registros más antiguos de la tabla 'query_logs', manteniendo solo los 15,000 más recientes. ' Luego, optimiza el espacio de la base de datos SQLite con un 'vacuum'. Sub borraArribaDe15000Logs 'ignore Log("Recortando la tabla de 'query_logs', límite de 15,000 registros.") SQL1.ExecNonQuery("DELETE FROM query_logs WHERE timestamp NOT in (SELECT timestamp FROM query_logs ORDER BY timestamp desc LIMIT 15000 )") SQL1.ExecNonQuery("vacuum;") ' Optimiza el espacio de almacenamiento de la base de datos. End Sub